diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-19 22:44:42 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-19 22:44:42 (GMT) |
| commit | 4a6f1d02be7aa4c1708863ca16ff7e9773f05e48 (patch) | |
| tree | aee6ae54b6c42825ae556c011eeae6ccda949f07 | |
| parent | 202a7c4db1b842adae1e30e366db968ddf803d01 (diff) | |
| download | tcl-4a6f1d02be7aa4c1708863ca16ff7e9773f05e48.zip tcl-4a6f1d02be7aa4c1708863ca16ff7e9773f05e48.tar.gz tcl-4a6f1d02be7aa4c1708863ca16ff7e9773f05e48.tar.bz2 | |
Fixed bug with optimizing with INST_START_CMD about.
| -rw-r--r-- | generic/tclOptimize.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclOptimize.c b/generic/tclOptimize.c index 7d4226e..cd37a6a 100644 --- a/generic/tclOptimize.c +++ b/generic/tclOptimize.c @@ -86,6 +86,7 @@ LocateTargetAddresses( case INST_JUMP4: case INST_JUMP_TRUE4: case INST_JUMP_FALSE4: + case INST_START_CMD: targetInstPtr = currentInstPtr+TclGetInt4AtPtr(currentInstPtr+1); goto storeTarget; case INST_BEGIN_CATCH4: @@ -109,8 +110,6 @@ LocateTargetAddresses( DefineTargetAddress(tablePtr, currentInstPtr + 2*i - 1); } break; - case INST_START_CMD: - assert (envPtr->atCmdStart < 2); } } |