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

fix GC medium objects allocation size accounting

Browse Source 
svn: r17655
This commit is contained in:
Kevin Tew 2010-01-14 20:18:43 +00:00
parent 1ab2a41092
commit 24d2dbf65e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -771,7 +771,7 @@ static void *allocate_medium(const size_t request_size_bytes, const int type)
NewGC *gc = GC_get_GC(); NewGC *gc = GC_get_GC();
void *objptr; 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); objptr = medium_page_realloc_dead_slot(gc, sz, pos, type);
if (!objptr) { 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; newptr = GC_gen0_alloc_page_ptr + allocate_size;
ASSERT_VALID_OBJPTR(newptr); ASSERT_VALID_OBJPTR(newptr);
/* master always overflows and uses allocate_medium because master allocations can't move */
while (OVERFLOWS_GEN0(newptr)) { while (OVERFLOWS_GEN0(newptr)) {
NewGC *gc = GC_get_GC(); NewGC *gc = GC_get_GC();
#ifdef MZ_USE_PLACES #ifdef MZ_USE_PLACES