# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1053986597 0
# Node ID beb851c49c65736538edf9bc44ef31e40cafea96
# Parent  6481024d295f351eb285e6463b0adc5eb31acb8c
(Fgarbage_collect): Fix last change.

diff -r 6481024d295f -r beb851c49c65 src/alloc.c
--- a/src/alloc.c	Mon May 26 21:56:41 2003 +0000
+++ b/src/alloc.c	Mon May 26 22:03:17 2003 +0000
@@ -4311,9 +4311,13 @@
 
 #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 ();