artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Set max arena size.

Browse source 
* mes.c (MAX_ARENA_SIZE): New global.
 (gc): Use it.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-11 18:41:08 +01:00
parent 753b63818c
commit 0a614e6543
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mes.c
View file

@ -34,6 +34,7 @@
#define ENV_CACHE 1 #define ENV_CACHE 1
int ARENA_SIZE = 100000; int ARENA_SIZE = 100000;
int MAX_ARENA_SIZE = 20000000;
int GC_SAFETY = 100; int GC_SAFETY = 100;
typedef long SCM; typedef long SCM;
@ -914,7 +915,7 @@ gc ()
{ {
if (g_debug) fprintf (stderr, "***gc[%d]...", g_free.value); if (g_debug) fprintf (stderr, "***gc[%d]...", g_free.value);
g_free.value = 1; g_free.value = 1;
if (g_cells < g_news) gc_up_arena (); if (g_cells < g_news && ARENA_SIZE < MAX_ARENA_SIZE) gc_up_arena ();
for (int i=g_free.value; i<g_symbol_max; i++) for (int i=g_free.value; i<g_symbol_max; i++)
gc_copy (i); gc_copy (i);
make_tmps (g_news); make_tmps (g_news);