# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742667785 0
# Node ID bdecedbd64dbf4b3b417777c5ea6b3559510d8d5
# Parent  26e6084c5885a4b3ec88d278904032af49b23adf
(mark_object) [DEBUG_MOLE]: Add abort at beginning.

diff -r 26e6084c5885 -r bdecedbd64db src/alloc.c
--- a/src/alloc.c	Wed Jul 14 07:24:36 1993 +0000
+++ b/src/alloc.c	Wed Jul 14 16:36:25 1993 +0000
@@ -1460,6 +1460,11 @@
 {
   register Lisp_Object obj;
 
+#ifdef DEBUG_MOLE
+  if (*(int *) ((char *)__builtin_frame_address (0) - 16) == 0)
+    abort ();
+#endif
+
   obj = *objptr;
   XUNMARK (obj);