[Emacs-diffs] Changes to emacs/src/eval.c

[Stefan Monnier]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.215 emacs/src/eval.c:1.216
*** emacs/src/eval.c:1.215      Mon Mar 29 00:51:43 2004
--- emacs/src/eval.c    Fri May 28 20:54:39 2004
***************
*** 3243,3248 ****
--- 3243,3267 ----
  
  
  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,