diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-04 12:31:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-04 12:31:51 (GMT) |
commit | 7759441602f14b3772186ea0d87f61ffdafc8404 (patch) | |
tree | c8aac29d738caa3756201b63f7a4b9a81f27ad47 /generic/tclCmdMZ.c | |
parent | 66197cab8b6c43b474a6dceae32fc95f4eed37b9 (diff) | |
download | tcl-7759441602f14b3772186ea0d87f61ffdafc8404.zip tcl-7759441602f14b3772186ea0d87f61ffdafc8404.tar.gz tcl-7759441602f14b3772186ea0d87f61ffdafc8404.tar.bz2 |
New internal function TclGetUCS4() only available when TCL_UTF_MAX=4. This fixes all "knownBug" testcases related to tip389.
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 011164b..7516208 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1401,7 +1401,7 @@ StringIndexCmd( } if ((index >= 0) && (index < length)) { - Tcl_UniChar ch = Tcl_GetUniChar(objv[1], index); + int ch = TclGetUCS4(objv[1], index); /* * If we have a ByteArray object, we're careful to generate a new |