diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-05-20 13:37:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-05-20 13:37:21 (GMT) |
| commit | bd81f35273a7f2adea0f6e0f66f857a524dceec9 (patch) | |
| tree | b3e3f73a78933014c3a4402dac60b91d60897007 /generic | |
| parent | 0ae5b5b3c1f58cf3ff2dff3f8c4b8191a9ef52bd (diff) | |
| parent | deaa520c802ca31794d50a7afcbd691982111076 (diff) | |
| download | tcl-bd81f35273a7f2adea0f6e0f66f857a524dceec9.zip tcl-bd81f35273a7f2adea0f6e0f66f857a524dceec9.tar.gz tcl-bd81f35273a7f2adea0f6e0f66f857a524dceec9.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index b77c43c..b9c655b 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -1210,20 +1210,7 @@ TclCompileListCmd( valueTokenPtr = TokenAfter(valueTokenPtr); } if (listObj != NULL) { - int len; - const char *bytes = Tcl_GetStringFromObj(listObj, &len); - - PushLiteral(envPtr, bytes, len); - Tcl_DecrRefCount(listObj); - if (len > 0) { - /* - * Force list interpretation! - */ - - TclEmitOpcode( INST_DUP, envPtr); - TclEmitOpcode( INST_LIST_LENGTH, envPtr); - TclEmitOpcode( INST_POP, envPtr); - } + TclEmitPush(TclAddLiteralObj(envPtr, listObj, NULL), envPtr); return TCL_OK; } |