github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 07:30:21 +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
Show Stats 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 "address.h" // for LOLOC
#include "adr68k.h" // for Addr68k_from_LADDR, LAddrFromNative
#include "adr68k.h" // for NativeAligned4FromLAddr, LAddrFromNative
#include "commondefs.h" // for error
#include "dspsubrsdefs.h" // for flip_cursor
#include "emlglob.h"
@ -138,11 +138,11 @@ void disablegc1(int noerror) {
struct interruptstate *gcinterruptstate;
int count, i;
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) */
for (i = 0; i < count; i++) {
typeword = GETWORD((DLword *)Addr68k_from_LADDR(LAddrFromNative(MDStypetbl) + i));
GETWORD((DLword *)Addr68k_from_LADDR(LAddrFromNative(MDStypetbl) + i)) = (typeword | TT_NOREF);
typeword = GETWORD((DLword *)NativeAligned2FromLAddr(LAddrFromNative(MDStypetbl) + i));
GETWORD((DLword *)NativeAligned2FromLAddr(LAddrFromNative(MDStypetbl) + i)) = (typeword | TT_NOREF);
}
*Reclaim_cnt_word = NIL;
*ReclaimMin_word = NIL;