Mercurial > emacs
changeset 55796:97fe0ef6c077
(mark_backtrace): New function.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 28 May 2004 20:54:39 +0000 |
| parents | 1e94f291a19c |
| children | 954cec4917f6 |
| files | src/eval.c |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Fri May 28 20:52:05 2004 +0000 +++ b/src/eval.c Fri May 28 20:54:39 2004 +0000 @@ -3243,6 +3243,25 @@ void +mark_backtrace () +{ + register struct backtrace *backlist; + register int i; + + for (backlist = backtrace_list; backlist; backlist = backlist->next) + { + mark_object (*backlist->function); + + if (backlist->nargs == UNEVALLED || backlist->nargs == MANY) + i = 0; + else + i = backlist->nargs - 1; + for (; i >= 0; i--) + mark_object (backlist->args[i]); + } +} + +void syms_of_eval () { DEFVAR_INT ("max-specpdl-size", &max_specpdl_size,