github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-15 07:54:13 +00:00
Code Issues Projects Releases Wiki Activity

When ntend is non-zero it is already a native pointer, not a stack offset

Browse Source
This commit is contained in:
Nick Briggs 2018-03-23 12:12:55 -07:00
parent 89db040213
commit 04ea2996e1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gcmain3.c
View File

@ -60,7 +60,7 @@ static char *id = "$Id: gcmain3.c,v 1.4 1999/05/31 23:35:31 sybalsky Exp $ Copyr
#define MAXHTCNT 63
#define PADDING 4
#define FNOVERHEADWORDS 8
#define ADD_OFFSET(ptr, dloffset) ((LispPTR *)((DLword *)(ptr) + (dloffset)))
#define ADD_OFFSET(ptr, dloffset) ((LispPTR *)(((DLword *)(ptr)) + (dloffset)))
#ifdef BIGVM
#define BIND_BITS(value) ((unsigned int)(value) >> 28)
@ -372,7 +372,8 @@ LispPTR gcmapunscan(void) {
GETGC((GCENTRY *)link) = offset & (~STKREFBIT);
}
}
if ((offset = ((struct htcoll *)link)->next_free)) {
offset = ((struct htcoll *)link)->next_free;
if (offset) {
prev = link;
link = (GCENTRY *)(HTcoll + offset);
goto scnlp;
@ -500,7 +501,7 @@ LispPTR gcscanstack(void) {
if (ntend != 0) {
obascframe = bascframe;
bascframe = (Bframe *)Addr68k_from_StkOffset(ntend);
bascframe = (Bframe *)ntend; // Addr68k_from_StkOffset(ntend);
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,