diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2014-09-27 21:36:06 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2014-09-27 21:36:06 (GMT) |
| commit | f987a699e563dd24c0a755d48e0169ac059a5536 (patch) | |
| tree | 023929c960509f5ab96cacb8b26711ea5a4dab36 /generic/tclCompile.h | |
| parent | 2b73bfd8f9c6ba3bd25c0671f33093a0448f41f9 (diff) | |
| download | tcl-f987a699e563dd24c0a755d48e0169ac059a5536.zip tcl-f987a699e563dd24c0a755d48e0169ac059a5536.tar.gz tcl-f987a699e563dd24c0a755d48e0169ac059a5536.tar.bz2 | |
Backing out commit [cddbfc3081], fix for bug [82521bfb6734f891dd]
The "optimisation" in that commit assumes that the last byte in the
generated bytecodes is an INST_TRY_CONVERT if it equals 64. This is an
invalid assumption, it could be 64 and not be an instruction.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 01b78d9..51f0b34 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1414,18 +1414,6 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, } while (0) /* - * If the expr compiler finished with TRY_CONVERT, macro to remove it when the - * job is done by the following instruction. - */ - -#define TclClearNumConversion(envPtr) \ - do { \ - if (*(envPtr->codeNext - 1) == INST_TRY_CVT_TO_NUMERIC) { \ - envPtr->codeNext--; \ - } \ - } while (0) - -/* * Macros to update a (signed or unsigned) integer starting at a pointer. The * two variants depend on the number of bytes. The ANSI C "prototypes" for * these macros are: |