From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Jun 1991 01:41:43 +0000 (+0000)
Subject: Change GC traps to do >= comparisons rather than ==.
X-Git-Tag: 20090517-FFI~10504
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=caba173a40db925c0e7209f0dd537c4c17305aa3;p=mit-scheme.git

Change GC traps to do >= comparisons rather than ==.
---

diff --git a/v7/src/microcode/gcloop.c b/v7/src/microcode/gcloop.c
index 7ce7f83cc..c61f95676 100644
--- a/v7/src/microcode/gcloop.c
+++ b/v7/src/microcode/gcloop.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.36 1991/06/20 18:13:00 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/gcloop.c,v 9.37 1991/06/21 01:41:43 cph Exp $
  *
  * This file contains the code for the most primitive part
  * of garbage collection.
@@ -93,13 +93,13 @@ static int gc_scan_history_index;
   (gc_to_history [gc_scan_history_index]) = To;				\
   if ((++gc_scan_history_index) == GC_SCAN_HISTORY_SIZE)		\
     gc_scan_history_index = 0;						\
-  if ((Temp == gc_trap) ||						\
-      (Scan == gc_scan_trap) ||						\
-      (To == gc_free_trap))						\
-  {									\
-    fprintf(stderr, "\nGCLoop: trap.\n");				\
-    abort ();								\
-  }									\
+  if ((Temp == gc_trap)							\
+      || ((gc_scan_trap != 0) && (Scan >= gc_scan_trap))		\
+      || ((gc_free_trap != 0) && (To >= gc_free_trap)))			\
+    {									\
+      fprintf(stderr, "\nGCLoop: trap.\n");				\
+      abort ();								\
+    }									\
 }
 
 #else