suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tune GC parameter

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-27 16:45:25 -06:00
parent 836ac18667
commit 5881005e18
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/racket/gc2/newgc.c
View File

@ -234,6 +234,12 @@ MAYBE_UNUSED static void GCVERBOSEprintf(NewGC *gc, const char *fmt, ...) {
#define GEN0_MAX_SIZE (32 * 1024 * 1024)
#define GEN0_PAGE_SIZE (1 * 1024 * 1024)
/* Conservatively force a major GC after a certain number
of minor GCs. It should be ok to set this value
arbitraily high. An earlier value of 100, meanwhile,
seems to have been excessively conservative. */
#define FORCE_MAJOR_AFTER_COUNT 1000
#define GEN0_ALLOC_SIZE(page) ((page)->previous_size)
/* This is the log base 2 of the size of one word, given in bytes */
@ -4190,11 +4196,11 @@ static void garbage_collect(NewGC *gc, int force_full, int switching_master, Log
/* determine if this should be a full collection or not */
gc->gc_full = force_full || !gc->generations_available
|| (gc->since_last_full > 100) || (gc->memory_in_use > (2 * gc->last_full_mem_use));
|| (gc->since_last_full > FORCE_MAJOR_AFTER_COUNT) || (gc->memory_in_use > (2 * gc->last_full_mem_use));
#if 0
printf("Collection %li (full = %i): %i / %i / %i / %i %ld\n", number_of_gc_runs,
gc->gc_full, force_full, !generations_available,
(gc->since_last_full > 100), (gc->memory_in_use > (2 * gc->last_full_mem_use)),
(gc->since_last_full > FORCE_MAJOR_AFTER_COUNT), (gc->memory_in_use > (2 * gc->last_full_mem_use)),
gc->last_full_mem_use);
#endif