mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
* gc.c (scm_gc_for_newcell): don't try to do GC if it's blocked,
allocate instead.
This commit is contained in:
parent
939794ce7f
commit
150c200bdd
2 changed files with 6 additions and 1 deletions
|
@ -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):
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue