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

(scm_double_cell): abort if GC running.

Browse source 
(scm_cell): idem.
This commit is contained in:
Han-Wen Nienhuys 2004-10-07 22:52:22 +00:00
parent 1097a62cd9
commit 497eb0b725
3 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2004-10-08 Han-Wen Nienhuys <hanwen@xs4all.nl>
* inline.h (scm_double_cell): abort if GC running.
(scm_cell): idem.
2004-10-04 Marius Vollmer <marius.vollmer@uni-dortmund.de> 2004-10-04 Marius Vollmer <marius.vollmer@uni-dortmund.de>
* error.c (scm_wrong_type_arg): Do not talk about "argument" for * error.c (scm_wrong_type_arg): Do not talk about "argument" for

1
libguile/error.c
View file

@ -47,7 +47,6 @@
#endif #endif
/* {Errors and Exceptional Conditions} /* {Errors and Exceptional Conditions}
*/ */

10
libguile/inline.h
View file

@ -63,6 +63,11 @@ SCM_C_INLINE
SCM SCM
scm_cell (scm_t_bits car, scm_t_bits cdr) scm_cell (scm_t_bits car, scm_t_bits cdr)
{ {
if (scm_gc_running_p)
{
abort();
}
SCM z; SCM z;
/* We retrieve the SCM pointer only once since the call to /* We retrieve the SCM pointer only once since the call to
SCM_FREELIST_LOC will be slightly expensive when we support SCM_FREELIST_LOC will be slightly expensive when we support
@ -161,6 +166,11 @@ SCM
scm_double_cell (scm_t_bits car, scm_t_bits cbr, scm_double_cell (scm_t_bits car, scm_t_bits cbr,
scm_t_bits ccr, scm_t_bits cdr) scm_t_bits ccr, scm_t_bits cdr)
{ {
if (scm_gc_running_p)
{
abort();
}
SCM z; SCM z;
SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2); SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2);