github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 07:30:21 +00:00
Code Issues Projects Releases Wiki Activity

Replace Addr68k related macros with NativeAligned inline functions

Browse Source
This commit is contained in:
Nick Briggs 2022-09-01 14:15:37 -07:00
parent f6aa8f1dcd
commit 97e811e3de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mkatom.c
View File

@ -33,7 +33,7 @@
#ifndef BYTESWAP
#include <string.h> // 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)) {