diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:17:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 16:17:12 (GMT) |
| commit | 79cd9409e13c0854f7eb3f04d970e44b30c3ec7d (patch) | |
| tree | a2ee42334adf183949e00295f00807c849ad6753 /generic/tclCompCmdsSZ.c | |
| parent | 17ffd6902101268bd8cc522ed62049279e2894d5 (diff) | |
| download | tcl-79cd9409e13c0854f7eb3f04d970e44b30c3ec7d.zip tcl-79cd9409e13c0854f7eb3f04d970e44b30c3ec7d.tar.gz tcl-79cd9409e13c0854f7eb3f04d970e44b30c3ec7d.tar.bz2 | |
Disabling the SetLineInformation() macro entirely causes only 3 tests
in the test suite to fail. Restoring just 2 SetLineInformation() calls
fixes those failures. The need for all the other SLI() calls is not
demonstrated by any test. Without more complete test coverage, it is
difficult to confidently tweak the TIP 280 implementation without fear
that changes are introducing breakage.
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 855dd8f..8723a4f 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -726,6 +726,8 @@ TclCompileSubstCmd( } SetLineInformation(numArgs); +envPtr->line = mapPtr->loc[eclIndex].line[numArgs]; +envPtr->clNext = mapPtr->loc[eclIndex].next[numArgs]; TclSubstCompile(interp, wordTokenPtr[1].start, wordTokenPtr[1].size, flags, mapPtr->loc[eclIndex].line[numArgs], envPtr); |