X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=5208f6f02c512c1a81abf5c2a5040c6c4d76279f;hb=6fd99bb377a3671d990fd357b52cfe5b19de1e9c;hp=5e7785be64067c18e16e24ff7ffa893ea0341e74;hpb=eb8433b7af0f2e09d06dd0cac2de576c6f007d03;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index 5e7785b..5208f6f 100644 --- a/proto.h +++ b/proto.h @@ -4354,6 +4354,22 @@ PERL_CALLCONV void Perl_addmad(pTHX_ MADPROP* tm, MADPROP** root, char slot); PERL_CALLCONV MADPROP* Perl_newMADsv(pTHX_ char key, SV* sv); PERL_CALLCONV MADPROP* Perl_newMADPROP(pTHX_ char key, char type, void* val, I32 vlen); PERL_CALLCONV void Perl_mad_free(pTHX_ MADPROP* mp); + +# if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +STATIC char* S_skipspace0(pTHX_ char *s) + __attribute__nonnull__(pTHX_1); + +STATIC char* S_skipspace1(pTHX_ char *s) + __attribute__nonnull__(pTHX_1); + +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