From b0b7c57736c4ec1e0cbb46da278f135136395019 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 6 Feb 2012 18:54:08 +0000
Subject: 3485022 Disable ensemble subcommand compile inside a
 Tcl_Create*Trace().

---
 generic/tclCompCmds.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 76181ee..1f8bd21 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -6326,7 +6326,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.
-- 
cgit v0.12