diff options
author | dgp <dgp@noemail.net> | 2012-02-06 17:41:38 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2012-02-06 17:41:38 (GMT) |
commit | 636bd068b8ab84b96148f09a33a105933151b8d4 (patch) | |
tree | 64c0f1078c641bbb79dff5101d117d0c3b2836fc /generic/tclEnsemble.c | |
parent | 80df413b8690f2c915186b1d67cb08adc81545d0 (diff) | |
parent | 731abf50194875aad9d828241ebae2dcd6ec6171 (diff) | |
download | tcl-636bd068b8ab84b96148f09a33a105933151b8d4.zip tcl-636bd068b8ab84b96148f09a33a105933151b8d4.tar.gz tcl-636bd068b8ab84b96148f09a33a105933151b8d4.tar.bz2 |
3485022 TclCompileEnsemble() avoid compile when exec traces set.
FossilOrigin-Name: 64bca4282ce6b3cc4ca3897355061bccc3bf9024
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r-- | generic/tclEnsemble.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 1c7b41d..23b5cbc 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -2889,7 +2889,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. |