diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-09 20:34:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-09 20:34:33 (GMT) |
| commit | c13e34da3740d014ade6f5e1dadcae12e18e27ed (patch) | |
| tree | ad0ac56fb270134e07ebb5f5fa61e0b73f86bcfb /generic/tclAssembly.c | |
| parent | a9d546dfbc3ec1d105fe2a2a06fb202295e5301f (diff) | |
| download | tcl-c13e34da3740d014ade6f5e1dadcae12e18e27ed.zip tcl-c13e34da3740d014ade6f5e1dadcae12e18e27ed.tar.gz tcl-c13e34da3740d014ade6f5e1dadcae12e18e27ed.tar.bz2 | |
Update the command compilers and bytecode execution engine to use new machinery.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index a3fac8f..608459e 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -2263,8 +2263,8 @@ GetListIndexOperand( * same result as indexing after it, and might be more easily portable * when list size limits grow. */ - status = TclGetIndexFromToken(tokenPtr, result, TCL_INDEX_BEFORE, - TCL_INDEX_BEFORE); + status = TclGetIndexFromToken(tokenPtr, TCL_INDEX_BEFORE, + TCL_INDEX_BEFORE, result); *tokenPtrPtr = TokenAfter(tokenPtr); if (status == TCL_ERROR && interp) { Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad index \"%.*s\"", |