github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-16 08:15:31 +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
Show Stats 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 "address.h" // for LOLOC
#include "adr68k.h" // for LADDR_from_68k
#include "adr68k.h" // for LAddrFromNative
#include "commondefs.h" // for error
#include "gcdata.h" // for GETGC, GCENTRY, ADDREF, DELREF, gc_ovfl
#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 (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");
newpage(LADDR_from_68k(oventry + 1));
newpage(LAddrFromNative(oventry + 1));
}
}