summaryrefslogtreecommitdiffstats
path: root/generic/tclTrace.c
diff options
context:
space:
mode:
authormig <mig>2012-02-06 16:53:10 (GMT)
committermig <mig>2012-02-06 16:53:10 (GMT)
commit1834758e0b748ea3a3a3ccba35a181a07413d2c7 (patch)
treea3fd963ea5c88dea2035950486ba13b18fbd548f /generic/tclTrace.c
parent3726e1f19cfa86bd6348c60bc1b600512748db4f (diff)
downloadtcl-1834758e0b748ea3a3a3ccba35a181a07413d2c7.zip
tcl-1834758e0b748ea3a3a3ccba35a181a07413d2c7.tar.gz
tcl-1834758e0b748ea3a3a3ccba35a181a07413d2c7.tar.bz2
fix for [Bug 3484621], take 2
Diffstat (limited to 'generic/tclTrace.c')
-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;
}