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

1 files changed, 3 insertions, 4 deletions

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index edfcb9f..fc675cf 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -739,8 +739,7 @@ Tcl_GetUnicodeFromObj(
  *
  *	Create a Tcl Object that contains the chars between first and last of
  *	the object indicated by "objPtr". If the object is not already a
- *	String object, convert it to one. The first and last indices are
- *	assumed to be in the appropriate range.
+ *	String object, convert it to one.
  *
  * Results:
  *	Returns a new Tcl Object of the String type.
@@ -818,8 +817,8 @@ Tcl_GetRange(
 	FillUnicodeRep(objPtr);
 	stringPtr = GET_STRING(objPtr);
     }
-    if (last > stringPtr->numChars) {
-	last = stringPtr->numChars;
+    if (last >= stringPtr->numChars) {
+	last = stringPtr->numChars - 1;
     }
     if (last < first) {
 	return Tcl_NewObj();