Skip to content
Snippets Groups Projects
Commit a2e491bd authored by dtc's avatar dtc
Browse files

When searching for a LIP register pair, only consider lisp pointer

objects, to avoid falsely pairing with a fixnum.
parent c13eec74
No related branches found
No related tags found
No related merge requests found
/*
* 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;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment