From 3540e470d78fbd116ca78b2f2e39becffbc4acd8 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 25 Jan 1992 14:39:55 +0000 Subject: [PATCH] When checking to see if an object starts with a forwarding pointer, make sure it is a pointer in addition to makeing sure it's in the right range. --- ldb/purify.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ldb/purify.c b/ldb/purify.c index 6e6e78403..9c662848c 100644 --- a/ldb/purify.c +++ b/ldb/purify.c @@ -1,6 +1,6 @@ /* Purify. */ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.15 1991/12/20 18:47:02 ram Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.16 1992/01/25 14:39:55 wlott Exp $ */ #include <stdio.h> @@ -511,7 +511,7 @@ static lispobj *pscav(addr, nwords, constant) /* Maybe. Have we already moved it? */ thingp = (lispobj *)PTR(thing); header = *thingp; - if (forwarding_pointer_p(header)) + if (Pointerp(header) && forwarding_pointer_p(header)) /* Yep, so just copy the forwarding pointer. */ thing = header; else { -- GitLab