From: Andreas Schwab <schwab@suse.de>
Date: Mon, 26 May 2003 22:03:17 +0000 (+0000)
Subject: (Fgarbage_collect): Fix last change.
X-Git-Tag: ttn-vms-21-2-B4~9928
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d22be14d739b850360baf6621411374a93eb08d5;p=emacs.git

(Fgarbage_collect): Fix last change.
---

diff --git a/src/alloc.c b/src/alloc.c
index c42453d9062..28400ff80e3 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4311,9 +4311,13 @@ Garbage collection happens automatically if you cons more than
 
 #if (GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE \
      || GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES)
-  for (tail = gcprolist; tail; tail = tail->next)
-    for (i = 0; i < tail->nvars; i++)
-      XUNMARK (tail->var[i]);
+  {
+    register struct gcpro *tail;
+
+    for (tail = gcprolist; tail; tail = tail->next)
+      for (i = 0; i < tail->nvars; i++)
+	XUNMARK (tail->var[i]);
+  }
 #endif
 
   unmark_byte_stack ();