X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=61f9571d0fde667f0523b0eedee67cf0b4f84aef;hb=06dc7ac6fa597f9446b4a27a32d667bbcbde0453;hp=3be37508f93dfae898e62c83e3cb18838d7662e2;hpb=29595ff298b9b71b7461c2281943b6a1566c9e45;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index 3be3750..61f9571 100644
--- a/proto.h
+++ b/proto.h
@@ -389,7 +389,7 @@ PERL_CALLCONV void	Perl_dounwind(pTHX_ I32 cxix);
 			__attribute__nonnull__(pTHX_2)
 			__attribute__nonnull__(pTHX_3); */
 
-PERL_CALLCONV bool	Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag)
+PERL_CALLCONV bool	Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int do_report)
 			__attribute__nonnull__(pTHX_2)
 			__attribute__nonnull__(pTHX_3);
 
@@ -431,7 +431,7 @@ PERL_CALLCONV int	Perl_do_spawn_nowait(pTHX_ char* cmd)
 
 #endif
 #if !defined(WIN32)
-PERL_CALLCONV bool	Perl_do_exec3(pTHX_ const char* cmd, int fd, int flag)
+PERL_CALLCONV bool	Perl_do_exec3(pTHX_ const char* cmd, int fd, int do_report)
 			__attribute__nonnull__(pTHX_1);
 
 #endif
@@ -3839,7 +3839,7 @@ STATIC char*	S_swallow_bom(pTHX_ U8 *s)
 			__attribute__warn_unused_result__
 			__attribute__nonnull__(pTHX_1);
 
-STATIC void	S_checkcomma(pTHX_ char *s, const char *name, const char *what)
+STATIC void	S_checkcomma(pTHX_ const char *s, const char *name, const char *what)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2)
 			__attribute__nonnull__(pTHX_3);
@@ -4365,7 +4365,11 @@ STATIC char*	S_skipspace1(pTHX_ char *s)
 STATIC char*	S_skipspace2(pTHX_ char *s, SV **sv)
 			__attribute__nonnull__(pTHX_1);
 
+STATIC void	S_start_force(pTHX_ int where);
+STATIC void	S_curmad(pTHX_ char slot, SV *sv);
 #  endif
+PERL_CALLCONV int	Perl_madlex(pTHX);
+PERL_CALLCONV int	Perl_madparse(pTHX);
 #endif
 
 END_EXTERN_C