* alloc.c (mark_object): mark a symbol's name after marking its
value, function, and property list rather than before; this way, symbols' names are readable, giving us a chance to detect some kinds of heap corruption.
This commit is contained in:
@@ -1378,11 +1378,11 @@ mark_object (objptr)
|
||||
|
||||
if (XMARKBIT (ptr->plist)) break;
|
||||
XMARK (ptr->plist);
|
||||
XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
|
||||
mark_object (&ptr->name);
|
||||
mark_object ((Lisp_Object *) &ptr->value);
|
||||
mark_object (&ptr->function);
|
||||
mark_object (&ptr->plist);
|
||||
XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
|
||||
mark_object (&ptr->name);
|
||||
ptr = ptr->next;
|
||||
if (ptr)
|
||||
{
|
||||
|
||||
Reference in New Issue
Block a user