[Emacs-diffs] Changes to emacs/src/alloc.c

[Richard M. Stallman]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.297 emacs/src/alloc.c:1.298
*** emacs/src/alloc.c:1.297     Thu Apr 17 17:49:09 2003
--- emacs/src/alloc.c   Wed Apr 30 08:04:39 2003
***************
*** 126,131 ****
--- 126,137 ----
  
  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;
***************
*** 4092,4097 ****
--- 4098,4106 ----
    Lisp_Object total[8];
    int count = SPECPDL_INDEX ();
    EMACS_TIME t1, t2, t3;
+ 
+   if (abort_on_gc)
+     abort ();
  
    EMACS_GET_TIME (t1);