# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738546498 0
# Node ID b2e5c888f5f65a9e6fb82c52f20a60f1bebe44ff
# Parent  e54c45bae557776716ab979607ebd421115ae332
(mark_object): Add debugging code to check for ptr clobbered.

diff -r e54c45bae557 -r b2e5c888f5f6 src/alloc.c
--- a/src/alloc.c	Thu May 27 22:15:01 1993 +0000
+++ b/src/alloc.c	Thu May 27 23:48:18 1993 +0000
@@ -1623,7 +1623,11 @@
 	    XUNMARK (obj);
 	    goto loop;
 	  }
+	if (ptr == 0)
+	  abort ();
 	mark_object (&ptr->car);
+	if (ptr == 0)
+	  abort ();
 	objptr = &ptr->cdr;
 	obj = ptr->cdr;
 	goto loop;