diff options
| author | vincentdarley <vincentdarley> | 2003-01-17 14:19:28 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-01-17 14:19:28 (GMT) |
| commit | 9355455bbbdf3472b04c9f8f101a2ad35164baa7 (patch) | |
| tree | bffe9ba034272937075cc0193fd4baababe3ad82 /generic/tclInt.h | |
| parent | d2419094de4147575f4d89098571adcde80275cd (diff) | |
| download | tcl-9355455bbbdf3472b04c9f8f101a2ad35164baa7.zip tcl-9355455bbbdf3472b04c9f8f101a2ad35164baa7.tar.gz tcl-9355455bbbdf3472b04c9f8f101a2ad35164baa7.tar.bz2 | |
execution trace, command trace and stringObj bug fixes
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 956ec4d..ff49a21 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.114 2003/01/09 10:38:29 vincentdarley Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.115 2003/01/17 14:19:49 vincentdarley Exp $ */ #ifndef _TCLINT @@ -287,6 +287,10 @@ typedef struct CommandTrace { * TCL_TRACE_RENAME, TCL_TRACE_DELETE. */ struct CommandTrace *nextPtr; /* Next in list of traces associated with * a particular command. */ + int refCount; /* Used to ensure this structure is + * not deleted too early. Keeps track + * of how many pieces of code have + * a pointer to this structure. */ } CommandTrace; /* |