diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-19 04:03:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-19 04:03:57 (GMT) |
| commit | 7bc81bcbb076abbcd5fc6803a99673d8a192e4cf (patch) | |
| tree | 00dd04dd4a470e79fc220b9c1eb21430e61aba30 /generic/tclCompCmds.c | |
| parent | 6d4412571278a3b92bc99e90a4ddc9411c8de36f (diff) | |
| download | tcl-7bc81bcbb076abbcd5fc6803a99673d8a192e4cf.zip tcl-7bc81bcbb076abbcd5fc6803a99673d8a192e4cf.tar.gz tcl-7bc81bcbb076abbcd5fc6803a99673d8a192e4cf.tar.bz2 | |
[3487626] Backport fix for knownBug test dict-23.2.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index b6e9527..f96470d 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -6149,6 +6149,7 @@ TclCompileEnsemble( Tcl_Parse synthetic; int len, numBytes, result, flags = 0, i; const char *word; + DefineLineInformation; if (parsePtr->numWords < 2) { return TCL_ERROR; @@ -6388,8 +6389,14 @@ TclCompileEnsemble( * Hand off compilation to the subcommand compiler. At last! */ + mapPtr->loc[eclIndex].line++; + mapPtr->loc[eclIndex].next++; + result = cmdPtr->compileProc(interp, &synthetic, cmdPtr, envPtr); + mapPtr->loc[eclIndex].line--; + mapPtr->loc[eclIndex].next--; + /* * Clean up if necessary. */ |