Change 34932 by [EMAIL PROTECTED] on 2008/11/26 21:33:54
pidgone() is only used in util.c, so it can be static.
Affected files ...
... //depot/perl/embed.fnc#644 edit
... //depot/perl/embed.h#781 edit
... //depot/perl/proto.h#978 edit
... //depot/perl/util.c#669 edit
Differences ...
==== //depot/perl/embed.fnc#644 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#643~34931~ 2008-11-26 13:18:58.000000000 -0800
+++ perl/embed.fnc 2008-11-26 13:33:54.000000000 -0800
@@ -706,8 +706,8 @@
Apd |void |pack_cat |NN SV *cat|NN const char *pat|NN const char
*patend \
|NN SV **beglist|NN SV **endlist|NN SV
***next_in_list|U32 flags
Apd |void |packlist |NN SV *cat|NN const char *pat|NN const char
*patend|NN SV **beglist|NN SV **endlist
-#ifdef PERL_USES_PL_PIDSTATUS
-p |void |pidgone |Pid_t pid|int status
+#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
+s |void |pidgone |Pid_t pid|int status
#endif
Ap |void |pmflag |NN U32* pmfl|int ch
p |OP* |pmruntime |NN OP *o|NN OP *expr|bool isreg
==== //depot/perl/embed.h#781 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#780~34931~ 2008-11-26 13:18:58.000000000 -0800
+++ perl/embed.h 2008-11-26 13:33:54.000000000 -0800
@@ -686,9 +686,9 @@
#define require_pv Perl_require_pv
#define pack_cat Perl_pack_cat
#define packlist Perl_packlist
-#ifdef PERL_USES_PL_PIDSTATUS
+#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
#ifdef PERL_CORE
-#define pidgone Perl_pidgone
+#define pidgone S_pidgone
#endif
#endif
#define pmflag Perl_pmflag
@@ -3024,9 +3024,9 @@
#define require_pv(a) Perl_require_pv(aTHX_ a)
#define pack_cat(a,b,c,d,e,f,g) Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
#define packlist(a,b,c,d,e) Perl_packlist(aTHX_ a,b,c,d,e)
-#ifdef PERL_USES_PL_PIDSTATUS
+#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
#ifdef PERL_CORE
-#define pidgone(a,b) Perl_pidgone(aTHX_ a,b)
+#define pidgone(a,b) S_pidgone(aTHX_ a,b)
#endif
#endif
#define pmflag(a,b) Perl_pmflag(aTHX_ a,b)
==== //depot/perl/proto.h#978 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#977~34931~ 2008-11-26 13:18:58.000000000 -0800
+++ perl/proto.h 2008-11-26 13:33:54.000000000 -0800
@@ -2497,8 +2497,8 @@
#define PERL_ARGS_ASSERT_PACKLIST \
assert(cat); assert(pat); assert(patend); assert(beglist);
assert(endlist)
-#ifdef PERL_USES_PL_PIDSTATUS
-PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status);
+#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
+STATIC void S_pidgone(pTHX_ Pid_t pid, int status);
#endif
PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch)
__attribute__nonnull__(pTHX_1);
==== //depot/perl/util.c#669 (text) ====
Index: perl/util.c
--- perl/util.c#668~34923~ 2008-11-26 10:54:13.000000000 -0800
+++ perl/util.c 2008-11-26 13:33:54.000000000 -0800
@@ -3020,7 +3020,7 @@
#ifdef PERL_USES_PL_PIDSTATUS
void
-Perl_pidgone(pTHX_ Pid_t pid, int status)
+S_pidgone(pTHX_ Pid_t pid, int status)
{
register SV *sv;
End of Patch.
