summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2012-02-06 17:11:36 (GMT)
committermig <mig>2012-02-06 17:11:36 (GMT)
commit8b58a90083b194bedf76d69e03823eaeeac7171f (patch)
tree0e4ad5de7f4f1dc3d92e76493b0d2333b405f673 /generic
parente8b4832e541b0907b6c773fe429f68e09eedd163 (diff)
parent95563b40a7e7c0078ccc04dd78b4058ad655f9fa (diff)
downloadtcl-8b58a90083b194bedf76d69e03823eaeeac7171f.zip
tcl-8b58a90083b194bedf76d69e03823eaeeac7171f.tar.gz
tcl-8b58a90083b194bedf76d69e03823eaeeac7171f.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 c79b9ff..2e38086 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1124,16 +1124,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;
}