github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-02 14:40:45 +00:00
Code Issues Projects Releases Wiki Activity

Convert from LADDR_from_68k to LAddrFromNative in gchtfind.c

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

6
src/gchtfind.c
View File

@@ -11,7 +11,7 @@
#include "version.h" #include "version.h"
#include "address.h" // for LOLOC #include "address.h" // for LOLOC
#include "adr68k.h" // for LADDR_from_68k #include "adr68k.h" // for LAddrFromNative
#include "commondefs.h" // for error #include "commondefs.h" // for error
#include "gcdata.h" // for GETGC, GCENTRY, ADDREF, DELREF, gc_ovfl #include "gcdata.h" // for GETGC, GCENTRY, ADDREF, DELREF, gc_ovfl
#include "gchtfinddefs.h" // for enter_big_reference_count, htfind, modify_... #include "gchtfinddefs.h" // for enter_big_reference_count, htfind, modify_...
@@ -234,9 +234,9 @@ void enter_big_reference_count(LispPTR ptr) {
}; };
if (tmp == NIL) { if (tmp == NIL) {
if (Evenp(LADDR_from_68k(oventry + 1), DLWORDSPER_PAGE)) { if (Evenp(LAddrFromNative(oventry + 1), DLWORDSPER_PAGE)) {
if ((UNSIGNED)oventry + 1 >= (UNSIGNED)HTcoll) error("GC big reference count table overflow"); if ((UNSIGNED)oventry + 1 >= (UNSIGNED)HTcoll) error("GC big reference count table overflow");
newpage(LADDR_from_68k(oventry + 1)); newpage(LAddrFromNative(oventry + 1));
} }
} }