[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