diff options
| author | mig <mig> | 2013-12-20 21:59:28 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-20 21:59:28 (GMT) |
| commit | 6bde9d5683a83fe17b6dfc337b4865055ccb2067 (patch) | |
| tree | 369c1986c44ad9e1aca2cebf078fb10f90fc3b31 /generic/tclCompCmdsSZ.c | |
| parent | f324306fb22db8c55d70ad39db00ee389545c2b5 (diff) | |
| download | tcl-6bde9d5683a83fe17b6dfc337b4865055ccb2067.zip tcl-6bde9d5683a83fe17b6dfc337b4865055ccb2067.tar.gz tcl-6bde9d5683a83fe17b6dfc337b4865055ccb2067.tar.bz2 | |
remove INST_TRY_CVT_TO_NUMERIC when it is known not be necessary (cherrypick from mig-optimize)
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 754238f..3e4a55a 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -3071,6 +3071,7 @@ TclCompileWhileCmd( } SetLineInformation(1); TclCompileExprWords(interp, testTokenPtr, 1, envPtr); + TclClearNumConversion(envPtr); jumpDist = CurrentOffset(envPtr) - bodyCodeOffset; if (jumpDist > 127) { |