Mercurial > emacs

changeset 3918:41c85710702d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark_object): Add aborts in Lisp_Symbol case.
author Richard M. Stallman <rms@gnu.org>
date Tue, 29 Jun 1993 21:08:31 +0000
parents 00ea0fc45685
children bbac27613cee
files src/alloc.c
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Tue Jun 29 18:21:12 1993 +0000
+++ b/src/alloc.c	Tue Jun 29 21:08:31 1993 +0000
@@ -1587,10 +1587,18 @@
 	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)
 	  {