mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 05:50:26 +02:00
(next_fluid_num): [From Ludovic Courtès:] Don't trigger
the GC when allocated_fluids_len is zero.
This commit is contained in:
parent
23ef389210
commit
29295b0c90
2 changed files with 7 additions and 1 deletions
|
@ -1,3 +1,8 @@
|
|||
2005-12-29 Neil Jerram <neil@ossau.uklinux.net>
|
||||
|
||||
* fluids.c (next_fluid_num): [From Ludovic Courtès:] Don't trigger
|
||||
the GC when allocated_fluids_len is zero.
|
||||
|
||||
2005-12-14 Neil Jerram <neil@ossau.uklinux.net>
|
||||
|
||||
* load.c (the_reader, the_reader_fluid_num): New.
|
||||
|
|
|
@ -202,7 +202,8 @@ next_fluid_num ()
|
|||
scm_frame_begin (0);
|
||||
scm_i_frame_pthread_mutex_lock (&fluid_admin_mutex);
|
||||
|
||||
if (allocated_fluids_num == allocated_fluids_len)
|
||||
if ((allocated_fluids_len > 0) &&
|
||||
(allocated_fluids_num == allocated_fluids_len))
|
||||
{
|
||||
/* All fluid numbers are in use. Run a GC to try to free some
|
||||
up.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue