diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-02-06 18:54:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-02-06 18:54:08 (GMT) |
| commit | 1470e2393e11850bf0746c28fe285f966af7a735 (patch) | |
| tree | 81b80ba8be7737c8da831ecba22d9cb063cdca15 /generic/tclCompCmds.c | |
| parent | 3bff5d1e3682f7df0167bfe0dd322b561585fc69 (diff) | |
| download | tcl-1470e2393e11850bf0746c28fe285f966af7a735.zip tcl-1470e2393e11850bf0746c28fe285f966af7a735.tar.gz tcl-1470e2393e11850bf0746c28fe285f966af7a735.tar.bz2 | |
3485022 Disable ensemble subcommand compile inside a Tcl_Create*Trace().
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 3 |
1 files changed, 2 insertions, 1 deletions
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. |