summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2015-05-19 20:29:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2015-05-19 20:29:47 (GMT)
commita7e3535ca4d1e594e6d61e9f3c2305a3f49b7f33 (patch)
tree3131c628e294c68ecd72898579198e2a490d688a
parentaa403d0343e71da5ab421de3c453e9cfb28d72dd (diff)
downloadtcl-a7e3535ca4d1e594e6d61e9f3c2305a3f49b7f33.zip
tcl-a7e3535ca4d1e594e6d61e9f3c2305a3f49b7f33.tar.gz
tcl-a7e3535ca4d1e594e6d61e9f3c2305a3f49b7f33.tar.bz2
Tidier version.dgp_defer_string_rep
-rw-r--r--generic/tclCompCmdsGR.c16
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;
}