[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/eval.c [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/eval.c [lexbind] |
Date: |
Tue, 06 Jul 2004 05:59:56 -0400 |
Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.189.2.8 emacs/src/eval.c:1.189.2.9
*** emacs/src/eval.c:1.189.2.8 Tue Apr 13 10:12:15 2004
--- emacs/src/eval.c Tue Jul 6 09:31:29 2004
***************
*** 3491,3496 ****
--- 3491,3515 ----
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,