diff --git a/ldb/gc.c b/ldb/gc.c index ec35fbccc328c34b70e4c1d236d3cc58efe766ec..a5d6145bb2a97e0a1beed8aa1a03d2afc5d40657 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;