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

fixing bug in sexp_destroy_context

Browse source 
We need to grab a reference to the context heap before sweeping, in
case sweeping overwrites the heap reference.
This commit is contained in:
Alex Shinn 2010-03-09 20:23:29 +09:00
parent 95e0b0bb31
commit 171966956f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -293,8 +293,8 @@ void sexp_destroy_context (sexp ctx) {
sexp_heap heap, tmp; sexp_heap heap, tmp;
size_t sum_freed; size_t sum_freed;
if (sexp_context_heap(ctx)) { if (sexp_context_heap(ctx)) {
sexp_sweep(ctx, &sum_freed); /* sweep w/o mark to run finalizers */
heap = sexp_context_heap(ctx); heap = sexp_context_heap(ctx);
sexp_sweep(ctx, &sum_freed); /* sweep w/o mark to run finalizers */
sexp_context_heap(ctx) = NULL; sexp_context_heap(ctx) = NULL;
for ( ; heap; heap=tmp) { for ( ; heap; heap=tmp) {
tmp = heap->next; tmp = heap->next;