diff options
Diffstat (limited to 'generic/tclDTrace.d')
| -rw-r--r-- | generic/tclDTrace.d | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/generic/tclDTrace.d b/generic/tclDTrace.d index 7792bda..bdbcb6e 100644 --- a/generic/tclDTrace.d +++ b/generic/tclDTrace.d @@ -51,6 +51,19 @@ provider tcl { probe proc__args(char* name, char* arg1, char* arg2, char* arg3, char* arg4, char* arg5, char* arg6, char* arg7, char* arg8, char* arg9); + /* + * tcl*:::proc-info probe + * triggered before proc-entry probe, gives access to TIP 280 + * information for the proc invocation (i.e. [info frame 0]) + * arg0: TIP 280 cmd (string) + * arg1: TIP 280 type (string) + * arg2: TIP 280 proc (string) + * arg3: TIP 280 file (string) + * arg4: TIP 280 line (int) + * arg5: TIP 280 level (int) + */ + probe proc__info(char* cmd, char* type, char* proc, char* file, int line, + int level); /***************************** cmd probes ******************************/ /* @@ -87,6 +100,19 @@ provider tcl { probe cmd__args(char* name, char* arg1, char* arg2, char* arg3, char* arg4, char* arg5, char* arg6, char* arg7, char* arg8, char* arg9); + /* + * tcl*:::cmd-info probe + * triggered before cmd-entry probe, gives access to TIP 280 + * information for the command invocation (i.e. [info frame 0]) + * arg0: TIP 280 cmd (string) + * arg1: TIP 280 type (string) + * arg2: TIP 280 proc (string) + * arg3: TIP 280 file (string) + * arg4: TIP 280 line (int) + * arg5: TIP 280 level (int) + */ + probe cmd__info(char* cmd, char* type, char* proc, char* file, int line, + int level); /***************************** inst probes *****************************/ /* @@ -157,6 +183,10 @@ struct Tcl_Obj { void *ptr1; void *ptr2; } twoPtrValue; + struct { + void *ptr; + unsigned long value; + } ptrAndLongRep; } internalRep; }; |