4087 |
`gc-cons-threshold' bytes of Lisp data since previous garbage collection. */) |
`gc-cons-threshold' bytes of Lisp data since previous garbage collection. */) |
4088 |
() |
() |
4089 |
{ |
{ |
|
register struct gcpro *tail; |
|
4090 |
register struct specbinding *bind; |
register struct specbinding *bind; |
4091 |
struct catchtag *catch; |
struct catchtag *catch; |
4092 |
struct handler *handler; |
struct handler *handler; |
4200 |
|| GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) |
|| GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) |
4201 |
mark_stack (); |
mark_stack (); |
4202 |
#else |
#else |
4203 |
for (tail = gcprolist; tail; tail = tail->next) |
{ |
4204 |
for (i = 0; i < tail->nvars; i++) |
register struct gcpro *tail; |
4205 |
if (!XMARKBIT (tail->var[i])) |
for (tail = gcprolist; tail; tail = tail->next) |
4206 |
{ |
for (i = 0; i < tail->nvars; i++) |
4207 |
/* Explicit casting prevents compiler warning about |
if (!XMARKBIT (tail->var[i])) |
4208 |
discarding the `volatile' qualifier. */ |
{ |
4209 |
mark_object ((Lisp_Object *)&tail->var[i]); |
/* Explicit casting prevents compiler warning about |
4210 |
XMARK (tail->var[i]); |
discarding the `volatile' qualifier. */ |
4211 |
} |
mark_object ((Lisp_Object *)&tail->var[i]); |
4212 |
|
XMARK (tail->var[i]); |
4213 |
|
} |
4214 |
|
} |
4215 |
#endif |
#endif |
4216 |
|
|
4217 |
mark_byte_stack (); |
mark_byte_stack (); |