github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-21 10:03:00 +00:00
Code Issues Projects Releases Wiki Activity

Convert from LADDR_from_68k to LAddrFromNative in fp.c

Browse Source
This commit is contained in:
Nick Briggs 2022-08-28 18:05:45 -07:00
parent 822a03a95b
commit dad4a8cc79
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/fp.c
View File

@ -17,7 +17,7 @@
/* */
/************************************************************************/
#include "adr68k.h" // for LADDR_from_68k
#include "adr68k.h" // for LAddrFromNative
#include "emlglob.h"
#include "fpdefs.h" // for N_OP_fdifference, N_OP_fgreaterp, N_OP_fplus2
#include "lispemul.h" // for state, LispPTR, DLword, ERROR_EXIT, ATOM_T
@ -56,7 +56,7 @@ LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2) {
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
*((float *)wordp) = result;
return (LADDR_from_68k(wordp));
return (LAddrFromNative(wordp));
} /* end N_OP_fplus2() */
/************************************************************************/
@ -79,7 +79,7 @@ LispPTR N_OP_fdifference(LispPTR parg1, LispPTR parg2) {
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
*((float *)wordp) = result;
return (LADDR_from_68k(wordp));
return (LAddrFromNative(wordp));
} /* end N_OP_fdifference() */
/************************************************************************/
@ -102,7 +102,7 @@ LispPTR N_OP_ftimes2(LispPTR parg1, LispPTR parg2) {
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
*((float *)wordp) = result;
return (LADDR_from_68k(wordp));
return (LAddrFromNative(wordp));
} /* end N_OP_ftimes2() */
/************************************************************************/
@ -126,7 +126,7 @@ LispPTR N_OP_fquotient(LispPTR parg1, LispPTR parg2) {
if (FPTEST(result)) ERROR_EXIT(parg2);
wordp = createcell68k(TYPE_FLOATP);
*((float *)wordp) = result;
return (LADDR_from_68k(wordp));
return (LAddrFromNative(wordp));
} /* end N_OP_fquotient() */
/************************************************************************/