diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 10:35:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 10:35:18 (GMT) |
commit | e5a2ebd71b2aa2b31ca5128eb47ae0a7fdd20bd5 (patch) | |
tree | 67c205a4448d7fb5212f23d7982bc44da6a3ce2d /generic/tclCmdMZ.c | |
parent | a9eaf6765198716158f4927d71f64d20182f1ad2 (diff) | |
download | tcl-e5a2ebd71b2aa2b31ca5128eb47ae0a7fdd20bd5.zip tcl-e5a2ebd71b2aa2b31ca5128eb47ae0a7fdd20bd5.tar.gz tcl-e5a2ebd71b2aa2b31ca5128eb47ae0a7fdd20bd5.tar.bz2 |
Follow-up to [767e070d35]: Tcl_GetRange and Tcl_GetUniChar do not validate index inputs.
Now that Tcl_GetRange() checks its arguments, the callers of this function don't have to do that any more.
This also shows a off-by-one error in the Tcl_GetRange() check
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index da3fc8b..5422b7f 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -2183,15 +2183,7 @@ StringRangeCmd( return TCL_ERROR; } - if (first < 0) { - first = 0; - } - if (last >= length) { - last = length; - } - if (last >= first) { - Tcl_SetObjResult(interp, Tcl_GetRange(objv[1], first, last)); - } + Tcl_SetObjResult(interp, Tcl_GetRange(objv[1], first, last)); return TCL_OK; } |