3491 |
|
|
3492 |
|
|
3493 |
void |
void |
3494 |
|
mark_backtrace () |
3495 |
|
{ |
3496 |
|
register struct backtrace *backlist; |
3497 |
|
register int i; |
3498 |
|
|
3499 |
|
for (backlist = backtrace_list; backlist; backlist = backlist->next) |
3500 |
|
{ |
3501 |
|
mark_object (*backlist->function); |
3502 |
|
|
3503 |
|
if (backlist->nargs == UNEVALLED || backlist->nargs == MANY) |
3504 |
|
i = 0; |
3505 |
|
else |
3506 |
|
i = backlist->nargs - 1; |
3507 |
|
for (; i >= 0; i--) |
3508 |
|
mark_object (backlist->args[i]); |
3509 |
|
} |
3510 |
|
} |
3511 |
|
|
3512 |
|
void |
3513 |
syms_of_eval () |
syms_of_eval () |
3514 |
{ |
{ |
3515 |
DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, |
DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, |