diff options
| author | mig <mig> | 2012-02-06 16:53:59 (GMT) |
|---|---|---|
| committer | mig <mig> | 2012-02-06 16:53:59 (GMT) |
| commit | e8b4832e541b0907b6c773fe429f68e09eedd163 (patch) | |
| tree | b87c5eec3bce05803ee243c0665f06cfaabc10f3 | |
| parent | 234e0816da7ffb6d8d3691f6fac55f330285ef10 (diff) | |
| parent | 1834758e0b748ea3a3a3ccba35a181a07413d2c7 (diff) | |
| download | tcl-e8b4832e541b0907b6c773fe429f68e09eedd163.zip tcl-e8b4832e541b0907b6c773fe429f68e09eedd163.tar.gz tcl-e8b4832e541b0907b6c773fe429f68e09eedd163.tar.bz2 | |
fix for [Bug 3484621], take 2
| -rw-r--r-- | generic/tclTrace.c | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index c1cae76..c79b9ff 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -1125,16 +1125,17 @@ Tcl_TraceCommand( cmdPtr->tracePtr = tracePtr; if (tracePtr->flags & TCL_TRACE_ANY_EXEC) { cmdPtr->flags |= CMD_HAS_EXEC_TRACES; - } - - /* - * Bug 3484621: up the interp's epoch if this is a BC'ed command - */ - if (cmdPtr->compileProc != NULL) { - Interp *iPtr = (Interp *) interp; - iPtr->compileEpoch++; + /* + * Bug 3484621: up the interp's epoch if this is a BC'ed command + */ + + if (cmdPtr->compileProc != NULL) { + Interp *iPtr = (Interp *) interp; + iPtr->compileEpoch++; + } } + return TCL_OK; } |