summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-06-19 22:44:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-06-19 22:44:42 (GMT)
commit5539977620b9c358a365280e4d0db6a816537b71 (patch)
treeaee6ae54b6c42825ae556c011eeae6ccda949f07
parente05de40e35185e3d3f0dfea4f61f03ce09fb7277 (diff)
downloadtcl-5539977620b9c358a365280e4d0db6a816537b71.zip
tcl-5539977620b9c358a365280e4d0db6a816537b71.tar.gz
tcl-5539977620b9c358a365280e4d0db6a816537b71.tar.bz2
Fixed bug with optimizing with INST_START_CMD about.
-rw-r--r--generic/tclOptimize.c3
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);
}
}