diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-10 19:43:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 19:43:56 (GMT) |
| commit | ef77c88392ff7b5d78b792b9d684a4ba30d175cc (patch) | |
| tree | 764dee0b2092f673b7c10199ceb02f0bfa3f0f67 /generic | |
| parent | 6f87f7f3302077aa68a48258e328bbf2ee5abd51 (diff) | |
| download | tcl-ef77c88392ff7b5d78b792b9d684a4ba30d175cc.zip tcl-ef77c88392ff7b5d78b792b9d684a4ba30d175cc.tar.gz tcl-ef77c88392ff7b5d78b792b9d684a4ba30d175cc.tar.bz2 | |
Add tests for SetLineInformation() calls in tclCompCmdsGR.c.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index cc3f694..32514ab 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -222,7 +222,7 @@ TclCompileIfCmd( compileScripts = 0; } } else { - SetLineInformation(wordIdx); + LineInformation(wordIdx); Tcl_ResetResult(interp); TclCompileExprWords(interp, testTokenPtr, 1, envPtr); if (jumpFalseFixupArray.next >= jumpFalseFixupArray.end) { @@ -345,7 +345,7 @@ TclCompileIfCmd( * Compile the else command body. */ - SetLineInformation(wordIdx); + LineInformation(wordIdx); CompileBody(envPtr, tokenPtr, interp); } @@ -474,7 +474,7 @@ TclCompileIncrCmd( PushLiteral(envPtr, word, numBytes); } } else { - SetLineInformation(2); + LineInformation(2); CompileTokens(envPtr, incrTokenPtr, interp); } } else { /* No incr amount given so use 1. */ @@ -701,7 +701,7 @@ TclCompileInfoLevelCmd( * list of arguments. */ - SetLineInformation(1); + LineInformation(1); CompileTokens(envPtr, TokenAfter(parsePtr->tokenPtr), interp); TclEmitOpcode( INST_INFO_LEVEL_ARGS, envPtr); } |