github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 08:33:48 +00:00
Code Issues Projects Releases Wiki Activity

Fix problem in compare_lisp_chars where it incremented fat character pointer

Browse Source 
by the wrong size unit when comparing a fat pname to a fat string.

	modified:   src/mkatom.c
This commit is contained in:
Nick Briggs 2018-11-14 16:32:23 -08:00
parent 5111d42547
commit f853f0e508
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mkatom.c
View File

@ -196,8 +196,11 @@ LispPTR compare_lisp_chars(register char *char1, register char *char2, register
#ifdef BYTESWAP
if (fat1) { /* both fat, so compare 'em a word at a time */
int i;
for (i = 0; i < length; i++)
if (GETWORD(char1++) != GETWORD(char2++)) return (NIL);
for (i = 0; i < length; i++) {
if (GETWORD(char1) != GETWORD(char2)) return (NIL);
/* increment by size of fat character, i.e., DLword, 2 bytes */
char1+= sizeof(DLword); char2+=sizeof(DLword);
}
return (T);
} else { /* both thin, so compare 'em a byte at a time */
/* (it's this way in case we're byte-swapped.)*/