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/tclInt.h | |
| 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/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index db8591b..aaef1a9 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.236 2005/06/18 21:45:02 das Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.237 2005/06/21 18:33:04 dgp Exp $ */ #ifndef _TCLINT @@ -385,6 +385,8 @@ typedef struct ActiveCommandTrace { * trace procedure returns; if this * trace gets deleted, must update pointer * to avoid using free'd memory. */ + int reverseScan; /* Boolean set true when traces + * are scanning in reverse order. */ } ActiveCommandTrace; /* @@ -796,6 +798,8 @@ typedef struct ActiveInterpTrace { * trace procedure returns; if this * trace gets deleted, must update pointer * to avoid using free'd memory. */ + int reverseScan; /* Boolean set true when traces + * are scanning in reverse order. */ } ActiveInterpTrace; /* |