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

catch failure to grow heap

Browse source
This commit is contained in:
Alex Shinn 2019-03-03 23:30:00 +08:00
parent d1bb4c27a4
commit 09b564ed7b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gc.c
View file

@ -542,7 +542,7 @@ int sexp_grow_heap (sexp ctx, size_t size, size_t chunk_size) {
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);
tmp = 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; if (tmp) tmp->next = h->next;
h->next = tmp; h->next = tmp;
return (h->next != NULL); return (h->next != NULL);
} }