From dad4a8cc79954101d35f19c9cec26422e1315568 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sun, 28 Aug 2022 18:05:45 -0700 Subject: [PATCH] Convert from LADDR_from_68k to LAddrFromNative in fp.c --- src/fp.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/fp.c b/src/fp.c index 37cc43b..ddd3339 100644 --- a/src/fp.c +++ b/src/fp.c @@ -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() */ /************************************************************************/