github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-18 17:07:24 +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:38 -07:00
parent 7a28ba5731
commit 6a7e018a0c
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/ufs.c
View File

@ -161,7 +161,7 @@ LispPTR UFS_getfilename(LispPTR *args)
char lfname[MAXPATHLEN], file[MAXPATHLEN];
ERRSETJMP(NIL);
Lisp_errno = (int *)(Addr68k_from_LADDR(args[3]));
Lisp_errno = (int *)(NativeAligned4FromLAddr(args[3]));
LispStringLength(args[0], len, rval);
len += 1; /* Add 1 for terminating NULL char. */
@ -248,7 +248,7 @@ LispPTR UFS_deletefile(LispPTR *args)
int len, rval;
ERRSETJMP(NIL);
Lisp_errno = (int *)(Addr68k_from_LADDR(args[1]));
Lisp_errno = (int *)(NativeAligned4FromLAddr(args[1]));
LispStringLength(args[0], len, rval);
len += 1;
@ -313,7 +313,7 @@ LispPTR UFS_renamefile(LispPTR *args)
int rval, len;
ERRSETJMP(NIL);
Lisp_errno = (int *)(Addr68k_from_LADDR(args[2]));
Lisp_errno = (int *)(NativeAligned4FromLAddr(args[2]));
LispStringLength(args[0], len, rval);
len += 1;
@ -387,7 +387,7 @@ LispPTR UFS_directorynamep(LispPTR *args)
struct stat sbuf;
ERRSETJMP(NIL);
Lisp_errno = (int *)(Addr68k_from_LADDR(args[2]));
Lisp_errno = (int *)(NativeAligned4FromLAddr(args[2]));
LispStringLength(args[0], len, rval);
len += 1;