[csw-devel] SF.net SVN: gar:[15564] csw/mgar/pkg/tcl/trunk
igalic at users.sourceforge.net
igalic at users.sourceforge.net
Thu Sep 8 11:25:17 CEST 2011
Revision: 15564
http://gar.svn.sourceforge.net/gar/?rev=15564&view=rev
Author: igalic
Date: 2011-09-08 09:25:17 +0000 (Thu, 08 Sep 2011)
Log Message:
-----------
Add dam's dtrace patch.
Modified Paths:
--------------
csw/mgar/pkg/tcl/trunk/Makefile
csw/mgar/pkg/tcl/trunk/checksums
Added Paths:
-----------
csw/mgar/pkg/tcl/trunk/files/tcl-dtrace.patch
Modified: csw/mgar/pkg/tcl/trunk/Makefile
===================================================================
--- csw/mgar/pkg/tcl/trunk/Makefile 2011-09-08 08:27:46 UTC (rev 15563)
+++ csw/mgar/pkg/tcl/trunk/Makefile 2011-09-08 09:25:17 UTC (rev 15564)
@@ -12,6 +12,7 @@
DISTFILES = $(DISTNAME)-src.tar.gz
DISTFILES += soname.diff
DISTFILES += tcl.m4.patch
+DISTFILES += tcl-dtrace.patch
UPSTREAM_MASTER_SITES = $(SF_PROJECT_SHOWFILE)=10894
UPSTREAM_USE_SF = 1
@@ -30,6 +31,7 @@
PATCHDIR = $(WORKDIR)/$(DISTNAME)
PATCHFILES = soname.diff
PATCHFILES += tcl.m4.patch
+PATCHFILES += tcl-dtrace.patch
PACKAGES = CSWtcl
PACKAGES += CSWlibtcl8-5-0
@@ -52,6 +54,15 @@
ARCHALL_CSWtcl-doc = 1
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/local|root/opt/csw/lib/amd64/tclConfig.sh
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/local|root/opt/csw/lib/tclConfig.sh
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/local|root/opt/csw/share/man/man1/tclsh.1
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/local|root/opt/csw/share/man/mann/clock.n
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/local|root/opt/csw/lib/tcl8.5/clock.tcl
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/share|root/opt/csw/share/man/mann/clock.n
+CHECKPKG_OVERRIDES_CSWtcl += file-with-bad-content|/usr/share|root/opt/csw/lib/tcl8.5/clock.tcl
+
+
BUILD64 = 1
INCLUDE_FLAGS =
@@ -60,7 +71,7 @@
CONFIGURE_ARGS = $(DIRPATHS)
CONFIGURE_ARGS += --enable-threads
-#CONFIGURE_ARGS += --enable-dtrace
+CONFIGURE_ARGS += --enable-dtrace
INSTALL_ARGS = install install-private-headers install-tzdata install-msgs
Modified: csw/mgar/pkg/tcl/trunk/checksums
===================================================================
--- csw/mgar/pkg/tcl/trunk/checksums 2011-09-08 08:27:46 UTC (rev 15563)
+++ csw/mgar/pkg/tcl/trunk/checksums 2011-09-08 09:25:17 UTC (rev 15564)
@@ -3,3 +3,4 @@
a08eaf8467c0631937067c1948dd326b tcl8.5.10-src.tar.gz
3c9c100904b6ba774a679ad7f2b4a036 tclInt.h.patch
b9693a35219197fb1675fbdefb88c44f soname.diff
+48496b40918825f111439ccfd55d9c78 tcl-dtrace.patch
Added: csw/mgar/pkg/tcl/trunk/files/tcl-dtrace.patch
===================================================================
--- csw/mgar/pkg/tcl/trunk/files/tcl-dtrace.patch (rev 0)
+++ csw/mgar/pkg/tcl/trunk/files/tcl-dtrace.patch 2011-09-08 09:25:17 UTC (rev 15564)
@@ -0,0 +1,74 @@
+diff --git a/generic/tclDTrace.d b/generic/tclDTrace.d
+index bdbcb6e..4e4d3a4 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
+@@ -73,7 +73,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
+@@ -89,7 +89,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
+@@ -122,7 +122,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
+@@ -130,7 +130,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 ******************************/
+ /*
+@@ -138,13 +138,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 ******************************/
+ /*
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the devel
mailing list