From acf5f7d34e69ac5278369aaa19835a87d5fa0943 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 25 May 2003 17:40:03 +0000 Subject: [PATCH] (Fgarbage_collect): Remove `unused var tail' warning. --- src/alloc.c | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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 (); -- 2.39.2