This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix perlsio_binmode() export breakage caused by change #24338
[perl5.git] / embed.fnc
index be08619..d10c925 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -10,7 +10,8 @@
 :                      proto, no #define
 :      d               function has documentation with its source
 :      s               static function, should have an S_ prefix in
-:                      source file
+:                      source file; for macros (m), suffix the usage
+:                      example with a semicolon
 :      n               has no implicit interpreter/thread context argument
 :      p               function has a Perl_ prefix
 :      f               function takes printf style format string, varargs
 :      x               not exported
 :      X               explicitly exported
 :      M               may change
-:      E               visible to Perl core extensions
+:      E               visible to extensions included in the Perl core
 :      b               binary backward compatibility; function is a macro
 :                      but has also Perl_ implementation (which is exported)
+:      U               suppress usage example in autogenerated documentation
 :
 : Individual flags may be separated by whitespace.
 :
@@ -45,8 +47,9 @@ Anod  |void   |perl_free      |PerlInterpreter* interp
 Anod   |int    |perl_run       |PerlInterpreter* interp
 Anod   |int    |perl_parse     |PerlInterpreter* interp|XSINIT_t xsinit \
                                |int argc|char** argv|char** env
+Anp    |bool   |doing_taint    |int argc|char** argv|char** env
 #if defined(USE_ITHREADS)
-Anod   |PerlInterpreter*|perl_clone|PerlInterpreter* interpUV flags
+Anod   |PerlInterpreter*|perl_clone|PerlInterpreter* interp|UV flags
 #  if defined(PERL_IMPLICIT_SYS)
 Ano    |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
                                |struct IPerlMem* m|struct IPerlMem* ms \
@@ -79,7 +82,7 @@ Ap    |CV*    |gv_handler     |HV* stash|I32 id
 p      |OP*    |append_elem    |I32 optype|OP* head|OP* tail
 p      |OP*    |append_list    |I32 optype|LISTOP* first|LISTOP* last
 p      |I32    |apply          |I32 type|SV** mark|SV** sp
-ApM    |void   |apply_attrs_string|char *stashpv|CV *cv|char *attrstr|STRLEN len
+ApM    |void   |apply_attrs_string|const char *stashpv|CV *cv|const char *attrstr|STRLEN len
 Apd    |void   |av_clear       |AV* ar
 Apd    |SV*    |av_delete      |AV* ar|I32 key|I32 flags
 Apd    |bool   |av_exists      |AV* ar|I32 key
@@ -87,7 +90,7 @@ Apd   |void   |av_extend      |AV* ar|I32 key
 p      |AV*    |av_fake        |I32 size|SV** svp
 Apd    |SV**   |av_fetch       |AV* ar|I32 key|I32 lval
 Apd    |void   |av_fill        |AV* ar|I32 fill
-Apd    |I32    |av_len         |AV* ar
+Apd    |I32    |av_len         |const AV* ar
 Apd    |AV*    |av_make        |I32 size|SV** svp
 Apd    |SV*    |av_pop         |AV* ar
 Apd    |void   |av_push        |AV* ar|SV* val
@@ -131,10 +134,10 @@ Afnp      |void   |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
 Afnp   |int    |fprintf_nocontext|PerlIO* stream|const char* fmt|...
 Afnp   |int    |printf_nocontext|const char* fmt|...
 #endif
-p      |void   |cv_ckproto     |CV* cv|GV* gv|char* p
+p      |void   |cv_ckproto     |const CV* cv|const GV* gv|const char* p
 pd     |CV*    |cv_clone       |CV* proto
 Apd    |SV*    |cv_const_sv    |CV* cv
-p      |SV*    |op_const_sv    |OP* o|CV* cv
+p      |SV*    |op_const_sv    |const OP* o|CV* cv
 Apd    |void   |cv_undef       |CV* cv
 Ap     |void   |cx_dump        |PERL_CONTEXT* cs
 Ap     |SV*    |filter_add     |filter_t funcp|SV* datasv
@@ -142,23 +145,23 @@ Ap        |void   |filter_del     |filter_t funcp
 Ap     |I32    |filter_read    |int idx|SV* buffer|int maxlen
 Ap     |char** |get_op_descs
 Ap     |char** |get_op_names
-p      |char*  |get_no_modify
+p      |const char*    |get_no_modify
 p      |U32*   |get_opargs
 Ap     |PPADDR_t*|get_ppaddr
 Ep     |I32    |cxinc
 Afp    |void   |deb            |const char* pat|...
 Ap     |void   |vdeb           |const char* pat|va_list* args
 Ap     |void   |debprofdump
-Ap     |I32    |debop          |OP* o
+Ap     |I32    |debop          |const OP* o
 Ap     |I32    |debstack
 Ap     |I32    |debstackptrs
-Ap     |char*  |delimcpy       |char* to|char* toend|char* from \
-                               |char* fromend|int delim|I32* retlen
-p      |void   |deprecate      |char* s
-p      |void   |deprecate_old  |char* s
+Ap     |char*  |delimcpy       |char* to|const char* toend|const char* from \
+                               |const char* fromend|int delim|I32* retlen
+p      |void   |deprecate      |const char* s
+p      |void   |deprecate_old  |const char* s
 Afp    |OP*    |die            |const char* pat|...
 p      |OP*    |vdie           |const char* pat|va_list* args
-p      |OP*    |die_where      |char* message|STRLEN msglen
+p      |OP*    |die_where      |const char* message|STRLEN msglen
 Ap     |void   |dounwind       |I32 cxix
 p      |bool   |do_aexec       |SV* really|SV** mark|SV** sp
 p      |bool   |do_aexec5      |SV* really|SV** mark|SV** sp|int fd|int flag
@@ -167,7 +170,7 @@ p   |void   |do_chop        |SV* asv|SV* sv
 Ap     |bool   |do_close       |GV* gv|bool not_implicit
 p      |bool   |do_eof         |GV* gv
 p      |bool   |do_exec        |char* cmd
-#if defined(WIN32)
+#if defined(WIN32) || defined(SYMBIAN)
 Ap     |int    |do_aspawn      |SV* really|SV** mark|SV** sp
 Ap     |int    |do_spawn       |char* cmd
 Ap     |int    |do_spawn_nowait|char* cmd
@@ -213,17 +216,17 @@ Ap        |void   |dump_eval
 #if defined(DUMP_FDS)
 Ap     |void   |dump_fds       |char* s
 #endif
-Ap     |void   |dump_form      |GV* gv
+Ap     |void   |dump_form      |const GV* gv
 Ap     |void   |gv_dump        |GV* gv
-Ap     |void   |op_dump        |OP* arg
+Ap     |void   |op_dump        |const OP* arg
 Ap     |void   |pmop_dump      |PMOP* pm
-Ap     |void   |dump_packsubs  |HV* stash
-Ap     |void   |dump_sub       |GV* gv
+Ap     |void   |dump_packsubs  |const HV* stash
+Ap     |void   |dump_sub       |const GV* gv
 Apd    |void   |fbm_compile    |SV* sv|U32 flags
 Apd    |char*  |fbm_instr      |unsigned char* big|unsigned char* bigend \
                                |SV* littlesv|U32 flags
-p      |char*  |find_script    |char *scriptname|bool dosearch \
-                               |char **search_ext|I32 flags
+p      |char*  |find_script    |const char *scriptname|bool dosearch \
+                               |const char **search_ext|I32 flags
 p      |OP*    |force_list     |OP* arg
 p      |OP*    |fold_constants |OP* arg
 Afpd   |char*  |form           |const char* pat|...
@@ -241,9 +244,9 @@ Ap  |GV*    |gv_IOadd       |GV* gv
 Ap     |GV*    |gv_autoload4   |HV* stash|const char* name|STRLEN len \
                                |I32 method
 Ap     |void   |gv_check       |HV* stash
-Ap     |void   |gv_efullname   |SV* sv|GV* gv
-Ap     |void   |gv_efullname3  |SV* sv|GV* gv|const char* prefix
-Ap     |void   |gv_efullname4  |SV* sv|GV* gv|const char* prefix|bool keepmain
+Ap     |void   |gv_efullname   |SV* sv|const GV* gv
+Apmb   |void   |gv_efullname3  |SV* sv|const GV* gv|const char* prefix
+Ap     |void   |gv_efullname4  |SV* sv|const GV* gv|const char* prefix|bool keepmain
 Ap     |GV*    |gv_fetchfile   |const char* name
 Apd    |GV*    |gv_fetchmeth   |HV* stash|const char* name|STRLEN len \
                                |I32 level
@@ -253,13 +256,13 @@ Apd       |GV*    |gv_fetchmethod |HV* stash|const char* name
 Apd    |GV*    |gv_fetchmethod_autoload|HV* stash|const char* name \
                                |I32 autoload
 Ap     |GV*    |gv_fetchpv     |const char* name|I32 add|I32 sv_type
-Ap     |void   |gv_fullname    |SV* sv|GV* gv
-Ap     |void   |gv_fullname3   |SV* sv|GV* gv|const char* prefix
-Ap     |void   |gv_fullname4   |SV* sv|GV* gv|const char* prefix|bool keepmain
+Ap     |void   |gv_fullname    |SV* sv|const GV* gv
+Apmb   |void   |gv_fullname3   |SV* sv|const GV* gv|const char* prefix
+Ap     |void   |gv_fullname4   |SV* sv|const GV* gv|const char* prefix|bool keepmain
 Ap     |void   |gv_init        |GV* gv|HV* stash|const char* name \
                                |STRLEN len|int multi
 Apd    |HV*    |gv_stashpv     |const char* name|I32 create
-Ap     |HV*    |gv_stashpvn    |const char* name|U32 namelen|I32 create
+Apd    |HV*    |gv_stashpvn    |const char* name|U32 namelen|I32 create
 Apd    |HV*    |gv_stashsv     |SV* sv|I32 create
 Apd    |void   |hv_clear       |HV* tb
 Ap     |void   |hv_delayfree_ent|HV* hv|HE* entry
@@ -289,7 +292,7 @@ Ap  |I32    |ibcmp          |const char* a|const char* b|I32 len
 Ap     |I32    |ibcmp_locale   |const char* a|const char* b|I32 len
 Apd    |I32    |ibcmp_utf8     |const char* a|char **pe1|UV l1|bool u1|const char* b|char **pe2|UV l2|bool u2
 p      |bool   |ingroup        |Gid_t testgid|Uid_t effective
-p      |void   |init_argv_symbols|int|char **
+p      |void   |init_argv_symbols|int argc|char **argv
 p      |void   |init_debugger
 Ap     |void   |init_stacks
 Ap     |void   |init_tm        |struct tm *ptm
@@ -297,7 +300,7 @@ pd  |U32    |intro_my
 Ap     |char*  |instr          |const char* big|const char* little
 p      |bool   |io_close       |IO* io|bool not_implicit
 p      |OP*    |invert         |OP* cmd
-dp     |bool   |is_gv_magical  |char *name|STRLEN len|U32 flags
+dp     |bool   |is_gv_magical  |const char *name|STRLEN len|U32 flags
 Ap     |I32    |is_lvalue_sub
 Ap     |U32    |to_uni_upper_lc|U32 c
 Ap     |U32    |to_uni_title_lc|U32 c
@@ -334,31 +337,34 @@ Ap        |bool   |is_uni_lower_lc|UV c
 Ap     |bool   |is_uni_print_lc|UV c
 Ap     |bool   |is_uni_punct_lc|UV c
 Ap     |bool   |is_uni_xdigit_lc|UV c
-Apd    |STRLEN |is_utf8_char   |U8 *p
-Apd    |bool   |is_utf8_string |U8 *s|STRLEN len
-Ap     |bool   |is_utf8_alnum  |U8 *p
-Ap     |bool   |is_utf8_alnumc |U8 *p
-Ap     |bool   |is_utf8_idfirst|U8 *p
-Ap     |bool   |is_utf8_idcont |U8 *p
-Ap     |bool   |is_utf8_alpha  |U8 *p
-Ap     |bool   |is_utf8_ascii  |U8 *p
-Ap     |bool   |is_utf8_space  |U8 *p
-Ap     |bool   |is_utf8_cntrl  |U8 *p
-Ap     |bool   |is_utf8_digit  |U8 *p
-Ap     |bool   |is_utf8_graph  |U8 *p
-Ap     |bool   |is_utf8_upper  |U8 *p
-Ap     |bool   |is_utf8_lower  |U8 *p
-Ap     |bool   |is_utf8_print  |U8 *p
-Ap     |bool   |is_utf8_punct  |U8 *p
-Ap     |bool   |is_utf8_xdigit |U8 *p
-Ap     |bool   |is_utf8_mark   |U8 *p
+Apd    |STRLEN |is_utf8_char   |const U8 *p
+Apd    |bool   |is_utf8_string |const U8 *s|STRLEN len
+Apd    |bool   |is_utf8_string_loc|const U8 *s|STRLEN len|const U8 **p
+Ap     |bool   |is_utf8_alnum  |const U8 *p
+Ap     |bool   |is_utf8_alnumc |const U8 *p
+Ap     |bool   |is_utf8_idfirst|const U8 *p
+Ap     |bool   |is_utf8_idcont |const U8 *p
+Ap     |bool   |is_utf8_alpha  |const U8 *p
+Ap     |bool   |is_utf8_ascii  |const U8 *p
+Ap     |bool   |is_utf8_space  |const U8 *p
+Ap     |bool   |is_utf8_cntrl  |const U8 *p
+Ap     |bool   |is_utf8_digit  |const U8 *p
+Ap     |bool   |is_utf8_graph  |const U8 *p
+Ap     |bool   |is_utf8_upper  |const U8 *p
+Ap     |bool   |is_utf8_lower  |const U8 *p
+Ap     |bool   |is_utf8_print  |const U8 *p
+Ap     |bool   |is_utf8_punct  |const U8 *p
+Ap     |bool   |is_utf8_xdigit |const U8 *p
+Ap     |bool   |is_utf8_mark   |const U8 *p
 p      |OP*    |jmaybe         |OP* arg
 p      |I32    |keyword        |char* d|I32 len
 Ap     |void   |leave_scope    |I32 base
 p      |void   |lex_end
 p      |void   |lex_start      |SV* line
-Ap |void   |op_null    |OP* o
+Ap     |void   |op_null        |OP* o
 p      |void   |op_clear       |OP* o
+Ap     |void   |op_refcnt_lock
+Ap     |void   |op_refcnt_unlock
 p      |OP*    |linklist       |OP* o
 p      |OP*    |list           |OP* o
 p      |OP*    |listkids       |OP* o
@@ -366,11 +372,11 @@ Apd       |void   |load_module|U32 flags|SV* name|SV* ver|...
 Ap     |void   |vload_module|U32 flags|SV* name|SV* ver|va_list* args
 p      |OP*    |localize       |OP* arg|I32 lexical
 Apd    |I32    |looks_like_number|SV* sv
-Apd    |UV     |grok_bin       |char* start|STRLEN* len|I32* flags|NV *result
-Apd    |UV     |grok_hex       |char* start|STRLEN* len|I32* flags|NV *result
+Apd    |UV     |grok_bin       |const char* start|STRLEN* len|I32* flags|NV *result
+Apd    |UV     |grok_hex       |const char* start|STRLEN* len|I32* flags|NV *result
 Apd    |int    |grok_number    |const char *pv|STRLEN len|UV *valuep
 Apd    |bool   |grok_numeric_radix|const char **sp|const char *send
-Apd    |UV     |grok_oct       |char* start|STRLEN* len|I32* flags|NV *result
+Apd    |UV     |grok_oct       |const char* start|STRLEN* len|I32* flags|NV *result
 p      |int    |magic_clearenv |SV* sv|MAGIC* mg
 p      |int    |magic_clear_all_env|SV* sv|MAGIC* mg
 p      |int    |magic_clearpack|SV* sv|MAGIC* mg
@@ -394,7 +400,7 @@ p   |U32    |magic_len      |SV* sv|MAGIC* mg
 p      |int    |magic_nextpack |SV* sv|MAGIC* mg|SV* key
 p      |U32    |magic_regdata_cnt|SV* sv|MAGIC* mg
 p      |int    |magic_regdatum_get|SV* sv|MAGIC* mg
-p      |int    |magic_regdatum_set|SV* sv|MAGIC* mg
+pr     |int    |magic_regdatum_set|SV* sv|MAGIC* mg
 p      |int    |magic_set      |SV* sv|MAGIC* mg
 p      |int    |magic_setamagic|SV* sv|MAGIC* mg
 p      |int    |magic_setarylen|SV* sv|MAGIC* mg
@@ -422,7 +428,7 @@ p   |int    |magic_setutf8  |SV* sv|MAGIC* mg
 p      |int    |magic_set_all_env|SV* sv|MAGIC* mg
 p      |U32    |magic_sizepack |SV* sv|MAGIC* mg
 p      |int    |magic_wipepack |SV* sv|MAGIC* mg
-p      |void   |magicname      |char* sym|char* name|I32 namlen
+p      |void   |magicname      |const char* sym|const char* name|I32 namlen
 Ap     |void   |markstack_grow
 #if defined(USE_LOCALE_COLLATE)
 p      |char*  |mem_collxfrm   |const char* s|STRLEN len|STRLEN* xlen
@@ -433,7 +439,7 @@ p   |void   |qerror         |SV* err
 Apd     |void   |sortsv         |SV ** array|size_t num_elts|SVCOMPARE_t cmp
 Apd    |int    |mg_clear       |SV* sv
 Apd    |int    |mg_copy        |SV* sv|SV* nsv|const char* key|I32 klen
-Apd    |MAGIC* |mg_find        |SV* sv|int type
+Apd    |MAGIC* |mg_find        |const SV* sv|int type
 Apd    |int    |mg_free        |SV* sv
 Apd    |int    |mg_get         |SV* sv
 Apd    |U32    |mg_length      |SV* sv
@@ -468,9 +474,9 @@ Anp |void*  |my_memset      |char* loc|I32 ch|I32 len
 Ap     |I32    |my_pclose      |PerlIO* ptr
 Ap     |PerlIO*|my_popen       |char* cmd|char* mode
 Ap     |PerlIO*|my_popen_list  |char* mode|int n|SV ** args
-Ap     |void   |my_setenv      |char* nam|char* val
+Ap     |void   |my_setenv      |const char* nam|const char* val
 Ap     |I32    |my_stat
-Ap     |char * |my_strftime    |char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
+Ap     |char * |my_strftime    |const char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
 #if defined(MYSWAP)
 Ap     |short  |my_swap        |short s
 Ap     |long   |my_htonl       |long l
@@ -482,7 +488,7 @@ Ap  |OP*    |newANONHASH    |OP* o
 Ap     |OP*    |newANONSUB     |I32 floor|OP* proto|OP* block
 Ap     |OP*    |newASSIGNOP    |I32 flags|OP* left|I32 optype|OP* right
 Ap     |OP*    |newCONDOP      |I32 flags|OP* expr|OP* trueop|OP* falseop
-Apd    |CV*    |newCONSTSUB    |HV* stash|char* name|SV* sv
+Apd    |CV*    |newCONSTSUB    |HV* stash|const char* name|SV* sv
 Ap     |void   |newFORM        |I32 floor|OP* o|OP* block
 Ap     |OP*    |newFOROP       |I32 flags|char* label|line_t forline \
                                |OP* sclr|OP* expr|OP*block|OP*cont
@@ -496,13 +502,13 @@ Ap        |OP*    |newRANGE       |I32 flags|OP* left|OP* right
 Ap     |OP*    |newSLICEOP     |I32 flags|OP* subscript|OP* listop
 Ap     |OP*    |newSTATEOP     |I32 flags|char* label|OP* o
 Ap     |CV*    |newSUB         |I32 floor|OP* o|OP* proto|OP* block
-Apd    |CV*    |newXS          |char* name|XSUBADDR_t f|char* filename
+Apd    |CV*    |newXS          |const char* name|XSUBADDR_t f|const char* filename
 Apd    |AV*    |newAV
 Ap     |OP*    |newAVREF       |OP* o
 Ap     |OP*    |newBINOP       |I32 type|I32 flags|OP* first|OP* last
 Ap     |OP*    |newCVREF       |I32 flags|OP* o
 Ap     |OP*    |newGVOP        |I32 type|I32 flags|GV* gv
-Ap     |GV*    |newGVgen       |char* pack
+Ap     |GV*    |newGVgen       |const char* pack
 Ap     |OP*    |newGVREF       |I32 type|OP* o
 Ap     |OP*    |newHVREF       |OP* o
 Apd    |HV*    |newHV
@@ -532,22 +538,24 @@ Ap        |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
                                |I32 whileline|OP* expr|OP* block|OP* cont
 
 Ap     |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
-Apd    |char*  |scan_vstring   |char *vstr|SV *sv
-Apd    |char*  |scan_version   |char *vstr|SV *sv
+Ap     |char*  |scan_vstring   |const char *vstr|SV *sv
+Apd    |char*  |scan_version   |const char *vstr|SV *sv|bool qv
 Apd    |SV*    |new_version    |SV *ver
 Apd    |SV*    |upg_version    |SV *ver
 Apd    |SV*    |vnumify        |SV *vs
+Apd    |SV*    |vnormal        |SV *vs
 Apd    |SV*    |vstringify     |SV *vs
 Apd    |int    |vcmp           |SV *lvs|SV *rvs
 p      |PerlIO*|nextargv       |GV* gv
 Ap     |char*  |ninstr         |const char* big|const char* bigend \
                                |const char* little|const char* lend
-p      |OP*    |oopsCV         |OP* o
+pr     |OP*    |oopsCV         |OP* o
 Ap     |void   |op_free        |OP* arg
 p      |void   |package        |OP* o
 pd     |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
 p      |PADOFFSET|allocmy      |char* name
-pd     |PADOFFSET|pad_findmy   |char* name
+pd     |PADOFFSET|pad_findmy   |const char* name
+Ap     |PADOFFSET|find_rundefsvoffset  |
 p      |OP*    |oopsAV         |OP* o
 p      |OP*    |oopsHV         |OP* o
 pd     |void   |pad_leavemy
@@ -584,16 +592,14 @@ Ap        |void   |set_numeric_local
 Ap     |void   |set_numeric_radix
 Ap     |void   |set_numeric_standard
 Apd    |void   |require_pv     |const char* pv
-Apd    |void   |pack_cat       |SV *cat|char *pat|char *patend|SV **beglist|SV **endlist|SV ***next_in_list|U32 flags
-Apd    |void   |packlist       |SV *cat|char *pat|char *patend|SV **beglist|SV **endlist
+Apd    |void   |pack_cat       |SV *cat|const char *pat|const char *patend|SV **beglist|SV **endlist|SV ***next_in_list|U32 flags
+Apd    |void   |packlist       |SV *cat|const char *pat|const char *patend|SV **beglist|SV **endlist
 p      |void   |pidgone        |Pid_t pid|int status
 Ap     |void   |pmflag         |U32* pmfl|int ch
-p      |OP*    |pmruntime      |OP* pm|OP* expr|OP* repl
+p      |OP*    |pmruntime      |OP* pm|OP* expr|bool isreg
 p      |OP*    |pmtrans        |OP* o|OP* expr|OP* repl
-p      |OP*    |pop_return
 Ap     |void   |pop_scope
 p      |OP*    |prepend_elem   |I32 optype|OP* head|OP* tail
-p      |void   |push_return    |OP* o
 Ap     |void   |push_scope
 p      |OP*    |ref            |OP* o|I32 type
 p      |OP*    |refkids        |OP* o|I32 type
@@ -631,7 +637,7 @@ Apd |char*  |savesharedpv   |const char* pv
 Apd    |char*  |savepvn        |const char* pv|I32 len
 Ap     |void   |savestack_grow
 Ap     |void   |savestack_grow_cnt     |I32 need
-Ap     |void   |save_aelem     |AV* av|I32 idx|SV **sptr
+Ap     |void   |save_aelem     |const AV* av|I32 idx|SV **sptr
 Ap     |I32    |save_alloc     |I32 size|I32 pad
 Ap     |void   |save_aptr      |AV** aptr
 Ap     |AV*    |save_ary       |GV* gv
@@ -649,7 +655,7 @@ Ap  |void   |save_shared_pvref|char** str
 Ap     |void   |save_gp        |GV* gv|I32 empty
 Ap     |HV*    |save_hash      |GV* gv
 Ap     |void   |save_helem     |HV* hv|SV *key|SV **sptr
-Ap     |void   |save_hints
+Apr    |void   |save_hints
 Ap     |void   |save_hptr      |HV** hptr
 Ap     |void   |save_I16       |I16* intp
 Ap     |void   |save_I32       |I32* intp
@@ -669,39 +675,42 @@ Ap        |void   |save_re_context
 Ap     |void   |save_padsv     |PADOFFSET off
 Ap     |void   |save_sptr      |SV** sptr
 Ap     |SV*    |save_svref     |SV** sptr
-Ap     |SV**   |save_threadsv  |PADOFFSET i
+Apr    |SV**   |save_threadsv  |PADOFFSET i
 p      |OP*    |sawparens      |OP* o
 p      |OP*    |scalar         |OP* o
 p      |OP*    |scalarkids     |OP* o
 p      |OP*    |scalarseq      |OP* o
 p      |OP*    |scalarvoid     |OP* o
-Apd    |NV     |scan_bin       |char* start|STRLEN len|STRLEN* retlen
-Apd    |NV     |scan_hex       |char* start|STRLEN len|STRLEN* retlen
-Ap     |char*  |scan_num       |char* s|YYSTYPE *lvalp
-Apd    |NV     |scan_oct       |char* start|STRLEN len|STRLEN* retlen
+Apd    |NV     |scan_bin       |const char* start|STRLEN len|STRLEN* retlen
+Apd    |NV     |scan_hex       |const char* start|STRLEN len|STRLEN* retlen
+Ap     |char*  |scan_num       |const char* s|YYSTYPE *lvalp
+Apd    |NV     |scan_oct       |const char* start|STRLEN len|STRLEN* retlen
 p      |OP*    |scope          |OP* o
 Ap     |char*  |screaminstr    |SV* bigsv|SV* littlesv|I32 start_shift \
                                |I32 end_shift|I32 *state|I32 last
 #if !defined(VMS)
-p      |I32    |setenv_getix   |char* nam
+p      |I32    |setenv_getix   |const char* nam
 #endif
 p      |void   |setdefout      |GV* gv
 p      |HEK*   |share_hek      |const char* sv|I32 len|U32 hash
 np     |Signal_t |sighandler   |int sig
+Anp    |Signal_t |csighandler  |int sig
 Ap     |SV**   |stack_grow     |SV** sp|SV**p|int n
 Ap     |I32    |start_subparse |I32 is_format|U32 flags
 p      |void   |sub_crush_depth|CV* cv
 Apd    |bool   |sv_2bool       |SV* sv
 Apd    |CV*    |sv_2cv         |SV* sv|HV** st|GV** gvp|I32 lref
 Apd    |IO*    |sv_2io         |SV* sv
-Apd    |IV     |sv_2iv         |SV* sv
+Amb    |IV     |sv_2iv         |SV* sv
+Apd    |IV     |sv_2iv_flags   |SV* sv|I32 flags
 Apd    |SV*    |sv_2mortal     |SV* sv
 Apd    |NV     |sv_2nv         |SV* sv
 Amb    |char*  |sv_2pv         |SV* sv|STRLEN* lp
 Apd    |char*  |sv_2pvutf8     |SV* sv|STRLEN* lp
 Apd    |char*  |sv_2pvbyte     |SV* sv|STRLEN* lp
 Ap     |char*  |sv_pvn_nomg    |SV* sv|STRLEN* lp
-Apd    |UV     |sv_2uv         |SV* sv
+Amb    |UV     |sv_2uv         |SV* sv
+Apd    |UV     |sv_2uv_flags   |SV* sv|I32 flags
 Apd    |IV     |sv_iv          |SV* sv
 Apd    |UV     |sv_uv          |SV* sv
 Apd    |NV     |sv_nv          |SV* sv
@@ -713,7 +722,7 @@ pd  |void   |sv_add_arena   |char* ptr|U32 size|U32 flags
 Apd    |int    |sv_backoff     |SV* sv
 Apd    |SV*    |sv_bless       |SV* sv|HV* stash
 Afpd   |void   |sv_catpvf      |SV* sv|const char* pat|...
-Ap     |void   |sv_vcatpvf     |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_vcatpvf     |SV* sv|const char* pat|va_list* args
 Apd    |void   |sv_catpv       |SV* sv|const char* ptr
 Amdb   |void   |sv_catpvn      |SV* sv|const char* ptr|STRLEN len
 Amdb   |void   |sv_catsv       |SV* dsv|SV* ssv
@@ -726,7 +735,7 @@ Apd |I32    |sv_cmp_locale  |SV* sv1|SV* sv2
 #if defined(USE_LOCALE_COLLATE)
 Apd    |char*  |sv_collxfrm    |SV* sv|STRLEN* nxp
 #endif
-Ap     |OP*    |sv_compile_2op |SV* sv|OP** startp|char* code|PAD** padp
+Ap     |OP*    |sv_compile_2op |SV* sv|OP** startp|const char* code|PAD** padp
 Apd    |int    |getcwd_sv      |SV* sv
 Apd    |void   |sv_dec         |SV* sv
 Ap     |void   |sv_dump        |SV* sv
@@ -739,15 +748,15 @@ Apd       |char*  |sv_gets        |SV* sv|PerlIO* fp|I32 append
 Apd    |char*  |sv_grow        |SV* sv|STRLEN newlen
 Apd    |void   |sv_inc         |SV* sv
 Apd    |void   |sv_insert      |SV* bigsv|STRLEN offset|STRLEN len \
-                               |char* little|STRLEN littlelen
+                               |const char* little|STRLEN littlelen
 Apd    |int    |sv_isa         |SV* sv|const char* name
 Apd    |int    |sv_isobject    |SV* sv
 Apd    |STRLEN |sv_len         |SV* sv
 Apd    |STRLEN |sv_len_utf8    |SV* sv
 Apd    |void   |sv_magic       |SV* sv|SV* obj|int how|const char* name \
                                |I32 namlen
-Apd    |MAGIC *|sv_magicext    |SV* sv|SV* obj|int how|MGVTBL *vtbl \
-                               | const char* name|I32 namlen   
+Apd    |MAGIC *|sv_magicext    |SV* sv|SV* obj|int how|const MGVTBL *vtbl \
+                               |const char* name|I32 namlen
 Apd    |SV*    |sv_mortalcopy  |SV* oldsv
 Apd    |SV*    |sv_newmortal
 Apd    |SV*    |sv_newref      |SV* sv
@@ -760,12 +769,12 @@ Apd       |char*  |sv_pvbyten_force|SV* sv|STRLEN* lp
 Apd    |char*  |sv_recode_to_utf8      |SV* sv|SV *encoding
 Apd    |bool   |sv_cat_decode  |SV* dsv|SV *encoding|SV *ssv|int *offset \
                                |char* tstr|int tlen
-Apd    |char*  |sv_reftype     |SV* sv|int ob
+Apd    |char*  |sv_reftype     |const SV* sv|int ob
 Apd    |void   |sv_replace     |SV* sv|SV* nsv
 Apd    |void   |sv_report_used
-Apd    |void   |sv_reset       |char* s|HV* stash
+Apd    |void   |sv_reset       |const char* s|HV* stash
 Afpd   |void   |sv_setpvf      |SV* sv|const char* pat|...
-Ap     |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
 Apd    |void   |sv_setiv       |SV* sv|IV num
 Apdb   |void   |sv_setpviv     |SV* sv|IV num
 Apd    |void   |sv_setuv       |SV* sv|UV num
@@ -794,63 +803,61 @@ Apd       |void   |sv_vsetpvfn    |SV* sv|const char* pat|STRLEN patlen \
                                |va_list* args|SV** svargs|I32 svmax \
                                |bool *maybe_tainted
 Ap     |NV     |str_to_version |SV *sv
-Ap     |SV*    |swash_init     |char* pkg|char* name|SV* listsv \
-                               |I32 minbits|I32 none
-Ap     |UV     |swash_fetch    |SV *sv|U8 *ptr|bool do_utf8
+Ap     |SV*    |swash_init     |const char* pkg|const char* name|SV* listsv|I32 minbits|I32 none
+Ap     |UV     |swash_fetch    |SV *sv|const U8 *ptr|bool do_utf8
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |const char* f|const char* s
-Apd    |UV     |to_utf8_case   |U8 *p|U8* ustrp|STRLEN *lenp \
-                               |SV **swash|char *normal|char *special
-Apd    |UV     |to_utf8_lower  |U8 *p|U8* ustrp|STRLEN *lenp
-Apd    |UV     |to_utf8_upper  |U8 *p|U8* ustrp|STRLEN *lenp
-Apd    |UV     |to_utf8_title  |U8 *p|U8* ustrp|STRLEN *lenp
-Apd    |UV     |to_utf8_fold   |U8 *p|U8* ustrp|STRLEN *lenp
+Apd    |UV     |to_utf8_case   |const U8 *p|U8* ustrp|STRLEN *lenp|SV **swash|const char *normal|const char *special
+Apd    |UV     |to_utf8_lower  |const U8 *p|U8* ustrp|STRLEN *lenp
+Apd    |UV     |to_utf8_upper  |const U8 *p|U8* ustrp|STRLEN *lenp
+Apd    |UV     |to_utf8_title  |const U8 *p|U8* ustrp|STRLEN *lenp
+Apd    |UV     |to_utf8_fold   |const U8 *p|U8* ustrp|STRLEN *lenp
 #if defined(UNLINK_ALL_VERSIONS)
 Ap     |I32    |unlnk          |char* f
 #endif
-Apd    |I32    |unpack_str     |char *pat|char *patend|char *s|char *strbeg|char *strend|char **new_s|I32 ocnt|U32 flags
-Apd    |I32    |unpackstring   |char *pat|char *patend|char *s|char *strend|U32 flags
+Apd    |I32    |unpack_str     |const char *pat|const char *patend|const char *s|const char *strbeg|const char *strend|char **new_s|I32 ocnt|U32 flags
+Apd    |I32    |unpackstring   |const char *pat|const char *patend|const char *s|const char *strend|U32 flags
 Ap     |void   |unsharepvn     |const char* sv|I32 len|U32 hash
 p      |void   |unshare_hek    |HEK* hek
 p      |void   |utilize        |int aver|I32 floor|OP* version|OP* idop|OP* arg
 Ap     |U8*    |utf16_to_utf8  |U8* p|U8 *d|I32 bytelen|I32 *newlen
 Ap     |U8*    |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
-Adp    |STRLEN |utf8_length    |U8* s|U8 *e
-Apd    |IV     |utf8_distance  |U8 *a|U8 *b
+Adp    |STRLEN |utf8_length    |const U8* s|const U8 *e
+Apd    |IV     |utf8_distance  |const U8 *a|const U8 *b
 Apd    |U8*    |utf8_hop       |U8 *s|I32 off
 ApMd   |U8*    |utf8_to_bytes  |U8 *s|STRLEN *len
-ApMd   |U8*    |bytes_from_utf8|U8 *s|STRLEN *len|bool *is_utf8
-ApMd   |U8*    |bytes_to_utf8  |U8 *s|STRLEN *len
-Apd    |UV     |utf8_to_uvchr  |U8 *s|STRLEN* retlen
-Apd    |UV     |utf8_to_uvuni  |U8 *s|STRLEN* retlen
-Adp    |UV     |utf8n_to_uvchr |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
-Adp    |UV     |utf8n_to_uvuni |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
+ApMd   |U8*    |bytes_from_utf8|const U8 *s|STRLEN *len|bool *is_utf8
+ApMd   |U8*    |bytes_to_utf8  |const U8 *s|STRLEN *len
+Apd    |UV     |utf8_to_uvchr  |const U8 *s|STRLEN* retlen
+Apd    |UV     |utf8_to_uvuni  |const U8 *s|STRLEN* retlen
+Adp    |UV     |utf8n_to_uvchr |const U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
+Adp    |UV     |utf8n_to_uvuni |const U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
 Apd    |U8*    |uvchr_to_utf8  |U8 *d|UV uv
 Ap     |U8*    |uvuni_to_utf8  |U8 *d|UV uv
 Ap     |U8*    |uvchr_to_utf8_flags    |U8 *d|UV uv|UV flags
 Apd    |U8*    |uvuni_to_utf8_flags    |U8 *d|UV uv|UV flags
-Apd    |char*  |pv_uni_display |SV *dsv|U8 *spv|STRLEN len \
+Apd    |char*  |pv_uni_display |SV *dsv|const U8 *spv|STRLEN len \
                                |STRLEN pvlim|UV flags
 Apd    |char*  |sv_uni_display |SV *dsv|SV *ssv|STRLEN pvlim|UV flags
 p      |void   |vivify_defelem |SV* sv
 p      |void   |vivify_ref     |SV* sv|U32 to_what
 p      |I32    |wait4pid       |Pid_t pid|int* statusp|int flags
-p      |U32    |parse_unicode_opts|char **popt
-p      |void   |report_evil_fh |GV *gv|IO *io|I32 op
-pd     |void   |report_uninit
+p      |U32    |parse_unicode_opts|const char **popt
+p      |U32    |seed
+p      |UV     |get_hash_seed
+p      |void   |report_evil_fh |const GV *gv|const IO *io|I32 op
+pd     |void   |report_uninit  |SV* uninit_sv
 Afpd   |void   |warn           |const char* pat|...
 Ap     |void   |vwarn          |const char* pat|va_list* args
 Afp    |void   |warner         |U32 err|const char* pat|...
 Ap     |void   |vwarner        |U32 err|const char* pat|va_list* args
 p      |void   |watch          |char** addr
-Ap     |I32    |whichsig       |char* sig
-p      |int    |yyerror        |char* s
-#ifdef USE_PURE_BISON
-p      |int    |yylex_r        |YYSTYPE *lvalp|int *lcharp
-#endif
+Ap     |I32    |whichsig       |const char* sig
+p      |void   |write_to_stderr|const char* message|int msglen
+p      |int    |yyerror        |const char* s
 p      |int    |yylex
 p      |int    |yyparse
-p      |int    |yywarn         |char* s
+p      |int    |yywarn         |const char* s
 #if defined(MYMALLOC)
 Ap     |void   |dump_mstats    |char* s
 Ap     |int    |get_mstats     |perl_mstats_t *buf|int buflen|int level
@@ -861,16 +868,18 @@ Anp       |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
 Anp    |Free_t |safesysfree    |Malloc_t where
 #if defined(PERL_GLOBAL_STRUCT)
 Ap     |struct perl_vars *|GetVars
+Ap     |struct perl_vars*|init_global_struct
+Ap     |void   |free_global_struct|struct perl_vars*
 #endif
 Ap     |int    |runops_standard
 Ap     |int    |runops_debug
 Afpd   |void   |sv_catpvf_mg   |SV *sv|const char* pat|...
-Ap     |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
 Apd    |void   |sv_catpv_mg    |SV *sv|const char *ptr
 Apd    |void   |sv_catpvn_mg   |SV *sv|const char *ptr|STRLEN len
 Apd    |void   |sv_catsv_mg    |SV *dstr|SV *sstr
 Afpd   |void   |sv_setpvf_mg   |SV *sv|const char* pat|...
-Ap     |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
 Apd    |void   |sv_setiv_mg    |SV *sv|IV i
 Apdb   |void   |sv_setpviv_mg  |SV *sv|IV iv
 Apd    |void   |sv_setuv_mg    |SV *sv|UV u
@@ -880,27 +889,21 @@ Apd       |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
 Apd    |void   |sv_setsv_mg    |SV *dstr|SV *sstr
 Apd    |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
 Ap     |MGVTBL*|get_vtbl       |int vtbl_id
-Ap     |char*  |pv_display     |SV *dsv|char *pv|STRLEN cur|STRLEN len \
+Ap     |char*  |pv_display     |SV *dsv|const char *pv|STRLEN cur|STRLEN len \
                                |STRLEN pvlim
 Afp    |void   |dump_indent    |I32 level|PerlIO *file|const char* pat|...
 Ap     |void   |dump_vindent   |I32 level|PerlIO *file|const char* pat \
                                |va_list *args
-Ap     |void   |do_gv_dump     |I32 level|PerlIO *file|char *name|GV *sv
-Ap     |void   |do_gvgv_dump   |I32 level|PerlIO *file|char *name|GV *sv
-Ap     |void   |do_hv_dump     |I32 level|PerlIO *file|char *name|HV *sv
-Ap     |void   |do_magic_dump  |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
+Ap     |void   |do_gv_dump     |I32 level|PerlIO *file|const char *name|GV *sv
+Ap     |void   |do_gvgv_dump   |I32 level|PerlIO *file|const char *name|GV *sv
+Ap     |void   |do_hv_dump     |I32 level|PerlIO *file|const char *name|HV *sv
+Ap     |void   |do_magic_dump  |I32 level|PerlIO *file|const MAGIC *mg|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
-Ap     |void   |do_op_dump     |I32 level|PerlIO *file|OP *o
-Ap     |void   |do_pmop_dump   |I32 level|PerlIO *file|PMOP *pm
+Ap     |void   |do_op_dump     |I32 level|PerlIO *file|const OP *o
+Ap     |void   |do_pmop_dump   |I32 level|PerlIO *file|const PMOP *pm
 Ap     |void   |do_sv_dump     |I32 level|PerlIO *file|SV *sv|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
-Ap     |void   |magic_dump     |MAGIC *mg
-#if defined(PERL_FLEXIBLE_EXCEPTIONS)
-Ap     |void*  |default_protect|volatile JMPENV *je|int *excpt \
-                               |protect_body_t body|...
-Ap     |void*  |vdefault_protect|volatile JMPENV *je|int *excpt \
-                               |protect_body_t body|va_list *args
-#endif
+Ap     |void   |magic_dump     |const MAGIC *mg
 Ap     |void   |reginitcolors
 Apd    |char*  |sv_2pv_nolen   |SV* sv
 Apd    |char*  |sv_2pvutf8_nolen|SV* sv
@@ -919,7 +922,7 @@ Apd |SV*    |sv_rvweaken    |SV *sv
 p      |int    |magic_killbackrefs|SV *sv|MAGIC *mg
 Ap     |OP*    |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
 Ap     |CV*    |newATTRSUB     |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
-Ap     |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
+Apr    |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
 p      |OP *   |my_attrs       |OP *o|OP *attrs
 p      |void   |boot_core_xsutils
 #if defined(USE_ITHREADS)
@@ -934,6 +937,7 @@ Ap  |DIR*   |dirp_dup       |DIR* dp
 Ap     |GP*    |gp_dup         |GP* gp|CLONE_PARAMS* param
 Ap     |MAGIC* |mg_dup         |MAGIC* mg|CLONE_PARAMS* param
 Ap     |SV*    |sv_dup         |SV* sstr|CLONE_PARAMS* param
+Ap     |void   |rvpv_dup       |SV* dstr|SV *sstr|CLONE_PARAMS* param
 #if defined(HAVE_INTERP_INTERN)
 Ap     |void   |sys_intern_dup |struct interp_intern* src \
                                |struct interp_intern* dst
@@ -950,8 +954,8 @@ Ap  |void   |sys_intern_clear
 Ap     |void   |sys_intern_init
 #endif
 
-Ap     |char * |custom_op_name |OP* op
-Ap     |char * |custom_op_desc |OP* op
+Ap     |char * |custom_op_name |const OP* op
+Ap     |char * |custom_op_desc |const OP* op
 
 #if defined(PERL_COPY_ON_WRITE)
 pMX    |int    |sv_release_IVX |SV *sv
@@ -988,48 +992,46 @@ s |HEK*   |save_hek_flags |const char *str|I32 len|U32 hash|int flags
 s      |void   |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
 s      |void   |unshare_hek_or_pvn|HEK* hek|const char* sv|I32 len|U32 hash
 s      |HEK*   |share_hek_flags|const char* sv|I32 len|U32 hash|int flags
-s      |SV**   |hv_fetch_flags |HV* tb|const char* key|I32 klen|I32 lval \
-                                |int flags
-s      |void   |hv_notallowed  |int flags|const char *key|I32 klen|const char *msg
+rs     |void   |hv_notallowed  |int flags|const char *key|I32 klen|const char *msg
 #endif
 
 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
 s      |void   |save_magic     |I32 mgs_ix|SV *sv
-s      |int    |magic_methpack |SV *sv|MAGIC *mg|char *meth
-s      |int    |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
+s      |int    |magic_methpack |SV *sv|const MAGIC *mg|const char *meth
+s      |int    |magic_methcall |SV *sv|const MAGIC *mg|const char *meth|I32 f \
                                |int n|SV *val
 #endif
 
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
-s      |I32    |list_assignment|OP *o
-s      |void   |bad_type       |I32 n|char *t|char *name|OP *kid
+s      |I32    |list_assignment|const OP *o
+s      |void   |bad_type       |I32 n|const char *t|const char *name|const OP *kid
 s      |void   |cop_free       |COP *cop
 s      |OP*    |modkids        |OP *o|I32 type
-s      |void   |no_bareword_allowed|OP *o
+s      |void   |no_bareword_allowed|const OP *o
 s      |OP*    |no_fh_allowed  |OP *o
 s      |OP*    |scalarboolean  |OP *o
-s      |OP*    |too_few_arguments|OP *o|char* name
-s      |OP*    |too_many_arguments|OP *o|char* name
+s      |OP*    |too_few_arguments|OP *o|const char* name
+s      |OP*    |too_many_arguments|OP *o|const char* name
 s      |OP*    |newDEFSVOP
 s      |OP*    |new_logop      |I32 type|I32 flags|OP **firstp|OP **otherp
 s      |void   |simplify_sort  |OP *o
-s      |bool   |is_handle_constructor  |OP *o|I32 argnum
+s      |bool   |is_handle_constructor  |const OP *o|I32 argnum
 s      |char*  |gv_ename       |GV *gv
-s      |bool   |scalar_mod_type|OP *o|I32 type
+s      |bool   |scalar_mod_type|const OP *o|I32 type
 s      |OP *   |my_kid         |OP *o|OP *attrs|OP **imopsp
 s      |OP *   |dup_attrlist   |OP *o
 s      |void   |apply_attrs    |HV *stash|SV *target|OP *attrs|bool for_my
 s      |void   |apply_attrs_my |HV *stash|OP *target|OP *attrs|OP **imopsp
-#  if defined(PL_OP_SLAB_ALLOC)
-s      |void*  |Slab_Alloc     |int m|size_t sz
-s      |void   |Slab_Free      |void *op
-#  endif
+#endif
+#if defined(PL_OP_SLAB_ALLOC)
+Ap     |void*  |Slab_Alloc     |int m|size_t sz
+Ap     |void   |Slab_Free      |void *op
 #endif
 
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 s      |void   |find_beginning
-s      |void   |forbid_setid   |char *
-s      |void   |incpush        |char *|int|int|int
+s      |void   |forbid_setid   |const char * s
+s      |void   |incpush        |const char *dir|bool addsubdirs|bool addoldvers|bool usesep|bool canrelocate
 s      |void   |init_interp
 s      |void   |init_ids
 s      |void   |init_lexer
@@ -1039,59 +1041,49 @@ s       |void   |init_postdump_symbols|int|char **|char **
 s      |void   |init_predump_symbols
 rs     |void   |my_exit_jump
 s      |void   |nuke_stacks
-s      |void   |open_script    |char *|bool|SV *|int *fd
-s      |void   |usage          |char *
-s      |void   |validate_suid  |char *|char*|int
+s      |void   |open_script    |const char *scriptname|bool dosearch|SV *sv
+s      |void   |usage          |const char *name
+s      |void   |validate_suid  |const char *validarg|const char *scriptname
 #  if defined(IAMSUID)
 s      |int    |fd_on_nosuid_fs|int fd
 #  endif
 s      |void*  |parse_body     |char **env|XSINIT_t xsinit
-s      |void*  |run_body       |I32 oldscope
-s      |void   |call_body      |OP *myop|int is_eval
+rs     |void   |run_body       |I32 oldscope
+s      |void   |call_body      |const OP *myop|bool is_eval
 s      |void*  |call_list_body |CV *cv
-#if defined(PERL_FLEXIBLE_EXCEPTIONS)
-s      |void*  |vparse_body    |va_list args
-s      |void*  |vrun_body      |va_list args
-s      |void*  |vcall_body     |va_list args
-s      |void*  |vcall_list_body|va_list args
-#endif
 #endif
 
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
 s      |SV*    |refto          |SV* sv
-s      |U32    |seed
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-s      |I32    |unpack_rec     |tempsym_t* symptr|char *s|char *strbeg|char *strend|char **new_s
-s      |SV **  |pack_rec       |SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist
+s      |I32    |unpack_rec     |struct tempsym* symptr|const char *s|const char *strbeg|const char *strend|const char **new_s
+s      |SV **  |pack_rec       |SV *cat|struct tempsym* symptr|SV **beglist|SV **endlist
 s      |SV*    |mul128         |SV *sv|U8 m
-s      |I32    |measure_struct |tempsym_t* symptr
-s      |char * |group_end      |char *pat|char *patend|char ender
-s      |char * |get_num        |char *ppat|I32 *
-s      |bool   |next_symbol    |tempsym_t* symptr
-s      |void   |doencodes      |SV* sv|char* s|I32 len
-s      |SV*    |is_an_int      |char *s|STRLEN l
+s      |I32    |measure_struct |struct tempsym* symptr
+s      |bool   |next_symbol    |struct tempsym* symptr
+s      |SV*    |is_an_int      |const char *s|STRLEN l
 s      |int    |div128         |SV *pnum|bool *done
+s      |const char *|group_end |const char *pat|const char *patend|char ender
+s      |const char *|get_num   |const char *ppat|I32 *lenptr
 #endif
 
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
 s      |OP*    |docatch        |OP *o
 s      |void*  |docatch_body
-#if defined(PERL_FLEXIBLE_EXCEPTIONS)
-s      |void*  |vdocatch_body  |va_list args
-#endif
-s      |OP*    |dofindlabel    |OP *o|char *label|OP **opstack|OP **oplimit
-s      |void   |doparseform    |SV *sv
+s      |OP*    |dofindlabel    |OP *o|const char *label|OP **opstack|OP **oplimit
+s      |OP*    |doparseform    |SV *sv
+sn     |bool   |num_overflow   |NV value|I32 fldsize|I32 frcsize
 s      |I32    |dopoptoeval    |I32 startingblock
-s      |I32    |dopoptolabel   |char *label
+s      |I32    |dopoptolabel   |const char *label
 s      |I32    |dopoptoloop    |I32 startingblock
 s      |I32    |dopoptosub     |I32 startingblock
 s      |I32    |dopoptosub_at  |PERL_CONTEXT* cxstk|I32 startingblock
 s      |void   |save_lines     |AV *array|SV *sv
 s      |OP*    |doeval         |int gimme|OP** startop|CV* outside|U32 seq
 s      |PerlIO *|doopen_pm     |const char *name|const char *mode
-s      |bool   |path_is_absolute|char *name
+s      |bool   |path_is_absolute|const char *name
 #endif
 
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
@@ -1139,11 +1131,15 @@ Es      |void   |cl_or          |struct RExC_state_t*|struct regnode_charclass_class *cl \
                                |struct regnode_charclass_class *or_with
 Es     |I32    |study_chunk    |struct RExC_state_t*|regnode **scanp|I32 *deltap \
                                |regnode *last|struct scan_data_t *data \
-                               |U32 flags
-Es     |I32    |add_data       |struct RExC_state_t*|I32 n|char *s
-rs     |void|re_croak2 |const char* pat1|const char* pat2|...
+                               |U32 flags|U32 depth
+Es     |I32    |add_data       |struct RExC_state_t*|I32 n|const char *s
+rs     |void   |re_croak2      |const char* pat1|const char* pat2|...
 Es     |I32    |regpposixcc    |struct RExC_state_t*|I32 value
 Es     |void   |checkposixcc   |struct RExC_state_t*
+
+Es     |I32    |make_trie      |struct RExC_state_t*|regnode *startbranch \
+                               |regnode *first|regnode *last|regnode *tail \
+                               |U32 flags
 #endif
 
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
@@ -1160,14 +1156,14 @@ Es      |U8*    |reghop         |U8 *pos|I32 off
 Es     |U8*    |reghop3        |U8 *pos|I32 off|U8 *lim
 Es     |U8*    |reghopmaybe    |U8 *pos|I32 off
 Es     |U8*    |reghopmaybe3   |U8 *pos|I32 off|U8 *lim
-Es     |char*  |find_byclass   |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
+Es     |char*  |find_byclass   |regexp * prog|regnode *c|char *s|char *strend|I32 norun
 Es     |void   |to_utf8_substr |regexp * prog
 Es     |void   |to_byte_substr |regexp * prog
 #endif
 
 #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
 s      |CV*    |deb_curcv      |I32 ix
-s      |void   |debprof        |OP *o
+s      |void   |debprof        |const OP *o
 #endif
 
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
@@ -1216,7 +1212,7 @@ s |void   |del_xpvbm      |XPVBM* p
 s      |void   |del_xrv        |XRV* p
 s      |void   |sv_unglob      |SV* sv
 s      |void   |not_a_number   |SV *sv
-s      |I32    |visit          |SVFUNC_t f
+s      |I32    |visit          |SVFUNC_t f|U32 flags|U32 mask
 s      |void   |sv_add_backref |SV *tsv|SV *sv
 s      |void   |sv_del_backref |SV *sv
 #  ifdef DEBUGGING
@@ -1260,28 +1256,28 @@ s       |char*  |scan_word      |char *s|char *dest|STRLEN destlen \
                                |int allow_package|STRLEN *slp
 s      |char*  |skipspace      |char *s
 s      |char*  |swallow_bom    |U8 *s
-s      |void   |checkcomma     |char *s|char *name|char *what
-s      |void   |force_ident    |char *s|int kind
+s      |void   |checkcomma     |char *s|char *name|const char *what
+s      |void   |force_ident    |const char *s|int kind
 s      |void   |incline        |char *s
 s      |int    |intuit_method  |char *s|GV *gv
 s      |int    |intuit_more    |char *s
 s      |I32    |lop            |I32 f|int x|char *s
-     |void   |missingterm    |char *s
-s      |void   |no_op          |char *what|char *s
+rs     |void   |missingterm    |char *s
+s      |void   |no_op          |const char *what|char *s
 s      |void   |set_csh
 s      |I32    |sublex_done
 s      |I32    |sublex_push
 s      |I32    |sublex_start
 s      |char * |filter_gets    |SV *sv|PerlIO *fp|STRLEN append
-s      |HV *   |find_in_my_stash|char *pkgname|I32 len
-s      |SV*    |new_constant   |char *s|STRLEN len|const char *key|SV *sv \
+s      |HV *   |find_in_my_stash|const char *pkgname|I32 len
+s      |SV*    |new_constant   |const char *s|STRLEN len|const char *key|SV *sv \
                                |SV *pv|const char *type
 #  if defined(DEBUGGING)
-s      |void   |tokereport     |char *thing|char *s|I32 rv
+s      |int    |tokereport     |const char *s|I32 rv
 #  endif
 s      |int    |ao             |int toketype
 s      |void   |depcom
-s      |char*  |incl_perldb
+s      |const char*|incl_perldb
 #if 0
 s      |I32    |utf16_textfilter|int idx|SV *sv|int maxlen
 s      |I32    |utf16rev_textfilter|int idx|SV *sv|int maxlen
@@ -1296,8 +1292,10 @@ s        |SV*|isa_lookup |HV *stash|const char *name|HV *name_stash|int len|int level
 #endif
 
 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
+#if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
 s      |char*  |stdize_locale  |char* locs
 #endif
+#endif
 
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 s      |COP*   |closest_cop    |COP *cop|OP *o
@@ -1320,7 +1318,7 @@ Apd       |void   |sv_copypv      |SV* dsv|SV* ssv
 Ap     |char*  |my_atof2       |const char *s|NV* value
 Apn    |int    |my_socketpair  |int family|int type|int protocol|int fd[2]
 #ifdef PERL_COPY_ON_WRITE
-pMX    |SV*    |sv_setsv_cow   |SV* dsv|SV* ssv
+pMXE   |SV*    |sv_setsv_cow   |SV* dsv|SV* ssv
 #endif
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
@@ -1358,11 +1356,11 @@ s       |void   |deb_stack_n    |SV** stack_base|I32 stack_min \
 
 pd     |PADLIST*|pad_new       |int flags
 pd     |void   |pad_undef      |CV* cv
-pd     |PADOFFSET|pad_add_name |char *name\
+pd     |PADOFFSET|pad_add_name |const char *name\
                                |HV* typestash|HV* ourstash \
                                |bool clone
 pd     |PADOFFSET|pad_add_anon |SV* sv|OPCODE op_type
-pd     |void   |pad_check_dup  |char* name|bool is_our|HV* ourstash
+pd     |void   |pad_check_dup  |const char* name|bool is_our|const HV* ourstash
 #ifdef DEBUGGING
 pd     |void   |pad_setsv      |PADOFFSET po|SV* sv
 #endif
@@ -1372,20 +1370,118 @@ pd     |void   |do_dump_pad    |I32 level|PerlIO *file \
                                |PADLIST *padlist|int full
 pd     |void   |pad_fixup_inner_anons|PADLIST *padlist|CV *old_cv|CV *new_cv
 
-pd     |void   |pad_push       |PADLIST *padlist|int depth|int has_args
+pd     |void   |pad_push       |PADLIST *padlist|int depth
+p      |HV*    |pad_compname_type|PADOFFSET po
 
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
-sd     |PADOFFSET|pad_findlex  |char *name|CV* cv|U32 seq|int warn \
+sd     |PADOFFSET|pad_findlex  |const char *name|const CV* cv|U32 seq|int warn \
                                |SV** out_capture|SV** out_name_sv \
                                |int *out_flags
 #  if defined(DEBUGGING)
-sd     |void   |cv_dump        |CV *cv|char *title
+sd     |void   |cv_dump        |const CV *cv|const char *title
 #  endif
 #endif
 pd     |CV*    |find_runcv     |U32 *db_seqp
 p      |void   |free_tied_hv_pool
+#if defined(DEBUGGING)
+p      |int    |get_debug_opts |const char **s|bool givehelp
+#endif
+Ap     |void   |save_set_svflags|SV* sv|U32 mask|U32 val
+Apod   |void   |hv_assert      |HV* tb
 
+#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+sM     |SV*    |hv_delete_common|HV* tb|SV* key_sv|const char* key|STRLEN klen|int k_flags|I32 d_flags|U32 hash
+sM     |HE*    |hv_fetch_common|HV* tb|SV* key_sv|const char* key|STRLEN klen|int flags|int action|SV* val|U32 hash
+#endif
 
+Apd    |void   |hv_clear_placeholders|HV* hb
 
-END_EXTERN_C
+Apd    |SV*    |hv_scalar      |HV* hv|
+p      |SV*    |magic_scalarpack|HV* hv|MAGIC* mg
+#ifdef PERL_IN_SV_C
+sMd    |SV*    |find_uninit_var|OP* obase|SV* uninit_sv|bool top
+#endif
 
+#ifdef PERL_NEED_MY_HTOLE16
+np     |U16    |my_htole16     |U16 n
+#endif
+#ifdef PERL_NEED_MY_LETOH16
+np     |U16    |my_letoh16     |U16 n
+#endif
+#ifdef PERL_NEED_MY_HTOBE16
+np     |U16    |my_htobe16     |U16 n
+#endif
+#ifdef PERL_NEED_MY_BETOH16
+np     |U16    |my_betoh16     |U16 n
+#endif
+#ifdef PERL_NEED_MY_HTOLE32
+np     |U32    |my_htole32     |U32 n
+#endif
+#ifdef PERL_NEED_MY_LETOH32
+np     |U32    |my_letoh32     |U32 n
+#endif
+#ifdef PERL_NEED_MY_HTOBE32
+np     |U32    |my_htobe32     |U32 n
+#endif
+#ifdef PERL_NEED_MY_BETOH32
+np     |U32    |my_betoh32     |U32 n
+#endif
+#ifdef PERL_NEED_MY_HTOLE64
+np     |U64    |my_htole64     |U64 n
+#endif
+#ifdef PERL_NEED_MY_LETOH64
+np     |U64    |my_letoh64     |U64 n
+#endif
+#ifdef PERL_NEED_MY_HTOBE64
+np     |U64    |my_htobe64     |U64 n
+#endif
+#ifdef PERL_NEED_MY_BETOH64
+np     |U64    |my_betoh64     |U64 n
+#endif
+
+#ifdef PERL_NEED_MY_HTOLES
+np     |short  |my_htoles      |short n
+#endif
+#ifdef PERL_NEED_MY_LETOHS
+np     |short  |my_letohs      |short n
+#endif
+#ifdef PERL_NEED_MY_HTOBES
+np     |short  |my_htobes      |short n
+#endif
+#ifdef PERL_NEED_MY_BETOHS
+np     |short  |my_betohs      |short n
+#endif
+#ifdef PERL_NEED_MY_HTOLEI
+np     |int    |my_htolei      |int n
+#endif
+#ifdef PERL_NEED_MY_LETOHI
+np     |int    |my_letohi      |int n
+#endif
+#ifdef PERL_NEED_MY_HTOBEI
+np     |int    |my_htobei      |int n
+#endif
+#ifdef PERL_NEED_MY_BETOHI
+np     |int    |my_betohi      |int n
+#endif
+#ifdef PERL_NEED_MY_HTOLEL
+np     |long   |my_htolel      |long n
+#endif
+#ifdef PERL_NEED_MY_LETOHL
+np     |long   |my_letohl      |long n
+#endif
+#ifdef PERL_NEED_MY_HTOBEL
+np     |long   |my_htobel      |long n
+#endif
+#ifdef PERL_NEED_MY_BETOHL
+np     |long   |my_betohl      |long n
+#endif
+
+np     |void   |my_swabn       |void* ptr|int n
+
+Ap     |GV*    |gv_fetchpvn_flags|const char* name|STRLEN len|I32 flags|I32 sv_type
+Ap     |GV*    |gv_fetchsv|SV *name|I32 flags|I32 sv_type
+dp     |bool   |is_gv_magical_sv|SV *name|U32 flags
+
+Apd    |char*  |savesvpv       |SV* sv
+
+END_EXTERN_C