diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-09 15:19:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-09 15:19:51 (GMT) |
| commit | aa4f7bcd47ef35e83a3a5a6c3f16398bf3758e49 (patch) | |
| tree | 3437f219dfea47d335f00237bd046b9a809c3a7f /generic/tclCmdMZ.c | |
| parent | 1f4a8eb5d1a8d6fddf8571fc5694d3b527799df6 (diff) | |
| download | tcl-aa4f7bcd47ef35e83a3a5a6c3f16398bf3758e49.zip tcl-aa4f7bcd47ef35e83a3a5a6c3f16398bf3758e49.tar.gz tcl-aa4f7bcd47ef35e83a3a5a6c3f16398bf3758e49.tar.bz2 | |
Deprecate/remove "string bytelength"
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 61d1010..6f71198 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,7 +3311,9 @@ 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}, +#endif {"cat", StringCatCmd, TclCompileStringCatCmd, NULL, NULL, 0}, {"compare", StringCmpCmd, TclCompileStringCmpCmd, NULL, NULL, 0}, {"equal", StringEqualCmd, TclCompileStringEqualCmd, NULL, NULL, 0}, |