summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-19 04:03:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-19 04:03:57 (GMT)
commita57f75c197b1d3371c96802a894b9a85d84f2632 (patch)
tree00dd04dd4a470e79fc220b9c1eb21430e61aba30 /generic/tclCompCmds.c
parent5c754c51c3f3c5953ac235d941fc02618b28a3ac (diff)
downloadtcl-a57f75c197b1d3371c96802a894b9a85d84f2632.zip
tcl-a57f75c197b1d3371c96802a894b9a85d84f2632.tar.gz
tcl-a57f75c197b1d3371c96802a894b9a85d84f2632.tar.bz2
[3487626] Backport fix for knownBug test dict-23.2.
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r--generic/tclCompCmds.c7
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.
*/