diff options
author | dgp <dgp@users.sourceforge.net> | 2013-09-19 18:53:01 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 18:53:01 (GMT) |
commit | 7b3702821be88e66474de1c1b1aa84c381276668 (patch) | |
tree | cfdbb08e5f959f29f643d207e6466edcebc494d0 /generic/tclCompCmdsGR.c | |
parent | 91ec52b16e7cd903ca196560e5ddb1d5ca1c60a9 (diff) | |
download | tcl-7b3702821be88e66474de1c1b1aa84c381276668.zip tcl-7b3702821be88e66474de1c1b1aa84c381276668.tar.gz tcl-7b3702821be88e66474de1c1b1aa84c381276668.tar.bz2 |
Line numbers wrong in compiled [unset].
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); |