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/tclCompCmdsGR.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/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 603c51d..9d258fc 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -281,7 +281,6 @@ TclCompileIfCmd( SetLineInformation(wordIdx); Tcl_ResetResult(interp); TclCompileExprWords(interp, testTokenPtr, 1, envPtr); - TclClearNumConversion(envPtr); if (jumpFalseFixupArray.next >= jumpFalseFixupArray.end) { TclExpandJumpFixupArray(&jumpFalseFixupArray); } @@ -531,7 +530,6 @@ TclCompileIncrCmd( } else { SetLineInformation(2); CompileTokens(envPtr, incrTokenPtr, interp); - TclClearNumConversion(envPtr); } } else { /* No incr amount given so use 1. */ haveImmValue = 1; |