github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-20 00:43:31 +00:00
Code Issues Projects Releases Wiki Activity

Replace Addr68k related macros with NativeAligned inline functions

Browse Source
This commit is contained in:
Nick Briggs
2022-09-01 14:15:36 -07:00
parent dab77421a2
commit 2a42cd8e52
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/gcr.c
View File

@@ -53,7 +53,7 @@
#include "version.h" #include "version.h"
#include "address.h" // for LOLOC #include "address.h" // for LOLOC
#include "adr68k.h" // for Addr68k_from_LADDR, LAddrFromNative #include "adr68k.h" // for NativeAligned4FromLAddr, LAddrFromNative
#include "commondefs.h" // for error #include "commondefs.h" // for error
#include "dspsubrsdefs.h" // for flip_cursor #include "dspsubrsdefs.h" // for flip_cursor
#include "emlglob.h" #include "emlglob.h"
@@ -138,11 +138,11 @@ void disablegc1(int noerror) {
struct interruptstate *gcinterruptstate; struct interruptstate *gcinterruptstate;
int count, i; int count, i;
DLword typeword; DLword typeword;
gcinterruptstate = (struct interruptstate *)Addr68k_from_LADDR(*INTERRUPTSTATE_word); gcinterruptstate = (struct interruptstate *)NativeAligned4FromLAddr(*INTERRUPTSTATE_word);
count = (128) * 256; /* This is test value. 128 is *MdsTTsize(\MDSTTsize) */ count = (128) * 256; /* This is test value. 128 is *MdsTTsize(\MDSTTsize) */
for (i = 0; i < count; i++) { for (i = 0; i < count; i++) {
typeword = GETWORD((DLword *)Addr68k_from_LADDR(LAddrFromNative(MDStypetbl) + i)); typeword = GETWORD((DLword *)NativeAligned2FromLAddr(LAddrFromNative(MDStypetbl) + i));
GETWORD((DLword *)Addr68k_from_LADDR(LAddrFromNative(MDStypetbl) + i)) = (typeword | TT_NOREF); GETWORD((DLword *)NativeAligned2FromLAddr(LAddrFromNative(MDStypetbl) + i)) = (typeword | TT_NOREF);
} }
*Reclaim_cnt_word = NIL; *Reclaim_cnt_word = NIL;
*ReclaimMin_word = NIL; *ReclaimMin_word = NIL;