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

* gc.c (scm_gc_for_newcell): don't try to do GC if it's blocked,

Browse source 
allocate instead.
This commit is contained in:
Michael Livshin 2000-06-28 13:17:11 +00:00
parent 939794ce7f
commit 150c200bdd
2 changed files with 6 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 @@
2000-06-28 Michael Livshin <mlivshin@bigfoot.com>
* gc.c (scm_gc_for_newcell): don't try to do GC if it's blocked,
allocate instead.
2000-06-28 Dirk Herrmann <D.Herrmann@tu-bs.de>
* async.c (scm_gc_async, scm_gc_vcell, scm_sys_gc_async_thunk):

2
libguile/gc.c
View file

@ -705,7 +705,7 @@ scm_gc_for_newcell (scm_freelist_t *master, SCM *freelist)
{
if (SCM_NULLP (master->clusters))
{
if (master->grow_heap_p)
if (master->grow_heap_p || scm_block_gc)
{
master->grow_heap_p = 0;
alloc_some_heap (master);