diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-02-17 10:51:18 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-02-17 10:51:18 (GMT) |
| commit | da36dc4aa4c01bcff7d20b8fc8d31030d75571b2 (patch) | |
| tree | ad9ce6a4518051e89d463967183a8bf7904b22c7 | |
| parent | 551b450a8551ac704ce8d8140d451d485f8559a2 (diff) | |
| download | tcl-da36dc4aa4c01bcff7d20b8fc8d31030d75571b2.zip tcl-da36dc4aa4c01bcff7d20b8fc8d31030d75571b2.tar.gz tcl-da36dc4aa4c01bcff7d20b8fc8d31030d75571b2.tar.bz2 | |
Prevents dual convert "tryCvtToNumeric" (once before assignment should be enough);
| -rw-r--r-- | generic/tclCompExpr.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index f47aeb5..cf93ba9 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -2376,6 +2376,8 @@ CompileExprTree( * have been numerically normalized in the expr way. */ TclEmitOpcode(INST_TRY_CVT_TO_NUMERIC, envPtr); + /* already converted */ + convert = 0; } TclEmitOpcode(INST_STORE_STK, envPtr); break; |