github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-13 23:27:12 +00:00
Code Issues Projects Releases Wiki Activity

Convert from LADDR_from_68k to LAddrFromNative in arith.h

Browse Source
This commit is contained in:
Nick Briggs 2022-08-26 19:24:32 -07:00
parent ee777103ad
commit 7dc889249b
1 changed files with 3 additions and 3 deletions
Show Stats 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 NativeAligned4FromLAddr
#include "adr68k.h" // for NativeAligned4FromLAddr, LAddrFromNative
#include "commondefs.h" // for error
#include "lispemul.h" // for SEGMASK, ERROR_EXIT
#include "lispmap.h" // for S_NEGATIVE, S_POSITIVE
@ -102,7 +102,7 @@ static inline LispPTR GetPosSmallp(unsigned long x) {
/* arg is FIXP, call createcell */ \
fixpp = (int *)createcell68k(TYPE_FIXP); \
*((int *)fixpp) = (int)(arg); \
(result) = (LADDR_from_68k(fixpp)); \
(result) = (LAddrFromNative(fixpp)); \
break; \
} \
} \
@ -118,7 +118,7 @@ static inline LispPTR GetPosSmallp(unsigned long x) {
/* arg is FIXP, call createcell */ \
fixpp = (int *)createcell68k(TYPE_FIXP); \
*fixpp = arg; \
return (LADDR_from_68k(fixpp)); \
return (LAddrFromNative(fixpp)); \
} \
} \
} while (0)