diff options
| author | mig <mig> | 2012-02-06 17:11:36 (GMT) |
|---|---|---|
| committer | mig <mig> | 2012-02-06 17:11:36 (GMT) |
| commit | 98550112f65958a0972a96632a6fbcf2bd35964d (patch) | |
| tree | 0e4ad5de7f4f1dc3d92e76493b0d2333b405f673 /generic/tclTrace.c | |
| parent | 76af73aa65312249f921657f3240c3d22b709ae2 (diff) | |
| parent | 41698b252cc772fc6eddcce563cc087e455d5d1e (diff) | |
| download | tcl-98550112f65958a0972a96632a6fbcf2bd35964d.zip tcl-98550112f65958a0972a96632a6fbcf2bd35964d.tar.gz tcl-98550112f65958a0972a96632a6fbcf2bd35964d.tar.bz2 | |
fix for [Bug 3484621], take 3
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 5 |
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; } |