diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-22 21:50:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-22 21:50:14 (GMT) |
| commit | 58260d444e3b5a71fb5d06645d34f42e80d013bf (patch) | |
| tree | 3428c4245dc0ef2ea18694f0b45eb787d5791e2f /generic/tclStringObj.c | |
| parent | ea5190faaab8dcd8c0aef9c4a978c54386f607c2 (diff) | |
| download | tcl-58260d444e3b5a71fb5d06645d34f42e80d013bf.zip tcl-58260d444e3b5a71fb5d06645d34f42e80d013bf.tar.gz tcl-58260d444e3b5a71fb5d06645d34f42e80d013bf.tar.bz2 | |
More simplifications, taking deprecations into account
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 76d875c..5a29477 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3402,7 +3402,7 @@ TclStringCmp( if (nocase) { s1 = (char *) TclGetUnicodeFromObj(value1Ptr, &s1len); s2 = (char *) TclGetUnicodeFromObj(value2Ptr, &s2len); - memCmpFn = (memCmpFn_t)Tcl_Utf32Ncasecmp; + memCmpFn = (memCmpFn_t)Tcl_UniCharNcasecmp; } else { s1len = Tcl_GetCharLength(value1Ptr); s2len = Tcl_GetCharLength(value2Ptr); @@ -3427,7 +3427,7 @@ TclStringCmp( s1len *= sizeof(Tcl_UniChar); s2len *= sizeof(Tcl_UniChar); } else { - memCmpFn = (memCmpFn_t) Tcl_Utf32Ncmp; + memCmpFn = (memCmpFn_t) Tcl_UniCharNcmp; } } } |