diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-15 19:40:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-15 19:40:33 (GMT) |
| commit | 009f2adf3dad0d3eb86598f988fc93c8a64f6f2a (patch) | |
| tree | 48845410ef798fd91e8246e9d6b9925f4bbe3ad8 /generic/tclCompCmdsGR.c | |
| parent | 783aea7d3a6797277e7119d40f16e788922e7b85 (diff) | |
| parent | 774c4023655381f0f5d722f19ae8bed785ebff58 (diff) | |
| download | tcl-009f2adf3dad0d3eb86598f988fc93c8a64f6f2a.zip tcl-009f2adf3dad0d3eb86598f988fc93c8a64f6f2a.tar.gz tcl-009f2adf3dad0d3eb86598f988fc93c8a64f6f2a.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 4de8cf2..fc68509 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -264,8 +264,7 @@ TclCompileIfCmd( */ if (compileScripts) { - SetLineInformation(wordIdx); - CompileBody(envPtr, tokenPtr, interp); + BODY(tokenPtr, wordIdx); } if (realCond) { @@ -345,8 +344,7 @@ TclCompileIfCmd( * Compile the else command body. */ - SetLineInformation(wordIdx); - CompileBody(envPtr, tokenPtr, interp); + BODY(tokenPtr, wordIdx); } /* @@ -701,8 +699,7 @@ TclCompileInfoLevelCmd( * list of arguments. */ - SetLineInformation(1); - CompileTokens(envPtr, TokenAfter(parsePtr->tokenPtr), interp); + CompileWord(envPtr, TokenAfter(parsePtr->tokenPtr), interp, 1); TclEmitOpcode( INST_INFO_LEVEL_ARGS, envPtr); } return TCL_OK; |