From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 14 Jul 1993 16:36:25 +0000 (+0000)
Subject: (mark_object) [DEBUG_MOLE]: Add abort at beginning.
X-Git-Tag: emacs-19.34~11764
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12ae29ebfbb03d3856ca97ab0b555d58d11172b4;p=emacs.git

(mark_object) [DEBUG_MOLE]: Add abort at beginning.
---

diff --git a/src/alloc.c b/src/alloc.c
index e6edea42c95..07775391bfb 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1460,6 +1460,11 @@ mark_object (objptr)
 {
   register Lisp_Object obj;
 
+#ifdef DEBUG_MOLE
+  if (*(int *) ((char *)__builtin_frame_address (0) - 16) == 0)
+    abort ();
+#endif
+
   obj = *objptr;
   XUNMARK (obj);