From 2e813c2aee553e4bc724298cef8e76e595cde88c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 13 Mar 2015 09:55:03 -0600 Subject: [PATCH] GC: fix test for old-page compaction Missing indirection found via memcheck --- racket/src/racket/gc2/newgc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/gc2/newgc.c b/racket/src/racket/gc2/newgc.c index 4494298cd9..05e9f3b28d 100644 --- a/racket/src/racket/gc2/newgc.c +++ b/racket/src/racket/gc2/newgc.c @@ -4111,7 +4111,7 @@ inline static void do_heap_compact(NewGC *gc) /* then determine if we actually want to do compaction */ if(NO_BACKTRACE_AND(tic_tock ? should_compact_page(gcWORDS_TO_BYTES(work->live_size),work->size) - : mmu_should_compact_page(gc->mmu, work->mmu_src_block))) { + : mmu_should_compact_page(gc->mmu, &work->mmu_src_block))) { void **start = PAGE_START_VSS(work); void **end = PAGE_END_VSS(work); void **newplace;