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

fix code allocation bug

Browse Source 
svn: r11959
This commit is contained in:
Matthew Flatt 2008-10-07 13:12:44 +00:00
parent 06efa91709
commit da1e0f6313
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/mzscheme/src/salloc.c
View File

@ -704,8 +704,11 @@ static long free_list_find_bucket(long size)
if (free_list[hi].size == size)
return hi;
else
else {
if (free_list[lo].size < size)
abort();
return lo;
}
}
void *scheme_malloc_code(long size)
@ -722,7 +725,13 @@ void *scheme_malloc_code(long size)
page_size = get_page_size();
if ((2 * size + CODE_HEADER_SIZE) > page_size) {
if (!free_list) {
free_list = (struct free_list_entry *)malloc_page(page_size);
scheme_code_page_total += page_size;
init_free_list();
}
if (size > free_list[0].size) {
/* allocate large object on its own page(s) */
sz = size + CODE_HEADER_SIZE;
sz = (sz + page_size - 1) & ~(page_size - 1);
@ -734,12 +743,6 @@ void *scheme_malloc_code(long size)
return ((char *)pg) + CODE_HEADER_SIZE;
}
if (!free_list) {
free_list = (struct free_list_entry *)malloc_page(page_size);
scheme_code_page_total += page_size;
init_free_list();
}
bucket = free_list_find_bucket(size);
size2 = free_list[bucket].size;