# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 741388111 0
# Node ID 41c85710702dc58577672a389328d8013c666942
# Parent  00ea0fc456857ba9c440a1770ba7e109519c88bc
(mark_object): Add aborts in Lisp_Symbol case.

diff -r 00ea0fc45685 -r 41c85710702d src/alloc.c
--- 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)
 	  {