diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-23 14:29:27 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-23 14:29:27 (GMT) |
commit | 941b31cab2459d85a0d92e75d8ef0873e886d40a (patch) | |
tree | c962a8b9e908043cab5d35b09c5f8e7d05200270 | |
parent | 0a7d813033d3d797f80a33cc55aacd7aaa003859 (diff) | |
download | tcl-941b31cab2459d85a0d92e75d8ef0873e886d40a.zip tcl-941b31cab2459d85a0d92e75d8ef0873e886d40a.tar.gz tcl-941b31cab2459d85a0d92e75d8ef0873e886d40a.tar.bz2 |
some more fixes
-rw-r--r-- | generic/tclCmdIL.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 49dd1b7..3c2bfa2 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2997,7 +2997,7 @@ Tcl_LsearchObjCmd( if (startPtr != NULL) { Tcl_DecrRefCount(startPtr); } - if (i > objc-4) { + if (i+4 > objc) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "missing starting index", TCL_STRLEN)); Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL); @@ -3026,7 +3026,7 @@ Tcl_LsearchObjCmd( if (sortInfo.indexc > 1) { TclStackFree(interp, sortInfo.indexv); } - if (i > objc-4) { + if (i+4 > objc) { if (startPtr != NULL) { Tcl_DecrRefCount(startPtr); } @@ -4454,7 +4454,8 @@ SelectObjFromSublist( */ for (i=0 ; i<infoPtr->indexc ; i++) { - size_t listLen, index; + size_t listLen; + ssize_t index; Tcl_Obj *currentObj; if (TclListObjLength(infoPtr->interp, objPtr, &listLen) != TCL_OK) { |