Mercurial > emacs

diff src/bytecode.c @ 90208:890cc78a5a24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-74 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 493-503) - Update from CVS - Update from CVS: lisp/startup.el (command-line): Fix typo. - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 95-98) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 29 Jul 2005 01:54:54 +0000
parents fbb2bea03df9 c94082ceb41d
children 2d92f5c9d6ae
line wrap: on
line diff
--- a/src/bytecode.c	Tue Jul 26 12:03:19 2005 +0000
+++ b/src/bytecode.c	Fri Jul 29 01:54:54 2005 +0000
@@ -355,13 +355,14 @@
 /* Garbage collect if we have consed enough since the last time.
    We do this at every branch, to avoid loops that never GC.  */
 
-#define MAYBE_GC()				     \
-  if (consing_since_gc > gc_cons_combined_threshold) \
-    {						     \
-      BEFORE_POTENTIAL_GC ();			     \
-      Fgarbage_collect ();			     \
-      AFTER_POTENTIAL_GC ();			     \
-    }						     \
+#define MAYBE_GC()					\
+  if (consing_since_gc > gc_cons_threshold		\
+      && consing_since_gc > gc_relative_threshold)	\
+    {							\
+      BEFORE_POTENTIAL_GC ();				\
+      Fgarbage_collect ();				\
+      AFTER_POTENTIAL_GC ();				\
+    }							\
   else
 
 /* Check for jumping out of range.  */