mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 23:31:55 -08:00
Code Issues Projects Releases Wiki Activity

(mark_backtrace): New function.

Browse source
This commit is contained in:
Stefan Monnier 2004-05-28 20:54:39 +00:00
parent 7292839d01
commit 4ce0541e44
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/eval.c
View file

@ -3242,6 +3242,25 @@ If NFRAMES is more than the number of frames, the value is nil. */)
}
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 ()
{