diff options
author | dgp <dgp@noemail.net> | 2013-07-15 19:40:33 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-07-15 19:40:33 (GMT) |
commit | 4e54a4c4fd81a368d6129ae7de8088fc02c8b18d (patch) | |
tree | a4d57552f7f8fcf0d53d9aa4010bc9e562453b81 /generic/tclCompCmdsGR.c | |
parent | 12c113fc8a5c90e9f0228329f32cf4bf32fd5110 (diff) | |
parent | 7794d5819016ede0e2b24471457fc9157dfcd179 (diff) | |
download | tcl-4e54a4c4fd81a368d6129ae7de8088fc02c8b18d.zip tcl-4e54a4c4fd81a368d6129ae7de8088fc02c8b18d.tar.gz tcl-4e54a4c4fd81a368d6129ae7de8088fc02c8b18d.tar.bz2 |
merge trunk
FossilOrigin-Name: 303b956143f42944d15715dd97e9c841c0311e2e
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; |