github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 15:36:34 +00:00
Code Issues Projects Releases Wiki Activity

Replace Addr68k_from_LADDR with NativeAligned2FromLAddr/NativeAligned4FromLAddr in bin.c

Browse Source
This commit is contained in:
Nick Briggs 2022-08-26 14:07:42 -07:00
parent cde0be42f0
commit 9df1ea251a
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/bin.c
View File

@ -36,14 +36,14 @@ LispPTR N_OP_bin(LispPTR tos) {
char *buff68k; /* pointer to BUFF */
if (GetTypeNumber(tos) == TYPE_STREAM) {
stream68k = (Stream *)Addr68k_from_LADDR(tos);
stream68k = (Stream *)NativeAligned4FromLAddr(tos);
if (!stream68k->BINABLE) ERROR_EXIT(tos);
if (stream68k->COFFSET >= stream68k->CBUFSIZE) ERROR_EXIT(tos);
/* get BUFFER instance */
buff68k = (char *)Addr68k_from_LADDR(stream68k->CBUFPTR);
buff68k = (char *)NativeAligned2FromLAddr(stream68k->CBUFPTR);
/* get BYTE data and set it to TOS */
return (S_POSITIVE | (Get_BYTE(buff68k + (stream68k->COFFSET)++)));