* 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.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index ce6ba436e0a..8b8b1d3bd7d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -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)
           {