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

(scm_gc_unprotect_object): abort if called during GC.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2004-09-24 09:23:44 +00:00
parent 2edf319f0a
commit 0ff7e3ff22
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2004-09-24 Han-Wen Nienhuys <hanwen@xs4all.nl>
* gc.c (scm_gc_unprotect_object): abort if called during GC.
2004-09-24 Marius Vollmer <mvo@zagadka.de> 2004-09-24 Marius Vollmer <mvo@zagadka.de>
* Makefile.am (EXTRA_DIST): Added gettext.h. * Makefile.am (EXTRA_DIST): Added gettext.h.

6
libguile/gc.c
View file

@ -749,6 +749,12 @@ scm_gc_unprotect_object (SCM obj)
/* This critical section barrier will be replaced by a mutex. */ /* This critical section barrier will be replaced by a mutex. */
SCM_REDEFER_INTS; SCM_REDEFER_INTS;
if (scm_gc_running_p)
{
fprintf (stderr, "scm_unprotect_object called during GC.\n");
abort ();
}
handle = scm_hashq_get_handle (scm_protects, obj); handle = scm_hashq_get_handle (scm_protects, obj);
if (scm_is_false (handle)) if (scm_is_false (handle))