From 3b42f0579d7e5c7289b61183eb521fbd3027179d Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Sun, 23 Jul 2023 12:23:17 -0700
Subject: [PATCH] The lisp pointers are 28 bits not 24

---
 src/gcfinal.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gcfinal.c b/src/gcfinal.c
index ac7db4e..a3c144e 100644
--- a/src/gcfinal.c
+++ b/src/gcfinal.c
@@ -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);
     }
   }