summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2012-02-06 17:10:49 (GMT)
committermig <mig>2012-02-06 17:10:49 (GMT)
commit95563b40a7e7c0078ccc04dd78b4058ad655f9fa (patch)
treebd7ca8de71c3942e7477fadc62ea57ec0f3dfbb8 /generic
parent1834758e0b748ea3a3a3ccba35a181a07413d2c7 (diff)
downloadtcl-95563b40a7e7c0078ccc04dd78b4058ad655f9fa.zip
tcl-95563b40a7e7c0078ccc04dd78b4058ad655f9fa.tar.gz
tcl-95563b40a7e7c0078ccc04dd78b4058ad655f9fa.tar.bz2
fix for [Bug 3484621], take 3
Diffstat (limited to 'generic')
-rw-r--r--generic/tclTrace.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index f1cc505..3ea182f 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1122,16 +1122,15 @@ Tcl_TraceCommand(
tracePtr->refCount = 1;
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) {
+ if ((cmdPtr->compileProc != NULL) && !(cmdPtr->flags & CMD_HAS_EXEC_TRACES)){
Interp *iPtr = (Interp *) interp;
iPtr->compileEpoch++;
}
+ cmdPtr->flags |= CMD_HAS_EXEC_TRACES;
}