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

fix alloc_cache page counting

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-28 06:51:36 -06:00
parent 5114f5973c
commit 7648000608
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/racket/gc2/alloc_cache.c
View File

@ -207,7 +207,7 @@ static void *alloc_cache_alloc_page(AllocCacheBlock *blockfree, size_t len, siz
r = alloc_cache_find_pages(blockfree, len, alignment, dirty_ok);
if(!r) {
/* attempt to allocate from OS */
size_t extra = alignment + CACHE_SEED_PAGES * APAGE_SIZE;
size_t extra = (alignment ? (alignment + CACHE_SEED_PAGES * APAGE_SIZE) : 0);
r = os_alloc_pages(len + extra);
if(r == (void *)-1) { return NULL; }
@ -227,13 +227,14 @@ static void *alloc_cache_alloc_page(AllocCacheBlock *blockfree, size_t len, siz
a good chance we can use it next time: */
(*size_diff) += extra;
(*size_diff) += alloc_cache_free_page(blockfree, real_r + len, extra, 1);
}
else { os_free_pages(real_r + len, extra - pre_extra); }
} else {
os_free_pages(real_r + len, extra - pre_extra);
}
}
r = real_r;
}
(*size_diff) += extra;
(*size_diff) += len;
}
return r;