diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:27:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:27:09 (GMT) |
| commit | 55deb86ee331985bbfedb4d5211968c4dbe1decd (patch) | |
| tree | 5f49a192af44a9205c248cd624f48015381d8bae /generic/tclCompCmdsSZ.c | |
| parent | 79cd9409e13c0854f7eb3f04d970e44b30c3ec7d (diff) | |
| download | tcl-55deb86ee331985bbfedb4d5211968c4dbe1decd.zip tcl-55deb86ee331985bbfedb4d5211968c4dbe1decd.tar.gz tcl-55deb86ee331985bbfedb4d5211968c4dbe1decd.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); |