mes: gc_safety.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 1 Jan 2018 19:00:06 +0000 (20:00 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 1 Jan 2018 19:00:06 +0000 (20:00 +0100)
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;