diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-08 02:28:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-08 02:28:49 (GMT) |
| commit | 101ac8bca755a22b853816ef11db876e71d0ee29 (patch) | |
| tree | 562e972c869e9c9fdc5f816f9d4f570869e8e58f | |
| parent | 30e7e05895de1b9534837717365babc905955f7a (diff) | |
| download | tcl-101ac8bca755a22b853816ef11db876e71d0ee29.zip tcl-101ac8bca755a22b853816ef11db876e71d0ee29.tar.gz tcl-101ac8bca755a22b853816ef11db876e71d0ee29.tar.bz2 | |
Reduce the "clever" factor. (Fine line between clever and stupid.)
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2e3fcb9..a6042bb 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5076,8 +5076,8 @@ TEBCresume( */ valuePtr = OBJ_AT_TOS; - opnd = TclGetInt4AtPtr(pc+1); - TRACE(("\"%.30s\" %d => ", O2S(valuePtr), opnd)); + index = TclGetInt4AtPtr(pc+1); + TRACE(("\"%.30s\" %d => ", O2S(valuePtr), index)); /* * Get the contents of the list, making sure that it really is a list @@ -5093,7 +5093,9 @@ TEBCresume( * Decode end-offset index values. */ - index = opnd + (opnd <= TCL_INDEX_END)*(objc - 1 - TCL_INDEX_END); + if (index <= TCL_INDEX_END) { + index += (objc - 1 - TCL_INDEX_END); + } pcAdjustment = 5; lindexFastPath: |