diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2015-05-19 20:29:47 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2015-05-19 20:29:47 (GMT) |
| commit | f77272b15369bdffb246e74df01ed0bb83627dd4 (patch) | |
| tree | 3131c628e294c68ecd72898579198e2a490d688a /generic/tclCompCmdsGR.c | |
| parent | 2068cbb7a514251e6d3c9bfdc023077cfef039f5 (diff) | |
| download | tcl-f77272b15369bdffb246e74df01ed0bb83627dd4.zip tcl-f77272b15369bdffb246e74df01ed0bb83627dd4.tar.gz tcl-f77272b15369bdffb246e74df01ed0bb83627dd4.tar.bz2 | |
Tidier version.
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 3a25978..b9c655b 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -1210,21 +1210,7 @@ TclCompileListCmd( valueTokenPtr = TokenAfter(valueTokenPtr); } if (listObj != NULL) { -// int len; -// const char *bytes = Tcl_GetStringFromObj(listObj, &len); - -// PushLiteral(envPtr, bytes, len); - TclEmitPush(TclAddLiteralObj(envPtr, listObj, NULL), envPtr); -// 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; } |