diff options
author | msofer <msofer@noemail.net> | 2014-09-27 21:36:06 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2014-09-27 21:36:06 (GMT) |
commit | c7d4062a096a02626a7763ddc62cf106c102d906 (patch) | |
tree | b8f14582f3a6519166ca20510d67e68b8c75b590 /generic/tclCompCmdsGR.c | |
parent | f9fc1062bf70608db5e1843243bafd42fb010783 (diff) | |
download | tcl-c7d4062a096a02626a7763ddc62cf106c102d906.zip tcl-c7d4062a096a02626a7763ddc62cf106c102d906.tar.gz tcl-c7d4062a096a02626a7763ddc62cf106c102d906.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.
FossilOrigin-Name: 956d1be41ba7e5229efdbe931b8f92945cb11b26
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; |