Skip to content
Snippets Groups Projects
Commit 3540e470 authored by wlott's avatar wlott
Browse files

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.
parent 06f40be6
No related branches found
No related tags found
No related merge requests found
/* Purify. */ /* 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> #include <stdio.h>
...@@ -511,7 +511,7 @@ static lispobj *pscav(addr, nwords, constant) ...@@ -511,7 +511,7 @@ static lispobj *pscav(addr, nwords, constant)
/* Maybe. Have we already moved it? */ /* Maybe. Have we already moved it? */
thingp = (lispobj *)PTR(thing); thingp = (lispobj *)PTR(thing);
header = *thingp; header = *thingp;
if (forwarding_pointer_p(header)) if (Pointerp(header) && forwarding_pointer_p(header))
/* Yep, so just copy the forwarding pointer. */ /* Yep, so just copy the forwarding pointer. */
thing = header; thing = header;
else { else {
......
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