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 | 5569b28078a2b0fbd9d053ed2851553b92351f20 (patch) | |
tree | 613dfb5f9805d8bd00da2c0cce7f1e9bf38d2aee /src/alloc.c | |
parent | 80095e64d243357f7e44853a80dbebd5b61ca471 (diff) | |
download | emacs-5569b28078a2b0fbd9d053ed2851553b92351f20.tar.gz |
* 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) { |