diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-05 16:20:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-05 16:20:24 (GMT) |
| commit | e81e9b9bc2b19fb56ae267574dd35b2244272785 (patch) | |
| tree | 7ffd5b889a37c8b693ad8430f49d61943dc01174 /generic/tclCmdIL.c | |
| parent | a2f768dce66fc3f48b9a095fdc121fc9cc20b23a (diff) | |
| parent | 96f7e93f0b671b1d35f78a5e3058f9a83e2caedc (diff) | |
| download | tcl-e81e9b9bc2b19fb56ae267574dd35b2244272785.zip tcl-e81e9b9bc2b19fb56ae267574dd35b2244272785.tar.gz tcl-e81e9b9bc2b19fb56ae267574dd35b2244272785.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 94ff2cc..3241398 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -4697,7 +4697,7 @@ static int DictionaryCompare( const char *left, const char *right) /* The strings to compare. */ { - Tcl_UniChar uniLeft = 0, uniRight = 0, uniLeftLower, uniRightLower; + int uniLeft = 0, uniRight = 0, uniLeftLower, uniRightLower; int diff, zeros; int secondaryDiff = 0; @@ -4766,8 +4766,8 @@ DictionaryCompare( */ if ((*left != '\0') && (*right != '\0')) { - left += TclUtfToUniChar(left, &uniLeft); - right += TclUtfToUniChar(right, &uniRight); + left += TclUtfToUCS4(left, &uniLeft); + right += TclUtfToUCS4(right, &uniRight); /* * Convert both chars to lower for the comparison, because |