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

core: Increase MAX_ARENA_SIZE and GC safety.

Browse source 
* mes.c (MAX_ARENA_SIZE): Double to 40000000.
 (GC_SAFETY): Set to 10000 cells (WAS: 1000).
* scaffold/mini-mes.c (MAX_ARENA_SIZE, GC_SAFETY): Likewise.
* gc.c (gc)[MES_DEBUG]: Also print safety area.
This commit is contained in:
Jan Nieuwenhuizen 2017-04-01 19:10:28 +02:00
parent 5cd5681a4d
commit 3f60c2ec95
3 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gc.c
View file

@ -53,11 +53,11 @@ gc_flip () ///((internal))
g_cells = g_news;
g_news = cells;
#if _POSIX_SOURCE
if (g_debug) fprintf (stderr, " => jam[%d]\n", g_free);
if (g_debug) fprintf (stderr, ";;; => jam[%d]\n", g_free);
#else
if (g_debug)
{
eputs (" => jam[");
eputs (";;; => jam[");
eputs (itoa (g_free));
eputs ("]\n");
}
@ -164,12 +164,14 @@ SCM
gc ()
{
#if _POSIX_SOURCE
if (g_debug) fprintf (stderr, "***gc[%d]...", g_free);
if (g_debug) fprintf (stderr, ";;; gc[%d:%d]...", g_free, ARENA_SIZE - g_free);
#else
if (g_debug)
{
eputs ("***gc[");
eputs (";;; gc[");
eputs (itoa (g_free));
eputs (":");
eputs (itoa (ARENA_SIZE - g_free));
eputs ("]...");
}
#endif

4
mes.c
View file

@ -42,8 +42,8 @@ typedef int bool;
#define FIXED_PRIMITIVES 1
int ARENA_SIZE = 100000;
int MAX_ARENA_SIZE = 20000000;
int GC_SAFETY = 1000;
int MAX_ARENA_SIZE = 40000000;
int GC_SAFETY = 10000;
typedef int SCM;
enum type_t {TCHAR, TCLOSURE, TCONTINUATION, TFUNCTION, TKEYWORD, TMACRO, TNUMBER, TPAIR, TREF, TSPECIAL, TSTRING, TSYMBOL, TVALUES, TVECTOR, TBROKEN_HEART};

4
scaffold/mini-mes.c
View file

@ -32,8 +32,8 @@ int ARENA_SIZE = 100000;
#else
int ARENA_SIZE = 1000000000;
#endif
int MAX_ARENA_SIZE = 20000000;
int GC_SAFETY = 1000;
int MAX_ARENA_SIZE = 40000000;
int GC_SAFETY = 10000;
char *arena = 0;