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

Treat GETBYTE() result as unsigned so it is comparable to the result of GETWORD

Browse Source 
when comparing fat and thin strings.

	modified:   src/mkatom.c
This commit is contained in:
Nick Briggs 2018-11-13 22:53:30 -08:00
parent 01c9d5f3c5
commit 5111d42547
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mkatom.c
View File

@ -233,7 +233,7 @@ LispPTR compare_lisp_chars(register char *char1, register char *char2, register
int lispcmp(DLword *char1, unsigned char *char2, int len) {
int index;
for (index = 0; index < len; index++) {
if (GETWORD(char1++) != GETBYTE(char2++)) return (0);
if (GETWORD(char1++) != (unsigned char)GETBYTE(char2++)) return (0);
}
return (1);
}