diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-13 07:23:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-13 07:23:51 (GMT) |
| commit | 9d12dd535ad7861c03c333289a501003f4ffed1b (patch) | |
| tree | 39603687b7c0f2e2bc43bc4440c07f8fe6c7f6b9 /generic/tclCmdMZ.c | |
| parent | 644a7974114cc665bed9522e48d1219e5572bbd2 (diff) | |
| parent | 05fa595fc50db15982bb657f47423afb6fd41b8c (diff) | |
| download | tcl-9d12dd535ad7861c03c333289a501003f4ffed1b.zip tcl-9d12dd535ad7861c03c333289a501003f4ffed1b.tar.gz tcl-9d12dd535ad7861c03c333289a501003f4ffed1b.tar.bz2 | |
Merge tip-597
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 61d1010..e7ca828 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -2835,6 +2835,7 @@ StringCatCmd( * *---------------------------------------------------------------------- */ +#if TCL_MAJOR_VERSION < 9 && !defined(TCL_NO_DEPRECATED) static int StringBytesCmd( TCL_UNUSED(ClientData), @@ -2853,6 +2854,7 @@ StringBytesCmd( Tcl_SetObjResult(interp, Tcl_NewWideIntObj(length)); return TCL_OK; } +#endif /* *---------------------------------------------------------------------- @@ -3309,8 +3311,10 @@ TclInitStringCmd( Tcl_Interp *interp) /* Current interpreter. */ { static const EnsembleImplMap stringImplMap[] = { +#if TCL_MAJOR_VERSION < 9 && !defined(TCL_NO_DEPRECATED) {"bytelength", StringBytesCmd, TclCompileBasic1ArgCmd, NULL, NULL, 0}, - {"cat", StringCatCmd, TclCompileStringCatCmd, NULL, NULL, 0}, +#endif + {"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}, |