diff options
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 62641e6..617fbbe 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1345,7 +1345,7 @@ AssembleOneLine( || CheckStrictlyPositive(interp, opnd) != TCL_OK) { goto cleanup; } - BBEmitInstInt4(assemEnvPtr, tblIdx, opnd, opnd+1); + BBEmitInstInt4(assemEnvPtr, tblIdx, opnd+1, opnd+1); break; case ASSEM_DICT_SET: @@ -1361,7 +1361,7 @@ AssembleOneLine( if (localVar < 0) { goto cleanup; } - BBEmitInstInt4(assemEnvPtr, tblIdx, opnd, opnd+1); + BBEmitInstInt4(assemEnvPtr, tblIdx, opnd+1, opnd+1); TclEmitInt4(localVar, envPtr); break; |