github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 16:44:00 +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
Show Stats 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 */
CURRENTFX->nextblock =
(LADDR_from_68k(CurrentStackPTR) & 0x0ffff) - (entry68k->arg_num << 1) + 2 /** +1 **/;
(LAddrFromNative(CurrentStackPTR) & 0x0ffff) - (entry68k->arg_num << 1) + 2 /** +1 **/;
/* Setup IVar */
IVar = Addr68k_from_LADDR((((LispPTR)(CURRENTFX->nextblock)) | STK_OFFSET));
@ -166,7 +166,7 @@ void ufn(DLword bytecode)
/* Set up FX */
GETWORD(CurrentStackPTR) = FX_MARK;
((struct frameex1 *)CurrentStackPTR)->alink = LADDR_from_68k(PVar);
((struct frameex1 *)CurrentStackPTR)->alink = LAddrFromNative(PVar);
PVar = (DLword *)CurrentStackPTR + FRAMESIZE;
#ifdef BIGVM
((struct frameex1 *)CurrentStackPTR)->fnheader = (defcell68k->defpointer);