mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(mark_object): Detect long lists for debugging.

Browse source 
(mark_object_loop_halt): New variable.
This commit is contained in:
Richard M. Stallman 2002-08-07 14:37:32 +00:00
parent 3622bdf9a4
commit 1342fc6f04
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/alloc.c
View file

@ -4427,6 +4427,12 @@ mark_image_cache (f)
Lisp_Object *last_marked[LAST_MARKED_SIZE];
int last_marked_index;
/* For debugging--call abort when we cdr down this many
links of a list, in mark_object. In debugging,
the call to abort will hit a breakpoint.
Normally this is zero and the check never goes off. */
int mark_object_loop_halt;
void
mark_object (argptr)
Lisp_Object *argptr;
@ -4437,6 +4443,7 @@ mark_object (argptr)
void *po;
struct mem_node *m;
#endif
int cdr_count = 0;
loop:
obj = *objptr;
@ -4790,10 +4797,14 @@ mark_object (argptr)
if (EQ (ptr->cdr, Qnil))
{
objptr = &ptr->car;
cdr_count = 0;
goto loop;
}
mark_object (&ptr->car);
objptr = &ptr->cdr;
cdr_count++;
if (cdr_count == mark_object_loop_halt)
abort ();
goto loop;
}