Skip to content
Snippets Groups Projects
Commit 70c4ba89 authored by wlott's avatar wlott
Browse files

Fixed the calculation of raw_addr_offset.

parent c41ef3f0
No related branches found
No related tags found
No related merge requests found
/* /*
* Stop and Copy GC based on Cheney's algorithm. * 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. * Written by Christopher Hoover.
*/ */
...@@ -1023,7 +1023,7 @@ scav_symbol(where, object) ...@@ -1023,7 +1023,7 @@ scav_symbol(where, object)
lispobj *where, object; lispobj *where, object;
{ {
struct symbol *symbol; 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; symbol = (struct symbol *)where;
......
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