vdie() isn't used anywhere aside from util.c, so it can be static.

p4raw-id: //depot/perl@34923

diff --git a/embed.fnc b/embed.fnc
index 598deed..37b7756 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -197,7 +197,7 @@ pM  |void   |delete_eval_scope
 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

diff --git a/embed.h b/embed.h
index 88c241c..47ca12c 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -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)

diff --git a/proto.h b/proto.h
index b6c0e57..8d25afb 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -538,7 +538,7 @@ PERL_CALLCONV void  Perl_deprecate_old(pTHX_ const char *const s)
 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)

diff --git a/util.c b/util.c
index aebc8ef..0c15c56 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1363,7 +1363,7 @@ S_vdie_croak_common(pTHX_ const char* pat, va_list* args, STRLEN* msglen,
 }
 
 OP *
-Perl_vdie(pTHX_ const char* pat, va_list *args)
+S_vdie(pTHX_ const char* pat, va_list *args)
 {
     dVAR;
     const char *message;