Commit 5d7aa25b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mark_object): Add aborts in Lisp_Symbol case.

parent d1475aa1
......@@ -1587,10 +1587,18 @@ mark_object (objptr)
if (XMARKBIT (ptr->plist)) break;
XMARK (ptr->plist);
mark_object ((Lisp_Object *) &ptr->value);
if ((unsigned int) ptr <= 4)
abort ();
mark_object (&ptr->function);
if ((unsigned int) ptr <= 4)
abort ();
mark_object (&ptr->plist);
if ((unsigned int) ptr <= 4)
abort ();
XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
mark_object (&ptr->name);
if ((unsigned int) ptr <= 4)
abort ();
ptr = ptr->next;
if (ptr)
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment