diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-03-05 18:23:26 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-03-05 18:23:26 (GMT) |
| commit | f456cd9b3e6743bf15cd756bfc116153fa95605c (patch) | |
| tree | 85e4e3121d93802d9d5df50157ead27f68ff7a43 /generic/tclUtf.c | |
| parent | 8c315fd31ff823b217374dd32577e04c42674249 (diff) | |
| parent | b930511d5b774c13f2cd22d7820ad0acf7069c39 (diff) | |
| download | tcl-f456cd9b3e6743bf15cd756bfc116153fa95605c.zip tcl-f456cd9b3e6743bf15cd756bfc116153fa95605c.tar.gz tcl-f456cd9b3e6743bf15cd756bfc116153fa95605c.tar.bz2 | |
merge 8.7 (TIP#527, New measurement facilities in TCL: New command timerate, performance test suite)
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 4d9edf1..0fdd8a5 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1966,7 +1966,7 @@ Tcl_UniCharCaseMatch( if ((p != '[') && (p != '?') && (p != '\\')) { if (nocase) { while (*uniStr && (p != *uniStr) - && (p != Tcl_UniCharToLower(*uniStr))) { + && (p != (Tcl_UniChar)Tcl_UniCharToLower(*uniStr))) { uniStr++; } } else { @@ -2158,7 +2158,7 @@ TclUniCharMatch( if ((p != '[') && (p != '?') && (p != '\\')) { if (nocase) { while ((string < stringEnd) && (p != *string) - && (p != Tcl_UniCharToLower(*string))) { + && (p != (Tcl_UniChar)Tcl_UniCharToLower(*string))) { string++; } } else { |