diff options
-rw-r--r-- | generic/tclUtil.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 140c349..d1b81a9 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -107,8 +107,8 @@ static Tcl_ThreadDataKey precisionKey; static void ClearHash(Tcl_HashTable *tablePtr); static void FreeProcessGlobalValue(ClientData clientData); static void FreeThreadHash(ClientData clientData); -static int GetEndOffsetFromObj(Tcl_Interp *interp, - Tcl_Obj *objPtr, int endValue, int *indexPtr); +static int GetEndOffsetFromObj(Tcl_Obj *objPtr, int endValue, + int *indexPtr); static Tcl_HashTable * GetThreadHash(Tcl_ThreadDataKey *keyPtr); static int SetEndOffsetFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); @@ -3584,7 +3584,7 @@ TclGetIntForIndex( return TCL_OK; } - if (GetEndOffsetFromObj(NULL, objPtr, endValue, indexPtr) == TCL_OK) { + if (GetEndOffsetFromObj(objPtr, endValue, indexPtr) == TCL_OK) { return TCL_OK; } @@ -3667,14 +3667,13 @@ TclGetIntForIndex( static int GetEndOffsetFromObj( - Tcl_Interp *interp, /* For error reporting, may be NULL. */ Tcl_Obj *objPtr, /* Pointer to the object to parse */ int endValue, /* The value to be stored at "indexPtr" if * "objPtr" holds "end". */ int *indexPtr) /* Location filled in with an integer * representing an index. */ { - if (SetEndOffsetFromAny(interp, objPtr) != TCL_OK) { + if (SetEndOffsetFromAny(NULL, objPtr) != TCL_OK) { return TCL_ERROR; } @@ -3864,7 +3863,7 @@ TclIndexEncode( idx = after; } /* usual case, the absolute index value encodes itself */ - } else if (TCL_OK == GetEndOffsetFromObj(NULL, objPtr, 0, &idx)) { + } else if (TCL_OK == GetEndOffsetFromObj(objPtr, 0, &idx)) { /* * We parsed an end+offset index value. * idx holds the offset value in the range INT_MIN...INT_MAX. |