From 9df1ea251aa026d2899ee642c0529afa7653331b Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Fri, 26 Aug 2022 14:07:42 -0700
Subject: [PATCH] Replace Addr68k_from_LADDR with
 NativeAligned2FromLAddr/NativeAligned4FromLAddr in bin.c

---
 src/bin.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/bin.c b/src/bin.c
index 764bf36..6edb847 100644
--- a/src/bin.c
+++ b/src/bin.c
@@ -36,14 +36,14 @@ LispPTR N_OP_bin(LispPTR tos) {
   char *buff68k;     /* pointer to BUFF */
 
   if (GetTypeNumber(tos) == TYPE_STREAM) {
-    stream68k = (Stream *)Addr68k_from_LADDR(tos);
+    stream68k = (Stream *)NativeAligned4FromLAddr(tos);
 
     if (!stream68k->BINABLE) ERROR_EXIT(tos);
 
     if (stream68k->COFFSET >= stream68k->CBUFSIZE) ERROR_EXIT(tos);
 
     /* get BUFFER instance */
-    buff68k = (char *)Addr68k_from_LADDR(stream68k->CBUFPTR);
+    buff68k = (char *)NativeAligned2FromLAddr(stream68k->CBUFPTR);
 
     /* get BYTE data and set it to TOS */
     return (S_POSITIVE | (Get_BYTE(buff68k + (stream68k->COFFSET)++)));