diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-12 09:26:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-12 09:26:27 (GMT) |
| commit | 7deb6f2082391e5fdb40740e2dd00a14b2e325bb (patch) | |
| tree | a37981a71cf24a87295e9901a8793f281816c3a4 /generic/tclCmdMZ.c | |
| parent | c318d73bd33bd73fbdf12d1fb7fb5a53a5675082 (diff) | |
| parent | b1e4f0fa23663a2ced0099c6d2d0bdb4ff286523 (diff) | |
| download | tcl-7deb6f2082391e5fdb40740e2dd00a14b2e325bb.zip tcl-7deb6f2082391e5fdb40740e2dd00a14b2e325bb.tar.gz tcl-7deb6f2082391e5fdb40740e2dd00a14b2e325bb.tar.bz2 | |
Fix [7f1162a867]. Don't compile "string cat" any more, since there still is a bug in it, demonstrated by utf-1.18 testcase
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 d020a93..7d84c86 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -3307,7 +3307,7 @@ TclInitStringCmd( { static const EnsembleImplMap stringImplMap[] = { {"bytelength", StringBytesCmd, TclCompileBasic1ArgCmd, NULL, NULL, 0}, - {"cat", StringCatCmd, TclCompileStringCatCmd, NULL, NULL, 0}, + {"cat", StringCatCmd, NULL/*TclCompileStringCatCmd*/, NULL, NULL, 0}, {"compare", StringCmpCmd, TclCompileStringCmpCmd, NULL, NULL, 0}, {"equal", StringEqualCmd, TclCompileStringEqualCmd, NULL, NULL, 0}, {"first", StringFirstCmd, TclCompileStringFirstCmd, NULL, NULL, 0}, |