summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormig <mig>2012-02-06 16:53:59 (GMT)
committermig <mig>2012-02-06 16:53:59 (GMT)
commite8b4832e541b0907b6c773fe429f68e09eedd163 (patch)
treeb87c5eec3bce05803ee243c0665f06cfaabc10f3
parent234e0816da7ffb6d8d3691f6fac55f330285ef10 (diff)
parent1834758e0b748ea3a3a3ccba35a181a07413d2c7 (diff)
downloadtcl-e8b4832e541b0907b6c773fe429f68e09eedd163.zip
tcl-e8b4832e541b0907b6c773fe429f68e09eedd163.tar.gz
tcl-e8b4832e541b0907b6c773fe429f68e09eedd163.tar.bz2
fix for [Bug 3484621], take 2
-rw-r--r--generic/tclTrace.c17
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;
}