diff options
author | dgp <dgp@noemail.net> | 2012-02-06 19:12:24 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2012-02-06 19:12:24 (GMT) |
commit | 58d17a39dea355399873acd9a504e03b6cfa887b (patch) | |
tree | 9329644647acddcdd40f476ade417af0ad6a502e /generic/tclEnsemble.c | |
parent | de016d94ca31518e708c0c3d07829505a1436d08 (diff) | |
download | tcl-58d17a39dea355399873acd9a504e03b6cfa887b.zip tcl-58d17a39dea355399873acd9a504e03b6cfa887b.tar.gz tcl-58d17a39dea355399873acd9a504e03b6cfa887b.tar.bz2 |
Honor per-namespace compile suppression in ensemble subcommands.
FossilOrigin-Name: ecbee7083267474753da60a1c3d879679baea1b5
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r-- | generic/tclEnsemble.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 59f38a9..1283446 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -2890,6 +2890,7 @@ TclCompileEnsemble( cmdPtr = (Command *) Tcl_GetCommandFromObj(interp, targetCmdObj); TclDecrRefCount(targetCmdObj); if (cmdPtr == NULL || cmdPtr->compileProc == NULL + || cmdPtr->nsPtr->flags & NS_SUPPRESS_COMPILATION || cmdPtr->flags * CMD_HAS_EXEC_TRACES || ((Interp *)interp)->flags & DONT_COMPILE_CMDS_INLINE) { /* |