diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2014-09-27 21:36:06 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2014-09-27 21:36:06 (GMT) |
| commit | f987a699e563dd24c0a755d48e0169ac059a5536 (patch) | |
| tree | 023929c960509f5ab96cacb8b26711ea5a4dab36 /generic/tclCompCmds.c | |
| parent | 2b73bfd8f9c6ba3bd25c0671f33093a0448f41f9 (diff) | |
| download | tcl-f987a699e563dd24c0a755d48e0169ac059a5536.zip tcl-f987a699e563dd24c0a755d48e0169ac059a5536.tar.gz tcl-f987a699e563dd24c0a755d48e0169ac059a5536.tar.bz2 | |
Backing out commit [cddbfc3081], fix for bug [82521bfb6734f891dd]
The "optimisation" in that commit assumes that the last byte in the
generated bytecodes is an INST_TRY_CONVERT if it equals 64. This is an
invalid assumption, it could be 64 and not be an instruction.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 431f0af..496d44f 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2401,7 +2401,6 @@ TclCompileForCmd( SetLineInformation(2); TclCompileExprWords(interp, testTokenPtr, 1, envPtr); - TclClearNumConversion(envPtr); jumpDist = CurrentOffset(envPtr) - bodyCodeOffset; if (jumpDist > 127) { |