mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* Fixed: gc_async must be protected from gc.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-06 17:11:46 +00:00
parent 78573619d0
commit 73369d6744
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-12-06 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_init_gc): gc_async must be protected from gc. I
wonder why we never ran into problems up to now...
2000-12-06 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_init_gc): Don't create a binding for %gc-thunk.

1
libguile/gc.c
View file

@ -2582,6 +2582,7 @@ scm_init_gc ()
#endif /* SCM_DEBUG_DEPRECATED == 0 */
after_gc_thunk = scm_make_subr_opt ("%gc-thunk", scm_tc7_subr_0, gc_async_thunk, 0);
gc_async = scm_system_async (after_gc_thunk);
scm_permanent_object (gc_async);
scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);