Revert "[TMP] run mods"

This reverts commit a79644ec43.

Lama.opam

@@ -8,7 +8,7 @@ license: "GPL-3.0-only"
 homepage: "https://github.com/PLTools/Lama"
 bug-reports: "https://github.com/PLTools/Lama/issues"
 depends: [
-  "dune" {>= "3.11"}
+  "dune" {>= "3.3"}
   "posix-uname"
   "GT"
   "ostap" {>= "0.6"}

runtime/gc.c

@@ -56,8 +56,6 @@ void handler (int sig) {
 }
 
 void *alloc (size_t size) {
-  // return malloc(size);
-  // FIXME, disable gc
 #ifdef DEBUG_VERSION
   ++cur_id;
 #endif
@@ -249,7 +247,6 @@ static void gc_root_scan_stack () {
 }
 
 void mark_phase (void) {
-  // FIXME, disable gc
 #if defined(DEBUG_VERSION) && defined(DEBUG_PRINT)
   fprintf(stderr, "marking has started\n");
   fprintf(stderr,
@@ -623,8 +620,7 @@ extern void __shutdown (void) {
 void clear_extra_roots (void) { extra_roots.current_free = 0; }
 
 void push_extra_root (void **p) {
-  // FIXME, disable gc
-  if (extra_roots.current_free > MAX_EXTRA_ROOTS_NUMBER) {
+  if (extra_roots.current_free >= MAX_EXTRA_ROOTS_NUMBER) {
     perror("ERROR: push_extra_roots: extra_roots_pool overflow\n");
     exit(1);
   }
@@ -634,7 +630,6 @@ void push_extra_root (void **p) {
 }
 
 void pop_extra_root (void **p) {
-  // FIXME, disable gc
   if (extra_roots.current_free == 0) {
     perror("ERROR: pop_extra_root: extra_roots are empty\n");
     exit(1);

runtime/gc.h

@@ -37,7 +37,7 @@
 #define SET_FORWARD_ADDRESS(x, addr) (x = ((x & 3) | ((ptrt)(addr))))
 // if heap is full after gc shows in how many times it has to be extended
 #define EXTRA_ROOM_HEAP_COEFFICIENT 2
-#define MINIMUM_HEAP_CAPACITY (64000000)
+#define MINIMUM_HEAP_CAPACITY (64)
 
 #include <stdbool.h>
 #include <stddef.h>

runtime/runtime.c

@@ -845,30 +845,6 @@ extern void *Barray (aint* args, aint bn) {
   return r->contents;
 }
 
-extern void *Barray_rev (aint* args, aint bn) {
-  data   *r;
-  aint     n = UNBOX(bn);
-
-  PRE_GC();
-
-  for (aint i = 0; i < n; i++) {
-    push_extra_root((void**)&args[i]);
-  }
-
-  r = (data *)alloc_array(n);
-
-  for (int i = 0; i < n; i++) {
-    ((aint *)r->contents)[i] = args[n - i - 1];
-  }
-
-  for (aint i = n - 1; i >= 0; --i) {
-    pop_extra_root((void**)&args[i]);
-  }
-
-  POST_GC();
-  return r->contents;
-}
-
 #ifdef DEBUG_VERSION
 extern memory_chunk heap;
 #endif
@@ -902,35 +878,6 @@ extern void *Bsexp (aint* args, aint bn) {
   return (void *)((data *)r)->contents;
 }
 
-extern void *Bsexp_rev (aint* args, aint bn) {
-  sexp   *r;
-  aint     n = UNBOX(bn);
-
-  PRE_GC();
-
-  aint fields_cnt = n - 1;
-
-  for (aint i = 0; i < fields_cnt; i++) {
-    push_extra_root((void**)&args[i]);
-  }
-
-  r              = alloc_sexp(fields_cnt);
-  r->tag         = 0;
-
-  for (int i = 0; i < fields_cnt; i++) {
-    ((auint *)r->contents)[i] = args[fields_cnt - i];
-  }
-
-  r->tag = UNBOX(args[0]);
-
-  for (aint i = fields_cnt - 1; i >= 0; --i) {
-    pop_extra_root((void**)&args[i]);
-  }
-
-  POST_GC();
-  return (void *)((data *)r)->contents;
-}
-
 extern aint Btag (void *d, aint t, aint n) {
   data *r;