github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-06 02:59:14 +00:00
Code Issues Projects Releases Wiki Activity

Replaces (expanded) lisp string base access pattern with STRING_BASE macro

Browse Source
This commit is contained in:
Nick Briggs
2025-07-25 17:52:34 -07:00
parent 364bc1f31c
commit a0e703678c
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/osmsg.c
View File

@@ -233,15 +233,13 @@ LispPTR mess_read(LispPTR *args)
struct stat sbuf;
int size, save_size;
char *base;
LispPTR *naddress;
int i;
static char temp_buf[MESSAGE_BUFFER_SIZE];
SETJMP(NIL);
/* Get buff address from LISP */
naddress = (LispPTR *)(NativeAligned4FromLAddr(args[0]));
base = (char *)(NativeAligned2FromLAddr(((OneDArray *)naddress)->base));
STRING_BASE(args[0], base);
close(log_id);
TIMEOUT(log_id = open(logfile, O_RDONLY));