diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-03-10 22:10:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-03-10 22:10:37 (GMT) |
| commit | a90747f408664f3324867307342bafd1038b4ddc (patch) | |
| tree | a86fc8f66659e2dd409d346fed4eb1e047ed8c55 /generic/tclInt.h | |
| parent | 72ca5496075c88513fe036a43c4bbf94f4c90b42 (diff) | |
| download | tcl-a90747f408664f3324867307342bafd1038b4ddc.zip tcl-a90747f408664f3324867307342bafd1038b4ddc.tar.gz tcl-a90747f408664f3324867307342bafd1038b4ddc.tar.bz2 | |
* generic/tclTrace.c (TclCheckInterpTraces): Corrected mistaken
cast of ClientData to (TraceCommandInfo *) when not warranted.
Thanks to Yuri Victorovich for the report. [Bug 1153871]
* generic/tcl.h: Moved flag values TCL_TRACE_ENTER_EXEC and
* generic/tclInt.h: TCL_TRACE_LEAVE_EXEC from public interface
into private. Should be used only by internal workings of
execution traces.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2f760d1..21cd333 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.214 2005/01/27 00:23:26 andreas_kupries Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.215 2005/03/10 22:10:38 dgp Exp $ */ #ifndef _TCLINT @@ -747,6 +747,21 @@ typedef struct ActiveInterpTrace { } ActiveInterpTrace; /* + * Flag values designating types of execution traces. + * See tclTrace.c for related flag values. + * + * TCL_TRACE_ENTER_EXEC - triggers enter/enterstep traces. + * - passed to Tcl_CreateObjTrace to set up + * "enterstep" traces. + * TCL_TRACE_LEAVE_EXEC - triggets leave/leavestep traces. + * - passed to Tcl_CreateObjTrace to set up + * "leavestep" traces. + * + */ +#define TCL_TRACE_ENTER_EXEC 1 +#define TCL_TRACE_LEAVE_EXEC 2 + +/* * The structure below defines an entry in the assocData hash table which * is associated with an interpreter. The entry contains a pointer to a * function to call when the interpreter is deleted, and a pointer to |