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

Reverting patch from Peter Michaux.

Browse source
This commit is contained in:
Alex Shinn 2013-09-29 13:26:59 +09:00
parent 67e50cefaa
commit ae1f0fd76d
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

@ -465,7 +465,7 @@ sexp_heap sexp_make_heap (size_t size, size_t max_size) {
if (! h) return NULL; if (! h) return NULL;
h->size = size; h->size = size;
h->max_size = max_size; h->max_size = max_size;
h->data = (char*) sexp_heap_align(sizeof(h) + (sexp_uint_t)&(h)); h->data = (char*) sexp_heap_align(sizeof(h->data)+(sexp_uint_t)&(h->data));
free = h->free_list = (sexp_free_list) h->data; free = h->free_list = (sexp_free_list) h->data;
h->next = NULL; h->next = NULL;
next = (sexp_free_list) (((char*)free)+sexp_heap_align(sexp_free_chunk_size)); next = (sexp_free_list) (((char*)free)+sexp_heap_align(sexp_free_chunk_size));