mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 15:40:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Nested calls to queue_finalizer trashed the value of cl_core.to_be_finalized.

Browse source
This commit is contained in:
jgarcia 2006-10-10 15:09:59 +00:00
parent 40b59022d4
commit 1053171e2d
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/alloc_2.d
View file

@ -251,8 +251,11 @@ queueing_finalizer(cl_object o, cl_object finalizer)
standard_finalizer(o);
} CL_NEWENV_END;
} else {
cl_core.to_be_finalized = CONS(CONS(o,finalizer),
cl_core.to_be_finalized);
/* Notice the way in which we do this. The inner calls to GC_alloc
* may cause other finalizers to be invoked. */
volatile cl_object aux = ACONS(o, finalizer, Cnil);
CDR(aux) = cl_core.to_be_finalized;
cl_core.to_be_finalized = aux;
}
}
}