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

Eliminates nul at end of Lisp string since Lisp strings are not nul terminated

Browse Source
This commit is contained in:
Nick Briggs
2025-07-25 18:39:53 -07:00
parent a0e703678c
commit 5343b12991
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/dsk.c
View File

@@ -1032,9 +1032,9 @@ LispPTR DSK_getfilename(LispPTR *args)
len = strlen(lfname);
#ifndef BYTESWAP
strncpy(base, lfname, len + 1);
strncpy(base, lfname, len);
#else
MemCpyToLispFromNative(base, lfname, len + 1);
MemCpyToLispFromNative(base, lfname, len);
#endif /* BYTESWAP */
return (GetPosSmallp(len));
@@ -1068,9 +1068,9 @@ LispPTR DSK_getfilename(LispPTR *args)
len = strlen(lfname);
#ifndef BYTESWAP
strncpy(base, lfname, len + 1);
strncpy(base, lfname, len);
#else
MemCpyToLispFromNative(base, lfname, len + 1);
MemCpyToLispFromNative(base, lfname, len);
#endif /* BYTESWAP */
return (GetPosSmallp(len));
@@ -1507,9 +1507,9 @@ LispPTR DSK_directorynamep(LispPTR *args)
STRING_BASE(args[1], base);
#ifndef BYTESWAP
strncpy(base, dirname, len + 1);
strncpy(base, dirname, len);
#else
MemCpyToLispFromNative(base, dirname, len + 1);
MemCpyToLispFromNative(base, dirname, len);
#endif /* BYTESWAP */
return (GetPosSmallp(len));

8
src/ufs.c
View File

@@ -216,9 +216,9 @@ LispPTR UFS_getfilename(LispPTR *args)
len = strlen(lfname);
#ifndef BYTESWAP
strncpy(base, lfname, len + 1);
strncpy(base, lfname, len);
#else
MemCpyToLispFromNative(base, lfname, len + 1);
MemCpyToLispFromNative(base, lfname, len);
#endif /* BYTESWAP */
return (GetSmallp(len));
@@ -420,9 +420,9 @@ LispPTR UFS_directorynamep(LispPTR *args)
STRING_BASE(args[1], base);
#ifndef BYTESWAP
strncpy(base, dirname, len + 1);
strncpy(base, dirname, len);
#else
MemCpyToLispFromNative(base, dirname, len + 1);
MemCpyToLispFromNative(base, dirname, len);
#endif /* BYTESWAP */
return (GetSmallp(len));