diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-05-10 20:30:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-05-10 20:30:41 (GMT) |
| commit | 0c863ddec8f39d1afec9b67d4e899e4489d6f46e (patch) | |
| tree | 4b261938bc75f05c529df14c83eb0205b077450f /generic/tclTrace.c | |
| parent | 0d1ffc0968e6c82da985d876f63a92a1159a9a3b (diff) | |
| download | tcl-0c863ddec8f39d1afec9b67d4e899e4489d6f46e.zip tcl-0c863ddec8f39d1afec9b67d4e899e4489d6f46e.tar.gz tcl-0c863ddec8f39d1afec9b67d4e899e4489d6f46e.tar.bz2 | |
Start of TIP 543 implementation.
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 20fa7e7..8662d70 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -79,8 +79,7 @@ typedef struct { * TCL_TRACE_EXEC_DIRECT - This execution trace is triggered directly * by the command being traced, not because of * an internal trace. - * The flags 'TCL_TRACE_DESTROYED' and 'TCL_INTERP_DESTROYED' may also be used - * in command execution traces. + * The flag 'TCL_TRACE_DESTROYED' may also be used in command execution traces. */ #define TCL_TRACE_ENTER_DURING_EXEC 4 @@ -2565,6 +2564,9 @@ TclObjCallVarTraces( leaveErrMsg); } +#undef TCL_INTERP_DESTROYED +#define TCL_INTERP_DESTROYED 0x100 + int TclCallVarTraces( Interp *iPtr, /* Interpreter containing variable. */ |