diff options
| author | mig <mig> | 2013-12-20 21:59:28 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-20 21:59:28 (GMT) |
| commit | d0ae9f57cb8b4bf0e4a6fcaa4dffec4d95feed08 (patch) | |
| tree | 369c1986c44ad9e1aca2cebf078fb10f90fc3b31 /generic/tclCompCmdsGR.c | |
| parent | c0cc33dc6717f14dd1be4a905bbd93d894bed428 (diff) | |
| download | tcl-d0ae9f57cb8b4bf0e4a6fcaa4dffec4d95feed08.zip tcl-d0ae9f57cb8b4bf0e4a6fcaa4dffec4d95feed08.tar.gz tcl-d0ae9f57cb8b4bf0e4a6fcaa4dffec4d95feed08.tar.bz2 | |
remove INST_TRY_CVT_TO_NUMERIC when it is known not be necessary (cherrypick from mig-optimize)
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index d00327d..b7c89df 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -229,6 +229,7 @@ TclCompileIfCmd( SetLineInformation(wordIdx); Tcl_ResetResult(interp); TclCompileExprWords(interp, testTokenPtr, 1, envPtr); + TclClearNumConversion(envPtr); if (jumpFalseFixupArray.next >= jumpFalseFixupArray.end) { TclExpandJumpFixupArray(&jumpFalseFixupArray); } @@ -478,6 +479,7 @@ TclCompileIncrCmd( } else { SetLineInformation(2); CompileTokens(envPtr, incrTokenPtr, interp); + TclClearNumConversion(envPtr); } } else { /* No incr amount given so use 1. */ haveImmValue = 1; |