Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Patch from Peter Michaux to allow reordering the heap struct

Browse source 
so the data pointer is not the last element.
This commit is contained in:
Alex Shinn 2013-09-29 13:14:34 +09:00
parent 5b879a2b55
commit 368191918b
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;
h->size = size;
h->max_size = max_size;
h->data = (char*) sexp_heap_align(sizeof(h->data)+(sexp_uint_t)&(h->data));
h->data = (char*) sexp_heap_align(sizeof(h) + (sexp_uint_t)&(h));
free = h->free_list = (sexp_free_list) h->data;
h->next = NULL;
next = (sexp_free_list) (((char*)free)+sexp_heap_align(sexp_free_chunk_size));