diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-09-13 12:14:54 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-09-13 12:14:54 +0000 |
| commit | 8aaa7c8a2e2cc01216064d4f61c8193e0cb68cf2 (patch) | |
| tree | 8e585f46ffbc0950132fb1a29c7f5f9e829b5796 /src/alloc.c | |
| parent | ec558adcceffa21d313410a6d8ebfe11b47d083b (diff) | |
* 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.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
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) { |