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

Switch from Addr68k_from_LADDR to NativeAligned4FromLAddr in arith.h

Browse Source
This commit is contained in:
Nick Briggs
2022-08-24 15:37:36 -07:00
parent ed5e504b06
commit eae42d1a6d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
inc/arith.h
View File

@@ -9,7 +9,7 @@
/* */ /* */
/************************************************************************/ /************************************************************************/
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k #include "adr68k.h" // for NativeAligned4FromLAddr
#include "commondefs.h" // for error #include "commondefs.h" // for error
#include "lispemul.h" // for SEGMASK, ERROR_EXIT #include "lispemul.h" // for SEGMASK, ERROR_EXIT
#include "lispmap.h" // for S_NEGATIVE, S_POSITIVE #include "lispmap.h" // for S_NEGATIVE, S_POSITIVE
@@ -55,9 +55,9 @@ static inline LispPTR GetPosSmallp(unsigned long x) {
return (S_POSITIVE | 0); return (S_POSITIVE | 0);
} }
#define FIXP_VALUE(dest) *((int *)Addr68k_from_LADDR(dest)) #define FIXP_VALUE(dest) *((int *)NativeAligned4FromLAddr(dest))
#define FLOATP_VALUE(dest) *((float *)Addr68k_from_LADDR(dest)) #define FLOATP_VALUE(dest) *((float *)NativeAligned4FromLAddr(dest))
#define N_GETNUMBER(sour, dest, label) \ #define N_GETNUMBER(sour, dest, label) \
do { \ do { \