diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-12-30 16:36:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-12-30 16:36:12 (GMT) |
| commit | c53d98725fb23b759e0fa9b4cff521758ab054ef (patch) | |
| tree | fab9b12d8f685f94568b09e610301f83938c5166 /generic/tclCompCmdsSZ.c | |
| parent | 21068ce2b708810c474f5cc2f6c11438114ad1d6 (diff) | |
| parent | 3b06f70775be10c7547c05c27e55d4ef0a65ee0c (diff) | |
| download | tcl-dkf_asm_crash_20131022.zip tcl-dkf_asm_crash_20131022.tar.gz tcl-dkf_asm_crash_20131022.tar.bz2 | |
merge trunkdkf_asm_crash_20131022
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) { |