mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* gc.c (scm_gc_for_newcell): Behave gracefully also if scm_igc

Browse source 
doesn't yield any new cells.  In theory this could happen if all
cells allocated with NEWCELL are either in use or conservatively
marked and all cluster spine cells are conservatively marked.
(Thanks to Dirk.)
This commit is contained in:
Mikael Djurfeldt 2000-06-29 23:46:59 +00:00
parent 2500356c67
commit 83d58c8257
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -698,7 +698,7 @@ scm_gc_for_newcell (scm_freelist_t *master, SCM *freelist)
++scm_ints_disabled;
do
{
if (SCM_NULLP (master->clusters))
while (SCM_NULLP (master->clusters))
{
if (master->grow_heap_p || scm_block_gc)
{