This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Fix run/switches test on Win32
[perl5.git] / embed.fnc
diff --git a/embed.fnc b/embed.fnc
index b5459e0..f08dfef 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -148,8 +148,11 @@ pM |PERL_CONTEXT*  |create_eval_scope|U32 flags
 : croak()'s first parm can be NULL.  Otherwise, mod_perl breaks.
 Afprd  |void   |croak          |NULLOK const char* pat|...
 Apr    |void   |vcroak         |NULLOK const char* pat|NULLOK va_list* args
+Aprd   |void   |croak_xs_usage |NN const CV *const cv \
+                               |NN const char *const params
+
 #if defined(PERL_IMPLICIT_CONTEXT)
-Afnrp  |void   |croak_nocontext|NN const char* pat|...
+Afnrp  |void   |croak_nocontext|NULLOK const char* pat|...
 Afnp   |OP*    |die_nocontext  |NN const char* pat|...
 Afnp   |void   |deb_nocontext  |NN const char* pat|...
 Afnp   |char*  |form_nocontext |NN const char* pat|...
@@ -157,11 +160,11 @@ Anp       |void   |load_module_nocontext|U32 flags|NN SV* name|NULLOK SV* ver|...
 Afnp   |SV*    |mess_nocontext |NN const char* pat|...
 Afnp   |void   |warn_nocontext |NN const char* pat|...
 Afnp   |void   |warner_nocontext|U32 err|NN const char* pat|...
-Afnp   |SV*    |newSVpvf_nocontext|NN const char* pat|...
-Afnp   |void   |sv_catpvf_nocontext|NN SV* sv|NN const char* pat|...
-Afnp   |void   |sv_setpvf_nocontext|NN SV* sv|NN const char* pat|...
-Afnp   |void   |sv_catpvf_mg_nocontext|NN SV* sv|NN const char* pat|...
-Afnp   |void   |sv_setpvf_mg_nocontext|NN SV* sv|NN const char* pat|...
+Afnp   |SV*    |newSVpvf_nocontext|NN const char *const pat|...
+Afnp   |void   |sv_catpvf_nocontext|NN SV *const sv|NN const char *const pat|...
+Afnp   |void   |sv_setpvf_nocontext|NN SV *const sv|NN const char *const pat|...
+Afnp   |void   |sv_catpvf_mg_nocontext|NN SV *const sv|NN const char *const pat|...
+Afnp   |void   |sv_setpvf_mg_nocontext|NN SV *const sv|NN const char *const pat|...
 Afnp   |int    |fprintf_nocontext|NN PerlIO *stream|NN const char *format|...
 Afnp   |int    |printf_nocontext|NN const char *format|...
 #endif
@@ -297,8 +300,11 @@ Ap |GV*    |gv_fetchfile_flags|NN const char *const name|const STRLEN len\
                                |const U32 flags
 Apd    |GV*    |gv_fetchmeth   |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
 Apd    |GV*    |gv_fetchmeth_autoload  |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
-Apdmb  |GV*    |gv_fetchmethod |NULLOK HV* stash|NN const char* name
-Apd    |GV*    |gv_fetchmethod_autoload|NULLOK HV* stash|NN const char* name|I32 autoload
+Apdmb  |GV*    |gv_fetchmethod |NN HV* stash|NN const char* name
+Apd    |GV*    |gv_fetchmethod_autoload|NN HV* stash|NN const char* name \
+                               |I32 autoload
+ApdM   |GV*    |gv_fetchmethod_flags|NN HV* stash|NN const char* name \
+                               |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
@@ -344,6 +350,14 @@ dpoM       |void   |refcounted_he_free|NULLOK struct refcounted_he *he
 XEdpoM |struct refcounted_he *|refcounted_he_new \
                                |NULLOK struct refcounted_he *const parent \
                                |NULLOK SV *const key|NULLOK SV *const value
+#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+s      |struct refcounted_he * |refcounted_he_new_common \
+                               |NULLOK struct refcounted_he *const parent \
+                               |NN const char *const key_p \
+                               |const STRLEN key_len|const char flags \
+                               |char value_type|NN const void *value \
+                               |const STRLEN value_len
+#endif
 Abmd   |SV**   |hv_store       |NULLOK HV *hv|NULLOK const char *key \
                                |I32 klen|NULLOK SV *val|U32 hash
 Abmd   |HE*    |hv_store_ent   |NULLOK HV *hv|NULLOK SV *key|NULLOK SV *val\
@@ -514,7 +528,7 @@ Apd |int    |mg_set         |NN SV* sv
 Ap     |I32    |mg_size        |NN SV* sv
 Ap     |void   |mini_mktime    |NN struct tm *ptm
 EXp    |OP*    |mod            |NULLOK OP* o|I32 type
-p      |int    |mode_from_discipline|NULLOK SV* discp
+p      |int    |mode_from_discipline|NULLOK const char* s|STRLEN len
 Ap     |const char*    |moreswitches   |NN const char* s
 p      |OP*    |my             |NN OP* o
 Ap     |NV     |my_atof        |NN const char *s
@@ -595,23 +609,23 @@ Apa       |OP*    |newPADOP       |I32 type|I32 flags|NN SV* sv
 #endif
 Apa    |OP*    |newPMOP        |I32 type|I32 flags
 Apa    |OP*    |newPVOP        |I32 type|I32 flags|NULLOK char* pv
-Apa    |SV*    |newRV          |NN SV* sv
-Apda   |SV*    |newRV_noinc    |NN SV* sv
+Apa    |SV*    |newRV          |NN SV *const sv
+Apda   |SV*    |newRV_noinc    |NN SV *const sv
 Apda   |SV*    |newSV          |const STRLEN len
 Apa    |OP*    |newSVREF       |NN OP* o
 Apa    |OP*    |newSVOP        |I32 type|I32 flags|NN SV* sv
-Apda   |SV*    |newSViv        |IV i
-Apda   |SV*    |newSVuv        |UV u
-Apda   |SV*    |newSVnv        |NV n
-Apda   |SV*    |newSVpv        |NULLOK const char* s|STRLEN len
-Apda   |SV*    |newSVpvn       |NULLOK const char* s|STRLEN len
-Apda   |SV*    |newSVpvn_flags |NULLOK const char* s|STRLEN len|U32 flags
-Apda   |SV*    |newSVhek       |NULLOK const HEK *hek
+Apda   |SV*    |newSViv        |const IV i
+Apda   |SV*    |newSVuv        |const UV u
+Apda   |SV*    |newSVnv        |const NV n
+Apda   |SV*    |newSVpv        |NULLOK const char *const s|const STRLEN len
+Apda   |SV*    |newSVpvn       |NULLOK const char *const s|const STRLEN len
+Apda   |SV*    |newSVpvn_flags |NULLOK const char *const s|const STRLEN len|const U32 flags
+Apda   |SV*    |newSVhek       |NULLOK const HEK *const hek
 Apda   |SV*    |newSVpvn_share |NULLOK const char* s|I32 len|U32 hash
-Afpda  |SV*    |newSVpvf       |NN const char* pat|...
-Apa    |SV*    |vnewSVpvf      |NN const char* pat|NULLOK va_list* args
-Apd    |SV*    |newSVrv        |NN SV* rv|NULLOK const char* classname
-Apda   |SV*    |newSVsv        |NULLOK SV* old
+Afpda  |SV*    |newSVpvf       |NN const char *const pat|...
+Apa    |SV*    |vnewSVpvf      |NN const char *const pat|NULLOK va_list *const args
+Apd    |SV*    |newSVrv        |NN SV *const rv|NULLOK const char *const classname
+Apda   |SV*    |newSVsv        |NULLOK SV *const old
 Apda   |SV*    |newSV_type     |const svtype type
 Apa    |OP*    |newUNOP        |I32 type|I32 flags|NULLOK OP* first
 Apa    |OP*    |newWHENOP      |NULLOK OP* cond|NN OP* block
@@ -824,15 +838,16 @@ Ap        |SV**   |stack_grow     |NN SV** sp|NN SV** p|int n
 Ap     |I32    |start_subparse |I32 is_format|U32 flags
 p      |void   |sub_crush_depth|NN CV* cv
 Apd    |bool   |sv_2bool       |NN SV *const sv
-Apd    |CV*    |sv_2cv         |NULLOK SV* sv|NN HV** st|NN GV** gvp|I32 lref
-Apd    |IO*    |sv_2io         |NN SV* sv
+Apd    |CV*    |sv_2cv         |NULLOK SV* sv|NN HV **const st|NN GV **const gvp \
+                               |const I32 lref
+Apd    |IO*    |sv_2io         |NN SV *const sv
 #ifdef PERL_IN_SV_C
 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
-Apd    |SV*    |sv_2mortal     |NULLOK SV* sv
+Apd    |SV*    |sv_2mortal     |NULLOK SV *const sv
 Apd    |NV     |sv_2nv         |NULLOK SV *const sv
 pMd    |SV*    |sv_2num        |NN SV *const sv
 Amb    |char*  |sv_2pv         |NULLOK SV *sv|NULLOK STRLEN *lp
@@ -848,12 +863,13 @@ Apd       |NV     |sv_nv          |NN SV* sv
 Apd    |char*  |sv_pvn         |NN SV *sv|NN STRLEN *lp
 Apd    |char*  |sv_pvutf8n     |NN SV *sv|NN STRLEN *lp
 Apd    |char*  |sv_pvbyten     |NN SV *sv|NN STRLEN *lp
-Apd    |I32    |sv_true        |NULLOK SV *sv
+Apd    |I32    |sv_true        |NULLOK SV *const sv
 pd     |void   |sv_add_arena   |NN char *const ptr|const U32 size|const U32 flags
 Apd    |int    |sv_backoff     |NN SV *const sv
-Apd    |SV*    |sv_bless       |NN SV* sv|NN HV* stash
-Afpd   |void   |sv_catpvf      |NN SV* sv|NN const char* pat|...
-Apd    |void   |sv_vcatpvf     |NN SV* sv|NN const char* pat|NULLOK va_list* args
+Apd    |SV*    |sv_bless       |NN SV *const sv|NN HV *const stash
+Afpd   |void   |sv_catpvf      |NN SV *const sv|NN const char *const pat|...
+Apd    |void   |sv_vcatpvf     |NN SV *const sv|NN const char *const pat \
+                               |NULLOK va_list *const args
 Apd    |void   |sv_catpv       |NN SV *const sv|NULLOK const char* ptr
 Amdb   |void   |sv_catpvn      |NN SV *dsv|NN const char *sstr|STRLEN len
 Amdb   |void   |sv_catsv       |NN SV *dstr|NULLOK SV *sstr
@@ -861,15 +877,15 @@ Apd       |void   |sv_chop        |NN SV *const sv|NULLOK const char *const ptr
 pd     |I32    |sv_clean_all
 pd     |void   |sv_clean_objs
 Apd    |void   |sv_clear       |NN SV *const sv
-Apd    |I32    |sv_cmp         |NULLOK SV* sv1|NULLOK SV* sv2
-Apd    |I32    |sv_cmp_locale  |NULLOK SV* sv1|NULLOK SV* sv2
+Apd    |I32    |sv_cmp         |NULLOK SV *const sv1|NULLOK SV *const sv2
+Apd    |I32    |sv_cmp_locale  |NULLOK SV *const sv1|NULLOK SV *const sv2
 #if defined(USE_LOCALE_COLLATE)
-Apd    |char*  |sv_collxfrm    |NN SV* sv|NN STRLEN* nxp
+Apd    |char*  |sv_collxfrm    |NN SV *const sv|NN STRLEN *const nxp
 #endif
 Ap     |OP*    |sv_compile_2op |NN SV *sv|NN OP **startop \
                                |NN const char *code|NN PAD **padp
 Apd    |int    |getcwd_sv      |NN SV* sv
-Apd    |void   |sv_dec         |NULLOK SV* sv
+Apd    |void   |sv_dec         |NULLOK SV *const sv
 Ap     |void   |sv_dump        |NN SV* sv
 ApdR   |bool   |sv_derived_from|NN SV* sv|NN const char *const name
 ApdR   |bool   |sv_does        |NN SV* sv|NN const char *const name
@@ -877,66 +893,71 @@ Apd       |I32    |sv_eq          |NULLOK SV* sv1|NULLOK SV* sv2
 Apd    |void   |sv_free        |NULLOK SV *const sv
 poMX   |void   |sv_free2       |NN SV *const sv
 pd     |void   |sv_free_arenas
-Apd    |char*  |sv_gets        |NN SV* sv|NN PerlIO* fp|I32 append
+Apd    |char*  |sv_gets        |NN SV *const sv|NN PerlIO *const fp|I32 append
 Apd    |char*  |sv_grow        |NN SV *const sv|STRLEN newlen
-Apd    |void   |sv_inc         |NULLOK SV* sv
-Apd    |void   |sv_insert      |NN SV *const bigstr|const STRLEN offset|const STRLEN len \
-                               |NN const char *const little|const STRLEN littlelen
-Apd    |int    |sv_isa         |NULLOK SV* sv|NN const char* name
+Apd    |void   |sv_inc         |NULLOK SV *const sv
+Amdb   |void   |sv_insert      |NN SV *const bigstr|const STRLEN offset \
+                               |const STRLEN len|NN const char *const little \
+                               |const STRLEN littlelen
+Apd    |void   |sv_insert_flags|NN SV *const bigstr|const STRLEN offset|const STRLEN len \
+                               |NN const char *const little|const STRLEN littlelen|const U32 flags
+Apd    |int    |sv_isa         |NULLOK SV* sv|NN const char *const name
 Apd    |int    |sv_isobject    |NULLOK SV* sv
 Apd    |STRLEN |sv_len         |NULLOK SV *const sv
 Apd    |STRLEN |sv_len_utf8    |NULLOK SV *const sv
 Apd    |void   |sv_magic       |NN SV *const sv|NULLOK SV *const obj|const int how \
-                               |NULLOK const char *const name|I32 namlen
+                               |NULLOK const char *const name|const I32 namlen
 Apd    |MAGIC *|sv_magicext    |NN SV *const sv|NULLOK SV *const obj|const int how \
                                |NULLOK const MGVTBL *const vtbl|NULLOK const char *const name \
                                |const I32 namlen
-ApdaR  |SV*    |sv_mortalcopy  |NULLOK SV* oldsv
+ApdaR  |SV*    |sv_mortalcopy  |NULLOK SV *const oldsv
 ApdR   |SV*    |sv_newmortal
 Apd    |SV*    |sv_newref      |NULLOK SV *const sv
 Ap     |char*  |sv_peek        |NULLOK SV* sv
 Apd    |void   |sv_pos_u2b     |NULLOK SV *const sv|NN I32 *const offsetp|NULLOK I32 *const lenp
-Apd    |void   |sv_pos_b2u     |NULLOK SV* sv|NN I32* offsetp
+Apd    |void   |sv_pos_b2u     |NULLOK SV *const sv|NN I32 *const offsetp
 Amdb   |char*  |sv_pvn_force   |NN SV* sv|NULLOK STRLEN* lp
-Apd    |char*  |sv_pvutf8n_force|NN SV* sv|NULLOK STRLEN* lp
-Apd    |char*  |sv_pvbyten_force|NN SV* sv|NULLOK STRLEN* lp
+Apd    |char*  |sv_pvutf8n_force|NN SV *const sv|NULLOK STRLEN *const lp
+Apd    |char*  |sv_pvbyten_force|NN SV *const sv|NULLOK STRLEN *const lp
 Apd    |char*  |sv_recode_to_utf8      |NN SV* sv|NN SV *encoding
 Apd    |bool   |sv_cat_decode  |NN SV* dsv|NN SV *encoding|NN SV *ssv|NN int *offset \
                                |NN char* tstr|int tlen
-ApdR   |const char*    |sv_reftype     |NN const SV* sv|int ob
+ApdR   |const char*    |sv_reftype     |NN const SV *const sv|const int ob
 Apd    |void   |sv_replace     |NN SV *const sv|NN SV *const nsv
 Apd    |void   |sv_report_used
-Apd    |void   |sv_reset       |NN const char* s|NULLOK HV* stash
-Afpd   |void   |sv_setpvf      |NN SV* sv|NN const char* pat|...
-Apd    |void   |sv_vsetpvf     |NN SV* sv|NN const char* pat|NULLOK va_list* args
+Apd    |void   |sv_reset       |NN const char* s|NULLOK HV *const stash
+Afpd   |void   |sv_setpvf      |NN SV *const sv|NN const char *const pat|...
+Apd    |void   |sv_vsetpvf     |NN SV *const sv|NN const char *const pat|NULLOK va_list *const args
 Apd    |void   |sv_setiv       |NN SV *const sv|const IV num
-Apdb   |void   |sv_setpviv     |NN SV* sv|IV num
+Apdb   |void   |sv_setpviv     |NN SV *const sv|const IV num
 Apd    |void   |sv_setuv       |NN SV *const sv|const UV num
 Apd    |void   |sv_setnv       |NN SV *const sv|const NV num
-Apd    |SV*    |sv_setref_iv   |NN SV* rv|NULLOK const char* classname|IV iv
-Apd    |SV*    |sv_setref_uv   |NN SV* rv|NULLOK const char* classname|UV uv
-Apd    |SV*    |sv_setref_nv   |NN SV* rv|NULLOK const char* classname|NV nv
-Apd    |SV*    |sv_setref_pv   |NN SV* rv|NULLOK const char* classname|NULLOK void* pv
-Apd    |SV*    |sv_setref_pvn  |NN SV* rv|NULLOK const char* classname|NN const char* pv|STRLEN n
+Apd    |SV*    |sv_setref_iv   |NN SV *const rv|NULLOK const char *const classname|const IV iv
+Apd    |SV*    |sv_setref_uv   |NN SV *const rv|NULLOK const char *const classname|const UV uv
+Apd    |SV*    |sv_setref_nv   |NN SV *const rv|NULLOK const char *const classname|const NV nv
+Apd    |SV*    |sv_setref_pv   |NN SV *const rv|NULLOK const char *const classname \
+                               |NULLOK void *const pv
+Apd    |SV*    |sv_setref_pvn  |NN SV *const rv|NULLOK const char *const classname \
+                               |NN const char *const pv|const STRLEN n
 Apd    |void   |sv_setpv       |NN SV *const sv|NULLOK const char *const ptr
 Apd    |void   |sv_setpvn      |NN SV *const sv|NULLOK const char *const ptr|const STRLEN len
 Amdb   |void   |sv_setsv       |NN SV *dstr|NULLOK SV *sstr
 Amdb   |void   |sv_taint       |NN SV* sv
-ApdR   |bool   |sv_tainted     |NN SV* sv
+ApdR   |bool   |sv_tainted     |NN SV *const sv
 Apd    |int    |sv_unmagic     |NN SV *const sv|const int type
 Apdmb  |void   |sv_unref       |NN SV* sv
-Apd    |void   |sv_unref_flags |NN SV *ref|U32 flags
-Apd    |void   |sv_untaint     |NN SV* sv
+Apd    |void   |sv_unref_flags |NN SV *const ref|const U32 flags
+Apd    |void   |sv_untaint     |NN SV *const sv
 Apd    |void   |sv_upgrade     |NN SV *const sv|svtype new_type
 Apdmb  |void   |sv_usepvn      |NN SV* sv|NULLOK char* ptr|STRLEN len
 Apd    |void   |sv_usepvn_flags|NN SV *const sv|NULLOK char* ptr|const STRLEN len\
                                |const U32 flags
-Apd    |void   |sv_vcatpvfn    |NN SV* sv|NN const char* pat|STRLEN patlen \
-                               |NULLOK va_list* args|NULLOK SV** svargs|I32 svmax \
-                               |NULLOK bool *maybe_tainted
-Apd    |void   |sv_vsetpvfn    |NN SV* sv|NN const char* pat|STRLEN patlen \
-                               |NULLOK va_list* args|NULLOK SV** svargs|I32 svmax \
-                               |NULLOK bool *maybe_tainted
+Apd    |void   |sv_vcatpvfn    |NN SV *const sv|NN const char *const pat|const STRLEN patlen \
+                               |NULLOK va_list *const args|NULLOK SV **const svargs|const I32 svmax \
+                               |NULLOK bool *const maybe_tainted
+Apd    |void   |sv_vsetpvfn    |NN SV *const sv|NN const char *const pat|const STRLEN patlen \
+                               |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
 Ap     |UV     |swash_fetch    |NN SV *swash|NN const U8 *ptr|bool do_utf8
@@ -1015,7 +1036,7 @@ p |int    |yyparse
 p      |void   |parser_free    |NN const yy_parser *parser
 p      |int    |yywarn         |NN const char *const s
 #if defined(MYMALLOC)
-Ap     |void   |dump_mstats    |NN char* s
+Ap     |void   |dump_mstats    |NN const char* s
 Ap     |int    |get_mstats     |NN perl_mstats_t *buf|int buflen|int level
 #endif
 Anpa   |Malloc_t|safesysmalloc |MEM_SIZE nbytes
@@ -1029,15 +1050,17 @@ Ap      |void   |free_global_struct|NN struct perl_vars *plvarsp
 #endif
 Ap     |int    |runops_standard
 Ap     |int    |runops_debug
-Afpd   |void   |sv_catpvf_mg   |NN SV *sv|NN const char* pat|...
-Apd    |void   |sv_vcatpvf_mg  |NN SV* sv|NN const char* pat|NULLOK va_list* args
+Afpd   |void   |sv_catpvf_mg   |NN SV *const sv|NN const char *const pat|...
+Apd    |void   |sv_vcatpvf_mg  |NN SV *const sv|NN const char *const pat \
+                               |NULLOK va_list *const args
 Apd    |void   |sv_catpv_mg    |NN SV *const sv|NULLOK const char *const ptr
 Apdbm  |void   |sv_catpvn_mg   |NN SV *sv|NN const char *ptr|STRLEN len
 Apdbm  |void   |sv_catsv_mg    |NN SV *dsv|NULLOK SV *ssv
-Afpd   |void   |sv_setpvf_mg   |NN SV *sv|NN const char* pat|...
-Apd    |void   |sv_vsetpvf_mg  |NN SV* sv|NN const char* pat|NULLOK va_list* args
+Afpd   |void   |sv_setpvf_mg   |NN SV *const sv|NN const char *const pat|...
+Apd    |void   |sv_vsetpvf_mg  |NN SV *const sv|NN const char *const pat \
+                               |NULLOK va_list *const args
 Apd    |void   |sv_setiv_mg    |NN SV *const sv|const IV i
-Apdb   |void   |sv_setpviv_mg  |NN SV *sv|IV iv
+Apdb   |void   |sv_setpviv_mg  |NN SV *const sv|const IV iv
 Apd    |void   |sv_setuv_mg    |NN SV *const sv|const UV u
 Apd    |void   |sv_setnv_mg    |NN SV *const sv|const NV num
 Apd    |void   |sv_setpv_mg    |NN SV *const sv|NULLOK const char *const ptr
@@ -1107,20 +1130,21 @@ ApR     |HE*    |he_dup         |NULLOK const HE* e|bool shared|NN CLONE_PARAMS* param
 ApR    |HEK*   |hek_dup        |NULLOK HEK* e|NN CLONE_PARAMS* param
 Ap     |void   |re_dup_guts    |NN const REGEXP *sstr|NN REGEXP *dstr \
                                |NN CLONE_PARAMS* param
-Ap     |PerlIO*|fp_dup         |NULLOK PerlIO* fp|char type|NN CLONE_PARAMS* param
-ApR    |DIR*   |dirp_dup       |NULLOK DIR* dp
-ApR    |GP*    |gp_dup         |NULLOK GP* gp|NN CLONE_PARAMS* param
-ApR    |MAGIC* |mg_dup         |NULLOK MAGIC* mg|NN CLONE_PARAMS* param
-ApR    |SV*    |sv_dup         |NULLOK const SV* sstr|NN CLONE_PARAMS* param
-Ap     |void   |rvpv_dup       |NN SV* dstr|NN const SV *sstr|NN CLONE_PARAMS* param
-Ap     |yy_parser*|parser_dup  |NULLOK const yy_parser *proto|NN CLONE_PARAMS* param
+Ap     |PerlIO*|fp_dup         |NULLOK PerlIO *const fp|const char type|NN CLONE_PARAMS *const param
+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
+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
 #endif
 Apa    |PTR_TBL_t*|ptr_table_new
-ApR    |void*  |ptr_table_fetch|NN PTR_TBL_t *tbl|NULLOK const void *sv
-Ap     |void   |ptr_table_store|NN PTR_TBL_t *tbl|NULLOK const void *oldsv|NN void *newsv
-Ap     |void   |ptr_table_split|NN PTR_TBL_t *tbl
-Ap     |void   |ptr_table_clear|NULLOK PTR_TBL_t *tbl
-Ap     |void   |ptr_table_free|NULLOK PTR_TBL_t *tbl
+ApR    |void*  |ptr_table_fetch|NN PTR_TBL_t *const tbl|NULLOK const void *const sv
+Ap     |void   |ptr_table_store|NN PTR_TBL_t *const tbl|NULLOK const void *const oldsv \
+                               |NN void *const newsv
+Ap     |void   |ptr_table_split|NN PTR_TBL_t *const tbl
+Ap     |void   |ptr_table_clear|NULLOK PTR_TBL_t *const tbl
+Ap     |void   |ptr_table_free|NULLOK PTR_TBL_t *const tbl
 #if defined(USE_ITHREADS)
 #  if defined(HAVE_INTERP_INTERN)
 Ap     |void   |sys_intern_dup |NN struct interp_intern* src|NN struct interp_intern* dst
@@ -1379,15 +1403,15 @@ sR      |SV*    |method_common  |NN SV* meth|NULLOK U32* hashp
 #endif
 
 #if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT)
-s      |I32    |sv_ncmp        |NN SV *a|NN SV *b
-s      |I32    |sv_i_ncmp      |NN SV *a|NN SV *b
-s      |I32    |amagic_ncmp    |NN SV *a|NN SV *b
-s      |I32    |amagic_i_ncmp  |NN SV *a|NN SV *b
-s      |I32    |amagic_cmp     |NN SV *str1|NN SV *str2
-s      |I32    |amagic_cmp_locale|NN SV *str1|NN SV *str2
-s      |I32    |sortcv         |NN SV *a|NN SV *b
-s      |I32    |sortcv_xsub    |NN SV *a|NN SV *b
-s      |I32    |sortcv_stacked |NN SV *a|NN SV *b
+s      |I32    |sv_ncmp        |NN SV *const a|NN SV *const b
+s      |I32    |sv_i_ncmp      |NN SV *const a|NN SV *const b
+s      |I32    |amagic_ncmp    |NN SV *const a|NN SV *const b
+s      |I32    |amagic_i_ncmp  |NN SV *const a|NN SV *const b
+s      |I32    |amagic_cmp     |NN SV *const str1|NN SV *const str2
+s      |I32    |amagic_cmp_locale|NN SV *const str1|NN SV *const str2
+s      |I32    |sortcv         |NN SV *const a|NN SV *const b
+s      |I32    |sortcv_xsub    |NN SV *const a|NN SV *const b
+s      |I32    |sortcv_stacked |NN SV *const a|NN SV *const b
 s      |void   |qsortsvu       |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t compare
 #endif
 
@@ -1538,7 +1562,7 @@ poM       |int    |sv_kill_backrefs       |NN SV *const sv|NN AV *const av
 
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 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* sv
+s      |void   |sv_unglob      |NN SV *const sv
 s      |void   |not_a_number   |NN SV *const sv
 s      |I32    |visit          |NN SVFUNC_t f|const U32 flags|const U32 mask
 s      |void   |sv_del_backref |NN SV *const tsv|NN SV *const sv
@@ -1554,7 +1578,7 @@ s |int    |sv_2iuv_non_preserve   |NN SV *const sv|I32 numtype
 s      |int    |sv_2iuv_non_preserve   |NN SV *const sv
 #    endif
 #  endif
-sR     |I32    |expect_number  |NN char** pattern
+sR     |I32    |expect_number  |NN char **const pattern
 #
 sn     |STRLEN |sv_pos_u2b_forwards|NN const U8 *const start \
                |NN const U8 *const send|STRLEN uoffset
@@ -1563,11 +1587,11 @@ sn      |STRLEN |sv_pos_u2b_midway|NN const U8 *const start \
 s      |STRLEN |sv_pos_u2b_cached|NN SV *const sv|NN MAGIC **const mgp \
                |NN const U8 *const start|NN const U8 *const send \
                |const STRLEN uoffset|STRLEN uoffset0|STRLEN boffset0
-s      |void   |utf8_mg_pos_cache_update|NN SV *sv|NN MAGIC **mgp \
-               |STRLEN byte|STRLEN utf8|STRLEN blen
-s      |STRLEN |sv_pos_b2u_midway|NN const U8 *s|NN const U8 *const target \
+s      |void   |utf8_mg_pos_cache_update|NN SV *const sv|NN MAGIC **const mgp \
+               |const STRLEN byte|const STRLEN utf8|const STRLEN blen
+s      |STRLEN |sv_pos_b2u_midway|NN const U8 *const s|NN const U8 *const target \
                |NN const U8 *end|STRLEN endu
-sn     |char * |F0convert      |NV nv|NN char *endbuf|NN STRLEN *len
+sn     |char * |F0convert      |NV nv|NN char *const endbuf|NN STRLEN *const len
 #  if defined(PERL_OLD_COPY_ON_WRITE)
 sM     |void   |sv_release_COW |NN SV *sv|NN const char *pvx|NN SV *after
 #  endif
@@ -1577,7 +1601,7 @@ s |bool   |sv_2iuv_common |NN SV *const sv
 s      |void   |glob_assign_glob|NN SV *const dstr|NN SV *const sstr \
                |const int dtype
 s      |void   |glob_assign_ref|NN SV *const dstr|NN SV *const sstr
-sRn    |PTR_TBL_ENT_t *|ptr_table_find|NN PTR_TBL_t *tbl|NULLOK const void *sv
+sRn    |PTR_TBL_ENT_t *|ptr_table_find|NN PTR_TBL_t *const tbl|NULLOK const void *const sv
 #endif
 
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
@@ -1672,7 +1696,7 @@ Apd       |void   |sv_catpvn_flags|NN SV *const dstr|NN const char *sstr|const STRLEN le
                                |const I32 flags
 Apd    |void   |sv_catsv_flags |NN SV *const dsv|NULLOK SV *const ssv|const I32 flags
 Apd    |STRLEN |sv_utf8_upgrade_flags|NN SV *const sv|const I32 flags
-Apd    |char*  |sv_pvn_force_flags|NN SV* sv|NULLOK STRLEN* lp|I32 flags
+Apd    |char*  |sv_pvn_force_flags|NN SV *const sv|NULLOK STRLEN *const lp|const I32 flags
 Apd    |void   |sv_copypv      |NN SV *const dsv|NN SV *const ssv
 Ap     |char*  |my_atof2       |NN const char *s|NN NV* value
 Apn    |int    |my_socketpair  |int family|int type|int protocol|int fd[2]
@@ -1969,7 +1993,10 @@ p        |void   |boot_core_mro
 Apon   |void   |sys_init       |NN int* argc|NN char*** argv
 Apon   |void   |sys_init3      |NN int* argc|NN char*** argv|NN char*** env
 Apon   |void   |sys_term
-
+ApoM   |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \
+               |NULLOK STRLEN *len|NULLOK U32 *flags
+xpoM   |struct refcounted_he *|store_cop_label \
+               |NULLOK struct refcounted_he *const chain|NN const char *label
 
 END_EXTERN_C
 /*
Unnamed repository; edit this file 'description' to name the repository.