mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(scm_cell, scm_double_cell): Do not check scm_gc_running_p, allocation

Browse source 
during sweeping is OK.
This commit is contained in:
Marius Vollmer 2005-03-10 18:08:12 +00:00
parent 1a8fdd7e12
commit 94d375b5a7
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/inline.h
View file

@ -69,11 +69,6 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
SCM z; SCM z;
SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist); SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist);
if (scm_gc_running_p)
{
abort();
}
if (scm_is_null (*freelist)) if (scm_is_null (*freelist))
z = scm_gc_for_newcell (&scm_i_master_freelist, freelist); z = scm_gc_for_newcell (&scm_i_master_freelist, freelist);
else else
@ -151,11 +146,6 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
SCM z; SCM z;
SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2); SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2);
if (scm_gc_running_p)
{
abort();
}
if (scm_is_null (*freelist)) if (scm_is_null (*freelist))
z = scm_gc_for_newcell (&scm_i_master_freelist2, freelist); z = scm_gc_for_newcell (&scm_i_master_freelist2, freelist);
else else