Permalink
Browse files

Add patch for perl to add dtrace header

git-svn-id: https://svn.macosforge.org/repository/darwinbuild/trunk@601 10a61168-4876-4dac-953b-31e694342555
  • Loading branch information...
wsiegrist@apple.com
wsiegrist@apple.com committed Oct 15, 2009
1 parent 9522c5f commit 887f892dd631b0babf0d85188b1ac5185160e802
Showing with 125 additions and 0 deletions.
  1. +122 −0 patches/perl-63.pldtrace.patch
  2. +3 −0 plists/10A432.plist
@@ -0,0 +1,122 @@
diff -ruN ../perl-63.orig/5.10/GNUmakefile ./5.10/GNUmakefile
--- ../perl-63.orig/5.10/GNUmakefile 2009-10-15 13:21:53.000000000 -0700
+++ ./5.10/GNUmakefile 2009-10-15 13:27:18.000000000 -0700
@@ -169,7 +169,7 @@
-e 's/@VERSION5_10@/$(ENV_VERSION5_10)/g' \
fix/README.macosx.ed | ed - $(PROJECT)/README.macosx && \
ed - $(PROJECT)/t/op/groups.t < fix/t_op_groups.t.ed
- dtrace -h -s $(SRCROOT)/$(FIX)/pldtrace.d -o '$(OBJROOT)/$(PLDTRACE_H)'
+ cp '$(SRCROOT)/$(FIX)/pldtrace.h' '$(OBJROOT)/$(PLDTRACE_H)'
@set -x && \
cd '$(OBJROOT)' && \
ed - $(PROJECT)/hints/darwin.sh < fix/darwin42.sh.ed && \
diff -ruN ../perl-63.orig/5.10/fix/pldtrace.h ./5.10/fix/pldtrace.h
--- ../perl-63.orig/5.10/fix/pldtrace.h 1969-12-31 16:00:00.000000000 -0800
+++ ./5.10/fix/pldtrace.h 2009-10-15 13:25:29.000000000 -0700
@@ -0,0 +1,45 @@
+/*
+ * Generated by dtrace(1M).
+ */
+
+#ifndef _PLDTRACE_H
+#define _PLDTRACE_H
+
+#include <unistd.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define PERL_STABILITY "___dtrace_stability$perl$v1$4_4_5_4_4_5_4_4_5_4_4_5_4_4_5"
+
+#define PERL_TYPEDEFS "___dtrace_typedefs$perl$v2"
+
+#define PERL_SUB_ENTRY(arg0, arg1, arg2) \
+do { \
+ __asm__ volatile(".reference " PERL_TYPEDEFS); \
+ __dtrace_probe$perl$sub__entry$v1$63686172202a$63686172202a$696e74(arg0, arg1, arg2); \
+ __asm__ volatile(".reference " PERL_STABILITY); \
+} while (0)
+#define PERL_SUB_ENTRY_ENABLED() \
+ __dtrace_isenabled$perl$sub__entry$v1()
+#define PERL_SUB_RETURN(arg0, arg1, arg2) \
+do { \
+ __asm__ volatile(".reference " PERL_TYPEDEFS); \
+ __dtrace_probe$perl$sub__return$v1$63686172202a$63686172202a$696e74(arg0, arg1, arg2); \
+ __asm__ volatile(".reference " PERL_STABILITY); \
+} while (0)
+#define PERL_SUB_RETURN_ENABLED() \
+ __dtrace_isenabled$perl$sub__return$v1()
+
+
+extern void __dtrace_probe$perl$sub__entry$v1$63686172202a$63686172202a$696e74(char *, char *, int);
+extern int __dtrace_isenabled$perl$sub__entry$v1(void);
+extern void __dtrace_probe$perl$sub__return$v1$63686172202a$63686172202a$696e74(char *, char *, int);
+extern int __dtrace_isenabled$perl$sub__return$v1(void);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* _PLDTRACE_H */
diff -ruN ../perl-63.orig/5.8/GNUmakefile ./5.8/GNUmakefile
--- ../perl-63.orig/5.8/GNUmakefile 2009-10-15 13:21:53.000000000 -0700
+++ ./5.8/GNUmakefile 2009-10-15 13:26:39.000000000 -0700
@@ -165,7 +165,7 @@
-e 's/@VERSION5_8@/$(ENV_VERSION5_8)/g' \
-e 's/@VERSION5_10@/$(ENV_VERSION5_10)/g' \
fix/README.macosx.ed | ed - $(PROJECT)/README.macosx
- dtrace -h -s $(SRCROOT)/$(FIX)/pldtrace.d -o '$(OBJROOT)/$(PLDTRACE_H)'
+ cp '$(SRCROOT)/$(FIX)/pldtrace.h' '$(OBJROOT)/$(PLDTRACE_H)'
@set -x && \
cd '$(OBJROOT)' && \
ed - $(PROJECT)/hints/darwin.sh < fix/darwin42.sh.ed
diff -ruN ../perl-63.orig/5.8/fix/pldtrace.h ./5.8/fix/pldtrace.h
--- ../perl-63.orig/5.8/fix/pldtrace.h 1969-12-31 16:00:00.000000000 -0800
+++ ./5.8/fix/pldtrace.h 2009-10-15 13:25:43.000000000 -0700
@@ -0,0 +1,45 @@
+/*
+ * Generated by dtrace(1M).
+ */
+
+#ifndef _PLDTRACE_H
+#define _PLDTRACE_H
+
+#include <unistd.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#define PERL_STABILITY "___dtrace_stability$perl$v1$4_4_5_4_4_5_4_4_5_4_4_5_4_4_5"
+
+#define PERL_TYPEDEFS "___dtrace_typedefs$perl$v2"
+
+#define PERL_SUB_ENTRY(arg0, arg1, arg2) \
+do { \
+ __asm__ volatile(".reference " PERL_TYPEDEFS); \
+ __dtrace_probe$perl$sub__entry$v1$63686172202a$63686172202a$696e74(arg0, arg1, arg2); \
+ __asm__ volatile(".reference " PERL_STABILITY); \
+} while (0)
+#define PERL_SUB_ENTRY_ENABLED() \
+ __dtrace_isenabled$perl$sub__entry$v1()
+#define PERL_SUB_RETURN(arg0, arg1, arg2) \
+do { \
+ __asm__ volatile(".reference " PERL_TYPEDEFS); \
+ __dtrace_probe$perl$sub__return$v1$63686172202a$63686172202a$696e74(arg0, arg1, arg2); \
+ __asm__ volatile(".reference " PERL_STABILITY); \
+} while (0)
+#define PERL_SUB_RETURN_ENABLED() \
+ __dtrace_isenabled$perl$sub__return$v1()
+
+
+extern void __dtrace_probe$perl$sub__entry$v1$63686172202a$63686172202a$696e74(char *, char *, int);
+extern int __dtrace_isenabled$perl$sub__entry$v1(void);
+extern void __dtrace_probe$perl$sub__return$v1$63686172202a$63686172202a$696e74(char *, char *, int);
+extern int __dtrace_isenabled$perl$sub__return$v1(void);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* _PLDTRACE_H */
@@ -11651,6 +11651,9 @@
gcc,
);
};
patchfiles = (
"perl-63.pldtrace.patch",
);
version = 63;
};
portmap = {

0 comments on commit 887f892

Please sign in to comment.