From 889adcaa35c404e85ea5dca6a0a80e0e61476f3e Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Mon, 29 Aug 2022 18:13:41 -0700
Subject: [PATCH] Add NativeAligned4FromStackOffset() and LPageFromNative()
 before using them

---
 inc/adr68k.h | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/inc/adr68k.h b/inc/adr68k.h
index 37039be..faa31e4 100644
--- a/inc/adr68k.h
+++ b/inc/adr68k.h
@@ -74,6 +74,18 @@ static inline DLword *NativeAligned2FromStackOffset(DLword StackOffset)
   return Stackspace + StackOffset;
 }
 
+static inline LispPTR *NativeAligned4FromStackOffset(DLword StackOffset)
+{
+  return (LispPTR *)(Stackspace + StackOffset);
+}
+
+static inline LispPTR LPageFromNative(void *NAddr)
+{
+  if ((uintptr_t)NAddr & 1) {
+    printf("Misaligned pointer in LPageFromNative %p\n", NAddr);
+  }
+  return (((DLword *)NAddr) - Lisp_world) >> 8;
+}
 /*  translate 68k ptr to Lisp DLword address */
 #define LADDR_from_68k(ptr68k)	((LispPTR)(((UNSIGNED)(ptr68k) - (UNSIGNED)Lisp_world) >>1))