X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/204e6232679d0d412347fddd9e5bd0e529da73d5..1a15d16d8ab308fc4f99063c180391a513f81fdb:/embed.fnc diff --git a/embed.fnc b/embed.fnc index 09363ef..17d5bcf 100644 --- a/embed.fnc +++ b/embed.fnc @@ -21,7 +21,8 @@ : proto.h: add __attribute__malloc__ : : b Binary backward compatibility; function is a macro -: but has also Perl_ implementation (which is exported): +: but has also Perl_ implementation (which is exported); often +: implemented in mathoms.c: : : add entry to the list of exported symbols; : don't define PERL_ARGS_ASSERT_FOO @@ -30,7 +31,7 @@ : : proto.h: add __attribute__deprecated__ : -: d Function has documentation with its source: +: d Function has documentation in the source: : : enables 'no docs for foo" warning in autodoc.pl : @@ -178,6 +179,7 @@ XEop |bool |try_amagic_bin |int method|int flags XEop |bool |try_amagic_un |int method|int flags Ap |SV* |amagic_call |NN SV* left|NN SV* right|int method|int dir Ap |SV * |amagic_deref_call|NN SV *ref|int method +p |bool |amagic_is_enabled|int method Ap |int |Gv_AMupdate |NN HV* stash|bool destructing ApR |CV* |gv_handler |NULLOK HV* stash|I32 id Apd |OP* |op_append_elem |I32 optype|NULLOK OP* first|NULLOK OP* last @@ -270,8 +272,9 @@ p |SV * |core_prototype |NULLOK SV *sv|NN const char *name \ p |OP * |coresub_op |NN SV *coreargssv|const int code \ |const int opnum : Used in sv.c -p |void |cv_ckproto_len |NN const CV* cv|NULLOK const GV* gv\ - |NULLOK const char* p|const STRLEN len +p |void |cv_ckproto_len_flags |NN const CV* cv|NULLOK const GV* gv\ + |NULLOK const char* p|const STRLEN len \ + |const U32 flags : Used in pp.c and pp_sys.c ApdR |SV* |gv_const_sv |NN GV* gv ApdR |SV* |cv_const_sv |NULLOK const CV *const cv @@ -465,7 +468,7 @@ ApM |GV* |gv_fetchmethod_sv_flags|NN HV* stash|NN SV* namesv|U32 flags ApM |GV* |gv_fetchmethod_pv_flags|NN HV* stash|NN const char* name \ |U32 flags ApM |GV* |gv_fetchmethod_pvn_flags|NN HV* stash|NN const char* name \ - |STRLEN len|U32 flags + |const STRLEN len|U32 flags Ap |GV* |gv_fetchpv |NN const char *nambeg|I32 add|const svtype sv_type Ap |void |gv_fullname |NN SV* sv|NN const GV* gv Apmb |void |gv_fullname3 |NN SV* sv|NN const GV* gv|NULLOK const char* prefix @@ -599,9 +602,19 @@ ApPR |bool |is_uni_punct |UV c ApPR |bool |is_uni_xdigit |UV c Ap |UV |to_uni_upper |UV c|NN U8 *p|NN STRLEN *lenp Ap |UV |to_uni_title |UV c|NN U8 *p|NN STRLEN *lenp +#ifdef PERL_IN_UTF8_C +sR |U8 |to_lower_latin1|const U8 c|NULLOK U8 *p|NULLOK STRLEN *lenp +#endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) +EXp |UV |_to_fold_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const bool flags +#endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C) +p |UV |_to_upper_title_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const char S_or_s +ApR |bool |_is_utf8_quotemeta|NN const U8 *p +#endif Ap |UV |to_uni_lower |UV c|NN U8 *p|NN STRLEN *lenp Amp |UV |to_uni_fold |UV c|NN U8 *p|NN STRLEN *lenp -AMp |UV |_to_uni_fold_flags|UV c|NN U8 *p|NN STRLEN *lenp|U8 flags +AMp |UV |_to_uni_fold_flags|UV c|NN U8 *p|NN STRLEN *lenp|const bool flags ApPR |bool |is_uni_alnum_lc|UV c ApPR |bool |is_uni_idfirst_lc|UV c ApPR |bool |is_uni_alpha_lc|UV c @@ -616,7 +629,8 @@ ApPR |bool |is_uni_print_lc|UV c ApPR |bool |is_uni_punct_lc|UV c ApPR |bool |is_uni_xdigit_lc|UV c Anpd |bool |is_ascii_string|NN const U8 *s|STRLEN len -Anpd |STRLEN |is_utf8_char |NN const U8 *s +AnpdD |STRLEN |is_utf8_char |NN const U8 *s +Anpd |STRLEN |is_utf8_char_buf|NN const U8 *buf|NN const U8 *buf_end Anpd |bool |is_utf8_string |NN const U8 *s|STRLEN len Anpdmb |bool |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **p Anpd |bool |is_utf8_string_loclen|NN const U8 *s|STRLEN len|NULLOK const U8 **ep|NULLOK STRLEN *el @@ -755,6 +769,7 @@ p |int |magic_settaint |NN SV* sv|NN MAGIC* mg p |int |magic_setuvar |NN SV* sv|NN MAGIC* mg p |int |magic_setvec |NN SV* sv|NN MAGIC* mg p |int |magic_setutf8 |NN SV* sv|NN MAGIC* mg +p |int |magic_setvstring|NN SV* sv|NN MAGIC* mg p |int |magic_set_all_env|NN SV* sv|NN MAGIC* mg p |U32 |magic_sizepack |NN SV* sv|NN MAGIC* mg p |int |magic_wipepack |NN SV* sv|NN MAGIC* mg @@ -845,7 +860,9 @@ i |bool |aassign_common_vars |NULLOK OP* o Apda |OP* |newASSIGNOP |I32 flags|NULLOK OP* left|I32 optype|NULLOK OP* right Apda |OP* |newCONDOP |I32 flags|NN OP* first|NULLOK OP* trueop|NULLOK OP* falseop Apd |CV* |newCONSTSUB |NULLOK HV* stash|NULLOK const char* name|NULLOK SV* sv -Apd |CV* |newCONSTSUB_flags |NULLOK HV* stash|NULLOK const char* name|U32 flags|NULLOK SV* sv +Apd |CV* |newCONSTSUB_flags|NULLOK HV* stash \ + |NULLOK const char* name|STRLEN len \ + |U32 flags|NULLOK SV* sv #ifdef PERL_MAD Ap |OP* |newFORM |I32 floor|NULLOK OP* o|NULLOK OP* block #else @@ -864,6 +881,11 @@ Apda |OP* |newSLICEOP |I32 flags|NULLOK OP* subscript|NULLOK OP* listop Apda |OP* |newSTATEOP |I32 flags|NULLOK char* label|NULLOK OP* o Abm |CV* |newSUB |I32 floor|NULLOK OP* o|NULLOK OP* proto \ |NULLOK OP* block +p |CV * |newXS_len_flags|NULLOK const char *name|STRLEN len \ + |NN XSUBADDR_t subaddr\ + |NN const char *const filename \ + |NULLOK const char *const proto \ + |NULLOK SV **const_svp|U32 flags ApM |CV * |newXS_flags |NULLOK const char *name|NN XSUBADDR_t subaddr\ |NN const char *const filename \ |NULLOK const char *const proto|U32 flags @@ -919,6 +941,7 @@ po |OP* |ck_entersub_args_core|NN OP *entersubop|NN GV *namegv \ |NN SV *protosv Apd |void |cv_get_call_checker|NN CV *cv|NN Perl_call_checker *ckfun_p|NN SV **ckobj_p Apd |void |cv_set_call_checker|NN CV *cv|NN Perl_call_checker ckfun|NN SV *ckobj +Apd |void |wrap_op_checker|Optype opcode|NN Perl_check_t new_checker|NN Perl_check_t *old_checker_p Apa |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems Ap |char* |scan_vstring |NN const char *s|NN const char *const e \ |NN SV *sv @@ -1016,6 +1039,7 @@ Ap |SV* |regclass_swash |NULLOK const regexp *prog \ EMi |U8 |set_regclass_bit|NN struct RExC_state_t* pRExC_state|NN regnode* node|const U8 value|NN SV** invlist_ptr|NN AV** alternate_ptr EMs |U8 |set_regclass_bit_fold|NN struct RExC_state_t *pRExC_state|NN regnode* node|const U8 value|NN SV** invlist_ptr|NN AV** alternate_ptr EMs |void |add_alternate |NN AV** alternate_ptr|NN U8* string|STRLEN len +EMsR |SV* |_new_invlist_C_array|NN UV* list #endif Ap |I32 |pregexec |NN REGEXP * const prog|NN char* stringarg \ |NN char* strend|NN char* strbeg|I32 minend \ @@ -1065,7 +1089,7 @@ EXp |SV*|reg_qr_package|NN REGEXP * const rx : FIXME - why the E? Ep |void |regprop |NULLOK const regexp *prog|NN SV* sv|NN const regnode* o -Anp |void |repeatcpy |NN char* to|NN const char* from|I32 len|I32 count +Anp |void |repeatcpy |NN char* to|NN const char* from|I32 len|IV count AnpP |char* |rninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend Ap |Sighandler_t|rsignal |int i|Sighandler_t t @@ -1193,8 +1217,8 @@ Apd |NV |sv_2nv_flags |NULLOK SV *const sv|const I32 flags pMd |SV* |sv_2num |NN SV *const sv Amb |char* |sv_2pv |NULLOK SV *sv|NULLOK STRLEN *lp Apd |char* |sv_2pv_flags |NULLOK SV *const sv|NULLOK STRLEN *const lp|const I32 flags -Apd |char* |sv_2pvutf8 |NN SV *const sv|NULLOK STRLEN *const lp -Apd |char* |sv_2pvbyte |NN SV *const sv|NULLOK STRLEN *const lp +Apd |char* |sv_2pvutf8 |NN SV *sv|NULLOK STRLEN *const lp +Apd |char* |sv_2pvbyte |NN SV *sv|NULLOK STRLEN *const lp Ap |char* |sv_pvn_nomg |NN SV* sv|NULLOK STRLEN* lp Amb |UV |sv_2uv |NULLOK SV *sv Apd |UV |sv_2uv_flags |NULLOK SV *const sv|const I32 flags @@ -1251,8 +1275,12 @@ ApdR |bool |sv_derived_from|NN SV* sv|NN const char *const name ApdR |bool |sv_derived_from_sv|NN SV* sv|NN SV *namesv|U32 flags ApdR |bool |sv_derived_from_pv|NN SV* sv|NN const char *const name|U32 flags ApdR |bool |sv_derived_from_pvn|NN SV* sv|NN const char *const name \ - |STRLEN len|U32 flags + |const STRLEN len|U32 flags ApdR |bool |sv_does |NN SV* sv|NN const char *const name +ApdR |bool |sv_does_sv |NN SV* sv|NN SV* namesv|U32 flags +ApdR |bool |sv_does_pv |NN SV* sv|NN const char *const name|U32 flags +ApdR |bool |sv_does_pvn |NN SV* sv|NN const char *const name|const STRLEN len \ + |U32 flags Amd |I32 |sv_eq |NULLOK SV* sv1|NULLOK SV* sv2 Apd |I32 |sv_eq_flags |NULLOK SV* sv1|NULLOK SV* sv2|const U32 flags Apd |void |sv_free |NULLOK SV *const sv @@ -1333,7 +1361,7 @@ Apd |void |sv_vsetpvfn |NN SV *const sv|NN const char *const pat|const STRLEN pa |NULLOK va_list *const args|NULLOK SV **const svargs \ |const I32 svmax|NULLOK bool *const maybe_tainted ApR |NV |str_to_version |NN SV *sv -Ap |SV* |swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none +ApR |SV* |swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none Ap |UV |swash_fetch |NN SV *swash|NN const U8 *ptr|bool do_utf8 #ifdef PERL_IN_REGCOMP_C EiMR |SV* |add_cp_to_invlist |NULLOK SV* invlist|const UV cp @@ -1349,29 +1377,49 @@ EiM |void |invlist_set_len |NN SV* const invlist|const UV len EiM |void |invlist_trim |NN SV* const invlist EiMR |SV* |invlist_clone |NN SV* const invlist EiMR |UV* |get_invlist_iter_addr |NN SV* invlist +EiMR |UV* |get_invlist_version_id_addr |NN SV* invlist EiM |void |invlist_iterinit|NN SV* invlist EsMR |bool |invlist_iternext|NN SV* invlist|NN UV* start|NN UV* end +EsMR |IV |invlist_search |NN SV* const invlist|const UV cp #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C) -EXpM |void |_invlist_intersection |NN SV* const a|NN SV* const b|NN SV** i -EXpM |void |_invlist_union |NN SV* const a|NN SV* const b|NN SV** output -EXpM |void |_invlist_subtract|NN SV* const a|NN SV* const b|NN SV** result +EXmM |void |_invlist_intersection |NN SV* const a|NN SV* const b|NN SV** i +EXpM |void |_invlist_intersection_maybe_complement_2nd|NULLOK SV* const a|NN SV* const b|bool complement_b|NN SV** i +EXmM |void |_invlist_union |NULLOK SV* const a|NN SV* const b|NN SV** output +EXpM |void |_invlist_union_maybe_complement_2nd|NULLOK SV* const a|NN SV* const b|bool complement_b|NN SV** output +EXmM |void |_invlist_subtract|NN SV* const a|NN SV* const b|NN SV** result EXpM |void |_invlist_invert|NN SV* const invlist EXpM |void |_invlist_invert_prop|NN SV* const invlist EXMpR |HV* |_swash_inversion_hash |NN SV* const swash EXMpR |SV* |_new_invlist |IV initial_size EXMpR |SV* |_swash_to_invlist |NN SV* const swash EXMp |void |_append_range_to_invlist |NN SV* const invlist|const UV start|const UV end +EXMp |void |_invlist_populate_swatch |NN SV* const invlist|const UV start|const UV end|NN U8* swatch +#endif +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) +EXp |SV* |_core_swash_init|NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits \ + |I32 none|bool return_if_undef|NULLOK SV* invlist \ + |bool passed_in_invlist_has_user_defined_property +EXMpR |SV* |_invlist_contents|NN SV* const invlist #endif Ap |void |taint_env Ap |void |taint_proper |NULLOK const char* f|NN const char *const s Apd |UV |to_utf8_case |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp \ |NN SV **swashp|NN const char *normal|NULLOK const char *special -Apd |UV |to_utf8_lower |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -Apd |UV |to_utf8_upper |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -Apd |UV |to_utf8_title |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -Ampd |UV |to_utf8_fold |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -AMp |UV |_to_utf8_fold_flags|NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|U8 flags +Abmd |UV |to_utf8_lower |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp +AMp |UV |_to_utf8_lower_flags |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|const bool flags|NULLOK bool* tainted_ptr +Abmd |UV |to_utf8_upper |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp +AMp |UV |_to_utf8_upper_flags |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|const bool flags|NULLOK bool* tainted_ptr +Abmd |UV |to_utf8_title |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp +AMp |UV |_to_utf8_title_flags |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|const bool flags|NULLOK bool* tainted_ptr +Abmd |UV |to_utf8_fold |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp +AMp |UV |_to_utf8_fold_flags|NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|U8 flags|NULLOK bool* tainted_ptr +#if defined(PERL_IN_MG_C) || defined(PERL_IN_PP_C) +p |bool |translate_substr_offsets|STRLEN curlen|IV pos1_iv \ + |bool pos1_is_uv|IV len_iv \ + |bool len_is_uv|NN STRLEN *posp \ + |NN STRLEN *lenp +#endif #if defined(UNLINK_ALL_VERSIONS) Ap |I32 |unlnk |NN const char* f #endif @@ -1400,8 +1448,12 @@ Apd |int |bytes_cmp_utf8 |NN const U8 *b|STRLEN blen|NN const U8 *u \ |STRLEN ulen ApMd |U8* |bytes_from_utf8|NN const U8 *s|NN STRLEN *len|NULLOK bool *is_utf8 ApMd |U8* |bytes_to_utf8 |NN const U8 *s|NN STRLEN *len -Apd |UV |utf8_to_uvchr |NN const U8 *s|NULLOK STRLEN *retlen -Apd |UV |utf8_to_uvuni |NN const U8 *s|NULLOK STRLEN *retlen +ApdD |UV |utf8_to_uvchr |NN const U8 *s|NULLOK STRLEN *retlen +ApdD |UV |utf8_to_uvuni |NN const U8 *s|NULLOK STRLEN *retlen +ApM |UV |valid_utf8_to_uvchr |NN const U8 *s|NULLOK STRLEN *retlen +ApM |UV |valid_utf8_to_uvuni |NN const U8 *s|NULLOK STRLEN *retlen +Apd |UV |utf8_to_uvchr_buf |NN const U8 *s|NN const U8 *send|NULLOK STRLEN *retlen +Apd |UV |utf8_to_uvuni_buf |NN const U8 *s|NN const U8 *send|NULLOK STRLEN *retlen pM |bool |check_utf8_print |NN const U8 *s|const STRLEN len #ifdef EBCDIC @@ -1440,6 +1492,11 @@ p |void |report_evil_fh |NULLOK const GV *gv p |void |report_wrongway_fh|NULLOK const GV *gv|const char have : Used in mg.c, pp.c, pp_hot.c, regcomp.c XEpd |void |report_uninit |NULLOK const SV *uninit_sv +#if defined(PERL_IN_OP_C) || defined(PERL_IN_SV_C) +p |void |report_redefined_cv|NN const SV *name \ + |NN const CV *old_cv \ + |NULLOK SV * const *new_const_svp +#endif Apd |void |warn_sv |NN SV *baseex Afpd |void |warn |NN const char* pat|... Apd |void |vwarn |NN const char* pat|NULLOK va_list* args @@ -1449,11 +1506,16 @@ Afp |void |ck_warner_d |U32 err|NN const char* pat|... Ap |void |vwarner |U32 err|NN const char* pat|NULLOK va_list* args : FIXME p |void |watch |NN char** addr -Ap |I32 |whichsig |NN const char* sig +Am |I32 |whichsig |NN const char* sig +Ap |I32 |whichsig_sv |NN SV* sigsv +Ap |I32 |whichsig_pv |NN const char* sig +Ap |I32 |whichsig_pvn |NN const char* sig|STRLEN len : Used in pp_ctl.c p |void |write_to_stderr|NN SV* msv : Used in op.c p |int |yyerror |NN const char *const s +p |int |yyerror_pv |NN const char *const s|U32 flags +p |int |yyerror_pvn |NN const char *const s|STRLEN len|U32 flags : Used in perly.y, and by Data::Alias EXp |int |yylex p |void |yyunlex @@ -1462,7 +1524,7 @@ p |int |yyparse |int gramtype : Only used in scope.c p |void |parser_free |NN const yy_parser *parser #if defined(PERL_IN_TOKE_C) -s |int |yywarn |NN const char *const s +s |int |yywarn |NN const char *const s|U32 flags #endif #if defined(MYMALLOC) Ap |void |dump_mstats |NN const char* s @@ -1544,6 +1606,9 @@ Apd |SV* |sv_rvweaken |NN SV *const sv p |int |magic_killbackrefs|NN SV *sv|NN MAGIC *mg Ap |OP* |newANONATTRSUB |I32 floor|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block Ap |CV* |newATTRSUB |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block +p |CV* |newATTRSUB_flags|I32 floor|NULLOK OP *o|NULLOK OP *proto \ + |NULLOK OP *attrs|NULLOK OP *block \ + |U32 flags #ifdef PERL_MAD Apr |OP * |newMYSUB |I32 floor|NULLOK OP *o|NULLOK OP *proto \ |NULLOK OP *attrs|NULLOK OP *block @@ -1568,8 +1633,6 @@ ApR |MAGIC* |mg_dup |NULLOK MAGIC *mg|NN CLONE_PARAMS *const param #if defined(PERL_IN_SV_C) s |SV ** |sv_dup_inc_multiple|NN SV *const *source|NN SV **dest \ |SSize_t items|NN CLONE_PARAMS *const param -#endif -#if defined(PERL_IN_SV_C) sR |SV* |sv_dup_common |NN const SV *const sstr \ |NN CLONE_PARAMS *const param #endif @@ -1678,17 +1741,20 @@ sR |OP* |newDEFSVOP sR |OP* |search_const |NN OP *o sR |OP* |new_logop |I32 type|I32 flags|NN OP **firstp|NN OP **otherp s |void |simplify_sort |NN OP *o -s |const char* |gv_ename |NN GV *gv +s |SV* |gv_ename |NN GV *gv sRn |bool |scalar_mod_type|NULLOK const OP *o|I32 type s |OP * |my_kid |NULLOK OP *o|NULLOK OP *attrs|NN OP **imopsp s |OP * |dup_attrlist |NN OP *o s |void |apply_attrs |NN HV *stash|NN SV *target|NULLOK OP *attrs|bool for_my s |void |apply_attrs_my |NN HV *stash|NN OP *target|NULLOK OP *attrs|NN OP **imopsp -s |void |bad_type |I32 n|NN const char *t|NN const char *name|NN const OP *kid +s |void |bad_type_pv |I32 n|NN const char *t|NN const char *name|U32 flags|NN const OP *kid +s |void |bad_type_sv |I32 n|NN const char *t|NN SV *namesv|U32 flags|NN const OP *kid s |void |no_bareword_allowed|NN OP *o sR |OP* |no_fh_allowed|NN OP *o -sR |OP* |too_few_arguments|NN OP *o|NN const char* name -s |OP* |too_many_arguments|NN OP *o|NN const char* name +sR |OP* |too_few_arguments_sv|NN OP *o|NN SV* namesv|U32 flags +sR |OP* |too_few_arguments_pv|NN OP *o|NN const char* name|U32 flags +s |OP* |too_many_arguments_pv|NN OP *o|NN const char* name|U32 flags +sR |OP* |too_many_arguments_sv|NN OP *o|NN SV* namesv|U32 flags s |bool |looks_like_bool|NN const OP* o s |OP* |newGIVWHENOP |NULLOK OP* cond|NN OP *block \ |I32 enter_opcode|I32 leave_opcode \ @@ -1718,6 +1784,8 @@ s |void |find_beginning |NN SV* linestr_sv|NN PerlIO *rsfp s |void |forbid_setid |const char flag|const bool suidscript s |void |incpush |NN const char *const dir|STRLEN len \ |U32 flags +s |SV* |mayberelocate |NN const char *const dir|STRLEN len \ + |U32 flags s |void |incpush_use_sep|NN const char *p|STRLEN len|U32 flags s |void |init_interp s |void |init_ids @@ -1727,12 +1795,13 @@ s |void |init_postdump_symbols|int argc|NN char **argv|NULLOK char **env s |void |init_predump_symbols rs |void |my_exit_jump s |void |nuke_stacks -s |int |open_script |NN const char *scriptname|bool dosearch \ - |NN bool *suidscript|NN PerlIO **rsfpp -s |void |usage |NN const char *name +s |PerlIO *|open_script |NN const char *scriptname|bool dosearch \ + |NN bool *suidscript +sr |void |usage #ifndef SETUID_SCRIPTS_ARE_SECURE_NOW so |void |validate_suid |NN PerlIO *rsfp #endif +sr |void |minus_v s |void* |parse_body |NULLOK char **env|XSINIT_t xsinit rs |void |run_body |I32 oldscope @@ -1772,17 +1841,19 @@ snR |char * |bytes_to_uni |NN const U8 *start|STRLEN len|NN char *dest #if defined(PERL_IN_PP_CTL_C) sR |OP* |docatch |NULLOK OP *o -sR |OP* |dofindlabel |NN OP *o|NN const char *label|NN OP **opstack|NN OP **oplimit +sR |OP* |dofindlabel |NN OP *o|NN const char *label|STRLEN len \ + |U32 flags|NN OP **opstack|NN OP **oplimit s |MAGIC *|doparseform |NN SV *sv snR |bool |num_overflow |NV value|I32 fldsize|I32 frcsize sR |I32 |dopoptoeval |I32 startingblock sR |I32 |dopoptogiven |I32 startingblock -sR |I32 |dopoptolabel |NN const char *label +sR |I32 |dopoptolabel |NN const char *label|STRLEN len|U32 flags sR |I32 |dopoptoloop |I32 startingblock sR |I32 |dopoptosub_at |NN const PERL_CONTEXT* cxstk|I32 startingblock sR |I32 |dopoptowhen |I32 startingblock s |void |save_lines |NULLOK AV *array|NN SV *sv -s |bool |doeval |int gimme|NULLOK OP** startop|NULLOK CV* outside|U32 seq +s |bool |doeval |int gimme|NULLOK OP** startop \ + |NULLOK CV* outside|U32 seq|NULLOK HV* hh sR |PerlIO *|check_type_and_open|NN SV *name #ifndef PERL_DISABLE_PMC sR |PerlIO *|doopen_pm |NN SV *name @@ -1851,7 +1922,9 @@ Es |void |regtail |NN struct RExC_state_t *pRExC_state \ Es |SV * |reg_scan_name |NN struct RExC_state_t *pRExC_state \ |U32 flags Es |U32 |join_exact |NN struct RExC_state_t *pRExC_state \ - |NN regnode *scan|NN I32 *min|U32 flags|NULLOK regnode *val|U32 depth + |NN regnode *scan|NN UV *min_subtract \ + |NN bool *has_exactf_sharp_s \ + |U32 flags|NULLOK regnode *val|U32 depth EsRn |char * |regwhite |NN struct RExC_state_t *pRExC_state \ |NN char *p Es |char * |nextchar |NN struct RExC_state_t *pRExC_state @@ -1919,6 +1992,9 @@ ERs |bool |reginclass |NULLOK const regexp * const prog|NN const regnode * const Es |CHECKPOINT|regcppush |I32 parenfloor Es |char* |regcppop |NN const regexp *rex ERsn |U8* |reghop3 |NN U8 *s|I32 off|NN const U8 *lim +ERsM |SV* |core_regclass_swash|NULLOK const regexp *prog \ + |NN const struct regnode *node|bool doinit \ + |NULLOK SV **listsvp|NULLOK SV **altsvp #ifdef XXX_dmq ERsn |U8* |reghop4 |NN U8 *s|I32 off|NN const U8 *llim \ |NN const U8 *rlim @@ -1941,8 +2017,6 @@ Es |void |debug_start_match|NN const REGEXP *prog|const bool do_utf8\ #if defined(PERL_IN_DUMP_C) s |CV* |deb_curcv |const I32 ix s |void |debprof |NN const OP *o -s |void |sequence |NULLOK const OP *o -s |void |sequence_tail |NULLOK const OP *o s |UV |sequence_num |NULLOK const OP *o s |SV* |pm_description |NN const PMOP *pm #endif @@ -1961,15 +2035,18 @@ po |void |sv_add_backref |NN SV *const tsv|NN SV *const sv poM |void |sv_kill_backrefs |NN SV *const sv|NULLOK AV *const av #endif +#if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C) +pR |SV * |varname |NULLOK const GV *const gv|const char gvtype \ + |PADOFFSET targ|NULLOK const SV *const keyname \ + |I32 aindex|int subscript_type +#endif + pX |void |sv_del_backref |NN SV *const tsv|NN SV *const sv #if defined(PERL_IN_SV_C) nsR |char * |uiv_2buf |NN char *const buf|const IV iv|UV uv|const int is_uv|NN char **const peob -s |void |sv_unglob |NN SV *const sv +i |void |sv_unglob |NN SV *const sv|U32 flags s |void |not_a_number |NN SV *const sv s |I32 |visit |NN SVFUNC_t f|const U32 flags|const U32 mask -sR |SV * |varname |NULLOK const GV *const gv|const char gvtype \ - |PADOFFSET targ|NULLOK const SV *const keyname \ - |I32 aindex|int subscript_type # ifdef DEBUGGING s |void |del_sv |NN SV *p # endif @@ -2106,8 +2183,9 @@ sn |NV|mulexp10 |NV value|I32 exponent #if defined(PERL_IN_UTF8_C) sRn |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len +sRM |UV |check_locale_boundary_crossing|NN const U8* const p|const UV result|NN U8* const ustrp|NN STRLEN *lenp sR |bool |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * const swashname -sR |SV* |swash_get |NN SV* swash|UV start|UV span +sR |SV* |swatch_get |NN SV* swash|UV start|UV span #endif Apd |void |sv_setsv_flags |NN SV *dstr|NULLOK SV *sstr|const I32 flags @@ -2191,9 +2269,9 @@ Apd |PADOFFSET|pad_add_anon |NN CV* func|I32 optype #if defined(PERL_IN_PAD_C) sd |void |pad_check_dup |NN SV *name|U32 flags|NULLOK const HV *ourstash #endif -ApdR |PADOFFSET|pad_findmy_pvn|NN const char* namepv|STRLEN namelen|U32 flags -ApdR |PADOFFSET|pad_findmy_pv|NN const char* name|U32 flags -ApdR |PADOFFSET|pad_findmy_sv|NN SV* name|U32 flags +Apd |PADOFFSET|pad_findmy_pvn|NN const char* namepv|STRLEN namelen|U32 flags +Apd |PADOFFSET|pad_findmy_pv|NN const char* name|U32 flags +Apd |PADOFFSET|pad_findmy_sv|NN SV* name|U32 flags ApdD |PADOFFSET|find_rundefsvoffset | Apd |SV* |find_rundefsv | : Used in pp.c @@ -2255,8 +2333,7 @@ p |void |hv_ename_delete|NN HV *hv|NN const char *name|U32 len \ |U32 flags : Used in dump.c and hv.c poM |AV** |hv_backreferences_p |NN HV *hv -#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) -: Only used in sv.c +#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_SCOPE_C) poM |void |hv_kill_backrefs |NN HV *hv #endif Apd |void |hv_clear_placeholders |NN HV *hv @@ -2533,6 +2610,7 @@ Anop |void |clone_params_del|NN CLONE_PARAMS *param op |void |populate_isa |NN const char *name|STRLEN len|... : Used in keywords.c and toke.c -op |bool |feature_is_enabled|NN const char *const name|STRLEN namelen +Xop |bool |feature_is_enabled|NN const char *const name \ + |STRLEN namelen : ex: set ts=8 sts=4 sw=4 noet: