diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-10 18:02:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-10 18:02:20 (GMT) |
| commit | 458197828bd950536e749b5e1d3009681f07f85a (patch) | |
| tree | d704f849b811eb463408d28f75fffe1993131c51 /generic/tclEnsemble.c | |
| parent | d69c39d52e07b61221f06c9403a06c6a79ac31f9 (diff) | |
| parent | c079ab076f93957eb10fecbdc60e418c4007ca23 (diff) | |
| download | tcl-458197828bd950536e749b5e1d3009681f07f85a.zip tcl-458197828bd950536e749b5e1d3009681f07f85a.tar.gz tcl-458197828bd950536e749b5e1d3009681f07f85a.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index e0aa0c4..d654bbf 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3049,6 +3049,7 @@ CompileToCompiledCommand( int savedNumCmds = envPtr->numCommands; int savedStackDepth = envPtr->currStackDepth; unsigned savedCodeNext = envPtr->codeNext - envPtr->codeStart; + DefineLineInformation; if (cmdPtr->compileProc == NULL) { return TCL_ERROR; @@ -3097,12 +3098,27 @@ CompileToCompiledCommand( } /* + * Shift the line information arrays to account for different word + * index values. + */ + + mapPtr->loc[eclIndex].line += (depth - 1); + mapPtr->loc[eclIndex].next += (depth - 1); + + /* * Hand off compilation to the subcommand compiler. At last! */ result = cmdPtr->compileProc(interp, &synthetic, cmdPtr, envPtr); /* + * Undo the shift. + */ + + mapPtr->loc[eclIndex].line -= (depth - 1); + mapPtr->loc[eclIndex].next -= (depth - 1); + + /* * If our target fails to compile, revert the number of commands and the * pointer to the place to issue the next instruction. [Bug 3600328] */ |