diff options
author | das <das@noemail.net> | 2008-08-14 02:11:46 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-08-14 02:11:46 (GMT) |
commit | 76a5353bd19b31e21b0fa0bac03b91831777e094 (patch) | |
tree | ae0f42bbae423340f5e92adc625009868bce86e5 /generic/tclDTrace.d | |
parent | 3045d60664cfe79b32ae8f4742d60e71467d4b87 (diff) | |
download | tcl-76a5353bd19b31e21b0fa0bac03b91831777e094.zip tcl-76a5353bd19b31e21b0fa0bac03b91831777e094.tar.gz tcl-76a5353bd19b31e21b0fa0bac03b91831777e094.tar.bz2 |
* generic/tclBasic.c (TclNREvalObjv, Tcl_NRCallObjProc): DTrace probes
* generic/tclProc.c (TclNRInterpProcCore, InterpProcNR2): for NRE.
[Bug 2017160]
* generic/tclBasic.c (TclDTraceInfo): add two extra arguments to
* generic/tclCompile.h: DTrace 'info' probes for tclOO
* generic/tclDTrace.d: method & class/object info.
* generic/tclCompile.h: add support for debug logging of DTrace
* generic/tclBasic.c: 'proc', 'cmd' and 'inst' probes (does
_not_ require a platform with DTrace).
FossilOrigin-Name: c21fbf3f17dc5b30173cbf28b1603b28626e450d
Diffstat (limited to 'generic/tclDTrace.d')
-rw-r--r-- | generic/tclDTrace.d | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/generic/tclDTrace.d b/generic/tclDTrace.d index 8d0fbcc..65c804e 100644 --- a/generic/tclDTrace.d +++ b/generic/tclDTrace.d @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDTrace.d,v 1.2 2007/12/13 15:23:16 dgp Exp $ + * RCS: @(#) $Id: tclDTrace.d,v 1.3 2008/08/14 02:11:51 das Exp $ */ typedef struct Tcl_Obj Tcl_Obj; @@ -63,9 +63,11 @@ provider tcl { * arg3: TIP 280 file (string) * arg4: TIP 280 line (int) * arg5: TIP 280 level (int) + * arg6: TclOO method (string) + * arg7: TclOO class/object (string) */ probe proc__info(char* cmd, char* type, char* proc, char* file, int line, - int level); + int level, char* method, char* class); /***************************** cmd probes ******************************/ /* @@ -112,9 +114,11 @@ provider tcl { * arg3: TIP 280 file (string) * arg4: TIP 280 line (int) * arg5: TIP 280 level (int) + * arg6: TclOO method (string) + * arg7: TclOO class/object (string) */ probe cmd__info(char* cmd, char* type, char* proc, char* file, int line, - int level); + int level, char* method, char* class); /***************************** inst probes *****************************/ /* |