diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-30 10:29:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-30 10:29:41 (GMT) |
| commit | f85fd4d0e85bc96fdb38e4d2ea70ea05da1c0530 (patch) | |
| tree | a354068a2963eb10fb54ab12c2ab4d3525424a35 /generic | |
| parent | 5ec1884853d19825ef0f6f5d7f85e5daec1d8e6e (diff) | |
| download | tcl-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.c | 2 |
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); } |