github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-04 10:24:43 +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:35 -07:00
parent d4226c20f2
commit 049568b0f8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
inc/inlineC.h
View File

@@ -723,7 +723,7 @@
case (unsigned)0xFFFF0000: TOPOFSTACK &= S_NEGATIVE; break; \
default: { \
LispPTR *cellp; \
cellp = createcell68k(TYPE_FIXP); \
cellp = (LispPTR *)createcell68k(TYPE_FIXP); \
*cellp = TOPOFSTACK; \
TOPOFSTACK = (LispPTR)LAddrFromNative(cellp); \
} \
@@ -744,7 +744,7 @@
nextop1; \
case 54: /* Float : 32 bits */ { \
LispPTR *cellp; \
cellp = createcell68k(TYPE_FLOATP); \
cellp = (LispPTR *)createcell68k(TYPE_FLOATP); \
*cellp = *(NativeAligned4FromLAddr(baseL) + index); \
TOPOFSTACK = (LispPTR)LAddrFromNative(cellp); \
} \