From 8aaa7c8a2e2cc01216064d4f61c8193e0cb68cf2 Mon Sep 17 00:00:00 2001
From: Jim Blandy
Date: Sun, 13 Sep 1992 12:14:54 +0000
Subject: * 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.

---
 src/alloc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/alloc.c')

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)
 	  {
-- 
cgit v1.2.1