github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-21 01:57:49 +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 f543d56260
commit a38ae21908
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/blt.c
View File

@ -50,8 +50,8 @@ LispPTR N_OP_blt(LispPTR destptr, LispPTR sourceptr, LispPTR wordcount) {
if ((wordcount & SEGMASK) != S_POSITIVE) ERROR_EXIT(wordcount);
nw = wordcount & 0xffff;
source68k = Addr68k_from_LADDR(sourceptr) + nw;
dest68k = Addr68k_from_LADDR(destptr) + nw;
source68k = NativeAligned2FromLAddr(sourceptr) + nw;
dest68k = NativeAligned2FromLAddr(destptr) + nw;
while (nw) {
(GETWORD(--dest68k)) = GETWORD(--source68k);