summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-05-30 10:29:41 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-05-30 10:29:41 (GMT)
commitf85fd4d0e85bc96fdb38e4d2ea70ea05da1c0530 (patch)
treea354068a2963eb10fb54ab12c2ab4d3525424a35 /generic
parent5ec1884853d19825ef0f6f5d7f85e5daec1d8e6e (diff)
downloadtcl-f85fd4d0e85bc96fdb38e4d2ea70ea05da1c0530.zip
tcl-f85fd4d0e85bc96fdb38e4d2ea70ea05da1c0530.tar.gz
tcl-f85fd4d0e85bc96fdb38e4d2ea70ea05da1c0530.tar.bz2
Corrected code generation when doing the second run with an 'infinite' loop.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmdsSZ.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index 3fb8712..ed4d962 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -2859,7 +2859,7 @@ TclCompileWhileCmd(
* INST_START_CMD, and hence counted properly. [Bug 1752146]
*/
- envPtr->atCmdStart = 0;
+ envPtr->atCmdStart &= ~1;
testCodeOffset = CurrentOffset(envPtr);
}