diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-19 22:10:10 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-19 22:10:10 (GMT) |
| commit | 6ba5327e8579861a348ee361e3aff04356086458 (patch) | |
| tree | 9790caf5f3e563afb49a9b98f35fe6c8f92fb8df /generic/tclExecute.c | |
| parent | 2e165c349a1c7b8d6a62f5b97adfff7f2b0ae80f (diff) | |
| parent | 094f23c172acca8f32b0888cd536f01fc1daab1b (diff) | |
| download | tcl-6ba5327e8579861a348ee361e3aff04356086458.zip tcl-6ba5327e8579861a348ee361e3aff04356086458.tar.gz tcl-6ba5327e8579861a348ee361e3aff04356086458.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index caf35ba..2b5f713 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2393,7 +2393,7 @@ TEBCresume( register int i; TRACE(("%d [", opnd)); - for (i=opnd-1 ; i>=0 ; i++) { + for (i=opnd-1 ; i>=0 ; i--) { TRACE_APPEND(("\"%.30s\"", O2S(OBJ_AT_DEPTH(i)))); if (i > 0) { TRACE_APPEND((" ")); @@ -4962,9 +4962,6 @@ TEBCresume( } if (toIdx < -1) { toIdx += 1 + length; - if (toIdx < 0) { - toIdx = 0; - } } else if (toIdx >= length) { toIdx = length - 1; } |