X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c82ecf346a8512f22f25188e450d92938c245421..ea3daa5d5f60389b105c00d4f7d05b5c2f2155f2:/embed.fnc diff --git a/embed.fnc b/embed.fnc index 15f21ec..d223f0d 100644 --- a/embed.fnc +++ b/embed.fnc @@ -185,6 +185,9 @@ Anop |Free_t |mfree |Malloc_t where npR |MEM_SIZE|malloced_size |NN void *p npR |MEM_SIZE|malloc_good_size |size_t nbytes #endif +#if defined(PERL_IN_MALLOC_C) +sn |int |adjust_size_and_find_bucket |NN size_t *nbytes_p +#endif AnpR |void* |get_context Anp |void |set_context |NN void *t @@ -204,27 +207,28 @@ Apd |OP* |op_prepend_elem|I32 optype|NULLOK OP* first|NULLOK OP* last p |I32 |apply |I32 type|NN SV** mark|NN SV** sp ApM |void |apply_attrs_string|NN const char *stashpv|NN CV *cv|NN const char *attrstr|STRLEN len Apd |void |av_clear |NN AV *av -Apd |SV* |av_delete |NN AV *av|I32 key|I32 flags -ApdR |bool |av_exists |NN AV *av|I32 key -Apd |void |av_extend |NN AV *av|I32 key -p |void |av_extend_guts |NULLOK AV *av|I32 key|NN SSize_t *maxp \ +Apd |SV* |av_delete |NN AV *av|SSize_t key|I32 flags +ApdR |bool |av_exists |NN AV *av|SSize_t key +Apd |void |av_extend |NN AV *av|SSize_t key +p |void |av_extend_guts |NULLOK AV *av|SSize_t key \ + |NN SSize_t *maxp \ |NN SV ***allocp|NN SV ***arrayp -ApdR |SV** |av_fetch |NN AV *av|I32 key|I32 lval -Apd |void |av_fill |NN AV *av|I32 fill -ApdR |I32 |av_len |NN AV *av -ApdR |AV* |av_make |I32 size|NN SV **strp +ApdR |SV** |av_fetch |NN AV *av|SSize_t key|I32 lval +Apd |void |av_fill |NN AV *av|SSize_t fill +ApdR |SSize_t|av_len |NN AV *av +ApdR |AV* |av_make |SSize_t size|NN SV **strp Apd |SV* |av_pop |NN AV *av ApdoxM |void |av_create_and_push|NN AV **const avp|NN SV *const val Apd |void |av_push |NN AV *av|NN SV *val : Used in scope.c, and by Data::Alias EXp |void |av_reify |NN AV *av ApdR |SV* |av_shift |NN AV *av -Apd |SV** |av_store |NN AV *av|I32 key|NULLOK SV *val -AidR |I32 |av_top_index |NN AV *av -AmpdR |I32 |av_tindex |NN AV *av +Apd |SV** |av_store |NN AV *av|SSize_t key|NULLOK SV *val +AidR |SSize_t|av_top_index |NN AV *av +AmpdR |SSize_t|av_tindex |NN AV *av Apd |void |av_undef |NN AV *av ApdoxM |SV** |av_create_and_unshift_one|NN AV **const avp|NN SV *const val -Apd |void |av_unshift |NN AV *av|I32 num +Apd |void |av_unshift |NN AV *av|SSize_t num Apo |SV** |av_arylen_p |NN AV *av Apo |IV* |av_iter_p |NN AV *av #if defined(PERL_IN_AV_C) @@ -465,7 +469,7 @@ ApR |GV* |gv_autoload_pv |NULLOK HV* stash|NN const char* namepv \ |U32 flags ApR |GV* |gv_autoload_pvn |NULLOK HV* stash|NN const char* name \ |STRLEN len|U32 flags -Ap |void |gv_check |NN const HV* stash +Ap |void |gv_check |NN HV* stash Ap |void |gv_efullname |NN SV* sv|NN const GV* gv Apmb |void |gv_efullname3 |NN SV* sv|NN const GV* gv|NULLOK const char* prefix Ap |void |gv_efullname4 |NN SV* sv|NN const GV* gv|NULLOK const char* prefix|bool keepmain @@ -1024,7 +1028,6 @@ p |PADOFFSET|allocmy |NN const char *const name|const STRLEN len\ |const U32 flags #ifdef USE_ITHREADS AMp |PADOFFSET|alloccopstash|NN HV *hv -AMp |PADOFFSET|allocfilegv |NN GV *gv #endif : Used in perly.y pR |OP* |oopsAV |NN OP* o @@ -1093,8 +1096,8 @@ EMsR |SV* |_new_invlist_C_array|NN const UV* const list : Not used currently: EXMs |bool |_invlistEQ |NN SV* const a|NN SV* const b|const bool complement_b #endif Ap |I32 |pregexec |NN REGEXP * const prog|NN char* stringarg \ - |NN char* strend|NN char* strbeg|I32 minend \ - |NN SV* screamer|U32 nosave + |NN char* strend|NN char* strbeg \ + |SSize_t minend |NN SV* screamer|U32 nosave Ap |void |pregfree |NULLOK REGEXP* r Ap |void |pregfree2 |NN REGEXP *rx : FIXME - is anything in re using this now? @@ -1125,8 +1128,9 @@ EiPR |I32 |regcurly |NN const char *s \ |const bool rbrace_must_be_escaped #endif Ap |I32 |regexec_flags |NN REGEXP *const rx|NN char *stringarg \ - |NN char *strend|NN char *strbeg|I32 minend \ - |NN SV *sv|NULLOK void *data|U32 flags + |NN char *strend|NN char *strbeg \ + |SSize_t minend|NN SV *sv \ + |NULLOK void *data|U32 flags ApR |regnode*|regnext |NULLOK regnode* p EXp |SV*|reg_named_buff |NN REGEXP * const rx|NULLOK SV * const key \ |NULLOK SV * const value|const U32 flags @@ -1181,8 +1185,9 @@ Apda |char* |savesharedsvpv |NN SV *sv Apda |char* |savesvpv |NN SV* sv Ap |void |savestack_grow Ap |void |savestack_grow_cnt |I32 need -Amp |void |save_aelem |NN AV* av|I32 idx|NN SV **sptr -Ap |void |save_aelem_flags|NN AV* av|I32 idx|NN SV **sptr|const U32 flags +Amp |void |save_aelem |NN AV* av|SSize_t idx|NN SV **sptr +Ap |void |save_aelem_flags|NN AV* av|SSize_t idx|NN SV **sptr \ + |const U32 flags Ap |I32 |save_alloc |I32 size|I32 pad Ap |void |save_aptr |NN AV** aptr Ap |AV* |save_ary |NN GV* gv @@ -1190,7 +1195,7 @@ Ap |void |save_bool |NN bool* boolp Ap |void |save_clearsv |NN SV** svp Ap |void |save_delete |NN HV *hv|NN char *key|I32 klen Ap |void |save_hdelete |NN HV *hv|NN SV *keysv -Ap |void |save_adelete |NN AV *av|I32 key +Ap |void |save_adelete |NN AV *av|SSize_t key Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p Apmb |void |save_freesv |NULLOK SV* sv @@ -1224,6 +1229,7 @@ Ap |void |save_vptr |NN void *ptr Ap |void |save_re_context Ap |void |save_padsv_and_mortalize|PADOFFSET off Ap |void |save_sptr |NN SV** sptr +Xp |void |save_strlen |NN STRLEN* ptr Ap |SV* |save_svref |NN SV** sptr Ap |void |save_pushptr |NULLOK void *const ptr|const int type Ap |void |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int type @@ -1262,7 +1268,7 @@ Anp |Signal_t |csighandler |int sig|NULLOK siginfo_t *info|NULLOK void *uap np |Signal_t |sighandler |int sig Anp |Signal_t |csighandler |int sig #endif -Ap |SV** |stack_grow |NN SV** sp|NN SV** p|int n +Ap |SV** |stack_grow |NN SV** sp|NN SV** p|SSize_t n Ap |I32 |start_subparse |I32 is_format|U32 flags : Used in pp_ctl.c p |void |sub_crush_depth|NN CV* cv @@ -1690,7 +1696,7 @@ Apd |void |sv_utf8_encode |NN SV *const sv ApdM |bool |sv_utf8_decode |NN SV *const sv Apdmb |void |sv_force_normal|NN SV *sv Apd |void |sv_force_normal_flags|NN SV *const sv|const U32 flags -Ap |void |tmps_grow |I32 n +Ap |void |tmps_grow |SSize_t n Apd |SV* |sv_rvweaken |NN SV *const sv : This is indirectly referenced by globals.c. This is somewhat annoying. p |int |magic_killbackrefs|NN SV *sv|NN MAGIC *mg @@ -2028,8 +2034,8 @@ Ei |U8 |compute_EXACTish|NN struct RExC_state_t *pRExC_state Es |char * |nextchar |NN struct RExC_state_t *pRExC_state Es |bool |reg_skipcomment|NN struct RExC_state_t *pRExC_state Es |void |scan_commit |NN const struct RExC_state_t *pRExC_state \ - |NN struct scan_data_t *data|NN I32 *minlenp \ - |int is_inf + |NN struct scan_data_t *data \ + |NN SSize_t *minlenp|int is_inf Esn |void |cl_anything |NN const struct RExC_state_t *pRExC_state \ |NN struct regnode_charclass_class *cl EsRn |int |cl_is_anything |NN const struct regnode_charclass_class *cl @@ -2040,9 +2046,9 @@ Esn |void |cl_and |NN struct regnode_charclass_class *cl \ Esn |void |cl_or |NN const struct RExC_state_t *pRExC_state \ |NN struct regnode_charclass_class *cl \ |NN const struct regnode_charclass_class *or_with -Es |I32 |study_chunk |NN struct RExC_state_t *pRExC_state \ - |NN regnode **scanp|NN I32 *minlenp \ - |NN I32 *deltap|NN regnode *last \ +Es |SSize_t|study_chunk |NN struct RExC_state_t *pRExC_state \ + |NN regnode **scanp|NN SSize_t *minlenp \ + |NN SSize_t *deltap|NN regnode *last \ |NULLOK struct scan_data_t *data \ |I32 stopparen|NULLOK U8* recursed \ |NULLOK struct regnode_charclass_class *and_withp \ @@ -2086,7 +2092,7 @@ Es |U8 |regtail_study |NN struct RExC_state_t *pRExC_state \ #if defined(PERL_IN_REGEXEC_C) ERs |bool |isFOO_lc |const U8 classnum|const U8 character ERs |bool |isFOO_utf8_lc |const U8 classnum|NN const U8* character -ERs |I32 |regmatch |NN regmatch_info *reginfo|NN char *startpos|NN regnode *prog +ERs |SSize_t|regmatch |NN regmatch_info *reginfo|NN char *startpos|NN regnode *prog ERs |I32 |regrepeat |NN regexp *prog|NN char **startposp \ |NN const regnode *p \ |NN regmatch_info *const reginfo \ @@ -2099,15 +2105,15 @@ Es |CHECKPOINT|regcppush |NN const regexp *rex|I32 parenfloor\ |U32 maxopenparen Es |void |regcppop |NN regexp *rex\ |NN U32 *maxopenparen_p -ERsn |U8* |reghop3 |NN U8 *s|I32 off|NN const U8 *lim +ERsn |U8* |reghop3 |NN U8 *s|SSize_t off|NN const U8 *lim ERsM |SV* |core_regclass_swash|NULLOK const regexp *prog \ |NN const struct regnode *node|bool doinit \ |NULLOK SV **listsvp #ifdef XXX_dmq -ERsn |U8* |reghop4 |NN U8 *s|I32 off|NN const U8 *llim \ +ERsn |U8* |reghop4 |NN U8 *s|SSize_t off|NN const U8 *llim \ |NN const U8 *rlim #endif -ERsn |U8* |reghopmaybe3 |NN U8 *s|I32 off|NN const U8 *lim +ERsn |U8* |reghopmaybe3 |NN U8 *s|SSize_t off|NN const U8 *lim ERs |char* |find_byclass |NN regexp * prog|NN const regnode *c \ |NN char *s|NN const char *strend \ |NULLOK regmatch_info *reginfo @@ -2155,7 +2161,9 @@ 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 i |void |sv_unglob |NN SV *const sv|U32 flags +s |const char *|sv_display |NN SV *const sv|NN char *tmpbuf|STRLEN tmpbuf_size s |void |not_a_number |NN SV *const sv +s |void |not_incrementable |NN SV *const sv s |I32 |visit |NN SVFUNC_t f|const U32 flags|const U32 mask # ifdef DEBUGGING s |void |del_sv |NN SV *p @@ -2276,12 +2284,10 @@ s |bool|isa_lookup |NN HV *stash|NN const char * const name \ |STRLEN len|U32 flags #endif -#if defined(PERL_IN_LOCALE_C) -#if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE) +#if defined(PERL_IN_LOCALE_C) && defined(USE_LOCALE) s |char* |stdize_locale |NN char* locs s |bool |is_cur_LC_category_utf8|int category #endif -#endif #if defined(PERL_IN_UTIL_C) s |const COP*|closest_cop |NN const COP *cop|NULLOK const OP *o @@ -2660,8 +2666,9 @@ op |void |populate_isa |NN const char *name|STRLEN len|... Xop |bool |feature_is_enabled|NN const char *const name \ |STRLEN namelen -: Some static inline functions that implement macros need predeclaration -: because they are used inside other static inline functions. -Aoi |void |SvREFCNT_dec_NN|NN SV *sv +: Some static inline functions need predeclaration because they are used +: inside other static inline functions. +Ei |STRLEN |sv_or_pv_pos_u2b|NN SV *sv|NN const char *pv|STRLEN pos \ + |NULLOK STRLEN *lenp : ex: set ts=8 sts=4 sw=4 noet: