summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclTrace.c17
1 files changed, 9 insertions, 8 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index ad81c58..f1cc505 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1123,16 +1123,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;
}