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

GC: move minor work to clean-up phase instead of setup

Browse Source
This commit is contained in:
Matthew Flatt 2015-09-07 19:07:17 -06:00
parent 7eee429705
commit 9372862ee2
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4180,7 +4180,6 @@ static void mark_backpointers(NewGC *gc)
mmu_write_unprotect_page(gc->mmu, work->addr, real_page_size(work)); mmu_write_unprotect_page(gc->mmu, work->addr, real_page_size(work));
} }
work->marked_from = 1; work->marked_from = 1;
work->previous_size = PREFIX_SIZE;
if (work->size_class) { if (work->size_class) {
/* must be a big page */ /* must be a big page */
work->size_class = 3; work->size_class = 3;
@ -4207,9 +4206,6 @@ static void mark_backpointers(NewGC *gc)
work->previous_size = PREFIX_SIZE; work->previous_size = PREFIX_SIZE;
traversed++; traversed++;
} else { } else {
GCDEBUG((DEBUGOUTF,"Setting previous_size on %p to %i\n", work,
work->size));
work->previous_size = work->size;
skipped++; skipped++;
} }
} }
@ -4760,6 +4756,7 @@ static void clean_up_heap(NewGC *gc)
GCVERBOSEPAGE(gc, "clean_up_heap BIG PAGE ALIVE", work); GCVERBOSEPAGE(gc, "clean_up_heap BIG PAGE ALIVE", work);
work->marked_on = 0; work->marked_on = 0;
work->marked_from = 0; work->marked_from = 0;
work->previous_size = work->size;
memory_in_use += work->size; memory_in_use += work->size;
prev = work; prev = work;
} }
@ -4770,6 +4767,7 @@ static void clean_up_heap(NewGC *gc)
for (work = gc->gen1_pages[i]; work; work = work->next) { for (work = gc->gen1_pages[i]; work; work = work->next) {
work->marked_on = 0; work->marked_on = 0;
work->marked_from = 0; work->marked_from = 0;
work->previous_size = work->size;
memory_in_use += work->size; memory_in_use += work->size;
} }
} }