From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Nov 2008 18:54:13 +0000 (+0000)
Subject: vdie() isn't used anywhere aside from util.c, so it can be static.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3cf49e2e2df78528afdd14c4a3219cf5059e6eb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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;