From 9eba057b94fee087d9e919a6f15ec489a123930e 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 storage.c --- src/storage.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/storage.c b/src/storage.c index 291a194..cf83f05 100644 --- a/src/storage.c +++ b/src/storage.c @@ -18,7 +18,7 @@ /*****************************************************************/ #include // for printf #include "address.h" // for POINTER_PAGE -#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k +#include "adr68k.h" // for Addr68k_from_LADDR, LAddrFromNative #include "car-cdrdefs.h" // for cdr, car, rplacd, rplaca #include "commondefs.h" // for error #include "conspagedefs.h" // for cons @@ -314,12 +314,12 @@ LispPTR newpage(LispPTR base) { /* compute virtual page of new FPtoVP table page */ /* i.e., the vp that holds the next FPtoVP entry */ - vp_of_fp = (LADDR_from_68k(FPtoVP + nactive) >> 8); + vp_of_fp = (LAddrFromNative(FPtoVP + nactive) >> 8); /* compute file page where this entry has to be to ensure that FPtoVP is contiguous on the file */ - fp_of_fptovp = InterfacePage->fptovpstart + (vp_of_fp - (LADDR_from_68k(FPtoVP) >> 8)); + fp_of_fptovp = InterfacePage->fptovpstart + (vp_of_fp - (LAddrFromNative(FPtoVP) >> 8)); /* debugging check: make sure FPtoVP is contiguous */