[PATCH] Removed a useless GC invocation

[PATCH] Removed a useless GC invocation

[Ludovic Courtès]

Hi,

In `next_fluid_num ()', an `scm_gc ()' call was systematically triggered
at startup time.  This patch fixes this.

Thanks,
Ludovic.


2005-12-16  Ludovic Courtès  <ludovic.courtes@laas.fr>

	* fluids.c (next_fluid_num): Don't trigger the GC when
	ALLOCATED_FLUIDS_LEN is zero.


--- orig/libguile/fluids.c
+++ mod/libguile/fluids.c
@@ -202,7 +202,8 @@
   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.


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Re: [PATCH] Removed a useless GC invocation

[Neil Jerram]

ludovic.courtes@laas.fr (Ludovic Courtès) writes:

> Hi,
>
> In `next_fluid_num ()', an `scm_gc ()' call was systematically triggered
> at startup time.  This patch fixes this.
>

Looks good to me.  Applied, thanks.

      Neil



_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel