From 70c4ba895f5e4c5210d4a18d3243c26460274d80 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 26 Sep 1990 15:11:32 +0000 Subject: [PATCH] Fixed the calculation of raw_addr_offset. --- ldb/gc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ldb/gc.c b/ldb/gc.c index ec35fbccc..a5d6145bb 100644 --- a/ldb/gc.c +++ b/ldb/gc.c @@ -1,7 +1,7 @@ /* * Stop and Copy GC based on Cheney's algorithm. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.12 1990/09/21 06:01:57 wlott Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.13 1990/09/26 15:11:32 wlott Exp $ * * Written by Christopher Hoover. */ @@ -1023,7 +1023,7 @@ scav_symbol(where, object) lispobj *where, object; { struct symbol *symbol; -#define RAW_ADDR_OFFSET (sizeof(struct function_header)-1-type_FunctionHeader) +#define RAW_ADDR_OFFSET (6*sizeof(lispobj) - type_FunctionPointer) symbol = (struct symbol *)where; -- GitLab