diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-02-06 18:57:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-02-06 18:57:13 (GMT) |
| commit | f1c8f030d388e7462e9091166874e16af9e33ee6 (patch) | |
| tree | c5d5495cb93607f47050ca5a0864b5887adfecbc | |
| parent | 62bcbbe491c462f2c23e91ec9f3feb172581f322 (diff) | |
| parent | b0b7c57736c4ec1e0cbb46da278f135136395019 (diff) | |
| download | tcl-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.c | 3 |
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. |