diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-07-10 16:27:09 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-07-10 16:27:09 (GMT) |
| commit | 5459ffeba393880f4e5f591cfec974a90b95ee80 (patch) | |
| tree | 5f49a192af44a9205c248cd624f48015381d8bae /generic/tclCompCmdsSZ.c | |
| parent | fff7dc942d31ec1f62bf5d2382b2a7cef715adff (diff) | |
| download | tcl-5459ffeba393880f4e5f591cfec974a90b95ee80.zip tcl-5459ffeba393880f4e5f591cfec974a90b95ee80.tar.gz tcl-5459ffeba393880f4e5f591cfec974a90b95ee80.tar.bz2 | |
First additional test. Remove dup macros in tclEnsemble.c.
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 8723a4f..34c24f9 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -725,9 +725,7 @@ TclCompileSubstCmd( return TCL_ERROR; } - SetLineInformation(numArgs); -envPtr->line = mapPtr->loc[eclIndex].line[numArgs]; -envPtr->clNext = mapPtr->loc[eclIndex].next[numArgs]; + LineInformation(numArgs); TclSubstCompile(interp, wordTokenPtr[1].start, wordTokenPtr[1].size, flags, mapPtr->loc[eclIndex].line[numArgs], envPtr); |