diff options
author | dkf <dkf@noemail.net> | 2013-12-23 18:32:17 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2013-12-23 18:32:17 (GMT) |
commit | 7396a7efe9e54eef7f07fe5fbf3139dfbb946e47 (patch) | |
tree | 6282fcbeda8091900bc7600acae7bdba8824a3d1 /generic/tclCompCmdsGR.c | |
parent | 7fed7231c23202de9144bcb28ec4745e418b40e8 (diff) | |
parent | 26ac7a1630fdd3773756193d5d558190c13ae05e (diff) | |
download | tcl-7396a7efe9e54eef7f07fe5fbf3139dfbb946e47.zip tcl-7396a7efe9e54eef7f07fe5fbf3139dfbb946e47.tar.gz tcl-7396a7efe9e54eef7f07fe5fbf3139dfbb946e47.tar.bz2 |
merge trunk
FossilOrigin-Name: 9dfb1c05dd807950c20b8a6fa685c06a5d7f9612
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 50fb8e9..fc54620 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -281,6 +281,7 @@ TclCompileIfCmd( SetLineInformation(wordIdx); Tcl_ResetResult(interp); TclCompileExprWords(interp, testTokenPtr, 1, envPtr); + TclClearNumConversion(envPtr); if (jumpFalseFixupArray.next >= jumpFalseFixupArray.end) { TclExpandJumpFixupArray(&jumpFalseFixupArray); } @@ -530,6 +531,7 @@ TclCompileIncrCmd( } else { SetLineInformation(2); CompileTokens(envPtr, incrTokenPtr, interp); + TclClearNumConversion(envPtr); } } else { /* No incr amount given so use 1. */ haveImmValue = 1; |