Commit acf5f7d3 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent eef0be88
...@@ -4087,7 +4087,6 @@ Garbage collection happens automatically if you cons more than ...@@ -4087,7 +4087,6 @@ Garbage collection happens automatically if you cons more than
`gc-cons-threshold' bytes of Lisp data since previous garbage collection. */) `gc-cons-threshold' bytes of Lisp data since previous garbage collection. */)
() ()
{ {
register struct gcpro *tail;
register struct specbinding *bind; register struct specbinding *bind;
struct catchtag *catch; struct catchtag *catch;
struct handler *handler; struct handler *handler;
...@@ -4201,15 +4200,18 @@ Garbage collection happens automatically if you cons more than ...@@ -4201,15 +4200,18 @@ Garbage collection happens automatically if you cons more than
|| GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS)
mark_stack (); mark_stack ();
#else #else
for (tail = gcprolist; tail; tail = tail->next) {
for (i = 0; i < tail->nvars; i++) register struct gcpro *tail;
if (!XMARKBIT (tail->var[i])) for (tail = gcprolist; tail; tail = tail->next)
{ for (i = 0; i < tail->nvars; i++)
/* Explicit casting prevents compiler warning about if (!XMARKBIT (tail->var[i]))
discarding the `volatile' qualifier. */ {
mark_object ((Lisp_Object *)&tail->var[i]); /* Explicit casting prevents compiler warning about
XMARK (tail->var[i]); discarding the `volatile' qualifier. */
} mark_object ((Lisp_Object *)&tail->var[i]);
XMARK (tail->var[i]);
}
}
#endif #endif
mark_byte_stack (); mark_byte_stack ();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment