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 | cb0803df0cdcda3e486b73757f4522b467d90a83 (patch) | |
| tree | 48845410ef798fd91e8246e9d6b9925f4bbe3ad8 /generic/tclCompCmdsGR.c | |
| parent | d86dc18415900f56ffc3591cf7dceb210f3b3c9d (diff) | |
| parent | a398b126a43e46efa6d6044b0bcf57a4b9385c4e (diff) | |
| download | tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.zip tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.tar.gz tcl-cb0803df0cdcda3e486b73757f4522b467d90a83.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; |