diff options
| -rw-r--r-- | generic/tclInterp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index d58119e..4e25f74 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -4542,7 +4542,8 @@ ChildCommandLimitCmd( } else { Tcl_Size i, scriptLen = 0, limitLen = 0; Tcl_Obj *scriptObj = NULL, *granObj = NULL, *limitObj = NULL; - int gran = 0, limit = 0; + int gran = 0; + Tcl_Size limit = 0; for (i=consumedObjc ; i<objc ; i+=2) { if (Tcl_GetIndexFromObj(interp, objv[i], options, "option", 0, @@ -4573,7 +4574,7 @@ ChildCommandLimitCmd( if (limitLen == 0) { break; } - if (TclGetIntFromObj(interp, objv[i+1], &limit) != TCL_OK) { + if (Tcl_GetSizeIntFromObj(interp, objv[i+1], &limit) != TCL_OK) { return TCL_ERROR; } if (limit < 0) { |