From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 30 Apr 2003 12:04:39 +0000 (+0000)
Subject: (abort_on_gc): New variable.
X-Git-Tag: ttn-vms-21-2-B4~10383
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3de0effb43c7297a8be998e020afc1a2550cf575;p=emacs.git

(abort_on_gc): New variable.
(Fgarbage_collect): Abort if abort_on_gc is set.
---

diff --git a/src/alloc.c b/src/alloc.c
index 73d1b034137..f82cde61c27 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -126,6 +126,12 @@ EMACS_INT gc_cons_threshold;
 
 int gc_in_progress;
 
+/* Nonzero means abort if try to GC.
+   This is for code which is written on the assumption that
+   no GC will happen, so as to verify that assumption.  */
+
+int abort_on_gc;
+
 /* Nonzero means display messages at beginning and end of GC.  */
 
 int garbage_collection_messages;
@@ -4093,6 +4099,9 @@ Garbage collection happens automatically if you cons more than
   int count = SPECPDL_INDEX ();
   EMACS_TIME t1, t2, t3;
 
+  if (abort_on_gc)
+    abort ();
+
   EMACS_GET_TIME (t1);
 
   /* Can't GC if pure storage overflowed because we can't determine