diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-21 13:12:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-21 13:12:33 (GMT) |
| commit | 506f1152a881a61c4111bcbfabd162d8319daa42 (patch) | |
| tree | c942a7bcc284979d3acab189a1e8fa3a2e7278bc /generic/tclCompCmds.c | |
| parent | 33d0dac397539186616a8ab722456320ad339e54 (diff) | |
| parent | 79ff282b020e082cb97f5fccdb151a7beb7ac48c (diff) | |
| download | tcl-506f1152a881a61c4111bcbfabd162d8319daa42.zip tcl-506f1152a881a61c4111bcbfabd162d8319daa42.tar.gz tcl-506f1152a881a61c4111bcbfabd162d8319daa42.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index bce17dc..5f4c298 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3206,17 +3206,6 @@ TclCompileFormatCmd( */ TclEmitInstInt1(INST_STR_CONCAT1, i, envPtr); - } else { - /* - * EVIL HACK! Force there to be a string representation in the case - * where there's just a "%s" in the format; case covered by the test - * format-20.1 (and it is horrible...) - */ - - TclEmitOpcode(INST_DUP, envPtr); - PushStringLiteral(envPtr, ""); - TclEmitOpcode(INST_STR_EQ, envPtr); - TclEmitOpcode(INST_POP, envPtr); } return TCL_OK; } |