01: /*
02: * TraceRecord.java --
03: *
04: * This class is used internally by CallFrame to store one
05: * variable trace.
06: *
07: * Copyright (c) 1997 Sun Microsystems, Inc.
08: *
09: * See the file "license.terms" for information on usage and
10: * redistribution of this file, and for a DISCLAIMER OF ALL
11: * WARRANTIES.
12: *
13: * RCS: @(#) $Id: TraceRecord.java,v 1.2 1999/07/28 03:27:36 mo Exp $
14: *
15: */
16:
17: package tcl.lang;
18:
19: /**
20: * This class is used internally by CallFrame to store one variable
21: * trace.
22: */
23:
24: class TraceRecord {
25:
26: /**
27: * Stores info about the conditions under which this trace should be
28: * triggered. Should be a combination of TCL.TRACE_READS, TCL.TRACE_WRITES
29: * or TCL.TRACE_UNSETS.
30: */
31:
32: int flags;
33:
34: /**
35: * Stores the trace procedure to invoke when a trace is fired.
36: */
37:
38: VarTrace trace;
39:
40: } // end TraceRecord
|