From 97e811e3de9cf5cea1c7ae5262154f4e90838dc8 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Thu, 1 Sep 2022 14:15:37 -0700 Subject: [PATCH] Replace Addr68k related macros with NativeAligned inline functions --- src/mkatom.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mkatom.c b/src/mkatom.c index 45af0ed..f88c7c9 100644 --- a/src/mkatom.c +++ b/src/mkatom.c @@ -33,7 +33,7 @@ #ifndef BYTESWAP #include // for memcmp #endif -#include "adr68k.h" // for Addr68k_from_LADDR +#include "adr68k.h" // for NativeAligned2FromLAddr #include "cell.h" // for PNCell, GetPnameCell #include "dbprint.h" // for DBPRINT #include "lispemul.h" // for DLword, LispPTR, T, NIL, POINTERMASK @@ -309,7 +309,7 @@ LispPTR make_atom(const char *char_base, DLword offset, DLword length) atom_index = hash_entry - 1; /* get pname pointer */ pnptr = (PNCell *)GetPnameCell(atom_index); - pname_base = (char *)Addr68k_from_LADDR(POINTERMASK & pnptr->pnamebase); + pname_base = (char *)NativeAligned2FromLAddr(POINTERMASK & pnptr->pnamebase); if ((length == GETBYTE(pname_base)) && (compare_chars(++pname_base, char_base + offset, length) == T)) {