mes: gc_safety.
[mes.git] / src / mes.c
index 70f5a6743390fba1d4b58dc66eda31dc03d56cf9..8f9955f8c48a73021c9b5af8444244f37429ac60 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -31,8 +31,6 @@ int ARENA_SIZE = 100000;
 #endif
 int MAX_ARENA_SIZE = 20000000;
 
-//int GC_SAFETY_DIV = 400;
-//int GC_SAFETY = ARENA_SIZE / 400;
 int GC_SAFETY = 250;
 
 char *g_arena = 0;
@@ -1466,6 +1464,7 @@ main (int argc, char *argv[])
   if (g_debug) {eputs (";;; MODULEDIR=");eputs (MODULEDIR);eputs ("\n");}
   if (p = getenv ("MES_MAX_ARENA")) MAX_ARENA_SIZE = atoi (p);
   if (p = getenv ("MES_ARENA")) ARENA_SIZE = atoi (p);
+  GC_SAFETY = ARENA_SIZE / 400;
   if (argc > 1 && !strcmp (argv[1], "--help")) return puts ("Usage: mes [--dump|--load] < FILE\n");
   if (argc > 1 && !strcmp (argv[1], "--version")) {puts ("Mes ");puts (VERSION);puts ("\n");return 0;};
   g_stdin = STDIN;