# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1051704279 0
# Node ID fedd03de0f46979376171cfa0dc009700f251b41
# Parent  13cae05372c05468ee961c067e8421ebbae8951c
(abort_on_gc): New variable.
(Fgarbage_collect): Abort if abort_on_gc is set.

diff -r 13cae05372c0 -r fedd03de0f46 src/alloc.c
--- a/src/alloc.c	Wed Apr 30 12:03:53 2003 +0000
+++ b/src/alloc.c	Wed Apr 30 12:04:39 2003 +0000
@@ -126,6 +126,12 @@
 
 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 @@
   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