From 55e73ff44afabd27feca562bf4a350d4d85cd380 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 15 May 2013 20:32:49 +0000 Subject: Unless I'm missing something, this patch to TclCompileListCmd() should eliminate pointless, wasteful shimmering, and generate simpler bytecode. --- generic/tclCompCmds.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index a5678bf..d0a8349 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -4498,6 +4498,7 @@ TclCompileListCmd( valueTokenPtr = TokenAfter(valueTokenPtr); } if (listObj != NULL) { +#if 0 int len; const char *bytes = Tcl_GetStringFromObj(listObj, &len); @@ -4512,6 +4513,9 @@ TclCompileListCmd( TclEmitOpcode( INST_LIST_LENGTH, envPtr); TclEmitOpcode( INST_POP, envPtr); } +#else + TclEmitPush(TclAddLiteralObj(envPtr, listObj, NULL), envPtr); +#endif return TCL_OK; } -- cgit v0.12