diff --git a/racket/src/racket/gc2/newgc.c b/racket/src/racket/gc2/newgc.c index f9a0cd71ab..ce9afe42ea 100644 --- a/racket/src/racket/gc2/newgc.c +++ b/racket/src/racket/gc2/newgc.c @@ -4672,7 +4672,7 @@ static void mark_backpointers(NewGC *gc) start += info->size; } - gc->memory_in_use -= work->live_size; + gc->memory_in_use -= gcWORDS_TO_BYTES(work->live_size); } traversed++; @@ -5241,7 +5241,7 @@ static void repair_heap(NewGC *gc) if (need_fixup_now) repair_mixed_page(gc, page, PPTR(NUM(page->addr) + APAGE_SIZE - page->obj_size)); - memory_in_use += page->live_size; + memory_in_use += gcWORDS_TO_BYTES(page->live_size); page->med_search_start = PREFIX_SIZE; /* start next block search at the beginning */ if (page->generation == AGE_GEN_0) { /* Tell the clean-up phase to keep this one (needed even for a minor GC): */ @@ -5468,7 +5468,7 @@ static void clean_up_heap(NewGC *gc) } /* For medium pages, generation-0 pages will appear first in each - list, so for a mnior GC, we can stop whenever we find a + list, so for a minor GC, we can stop whenever we find a generation-1 page */ for (ty = 0; ty < MED_PAGE_TYPES; ty++) { for (i = 0; i < NUM_MED_PAGE_SIZES; i++) { @@ -5479,7 +5479,7 @@ static void clean_up_heap(NewGC *gc) next = work->next; if (work->marked_on) { work->marked_on = 0; - memory_in_use += work->live_size; + memory_in_use += gcWORDS_TO_BYTES(work->live_size); work->generation = AGE_GEN_1; prev = work; } else if (gc->gc_full || (work->generation == AGE_GEN_0)) {