From 24d2dbf65ea2c7ee2227a1c7309b9194c831e2d4 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Thu, 14 Jan 2010 20:18:43 +0000 Subject: [PATCH] fix GC medium objects allocation size accounting svn: r17655 --- src/mzscheme/gc2/newgc.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mzscheme/gc2/newgc.c b/src/mzscheme/gc2/newgc.c index 411b165cca..17561ff814 100644 --- a/src/mzscheme/gc2/newgc.c +++ b/src/mzscheme/gc2/newgc.c @@ -771,7 +771,7 @@ static void *allocate_medium(const size_t request_size_bytes, const int type) NewGC *gc = GC_get_GC(); void *objptr; - /* gc_if_needed_account_alloc_size(gc, sz); */ + gc_if_needed_account_alloc_size(gc, sz); objptr = medium_page_realloc_dead_slot(gc, sz, pos, type); if (!objptr) { @@ -892,6 +892,7 @@ inline static void *allocate(const size_t request_size, const int type) newptr = GC_gen0_alloc_page_ptr + allocate_size; ASSERT_VALID_OBJPTR(newptr); + /* master always overflows and uses allocate_medium because master allocations can't move */ while (OVERFLOWS_GEN0(newptr)) { NewGC *gc = GC_get_GC(); #ifdef MZ_USE_PLACES