diff options
author | dgp <dgp@noemail.net> | 2013-09-19 18:53:01 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-09-19 18:53:01 (GMT) |
commit | e807d02765ccc45b1602883ac59e291ec75de1d4 (patch) | |
tree | 8c906b6dc2632b2907264f17e58a87bf15727782 /generic/tclCompCmdsGR.c | |
parent | 1171a727c1108584466603845446d2161279766c (diff) | |
download | tcl-e807d02765ccc45b1602883ac59e291ec75de1d4.zip tcl-e807d02765ccc45b1602883ac59e291ec75de1d4.tar.gz tcl-e807d02765ccc45b1602883ac59e291ec75de1d4.tar.bz2 |
Line numbers wrong in compiled [unset].
FossilOrigin-Name: b7c97d29120c236af3e4ed461725eeb73178999d
Diffstat (limited to 'generic/tclCompCmdsGR.c')
-rw-r--r-- | generic/tclCompCmdsGR.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 4e4a3af..43ea3d3 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -587,6 +587,7 @@ TclCompileInfoCommandsCmd( * that the result needs to be list-ified. */ + /* TODO: Just push the known value */ CompileWord(envPtr, tokenPtr, interp, 1); TclEmitOpcode( INST_RESOLVE_COMMAND, envPtr); TclEmitOpcode( INST_DUP, envPtr); |