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

adjust GC behavior to be more usable without generational collection

Browse Source 
Instead of limiting the nursery size and performing a full GC every
time a small nursery is full, allow the nursery to be proportional
to the total heap size if generational GC is disabled.
This commit is contained in:
Matthew Flatt 2019-05-10 19:14:08 -06:00
parent 7c3a207f36
commit bfe649bcc7
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,6 +24,7 @@
/* Configuration of the nursery (a.k.a. generation 0) */ /* Configuration of the nursery (a.k.a. generation 0) */
#define GEN0_INITIAL_SIZE (4 * 1024 * 1024) #define GEN0_INITIAL_SIZE (4 * 1024 * 1024)
#define GEN0_SIZE_FACTOR 0.5 #define GEN0_SIZE_FACTOR 0.5
#define GEN0_SIZE_FACTOR_NO_GEN 0.75
#define GEN0_SIZE_ADDITION (512 * 1024) #define GEN0_SIZE_ADDITION (512 * 1024)
#define GEN0_MAX_SIZE (32 * 1024 * 1024) #define GEN0_MAX_SIZE (32 * 1024 * 1024)
#define GEN0_PAGE_SIZE (1 * 1024 * 1024) #define GEN0_PAGE_SIZE (1 * 1024 * 1024)
@ -2034,10 +2035,14 @@ inline static void reset_nursery(NewGC *gc)
{ {
uintptr_t new_gen0_size; uintptr_t new_gen0_size;
new_gen0_size = NUM((GEN0_SIZE_FACTOR * (float)gc->memory_in_use) + GEN0_SIZE_ADDITION); if (gc->generations_available) {
if ((new_gen0_size > GEN0_MAX_SIZE) new_gen0_size = NUM((GEN0_SIZE_FACTOR * (float)gc->memory_in_use) + GEN0_SIZE_ADDITION);
|| (gc->memory_in_use > GEN0_MAX_SIZE)) /* => overflow */ if ((new_gen0_size > GEN0_MAX_SIZE)
new_gen0_size = GEN0_MAX_SIZE; || (gc->memory_in_use > GEN0_MAX_SIZE)) /* => overflow */
new_gen0_size = GEN0_MAX_SIZE;
} else {
new_gen0_size = NUM((GEN0_SIZE_FACTOR_NO_GEN * (float)gc->memory_in_use) + GEN0_SIZE_ADDITION);
}
if (gc->started_incremental if (gc->started_incremental
&& (new_gen0_size > (GEN0_MAX_SIZE / GEN0_INCREMENTAL_MAX_DIVISOR))) && (new_gen0_size > (GEN0_MAX_SIZE / GEN0_INCREMENTAL_MAX_DIVISOR)))
@ -5547,7 +5552,7 @@ static void garbage_collect(NewGC *gc, int force_full, int no_full,
if (!postmaster_and_place_gc(gc)) if (!postmaster_and_place_gc(gc))
do_incremental = 0; do_incremental = 0;
if (do_incremental) if (do_incremental && gc->generations_available)
gc->started_incremental = 1; gc->started_incremental = 1;
if (gc->incremental_requested) if (gc->incremental_requested)