github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-29 04:51:28 +00:00
Code Issues Projects Releases Wiki Activity

Change lisp_string_to_c_string length parameter to be size_t (#179)

Browse Source 
The argument passed to the length parameter of lisp_string_to_c_string is
always the sizeof an array, and since it is compared to the Lisp unsigned
length of the Lisp string is more appropriately a size_t than an int.
Likewise for the index into a string.
This commit is contained in:
Nick Briggs
2021-01-04 17:23:11 -08:00
committed by GitHub
parent 79b7a300a9
commit 96ab979e7a
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/uutils.c
View File

@@ -50,7 +50,7 @@
/* */
/************************************************************************/
int lisp_string_to_c_string(LispPTR Lisp, char *C, int length) {
int lisp_string_to_c_string(LispPTR Lisp, char *C, size_t length) {
register OneDArray *arrayp;
register char *base;
@@ -95,7 +95,7 @@ int lisp_string_to_c_string(LispPTR Lisp, char *C, int length) {
int c_string_to_lisp_string(char *C, LispPTR Lisp) {
register OneDArray *arrayp;
char *base;
register int length;
register size_t length;
length = strlen(C);
if (GetTypeNumber(Lisp) != TYPE_ONED_ARRAY) { return (-1); }
@@ -111,7 +111,7 @@ int c_string_to_lisp_string(char *C, LispPTR Lisp) {
strcpy(base, C);
#else
{
register int i;
register size_t i;
register char *dp;
for (i = 0, dp = C; i < length + 1; i++) {
int ch = *dp++;