mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(next_fluid_num): [From Ludovic Courtès:] Don't trigger

Browse source 
the GC when allocated_fluids_len is zero.
This commit is contained in:
Neil Jerram 2005-12-29 10:26:39 +00:00
parent 23ef389210
commit 29295b0c90
2 changed files with 7 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 @@
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> 2005-12-14 Neil Jerram <neil@ossau.uklinux.net>
* load.c (the_reader, the_reader_fluid_num): New. * load.c (the_reader, the_reader_fluid_num): New.

3
libguile/fluids.c
View file

@ -202,7 +202,8 @@ next_fluid_num ()
scm_frame_begin (0); scm_frame_begin (0);
scm_i_frame_pthread_mutex_lock (&fluid_admin_mutex); 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 /* All fluid numbers are in use. Run a GC to try to free some
up. up.