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 | 5539977620b9c358a365280e4d0db6a816537b71 (patch) | |
| tree | aee6ae54b6c42825ae556c011eeae6ccda949f07 | |
| parent | e05de40e35185e3d3f0dfea4f61f03ce09fb7277 (diff) | |
| download | tcl-5539977620b9c358a365280e4d0db6a816537b71.zip tcl-5539977620b9c358a365280e4d0db6a816537b71.tar.gz tcl-5539977620b9c358a365280e4d0db6a816537b71.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); } } |