diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-20 07:23:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-20 07:23:57 (GMT) |
| commit | 98c1128f07f4c0197f390656f4f9f6fabf141d4b (patch) | |
| tree | ce2cb27ee8fd3c264990b311d0129066b25ea2eb | |
| parent | c1d507af302a1330ff03c3507d5bd1c965224064 (diff) | |
| download | tcl-98c1128f07f4c0197f390656f4f9f6fabf141d4b.zip tcl-98c1128f07f4c0197f390656f4f9f6fabf141d4b.tar.gz tcl-98c1128f07f4c0197f390656f4f9f6fabf141d4b.tar.bz2 | |
Fix compilation with CFLAGS=-DTCL_NO_DEPRECATED
| -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 dea4cbe..3890ac0 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -2402,7 +2402,7 @@ StringRplcCmd( return TCL_ERROR; } - end = Tcl_GetCharLength(objv[1]) - 1; + end = TclGetCharLength(objv[1]) - 1; if (TclGetIntForIndexM(interp, objv[2], end, &first) != TCL_OK || TclGetIntForIndexM(interp, objv[3], end, &last) != TCL_OK) { |