Change 34923 by [EMAIL PROTECTED] on 2008/11/26 18:54:13
vdie() isn't used anywhere aside from util.c, so it can be static.
Affected files ...
... //depot/perl/embed.fnc#637 edit
... //depot/perl/embed.h#774 edit
... //depot/perl/proto.h#971 edit
... //depot/perl/util.c#668 edit
Differences ...
==== //depot/perl/embed.fnc#637 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#636~34922~ 2008-11-26 10:21:52.000000000 -0800
+++ perl/embed.fnc 2008-11-26 10:54:13.000000000 -0800
@@ -197,7 +197,7 @@
p |void |deprecate |NN const char *const s
p |void |deprecate_old |NN const char *const s
Afp |OP* |die |NULLOK const char* pat|...
-p |OP* |vdie |NULLOK const char* pat|NULLOK va_list* args
+s |OP* |vdie |NULLOK const char* pat|NULLOK va_list* args
p |OP* |die_where |NULLOK const char* message|STRLEN msglen
Ap |void |dounwind |I32 cxix
pmb |bool |do_aexec |NULLOK SV* really|NN SV** mark|NN SV** sp
==== //depot/perl/embed.h#774 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#773~34922~ 2008-11-26 10:21:52.000000000 -0800
+++ perl/embed.h 2008-11-26 10:54:13.000000000 -0800
@@ -160,7 +160,7 @@
#endif
#define die Perl_die
#ifdef PERL_CORE
-#define vdie Perl_vdie
+#define vdie S_vdie
#define die_where Perl_die_where
#endif
#define dounwind Perl_dounwind
@@ -2471,7 +2471,7 @@
#define deprecate_old(a) Perl_deprecate_old(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define vdie(a,b) Perl_vdie(aTHX_ a,b)
+#define vdie(a,b) S_vdie(aTHX_ a,b)
#define die_where(a,b) Perl_die_where(aTHX_ a,b)
#endif
#define dounwind(a) Perl_dounwind(aTHX_ a)
==== //depot/perl/proto.h#971 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#970~34922~ 2008-11-26 10:21:52.000000000 -0800
+++ perl/proto.h 2008-11-26 10:54:13.000000000 -0800
@@ -538,7 +538,7 @@
PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...)
__attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
-PERL_CALLCONV OP* Perl_vdie(pTHX_ const char* pat, va_list* args);
+STATIC OP* S_vdie(pTHX_ const char* pat, va_list* args);
PERL_CALLCONV OP* Perl_die_where(pTHX_ const char* message, STRLEN
msglen);
PERL_CALLCONV void Perl_dounwind(pTHX_ I32 cxix);
/* PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp)
==== //depot/perl/util.c#668 (text) ====
Index: perl/util.c
--- perl/util.c#667~34698~ 2008-11-02 13:12:59.000000000 -0800
+++ perl/util.c 2008-11-26 10:54:13.000000000 -0800
@@ -1363,7 +1363,7 @@
}
OP *
-Perl_vdie(pTHX_ const char* pat, va_list *args)
+S_vdie(pTHX_ const char* pat, va_list *args)
{
dVAR;
const char *message;
End of Patch.
