summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-02-06 18:57:13 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-02-06 18:57:13 (GMT)
commitf1c8f030d388e7462e9091166874e16af9e33ee6 (patch)
treec5d5495cb93607f47050ca5a0864b5887adfecbc
parent62bcbbe491c462f2c23e91ec9f3feb172581f322 (diff)
parentb0b7c57736c4ec1e0cbb46da278f135136395019 (diff)
downloadtcl-f1c8f030d388e7462e9091166874e16af9e33ee6.zip
tcl-f1c8f030d388e7462e9091166874e16af9e33ee6.tar.gz
tcl-f1c8f030d388e7462e9091166874e16af9e33ee6.tar.bz2
3485022 Disable ensemble subcommand compile inside a Tcl_Create*Trace().
-rw-r--r--generic/tclEnsemble.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index 23b5cbc..59f38a9 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -2890,7 +2890,8 @@ TclCompileEnsemble(
cmdPtr = (Command *) Tcl_GetCommandFromObj(interp, targetCmdObj);
TclDecrRefCount(targetCmdObj);
if (cmdPtr == NULL || cmdPtr->compileProc == NULL
- || cmdPtr->flags * CMD_HAS_EXEC_TRACES) {
+ || cmdPtr->flags * CMD_HAS_EXEC_TRACES
+ || ((Interp *)interp)->flags & DONT_COMPILE_CMDS_INLINE) {
/*
* Maps to an undefined command or a command without a compiler.
* Cannot compile.