diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-28 13:44:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-28 13:44:33 (GMT) |
| commit | 85f253bc82209a22732ec5841e9655e7c4e70089 (patch) | |
| tree | cd1c5c3199415e331e38da3e2ddbf62af8a0c25e /generic/tclInterp.c | |
| parent | 85cfbf4eb74e60060553bbf22ac1f96c29279ac5 (diff) | |
| parent | 0659ddeafe801612c66749752d4d6f831c75d14c (diff) | |
| download | tcl-85f253bc82209a22732ec5841e9655e7c4e70089.zip tcl-85f253bc82209a22732ec5841e9655e7c4e70089.tar.gz tcl-85f253bc82209a22732ec5841e9655e7c4e70089.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 245ee38..c4a1bce 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -723,7 +723,7 @@ NRInterpCmd( } endOfForLoop: - if ((i + 2) < objc) { + if (i < objc - 2) { Tcl_WrongNumArgs(interp, 2, objv, "?-unwind? ?--? ?path? ?result?"); return TCL_ERROR; @@ -1882,7 +1882,6 @@ AliasObjCmd( cmdv = TclStackAlloc(interp, cmdc * sizeof(Tcl_Obj *)); } - prefv = &aliasPtr->objPtr; memcpy(cmdv, prefv, (size_t) (prefc * sizeof(Tcl_Obj *))); memcpy(cmdv+prefc, objv+1, (size_t) ((objc-1) * sizeof(Tcl_Obj *))); |