X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=a302ec43a3b48c8056a0478fb6211c98c34eeb8d;hb=400084413bade2cd02d3b655c75e4cb7dc93fc3f;hp=8d515af7f0e4e14445ba3e4f03884a1d35687ab5;hpb=9bde8eb087a2c05d4c8b0394a59d28a09fe5f529;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index 8d515af..a302ec4 100644
--- a/proto.h
+++ b/proto.h
@@ -2179,6 +2179,9 @@ PERL_CALLCONV SV*	Perl_sv_2mortal(pTHX_ SV* sv);
 PERL_CALLCONV NV	Perl_sv_2nv(pTHX_ SV* sv)
 			__attribute__nonnull__(pTHX_1);
 
+PERL_CALLCONV SV*	Perl_sv_2num(pTHX_ SV* sv)
+			__attribute__nonnull__(pTHX_1);
+
 /* PERL_CALLCONV char*	Perl_sv_2pv(pTHX_ SV* sv, STRLEN* lp)
 			__attribute__nonnull__(pTHX_1); */
 
@@ -2969,6 +2972,7 @@ PERL_CALLCONV const char *	Perl_custom_op_desc(pTHX_ const OP* op)
 
 PERL_CALLCONV void	Perl_sv_nosharing(pTHX_ SV *sv);
 /* PERL_CALLCONV void	Perl_sv_nolocking(pTHX_ SV *sv); */
+PERL_CALLCONV bool	Perl_sv_destroyable(pTHX_ SV *sv);
 #ifdef NO_MATHOMS
 /* PERL_CALLCONV void	Perl_sv_nounlocking(pTHX_ SV *sv); */
 #else
@@ -4133,7 +4137,6 @@ STATIC SV*	S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRL
 			__attribute__nonnull__(pTHX_5);
 
 STATIC int	S_ao(pTHX_ int toketype);
-STATIC const char*	S_incl_perldb(pTHX);
 #  if defined(PERL_CR_FILTER)
 STATIC I32	S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen);
 STATIC void	S_strip_return(pTHX_ SV *sv)
@@ -4708,7 +4711,7 @@ PERL_CALLCONV void	Perl_sys_init3(int* argc, char*** argv, char*** env)
 			__attribute__nonnull__(2)
 			__attribute__nonnull__(3);
 
-PERL_CALLCONV void	Perl_sys_term(pTHX);
+PERL_CALLCONV void	Perl_sys_term(void);
 
 
 END_EXTERN_C