github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-07 03:16:02 +00:00
Code Issues Projects Releases Wiki Activity

The lisp pointers are 28 bits not 24

Browse Source
This commit is contained in:
Nick Briggs
2023-07-23 12:23:17 -07:00
parent 29b492093d
commit 3b42f0579d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/gcfinal.c
View File

@@ -157,7 +157,7 @@ LispPTR findptrsbuffer(LispPTR ptr) {
if (ptr == bptr->vmempage)
return (LAddrFromNative(bptr));
else {
if (bptr->sysnext & 0x0F000000) printf("findptrsbuffer: would have failed %p\n", bptr);
if (bptr->sysnext & 0xF0000000) printf("findptrsbuffer: would have failed %p\n", bptr);
bptr = (struct buf *)NativeAligned4FromLAddr(bptr->sysnext);
}
}