diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-05 16:00:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-05 16:00:06 (GMT) |
| commit | 96f7e93f0b671b1d35f78a5e3058f9a83e2caedc (patch) | |
| tree | 51e0d5f17d6e5e6fa4a20021f2937740c9735a10 /generic/tclCmdIL.c | |
| parent | c6d9c4cee08c88cac3ba885b637147fe8808c62a (diff) | |
| download | tcl-96f7e93f0b671b1d35f78a5e3058f9a83e2caedc.zip tcl-96f7e93f0b671b1d35f78a5e3058f9a83e2caedc.tar.gz tcl-96f7e93f0b671b1d35f78a5e3058f9a83e2caedc.tar.bz2 | |
More usage of TclUtfToUCS4(), so we can use the whole Unicode range better in TCL_UTF_MAX>3 builds.
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 7e685bd..3ec1c09 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -4370,7 +4370,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; @@ -4439,8 +4439,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 @@ -4449,8 +4449,8 @@ DictionaryCompare( * other interesting punctuations occur). */ - uniLeftLower = Tcl_UniCharToLower(uniLeft); - uniRightLower = Tcl_UniCharToLower(uniRight); + uniLeftLower = TclUCS4ToLower(uniLeft); + uniRightLower = TclUCS4ToLower(uniRight); } else { diff = UCHAR(*left) - UCHAR(*right); break; |