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 | a57f75c197b1d3371c96802a894b9a85d84f2632 (patch) | |
| tree | 00dd04dd4a470e79fc220b9c1eb21430e61aba30 /generic | |
| parent | 5c754c51c3f3c5953ac235d941fc02618b28a3ac (diff) | |
| download | tcl-a57f75c197b1d3371c96802a894b9a85d84f2632.zip tcl-a57f75c197b1d3371c96802a894b9a85d84f2632.tar.gz tcl-a57f75c197b1d3371c96802a894b9a85d84f2632.tar.bz2 | |
[3487626] Backport fix for knownBug test dict-23.2.
Diffstat (limited to 'generic')
| -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. */ |