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

Places gc fix

Browse Source 
svn: r18100
This commit is contained in:
Kevin Tew 2010-02-16 18:47:04 +00:00
parent 6f0d6b28de
commit 7990337c1e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mzscheme/gc2/newgc.c
View File

@ -584,7 +584,7 @@ static inline void* REMOVE_BIG_PAGE_PTR_TAG(void *p) {
void GC_check_master_gc_request() {
#ifdef MZ_USE_PLACES
NewGC *gc = GC_get_GC();
if (MASTERGC && MASTERGC->major_places_gc == 1 && MASTERGCINFO->have_collected[gc->place_id] != 0) {
if (MASTERGC && MASTERGC->major_places_gc == 1 && MASTERGCINFO->have_collected[gc->place_id] != 1) {
GC_gcollect();
}
#endif
@ -1147,6 +1147,13 @@ inline static void resize_gen0(NewGC *gc, unsigned long new_size)
}
}
#ifdef MZ_USE_PLACES
inline static void master_set_max_size(NewGC *gc)
{
gc->gen0.max_size = gc->gen0.current_size + GEN0_INITIAL_SIZE;
}
#endif
inline static void reset_nursery(NewGC *gc)
{
unsigned long new_gen0_size;
@ -3539,6 +3546,9 @@ static void garbage_collect(NewGC *gc, int force_full, int switching_master)
clean_up_heap(gc);
TIME_STEP("cleaned heap");
#ifdef MZ_USE_PLACES
if (postmaster_and_master_gc(gc) && !switching_master) {
master_set_max_size(gc);
}
if (premaster_or_place_gc(gc) && !switching_master)
#endif
reset_nursery(gc);