From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 24 May 1995 01:39:24 +0000 (+0000)
Subject: (Fgarbage_collect): Clear consing_since_gc first thing.
X-Git-Tag: emacs-19.34~3966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58595309d2ce3c8fe67a6353390146940e8f2009;p=emacs.git

(Fgarbage_collect): Clear consing_since_gc first thing.
---

diff --git a/src/alloc.c b/src/alloc.c
index 063af1e19cb..e2fdedde796 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1352,6 +1352,10 @@ Garbage collection happens automatically if you cons more than\n\
   char stack_top_variable;
   register int i;
 
+  /* In case user calls debug_print during GC,
+     don't let that cause a recursive GC.  */
+  consing_since_gc = 0;
+
   /* Save a copy of the contents of the stack, for debugging.  */
 #if MAX_SAVE_STACK > 0
   if (NILP (Vpurify_flag))