diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-29 21:08:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-29 21:08:31 +0000 |
| commit | 5d7aa25b522fdabcc75b020f791deec0c068430b (patch) | |
| tree | 0460cdf56b18204aa0389d63191c199cbcd78ee0 /src | |
| parent | d1475aa1baeb4fe2d93a9198d405e653d49e0bf0 (diff) | |
| download | emacs-5d7aa25b522fdabcc75b020f791deec0c068430b.tar.gz | |
(mark_object): Add aborts in Lisp_Symbol case.
Diffstat (limited to 'src')
| -rw-r--r-- | src/alloc.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index 22153110480..e6edea42c95 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1587,10 +1587,18 @@ mark_object (objptr) if (XMARKBIT (ptr->plist)) break; XMARK (ptr->plist); mark_object ((Lisp_Object *) &ptr->value); + if ((unsigned int) ptr <= 4) + abort (); mark_object (&ptr->function); + if ((unsigned int) ptr <= 4) + abort (); mark_object (&ptr->plist); + if ((unsigned int) ptr <= 4) + abort (); XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String); mark_object (&ptr->name); + if ((unsigned int) ptr <= 4) + abort (); ptr = ptr->next; if (ptr) { |