From a2e491bd5759f44976c7736e1b78b7c7f7e21ac1 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 6 Nov 2000 17:18:25 +0000
Subject: [PATCH] When searching for a LIP register pair, only consider lisp
 pointer objects, to avoid falsely pairing with a fixnum.

---
 lisp/gc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/gc.c b/lisp/gc.c
index cc13413b2..36ad2a2be 100644
--- a/lisp/gc.c
+++ b/lisp/gc.c
@@ -1,7 +1,7 @@
 /*
  * Stop and Copy GC based on Cheney's algorithm.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.17 2000/10/24 13:32:30 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.18 2000/11/06 17:18:25 dtc Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -464,7 +464,7 @@ static void scavenge_interrupt_context(struct sigcontext *context)
 
 		index = boxed_registers[i];
 		reg = SC_REG(context, index);
-		if (PTR(reg) <= lip) {
+		if (Pointerp(reg) && PTR(reg) <= lip) {
 			offset = lip - reg;
 			if (offset < lip_offset) {
 				lip_offset = offset;
-- 
GitLab