From 1b76e3ccef67701192ae0f650b777495be707160 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 1 Dec 1990 22:50:38 +0000 Subject: [PATCH] The RAW_ADDR_OFFSET is 0 on the sparc. --- ldb/purify.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ldb/purify.c b/ldb/purify.c index b118d6d97..ad3a8fc6e 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.9 1990/11/27 17:38:02 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.10 1990/12/01 22:50:38 wlott Exp $ */ #include <mach.h> @@ -37,8 +37,11 @@ static int later_count = 0; #define NWORDS(x,y) (CEILING((x),(y)) / (y)) +#ifdef sparc +#define RAW_ADDR_OFFSET 0 +#else #define RAW_ADDR_OFFSET (6*sizeof(lispobj) - type_FunctionPointer) - +#endif static boolean forwarding_pointer_p(obj) lispobj obj; -- GitLab