X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/aea323039bd02667df3bd60d27358d65842cd171..7d48cb41fd3a26f4000a386de357c009204bcf14:/embed.fnc diff --git a/embed.fnc b/embed.fnc index 1a053e8..0001d1f 100644 --- a/embed.fnc +++ b/embed.fnc @@ -99,7 +99,7 @@ END_EXTERN_C START_EXTERN_C # include "pp_proto.h" Ap |SV* |amagic_call |NN SV* left|NN SV* right|int method|int dir -Ap |bool |Gv_AMupdate |NN HV* stash +Ap |int |Gv_AMupdate |NN HV* stash|bool destructing ApR |CV* |gv_handler |NULLOK HV* stash|I32 id : Used in perly.y p |OP* |append_elem |I32 optype|NULLOK OP* first|NULLOK OP* last @@ -533,7 +533,7 @@ Apd |UV |grok_oct |NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV p |int |magic_clearenv |NN SV* sv|NN MAGIC* mg p |int |magic_clear_all_env|NN SV* sv|NN MAGIC* mg dp |int |magic_clearhint|NN SV* sv|NN MAGIC* mg -p |int |magic_clearisa |NN SV* sv|NN MAGIC* mg +p |int |magic_clearisa |NULLOK SV* sv|NN MAGIC* mg p |int |magic_clearpack|NN SV* sv|NN MAGIC* mg p |int |magic_clearsig |NN SV* sv|NN MAGIC* mg p |int |magic_existspack|NN SV* sv|NN const MAGIC* mg @@ -568,7 +568,7 @@ p |int |magic_setnkeys |NN SV* sv|NN MAGIC* mg p |int |magic_setpack |NN SV* sv|NN MAGIC* mg p |int |magic_setpos |NN SV* sv|NN MAGIC* mg p |int |magic_setregexp|NN SV* sv|NN MAGIC* mg -p |int |magic_setsig |NN SV* sv|NN MAGIC* mg +p |int |magic_setsig |NULLOK SV* sv|NN MAGIC* mg p |int |magic_setsubstr|NN SV* sv|NN MAGIC* mg p |int |magic_settaint |NN SV* sv|NN MAGIC* mg p |int |magic_setuvar |NN SV* sv|NN MAGIC* mg @@ -772,9 +772,9 @@ Ap |void |despatch_signals Ap |OP * |doref |NN OP *o|I32 type|bool set_op_ref Apd |SV* |eval_pv |NN const char* p|I32 croak_on_error Apd |I32 |eval_sv |NN SV* sv|I32 flags -Apd |SV* |get_sv |NN const char* name|I32 create -Apd |AV* |get_av |NN const char* name|I32 create -Apd |HV* |get_hv |NN const char* name|I32 create +Apd |SV* |get_sv |NN const char *name|I32 flags +Apd |AV* |get_av |NN const char *name|I32 flags +Apd |HV* |get_hv |NN const char *name|I32 flags Apd |CV* |get_cv |NN const char* name|I32 flags Apd |CV* |get_cvn_flags |NN const char* name|STRLEN len|I32 flags Ap |int |init_i18nl10n |int printwarn @@ -972,7 +972,6 @@ Apd |CV* |sv_2cv |NULLOK SV* sv|NN HV **const st|NN GV **const gvp \ Apd |IO* |sv_2io |NN SV *const sv #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) s |bool |glob_2number |NN GV* const gv -s |char* |glob_2pv |NN GV* const gv|NULLOK STRLEN * const len #endif Amb |IV |sv_2iv |NULLOK SV *sv Apd |IV |sv_2iv_flags |NULLOK SV *const sv|const I32 flags @@ -1278,8 +1277,6 @@ Apr |void |newMYSUB |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NU #endif : Used in perly.y p |OP * |my_attrs |NN OP *o|NULLOK OP *attrs -: Only used in perl.c -p |void |boot_core_xsutils #if defined(USE_ITHREADS) ApR |PERL_CONTEXT*|cx_dup |NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN CLONE_PARAMS* param ApR |PERL_SI*|si_dup |NULLOK PERL_SI* si|NN CLONE_PARAMS* param @@ -1293,6 +1290,10 @@ Ap |PerlIO*|fp_dup |NULLOK PerlIO *const fp|const char type|NN CLONE_PARAMS *co ApR |DIR* |dirp_dup |NULLOK DIR *const dp ApR |GP* |gp_dup |NULLOK GP *const gp|NN CLONE_PARAMS *const param ApR |MAGIC* |mg_dup |NULLOK MAGIC *mg|NN CLONE_PARAMS *const param +#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) +s |SV ** |sv_dup_inc_multiple|NN SV *const *source|NN SV **dest \ + |SSize_t items|NN CLONE_PARAMS *const param +#endif ApR |SV* |sv_dup |NULLOK const SV *const sstr|NN CLONE_PARAMS *const param Ap |void |rvpv_dup |NN SV *const dstr|NN const SV *const sstr|NN CLONE_PARAMS *const param Ap |yy_parser*|parser_dup |NULLOK const yy_parser *const proto|NN CLONE_PARAMS *const param @@ -1353,6 +1354,7 @@ paRxo |void* |get_arena |const size_t svtype|const U32 misc #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) s |void |hsplit |NN HV *hv s |void |hfreeentries |NN HV *hv +s |I32 |anonymise_cv |NULLOK HEK *stash|NN SV *val sa |HE* |new_he sanR |HEK* |save_hek_flags |NN const char *str|I32 len|U32 hash|int flags sn |void |hv_magic_check |NN HV *hv|NN bool *needs_copy|NN bool *needs_store @@ -1473,7 +1475,9 @@ s |void |Slab_to_rw |NN void *op #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) s |void |find_beginning |NN SV* linestr_sv|NN PerlIO *rsfp s |void |forbid_setid |const char flag|const bool suidscript -s |void |incpush |NULLOK const char *dir|bool addsubdirs|bool addoldvers|bool usesep|bool canrelocate|bool unshift +s |void |incpush |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 s |void |init_main_stash @@ -1485,30 +1489,13 @@ 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 -#ifdef DOSUID -# ifdef IAMSUID -so |void |validate_suid |NN const char *validarg \ - |int fdscript \ - |bool suidscript|NN SV* linestr_sv \ - |NN PerlIO *rsfp -# else -so |void |validate_suid |NN const char *validarg \ - |NN const char *scriptname|int fdscript \ - |NN SV* linestr_sv \ - |NN PerlIO *rsfp -# endif -#else -# ifndef SETUID_SCRIPTS_ARE_SECURE_NOW +#ifndef SETUID_SCRIPTS_ARE_SECURE_NOW so |void |validate_suid |NN PerlIO *rsfp -# endif #endif -# if defined(IAMSUID) -s |int |fd_on_nosuid_fs|int fd -# endif s |void* |parse_body |NULLOK char **env|XSINIT_t xsinit rs |void |run_body |I32 oldscope -s |SV * |incpush_if_exists|NN SV *dir +s |SV * |incpush_if_exists|NN AV *const av|NN SV *dir|NN SV *const stem #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) @@ -1607,7 +1594,7 @@ Es |UV |reg_recode |const char value|NN SV **encp Es |regnode*|regpiece |NN struct RExC_state_t *pRExC_state \ |NN I32 *flagp|U32 depth Es |regnode*|reg_namedseq |NN struct RExC_state_t *pRExC_state \ - |NULLOK UV *valuep + |NULLOK UV *valuep|NULLOK I32 *flagp Es |void |reginsert |NN struct RExC_state_t *pRExC_state \ |U8 op|NN regnode *opnd|U32 depth Es |void |regtail |NN struct RExC_state_t *pRExC_state \ @@ -1830,6 +1817,7 @@ s |void |printbuf |NN const char *const fmt|NN const char *const s #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) s |bool|isa_lookup |NN HV *stash|NN const char * const name +so |HV * |get_isa_hash |NN HV *const stash #endif #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) @@ -1846,7 +1834,7 @@ s |const char *|vdie_croak_common|NULLOK const char *pat|NULLOK va_list *args \ s |bool |vdie_common |NULLOK const char *message|STRLEN msglen\ |I32 utf8|bool warn sr |char * |write_no_mem -#if defined(PERL_MEM_LOG) && defined(PERL_MEM_LOG_STDERR) +#if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL) sn |void |mem_log_common |enum mem_log_type mlt|const UV n|const UV typesize \ |NN const char *type_name|NULLOK const SV *sv \ |Malloc_t oldalloc|Malloc_t newalloc \ @@ -1880,7 +1868,7 @@ Apn |int |my_socketpair |int family|int type|int protocol|int fd[2] Ap |int |my_dirfd |NULLOK DIR* dir #ifdef PERL_OLD_COPY_ON_WRITE : Used in pp_hot.c and regexec.c -pMXE |SV* |sv_setsv_cow |NN SV* dstr|NN SV* sstr +pMXE |SV* |sv_setsv_cow |NULLOK SV* dstr|NN SV* sstr #endif Aop |const char *|PerlIO_context_layers|NULLOK const char *mode @@ -2218,7 +2206,6 @@ ApoM |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \ : Only used in op.c xpoM |struct refcounted_he *|store_cop_label \ |NULLOK struct refcounted_he *const chain|NN const char *label -so |HV * |get_isa_hash |NN HV *const stash END_EXTERN_C /*