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