diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-24 21:07:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-24 21:07:52 (GMT) |
| commit | e9034f37542010a9dfeb054699ce1c9e74169f59 (patch) | |
| tree | 61f7a38b8e57c343568927a0cd8e6d3c8ab485db /generic/tclInterp.c | |
| parent | ea65a9b87515afd2e9c9738a219a02a437892ed7 (diff) | |
| parent | 1c5db697830a5c68632e9979b2a678e6c8606460 (diff) | |
| download | tcl-e9034f37542010a9dfeb054699ce1c9e74169f59.zip tcl-e9034f37542010a9dfeb054699ce1c9e74169f59.tar.gz tcl-e9034f37542010a9dfeb054699ce1c9e74169f59.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 607ccac..dd9fec8 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -4564,7 +4564,8 @@ SlaveCommandLimitCmd( Tcl_WrongNumArgs(interp, consumedObjc, objv, "?-option value ...?"); return TCL_ERROR; } else { - int i, scriptLen = 0, limitLen = 0; + int i; + size_t scriptLen = 0, limitLen = 0; Tcl_Obj *scriptObj = NULL, *granObj = NULL, *limitObj = NULL; int gran = 0, limit = 0; @@ -4769,7 +4770,8 @@ SlaveTimeLimitCmd( Tcl_WrongNumArgs(interp, consumedObjc, objv, "?-option value ...?"); return TCL_ERROR; } else { - int i, scriptLen = 0, milliLen = 0, secLen = 0; + int i; + size_t scriptLen = 0, milliLen = 0, secLen = 0; Tcl_Obj *scriptObj = NULL, *granObj = NULL; Tcl_Obj *milliObj = NULL, *secObj = NULL; int gran = 0; |