diff options
author | dgp <dgp@users.sourceforge.net> | 2013-07-08 22:36:55 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-07-08 22:36:55 (GMT) |
commit | 13eca0490a3b888d3858a8a27f12a779d4a8235f (patch) | |
tree | 3027ff7537bafaadbcc3700f796a88b62c4c574d | |
parent | 47671bee1a20cd9ccf3099ed6ed47843c972aa1e (diff) | |
download | tcl-13eca0490a3b888d3858a8a27f12a779d4a8235f.zip tcl-13eca0490a3b888d3858a8a27f12a779d4a8235f.tar.gz tcl-13eca0490a3b888d3858a8a27f12a779d4a8235f.tar.bz2 |
Use TIP 280 macros.
-rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index a1ad5c8..656f700 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1906,11 +1906,10 @@ CompileCmdCompileProc( int startCodeOffset, CompileEnv *envPtr) { - ExtCmdLoc *eclPtr = envPtr->extCmdMapPtr; int savedNumCmds = envPtr->numCommands; int startStackDepth = envPtr->currStackDepth; - int wlineat = eclPtr->nuloc - 1; int update = 0; + DefineLineInformation; /* * Mark the start of the command; the proper bytecode @@ -2001,8 +2000,7 @@ CompileCmdCompileProc( envPtr->codeNext = envPtr->codeStart + startCodeOffset; envPtr->currStackDepth = startStackDepth; - envPtr->line = eclPtr->loc[wlineat].line[0]; - envPtr->clNext = eclPtr->loc[wlineat].next[0]; + SetLineInformation(0); return TCL_ERROR; } |