summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-02-06 17:34:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-02-06 17:34:46 (GMT)
commitd96696676a3d3487daa023f4f916533b06d4c25e (patch)
treeb31b139861ec809d5c687061eca9f1761767271d /generic/tclCompCmds.c
parent95563b40a7e7c0078ccc04dd78b4058ad655f9fa (diff)
parent5894df49560c27bd2e8a613912674b7f6392ae84 (diff)
downloadtcl-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.c3
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.