From 85a5f503faf3afa708eebdd3e4351b06a86422d6 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 13 Sep 2011 18:22:53 +0000 Subject: 3405652 Portability workaround for broken system DTrace support. Thanks to Dagobert Michelson. --- ChangeLog | 5 +++++ generic/tclDTrace.d | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2f05189..6fadd37 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-09-13 Don Porter + + * generic/tclDTrace.d: [Bug 3405652] Portability workaround for + broken system DTrace support. Thanks to Dagobert Michelson. + 2011-09-12 Jan Nijtmans * win/tclWinPort.h: [Bug 3407070] tclPosixStr.c won't build with diff --git a/generic/tclDTrace.d b/generic/tclDTrace.d index 7792bda..1713de5 100644 --- a/generic/tclDTrace.d +++ b/generic/tclDTrace.d @@ -24,7 +24,7 @@ provider tcl { * arg1: number of arguments (int) * arg2: array of proc argument objects (Tcl_Obj**) */ - probe proc__entry(char* name, int objc, Tcl_Obj **objv); + probe proc__entry(char* name, int objc, struct Tcl_Obj **objv); /* * tcl*:::proc-return probe * triggered immediately after proc bytecode execution @@ -40,7 +40,7 @@ provider tcl { * arg2: proc result (string) * arg3: proc result object (Tcl_Obj*) */ - probe proc__result(char* name, int code, char* result, Tcl_Obj *resultobj); + probe proc__result(char* name, int code, char* result, struct Tcl_Obj *resultobj); /* * tcl*:::proc-args probe * triggered before proc-entry probe, gives access to string @@ -60,7 +60,7 @@ provider tcl { * arg1: number of arguments (int) * arg2: array of command argument objects (Tcl_Obj**) */ - probe cmd__entry(char* name, int objc, Tcl_Obj **objv); + probe cmd__entry(char* name, int objc, struct Tcl_Obj **objv); /* * tcl*:::cmd-return probe * triggered immediately after commmand execution @@ -76,7 +76,7 @@ provider tcl { * arg2: command result (string) * arg3: command result object (Tcl_Obj*) */ - probe cmd__result(char* name, int code, char* result, Tcl_Obj *resultobj); + probe cmd__result(char* name, int code, char* result, struct Tcl_Obj *resultobj); /* * tcl*:::cmd-args probe * triggered before cmd-entry probe, gives access to string @@ -96,7 +96,7 @@ provider tcl { * arg1: depth of stack (int) * arg2: top of stack (Tcl_Obj**) */ - probe inst__start(char* name, int depth, Tcl_Obj **stack); + probe inst__start(char* name, int depth, struct Tcl_Obj **stack); /* * tcl*:::inst-done probe * triggered immediately after execution of a bytecode @@ -104,7 +104,7 @@ provider tcl { * arg1: depth of stack (int) * arg2: top of stack (Tcl_Obj**) */ - probe inst__done(char* name, int depth, Tcl_Obj **stack); + probe inst__done(char* name, int depth, struct Tcl_Obj **stack); /***************************** obj probes ******************************/ /* @@ -112,13 +112,13 @@ provider tcl { * triggered immediately after a new Tcl_Obj has been created * arg0: object created (Tcl_Obj*) */ - probe obj__create(Tcl_Obj* obj); + probe obj__create(struct Tcl_Obj* obj); /* * tcl*:::obj-free probe * triggered immediately before a Tcl_Obj is freed * arg0: object to be freed (Tcl_Obj*) */ - probe obj__free(Tcl_Obj* obj); + probe obj__free(struct Tcl_Obj* obj); /***************************** tcl probes ******************************/ /* -- cgit v0.12