Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

with fixed sized chunk heaps, grow a new heap for the chunk size when applicable

Browse source
This commit is contained in:
Alex Shinn 2015-06-14 23:18:36 +09:00
parent 950312f13b
commit bd42ffaecd
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gc.c
View file

@ -525,10 +525,20 @@ sexp_heap sexp_make_heap (size_t size, size_t max_size, size_t chunk_size) {
int sexp_grow_heap (sexp ctx, size_t size, size_t chunk_size) { int sexp_grow_heap (sexp ctx, size_t size, size_t chunk_size) {
size_t cur_size, new_size; size_t cur_size, new_size;
sexp_heap h = sexp_heap_last(sexp_context_heap(ctx)); sexp_heap tmp, h = sexp_heap_last(sexp_context_heap(ctx));
#if SEXP_USE_FIXED_CHUNK_SIZE_HEAPS
for (tmp=sexp_context_heap(ctx); tmp; tmp=tmp->next)
if (tmp->chunk_size == size) {
h = tmp;
chunk_size = size;
break;
}
#endif
cur_size = h->size; cur_size = h->size;
new_size = sexp_heap_align(((cur_size > size) ? cur_size : size) * 2); new_size = sexp_heap_align(((cur_size > size) ? cur_size : size) * 2);
h->next = sexp_make_heap(new_size, h->max_size, chunk_size); tmp = sexp_make_heap(new_size, h->max_size, chunk_size);
tmp->next = h->next;
h->next = tmp;
return (h->next != NULL); return (h->next != NULL);
} }