github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-05 07:44:20 +00:00
Code Issues Projects Releases Wiki Activity

Convert from LADDR_from_68k to LAddrFromNative in ufn.c

Browse Source
This commit is contained in:
Nick Briggs
2022-08-28 18:05:45 -07:00
parent 1790919750
commit 02fa9a6b23
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/ufn.c
View File

@@ -104,7 +104,7 @@ void ufn(DLword bytecode)
/* Get Next Block offset form OPCODE byte */ /* Get Next Block offset form OPCODE byte */
CURRENTFX->nextblock = CURRENTFX->nextblock =
(LADDR_from_68k(CurrentStackPTR) & 0x0ffff) - (entry68k->arg_num << 1) + 2 /** +1 **/; (LAddrFromNative(CurrentStackPTR) & 0x0ffff) - (entry68k->arg_num << 1) + 2 /** +1 **/;
/* Setup IVar */ /* Setup IVar */
IVar = Addr68k_from_LADDR((((LispPTR)(CURRENTFX->nextblock)) | STK_OFFSET)); IVar = Addr68k_from_LADDR((((LispPTR)(CURRENTFX->nextblock)) | STK_OFFSET));
@@ -166,7 +166,7 @@ void ufn(DLword bytecode)
/* Set up FX */ /* Set up FX */
GETWORD(CurrentStackPTR) = FX_MARK; GETWORD(CurrentStackPTR) = FX_MARK;
((struct frameex1 *)CurrentStackPTR)->alink = LADDR_from_68k(PVar); ((struct frameex1 *)CurrentStackPTR)->alink = LAddrFromNative(PVar);
PVar = (DLword *)CurrentStackPTR + FRAMESIZE; PVar = (DLword *)CurrentStackPTR + FRAMESIZE;
#ifdef BIGVM #ifdef BIGVM
((struct frameex1 *)CurrentStackPTR)->fnheader = (defcell68k->defpointer); ((struct frameex1 *)CurrentStackPTR)->fnheader = (defcell68k->defpointer);