github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-28 09:17:36 +00:00
Code Issues Projects Releases Wiki Activity

Print the bad Lisp pointer as well as where it came from.

Browse Source
This commit is contained in:
Nick Briggs
2023-07-23 14:51:36 -07:00
parent 3b42f0579d
commit 4520609479
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 & 0xF0000000) printf("findptrsbuffer: would have failed %p\n", bptr);
if (bptr->sysnext & 0xF0000000) printf("findptrsbuffer: would have failed %p 0x%X\n", bptr, bptr->sysnext);
bptr = (struct buf *)NativeAligned4FromLAddr(bptr->sysnext);
}
}