X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=5208f6f02c512c1a81abf5c2a5040c6c4d76279f;hb=6fd99bb377a3671d990fd357b52cfe5b19de1e9c;hp=b2d6a93dcbef6d79d364913270641a989d0a9a37;hpb=180488f8452e93d2afa0f62b189be1cc9ac6ba1a;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index b2d6a93..5208f6f 100644 --- a/proto.h +++ b/proto.h @@ -644,6 +644,9 @@ PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLE __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_3); +PERL_CALLCONV void Perl_gv_name_set(pTHX_ GV* gv, const char *name, U32 len, U32 flags) + __attribute__nonnull__(pTHX_1); + PERL_CALLCONV HV* Perl_gv_stashpv(pTHX_ const char* name, I32 create) __attribute__nonnull__(pTHX_1); @@ -1396,7 +1399,11 @@ PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* fal __attribute__nonnull__(pTHX_2); PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv); +#ifdef PERL_MAD +PERL_CALLCONV OP* Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block); +#else PERL_CALLCONV void Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block); +#endif PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sv, OP* expr, OP* block, OP* cont) __attribute__malloc__ __attribute__warn_unused_result__ @@ -1517,12 +1524,12 @@ PERL_CALLCONV OP* Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv) __attribute__malloc__ __attribute__warn_unused_result__; -PERL_CALLCONV SV* Perl_newRV(pTHX_ SV* pref) +PERL_CALLCONV SV* Perl_newRV(pTHX_ SV* sv) __attribute__malloc__ __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1); -PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV *sv) +PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV* sv) __attribute__malloc__ __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1); @@ -1649,9 +1656,15 @@ PERL_CALLCONV OP* Perl_oopsCV(pTHX_ OP* o) __attribute__nonnull__(pTHX_1); PERL_CALLCONV void Perl_op_free(pTHX_ OP* arg); +#ifdef PERL_MAD +PERL_CALLCONV OP* Perl_package(pTHX_ OP* o) + __attribute__nonnull__(pTHX_1); + +#else PERL_CALLCONV void Perl_package(pTHX_ OP* o) __attribute__nonnull__(pTHX_1); +#endif PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype); PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ char* name) __attribute__nonnull__(pTHX_1); @@ -1866,7 +1879,7 @@ PERL_CALLCONV char* Perl_savesvpv(pTHX_ SV* sv) PERL_CALLCONV void Perl_savestack_grow(pTHX); PERL_CALLCONV void Perl_savestack_grow_cnt(pTHX_ I32 need); -PERL_CALLCONV void Perl_save_aelem(pTHX_ const AV* av, I32 idx, SV **sptr) +PERL_CALLCONV void Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_3); @@ -2376,9 +2389,15 @@ PERL_CALLCONV I32 Perl_unpackstring(pTHX_ const char *pat, const char *patend, c PERL_CALLCONV void Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash); PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek); +#ifdef PERL_MAD +PERL_CALLCONV OP * Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg) + __attribute__nonnull__(pTHX_4); + +#else PERL_CALLCONV void Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg) __attribute__nonnull__(pTHX_4); +#endif PERL_CALLCONV U8* Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) @@ -2698,9 +2717,15 @@ PERL_CALLCONV int Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg) PERL_CALLCONV OP* Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block); PERL_CALLCONV CV* Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block); +#ifdef PERL_MAD +PERL_CALLCONV OP * Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) + __attribute__noreturn__; + +#else PERL_CALLCONV void Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) __attribute__noreturn__; +#endif PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs) __attribute__nonnull__(pTHX_1); @@ -3735,11 +3760,13 @@ STATIC void S_glob_assign_ref(pTHX_ SV *dstr, SV *sstr) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); +# if defined(USE_ITHREADS) STATIC PTR_TBL_ENT_t * S_ptr_table_find(PTR_TBL_t *tbl, const void *sv) __attribute__warn_unused_result__ __attribute__nonnull__(1) __attribute__nonnull__(2); +# endif STATIC SV * S_find_hash_subscript(pTHX_ HV *hv, SV *val) __attribute__nonnull__(pTHX_2); @@ -4101,7 +4128,7 @@ PERL_CALLCONV void Perl_hv_riter_set(pTHX_ HV* hv, I32 riter) PERL_CALLCONV void Perl_hv_eiter_set(pTHX_ HV* hv, HE* eiter) __attribute__nonnull__(pTHX_1); -PERL_CALLCONV void Perl_hv_name_set(pTHX_ HV* hv, const char *name, I32 len, int flags) +PERL_CALLCONV void Perl_hv_name_set(pTHX_ HV* hv, const char *name, U32 len, U32 flags) __attribute__nonnull__(pTHX_1); PERL_CALLCONV AV** Perl_hv_backreferences_p(pTHX_ HV* hv) @@ -4263,6 +4290,87 @@ PERL_CALLCONV void* Perl_my_cxt_init(pTHX_ int *index, size_t size) #endif +#ifdef PERL_MAD +PERL_CALLCONV void Perl_pad_peg(const char* s) + __attribute__nonnull__(1); + +#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) +STATIC void S_xmldump_attr(pTHX_ I32 level, PerlIO *file, const char* pat, ...) + __attribute__format__(__printf__,pTHX_3,pTHX_4) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); + +#endif +PERL_CALLCONV void Perl_xmldump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) + __attribute__format__(__printf__,pTHX_3,pTHX_4) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); + +PERL_CALLCONV void Perl_xmldump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); + +PERL_CALLCONV void Perl_xmldump_all(pTHX); +PERL_CALLCONV void Perl_xmldump_packsubs(pTHX_ const HV* stash) + __attribute__nonnull__(pTHX_1); + +PERL_CALLCONV void Perl_xmldump_sub(pTHX_ const GV* gv) + __attribute__nonnull__(pTHX_1); + +PERL_CALLCONV void Perl_xmldump_form(pTHX_ const GV* gv) + __attribute__nonnull__(pTHX_1); + +PERL_CALLCONV void Perl_xmldump_eval(pTHX); +PERL_CALLCONV char* Perl_sv_catxmlsv(pTHX_ SV *dsv, SV *ssv) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2); + +PERL_CALLCONV char* Perl_sv_catxmlpvn(pTHX_ SV *dsv, char *pv, STRLEN len, int utf8) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2); + +PERL_CALLCONV char* Perl_sv_xmlpeek(pTHX_ SV* sv) + __attribute__nonnull__(pTHX_1); + +PERL_CALLCONV void Perl_do_pmop_xmldump(pTHX_ I32 level, PerlIO *file, const PMOP *pm) + __attribute__nonnull__(pTHX_2); + +PERL_CALLCONV void Perl_pmop_xmldump(pTHX_ const PMOP* pm); +PERL_CALLCONV void Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) + __attribute__nonnull__(pTHX_2); + +PERL_CALLCONV void Perl_op_xmldump(pTHX_ const OP* arg) + __attribute__nonnull__(pTHX_1); + + +PERL_CALLCONV TOKEN* Perl_newTOKEN(pTHX_ I32 optype, YYSTYPE lval, MADPROP* madprop); +PERL_CALLCONV void Perl_token_free(pTHX_ TOKEN* arg); +PERL_CALLCONV void Perl_token_getmad(pTHX_ TOKEN* arg, OP* o, char slot); +PERL_CALLCONV void Perl_op_getmad_weak(pTHX_ OP* from, OP* o, char slot); +PERL_CALLCONV void Perl_op_getmad(pTHX_ OP* from, OP* o, char slot); +PERL_CALLCONV void Perl_prepend_madprops(pTHX_ MADPROP* mp, OP* o, char slot); +PERL_CALLCONV void Perl_append_madprops(pTHX_ MADPROP* tm, OP* o, char slot); +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 /*