diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-06-21 18:32:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-06-21 18:32:52 (GMT) |
| commit | 7f3ff45a57343745a50fb144bb29f676e93bd10b (patch) | |
| tree | 7a5d98729f8ed233523f770f0a4d43624c466024 /generic/tclBasic.c | |
| parent | f068619a503f4d64f3d88a3209a68aef34498fa9 (diff) | |
| download | tcl-7f3ff45a57343745a50fb144bb29f676e93bd10b.zip tcl-7f3ff45a57343745a50fb144bb29f676e93bd10b.tar.gz tcl-7f3ff45a57343745a50fb144bb29f676e93bd10b.tar.bz2 | |
* generic/tclBasic.c: Added missing walk of the list of active traces
* generic/tclTrace.c: to cleanup references to traces being deleted.
* generic/tclInt.h: [Bug 1201035] Made the walk of the active trace
* tests/trace.test (trace-34.*): list aware of the direction of trace
scanning, so the proper correction can be made. [Bug 1224585]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 42f5465..0d9cdec 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.161 2005/06/14 13:46:02 dkf Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.162 2005/06/21 18:33:02 dgp Exp $ */ #include "tclInt.h" @@ -2683,6 +2683,7 @@ CallCommandTraces(iPtr, cmdPtr, oldName, newName, flags) result = NULL; active.nextPtr = iPtr->activeCmdTracePtr; + active.reverseScan = 0; iPtr->activeCmdTracePtr = &active; if (flags & TCL_TRACE_DELETE) { |