github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-16 16:19:10 +00:00
Code Issues Projects Releases Wiki Activity

Convert from LADDR_from_68k to LAddrFromNative in allocmds.c

Browse Source
This commit is contained in:
Nick Briggs 2022-08-28 18:05:45 -07:00
parent 9239fb3c29
commit 6a4ed88f37
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/allocmds.c
View File

@ -26,7 +26,7 @@
/**********************************************************************/
#include "address.h" // for LOLOC
#include "adr68k.h" // for LADDR_from_68k, LPAGE_from_68k, Addr68k_fr...
#include "adr68k.h" // for LAddrFromNative, LPAGE_from_68k, Addr68k_fr...
#include "allocmdsdefs.h" // for alloc_mdspage, initmdspage
#include "commondefs.h" // for error
#include "lispemul.h" // for DLword, LispPTR, DLWORDSPER_PAGE, MDSINCRE...
@ -94,7 +94,7 @@ LispPTR initmdspage(LispPTR *base, DLword size, LispPTR prev)
used = 0;
while ((used += size) <= limit) {
*base = prev; /* write prev MDS address to the top of MDS page */
prev = LADDR_from_68k(base); /* exchanging pointers */
prev = LAddrFromNative(base); /* exchanging pointers */
base = (LispPTR *)((DLword *)base + size);
} /* while end */
@ -156,7 +156,7 @@ LispPTR *alloc_mdspage(short int type) {
#else
*Next_MDSpage_word = S_POSITIVE | LPAGE_from_68k(Next_MDSpage);
#endif
newpage(newpage(LADDR_from_68k(ptr)) + DLWORDSPER_PAGE);
newpage(newpage(LAddrFromNative(ptr)) + DLWORDSPER_PAGE);
}
Make_MDSentry(LPAGE_from_68k(ptr), type);