diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-02-06 17:34:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-02-06 17:34:46 (GMT) |
| commit | d96696676a3d3487daa023f4f916533b06d4c25e (patch) | |
| tree | b31b139861ec809d5c687061eca9f1761767271d /generic/tclCompCmds.c | |
| parent | 95563b40a7e7c0078ccc04dd78b4058ad655f9fa (diff) | |
| parent | 5894df49560c27bd2e8a613912674b7f6392ae84 (diff) | |
| download | tcl-d96696676a3d3487daa023f4f916533b06d4c25e.zip tcl-d96696676a3d3487daa023f4f916533b06d4c25e.tar.gz tcl-d96696676a3d3487daa023f4f916533b06d4c25e.tar.bz2 | |
3485022 TclCompileEnsemble() avoid compile when exec traces set.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index f2d1bfb..76181ee 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -6325,7 +6325,8 @@ TclCompileEnsemble( Tcl_IncrRefCount(targetCmdObj); cmdPtr = (Command *) Tcl_GetCommandFromObj(interp, targetCmdObj); TclDecrRefCount(targetCmdObj); - if (cmdPtr == NULL || cmdPtr->compileProc == NULL) { + if (cmdPtr == NULL || cmdPtr->compileProc == NULL + || cmdPtr->flags & CMD_HAS_EXEC_TRACES) { /* * Maps to an undefined command or a command without a compiler. * Cannot compile. |