From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 25 May 2003 17:40:03 +0000 (+0000)
Subject: (Fgarbage_collect): Remove `unused var tail' warning.
X-Git-Tag: ttn-vms-21-2-B4~9950
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=acf5f7d34e69ac5278369aaa19835a87d5fa0943;p=emacs.git

(Fgarbage_collect): Remove `unused var tail' warning.
---

diff --git a/src/alloc.c b/src/alloc.c
index 5230b5a7a82..c42453d9062 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4087,7 +4087,6 @@ Garbage collection happens automatically if you cons more than
 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.  */)
      ()
 {
-  register struct gcpro *tail;
   register struct specbinding *bind;
   struct catchtag *catch;
   struct handler *handler;
@@ -4201,15 +4200,18 @@ Garbage collection happens automatically if you cons more than
      || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
   mark_stack ();
 #else
-  for (tail = gcprolist; tail; tail = tail->next)
-    for (i = 0; i < tail->nvars; i++)
-      if (!XMARKBIT (tail->var[i]))
-	{
-	  /* Explicit casting prevents compiler warning about
-	     discarding the `volatile' qualifier.  */
-	  mark_object ((Lisp_Object *)&tail->var[i]);
-	  XMARK (tail->var[i]);
-	}
+  {
+    register struct gcpro *tail;
+    for (tail = gcprolist; tail; tail = tail->next)
+      for (i = 0; i < tail->nvars; i++)
+	if (!XMARKBIT (tail->var[i]))
+	  {
+	    /* Explicit casting prevents compiler warning about
+	       discarding the `volatile' qualifier.  */
+	    mark_object ((Lisp_Object *)&tail->var[i]);
+	    XMARK (tail->var[i]);
+	  }
+  }
 #endif
 
   mark_byte_stack ();