Mercurial > emacs
changeset 51228:42d9bef83464
(Fgarbage_collect): Remove `unused var tail' warning.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 25 May 2003 17:40:03 +0000 |
| parents | a1e2454a02ec |
| children | e518779f4ae1 |
| files | src/alloc.c |
| diffstat | 1 files changed, 12 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Sun May 25 16:51:34 2003 +0000 +++ b/src/alloc.c Sun May 25 17:40:03 2003 +0000 @@ -4087,7 +4087,6 @@ `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 @@ || 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 ();