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
embed.fnc: Formal param shouldn't be const
[perl5.git] / embed.fnc
diff --git a/embed.fnc b/embed.fnc
index 6799895..c21272d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -395,6 +395,7 @@ Afp |void   |deb            |NN const char* pat|...
 Ap     |void   |vdeb           |NN const char* pat|NULLOK va_list* args
 Ap     |void   |debprofdump
 EXp    |SV*    |multideref_stringify   |NN const OP* o|NULLOK CV *cv
+EXp    |SV*    |multiconcat_stringify  |NN const OP* o
 Ap     |I32    |debop          |NN const OP* o
 Ap     |I32    |debstack
 Ap     |I32    |debstackptrs
@@ -436,7 +437,6 @@ Ap  |int    |do_spawn_nowait|NN char* cmd
 #if !defined(WIN32)
 p      |bool|do_exec3  |NN const char *incmd|int fd|int do_report
 #endif
-p      |void   |do_execfree
 #if defined(PERL_IN_DOIO_C)
 s      |void   |exec_failed    |NN const char *cmd|int fd|int do_report
 #endif
@@ -464,6 +464,31 @@ Apmb       |bool   |do_open        |NN GV* gv|NN const char* name|I32 len|int as_raw \
 Ap     |bool   |do_open9       |NN GV *gv|NN const char *name|I32 len|int as_raw \
                                |int rawmode|int rawperm|NULLOK PerlIO *supplied_fp \
                                |NN SV *svs|I32 num
+pn     |void   |setfd_cloexec|int fd
+pn     |void   |setfd_inhexec|int fd
+p      |void   |setfd_cloexec_for_nonsysfd|int fd
+p      |void   |setfd_inhexec_for_sysfd|int fd
+p      |void   |setfd_cloexec_or_inhexec_by_sysfdness|int fd
+pR     |int    |PerlLIO_dup_cloexec|int oldfd
+p      |int    |PerlLIO_dup2_cloexec|int oldfd|int newfd
+pR     |int    |PerlLIO_open_cloexec|NN const char *file|int flag
+pR     |int    |PerlLIO_open3_cloexec|NN const char *file|int flag|int perm
+pnoR   |int    |my_mkstemp_cloexec|NN char *templte
+#ifdef HAS_PIPE
+pR     |int    |PerlProc_pipe_cloexec|NN int *pipefd
+#endif
+#ifdef HAS_SOCKET
+pR     |int    |PerlSock_socket_cloexec|int domain|int type|int protocol
+pR     |int    |PerlSock_accept_cloexec|int listenfd \
+                               |NULLOK struct sockaddr *addr \
+                               |NULLOK Sock_size_t *addrlen
+#endif
+#if defined (HAS_SOCKETPAIR) || \
+    (defined (HAS_SOCKET) && defined(SOCK_DGRAM) && \
+       defined(AF_INET) && defined(PF_INET))
+pR     |int    |PerlSock_socketpair_cloexec|int domain|int type|int protocol \
+                               |NN int *pairfd
+#endif
 #if defined(PERL_IN_DOIO_C)
 s      |IO *   |openn_setup    |NN GV *gv|NN char *mode|NN PerlIO **saveifp \
                                |NN PerlIO **saveofp|NN int *savefd \
@@ -496,7 +521,7 @@ p   |Off_t  |do_sysseek     |NN GV* gv|Off_t pos|int whence
 : Defined in doio.c, used only in pp_sys.c
 pR     |Off_t  |do_tell        |NN GV* gv
 : Defined in doop.c, used only in pp.c
-p      |I32    |do_trans       |NN SV* sv
+p      |Size_t |do_trans       |NN SV* sv
 : Used in my.c and pp.c
 p      |UV     |do_vecget      |NN SV* sv|STRLEN offset|int size
 : Defined in doop.c, used only in mg.c (with /* XXX slurp this routine */)
@@ -745,7 +770,9 @@ ADMpR       |bool   |isALNUM_lazy   |NN const char* p
 snR    |U8     |to_lower_latin1|const U8 c|NULLOK U8 *p|NULLOK STRLEN *lenp  \
                |const char dummy
 #  ifndef UV_IS_QUAD
-inR    |bool   |is_utf8_cp_above_31_bits|NN const U8 * const s|NN const U8 * const e
+snR    |int    |is_utf8_cp_above_31_bits|NN const U8 * const s             \
+                                        |NN const U8 * const e             \
+                                        |const bool consider_overlongs
 #  endif
 #endif
 #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
@@ -775,47 +802,58 @@ ADMpR     |bool   |is_uni_print_lc|UV c
 ADMpR  |bool   |is_uni_punct_lc|UV c
 ADMpPR |bool   |is_uni_xdigit_lc|UV c
 AndmoR |bool   |is_utf8_invariant_string|NN const U8* const s              \
-               |STRLEN const len
+               |STRLEN len
 AnidR  |bool   |is_utf8_invariant_string_loc|NN const U8* const s          \
-               |STRLEN const len                                           \
+               |STRLEN len                                                 \
                |NULLOK const U8 ** ep
-AmnpdRP        |bool   |is_ascii_string|NN const U8* const s|const STRLEN len
-AmnpdRP        |bool   |is_invariant_string|NN const U8* const s|const STRLEN len
+#ifndef EBCDIC
+AniR   |unsigned int|_variant_byte_number|PERL_UINTMAX_T word
+#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+EinR   |Size_t |variant_under_utf8_count|NN const U8* const s              \
+               |NN const U8* const e
+#endif
+AmnpdRP        |bool   |is_ascii_string|NN const U8* const s|STRLEN len
+AmnpdRP        |bool   |is_invariant_string|NN const U8* const s|STRLEN len
+#if defined(PERL_CORE) || defined (PERL_EXT)
+EXnidR |bool   |is_utf8_non_invariant_string|NN const U8* const s          \
+               |STRLEN len
+#endif
 AnpdD  |STRLEN |is_utf8_char   |NN const U8 *s
 Abmnpd |STRLEN |is_utf8_char_buf|NN const U8 *buf|NN const U8 *buf_end
-AnipdR |bool   |is_utf8_string |NN const U8 *s|const STRLEN len
+AnmdpR |bool   |is_utf8_string |NN const U8 *s|STRLEN len
 AnidR  |bool   |is_utf8_string_flags                                       \
-               |NN const U8 *s|const STRLEN len|const U32 flags
-AnidR  |bool   |is_strict_utf8_string|NN const U8 *s|const STRLEN len
-AnidR  |bool   |is_c9strict_utf8_string|NN const U8 *s|const STRLEN len
+               |NN const U8 *s|STRLEN len|const U32 flags
+AnmdpR |bool   |is_strict_utf8_string|NN const U8 *s|STRLEN len
+AnmdpR |bool   |is_c9strict_utf8_string|NN const U8 *s|STRLEN len
 Anpdmb |bool   |is_utf8_string_loc                                         \
-               |NN const U8 *s|const STRLEN len|NN const U8 **ep
+               |NN const U8 *s|STRLEN len|NN const U8 **ep
 Andm   |bool   |is_utf8_string_loc_flags                                   \
-               |NN const U8 *s|const STRLEN len|NN const U8 **ep           \
+               |NN const U8 *s|STRLEN len|NN const U8 **ep                 \
                |const U32 flags
 Andm   |bool   |is_strict_utf8_string_loc                                  \
-               |NN const U8 *s|const STRLEN len|NN const U8 **ep
+               |NN const U8 *s|STRLEN len|NN const U8 **ep
 Andm   |bool   |is_c9strict_utf8_string_loc                                \
-               |NN const U8 *s|const STRLEN len|NN const U8 **ep
+               |NN const U8 *s|STRLEN len|NN const U8 **ep
 Anipd  |bool   |is_utf8_string_loclen                                      \
-               |NN const U8 *s|const STRLEN len|NULLOK const U8 **ep       \
+               |NN const U8 *s|STRLEN len|NULLOK const U8 **ep             \
                |NULLOK STRLEN *el
 Anid   |bool   |is_utf8_string_loclen_flags                                \
-               |NN const U8 *s|const STRLEN len|NULLOK const U8 **ep       \
+               |NN const U8 *s|STRLEN len|NULLOK const U8 **ep             \
                |NULLOK STRLEN *el|const U32 flags
 Anid   |bool   |is_strict_utf8_string_loclen                               \
-               |NN const U8 *s|const STRLEN len|NULLOK const U8 **ep       \
+               |NN const U8 *s|STRLEN len|NULLOK const U8 **ep     \
                |NULLOK STRLEN *el
 Anid   |bool   |is_c9strict_utf8_string_loclen                             \
-               |NN const U8 *s|const STRLEN len|NULLOK const U8 **ep       \
+               |NN const U8 *s|STRLEN len|NULLOK const U8 **ep     \
                |NULLOK STRLEN *el
 Amnd   |bool   |is_utf8_fixed_width_buf_flags                              \
-               |NN const U8 * const s|const STRLEN len|const U32 flags
+               |NN const U8 * const s|STRLEN len|const U32 flags
 Amnd   |bool   |is_utf8_fixed_width_buf_loc_flags                          \
-               |NN const U8 * const s|const STRLEN len                     \
+               |NN const U8 * const s|STRLEN len                           \
                |NULLOK const U8 **ep|const U32 flags
 Anid   |bool   |is_utf8_fixed_width_buf_loclen_flags                       \
-               |NN const U8 * const s|const STRLEN len                     \
+               |NN const U8 * const s|STRLEN len                           \
                |NULLOK const U8 **ep|NULLOK STRLEN *el|const U32 flags
 AmndP  |bool   |is_utf8_valid_partial_char                                 \
                |NN const U8 * const s|NN const U8 * const e
@@ -860,6 +898,8 @@ ADMpR       |bool   |is_utf8_punct  |NN const U8 *p
 ADMpR  |bool   |is_utf8_xdigit |NN const U8 *p
 AMpR   |bool   |_is_utf8_mark  |NN const U8 *p
 ADMpR  |bool   |is_utf8_mark   |NN const U8 *p
+EXdpR  |bool   |isSCRIPT_RUN   |NN const U8 *s|NN const U8 *send    \
+                               |const bool utf8_target
 : Used in perly.y
 p      |OP*    |jmaybe         |NN OP *o
 : Used in pp.c 
@@ -915,14 +955,18 @@ p |OP*    |localize       |NN OP *o|I32 lex
 ApdR   |I32    |looks_like_number|NN SV *const sv
 Apd    |UV     |grok_bin       |NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV *result
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C) || defined(PERL_IN_DQUOTE_C)
-EMpRX  |bool   |grok_bslash_x  |NN char** s|NN UV* uv           \
+EMpRX  |bool   |grok_bslash_x  |NN char** s             \
+                               |NN const char* const send       \
+                               |NN UV* uv                       \
                                |NN const char** error_msg       \
                                |const bool output_warning       \
                                |const bool strict               \
                                |const bool silence_non_portable \
                                |const bool utf8
 EMpRX  |char   |grok_bslash_c  |const char source|const bool output_warning
-EMpRX  |bool   |grok_bslash_o  |NN char** s|NN UV* uv           \
+EMpRX  |bool   |grok_bslash_o  |NN char** s             \
+                               |NN const char* const send       \
+                               |NN UV* uv                       \
                                |NN const char** error_msg       \
                                |const bool output_warning       \
                                |const bool strict               \
@@ -1027,12 +1071,14 @@ Apd     |int    |mg_copy        |NN SV *sv|NN SV *nsv|NULLOK const char *key \
                                |I32 klen
 : Defined in mg.c, used only in scope.c
 pd     |void   |mg_localize    |NN SV* sv|NN SV* nsv|bool setmagic
+Apd    |SV*    |sv_string_from_errnum|int errnum|NULLOK SV* tgtsv
 ApdRn  |MAGIC* |mg_find        |NULLOK const SV* sv|int type
 ApdRn  |MAGIC* |mg_findext     |NULLOK const SV* sv|int type|NULLOK const MGVTBL *vtbl
 : exported for re.pm
 EXpR   |MAGIC* |mg_find_mglob  |NN SV* sv
 Apd    |int    |mg_free        |NN SV* sv
 Apd    |void   |mg_free_type   |NN SV* sv|int how
+Apd    |void   |mg_freeext     |NN SV* sv|int how|NULLOK const MGVTBL *vtbl
 Apd    |int    |mg_get         |NN SV* sv
 ApdD   |U32    |mg_length      |NN SV* sv
 Apdn   |void   |mg_magical     |NN SV* sv
@@ -1042,20 +1088,17 @@ Apn     |void   |mini_mktime    |NN struct tm *ptm
 AMmd   |OP*    |op_lvalue      |NULLOK OP* o|I32 type
 poX    |OP*    |op_lvalue_flags|NULLOK OP* o|I32 type|U32 flags
 p      |void   |finalize_optree                |NN OP* o
+p      |void   |optimize_optree|NN OP* o
 #if defined(PERL_IN_OP_C)
+s      |void   |optimize_op    |NN OP* o
 s      |void   |finalize_op    |NN OP* o
-s      |void   |move_proto_attr|NN OP **proto|NN OP **attrs|NN const GV *name
+s      |void   |move_proto_attr|NN OP **proto|NN OP **attrs \
+                               |NN const GV *name|bool curstash
 #endif
 : Used in op.c and pp_sys.c
 p      |int    |mode_from_discipline|NULLOK const char* s|STRLEN len
 Ap     |const char*    |moreswitches   |NN const char* s
 Ap     |NV     |my_atof        |NN const char *s
-#if !defined(HAS_MEMCPY) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY))
-Anp    |void*  |my_bcopy       |NN const void* vfrom|NN void* vto|size_t len
-#endif
-#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
-Anp    |void*  |my_bzero       |NN void* vloc|size_t len
-#endif
 Apr    |void   |my_exit        |U32 status
 Apr    |void   |my_failure_exit
 Ap     |I32    |my_fflush_all
@@ -1064,11 +1107,8 @@ Anp      |void   |atfork_lock
 Anp    |void   |atfork_unlock
 Apmb   |I32    |my_lstat
 pX     |I32    |my_lstat_flags |NULLOK const U32 flags
-#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
-AnpP   |int    |my_memcmp      |NN const void* vs1|NN const void* vs2|size_t len
-#endif
-#if !defined(HAS_MEMSET)
-Anp    |void*  |my_memset      |NN void* vloc|int ch|size_t len
+#if ! defined(HAS_MEMRCHR) && (defined(PERL_CORE) || defined(PERL_EXT))
+Exin   |void * |my_memrchr     |NN const char * s|const char c|const STRLEN len
 #endif
 #if !defined(PERL_IMPLICIT_SYS)
 Ap     |I32    |my_pclose      |NULLOK PerlIO* ptr
@@ -1107,7 +1147,7 @@ ApdR      |OP*    |newSLICEOP     |I32 flags|NULLOK OP* subscript|NULLOK OP* listop
 ApdR   |OP*    |newSTATEOP     |I32 flags|NULLOK char* label|NULLOK OP* o
 Apbm   |CV*    |newSUB         |I32 floor|NULLOK OP* o|NULLOK OP* proto \
                                |NULLOK OP* block
-p      |CV *   |newXS_len_flags|NULLOK const char *name|STRLEN len \
+pd     |CV *   |newXS_len_flags|NULLOK const char *name|STRLEN len \
                                |NN XSUBADDR_t subaddr\
                                |NULLOK const char *const filename \
                                |NULLOK const char *const proto \
@@ -1176,11 +1216,13 @@ Apd     |OP*    |ck_entersub_args_proto_or_list|NN OP *entersubop|NN GV *namegv|NN SV *
 po     |OP*    |ck_entersub_args_core|NN OP *entersubop|NN GV *namegv \
                                      |NN SV *protosv
 Apd    |void   |cv_get_call_checker|NN CV *cv|NN Perl_call_checker *ckfun_p|NN SV **ckobj_p
+Apd    |void   |cv_get_call_checker_flags|NN CV *cv|U32 gflags|NN Perl_call_checker *ckfun_p|NN SV **ckobj_p|NN U32 *ckflags_p
 Apd    |void   |cv_set_call_checker|NN CV *cv|NN Perl_call_checker ckfun|NN SV *ckobj
 Apd    |void   |cv_set_call_checker_flags|NN CV *cv \
                                          |NN Perl_call_checker ckfun \
-                                         |NN SV *ckobj|U32 flags
+                                         |NN SV *ckobj|U32 ckflags
 Apd    |void   |wrap_op_checker|Optype opcode|NN Perl_check_t new_checker|NN Perl_check_t *old_checker_p
+AMpd   |void   |wrap_keyword_plugin|NN Perl_keyword_plugin_t new_plugin|NN Perl_keyword_plugin_t *old_plugin_p
 ApR    |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
 Ap     |char*  |scan_vstring   |NN const char *s|NN const char *const e \
                                |NN SV *sv
@@ -1243,7 +1285,7 @@ Ap        |void   |call_atexit    |ATEXIT_t fn|NULLOK void *ptr
 ApdO   |I32    |call_argv      |NN const char* sub_name|I32 flags|NN char** argv
 ApdO   |I32    |call_method    |NN const char* methname|I32 flags
 ApdO   |I32    |call_pv        |NN const char* sub_name|I32 flags
-ApdO   |I32    |call_sv        |NN SV* sv|VOL I32 flags
+ApdO   |I32    |call_sv        |NN SV* sv|volatile I32 flags
 Ap     |void   |despatch_signals
 Ap     |OP *   |doref          |NN OP *o|I32 type|bool set_op_ref
 ApdO   |SV*    |eval_pv        |NN const char* p|I32 croak_on_error
@@ -1253,22 +1295,20 @@ ApdO    |AV*    |get_av         |NN const char *name|I32 flags
 ApdO   |HV*    |get_hv         |NN const char *name|I32 flags
 ApdO   |CV*    |get_cv         |NN const char* name|I32 flags
 Apd    |CV*    |get_cvn_flags  |NN const char* name|STRLEN len|I32 flags
-#ifdef WIN32
-ApM    |char*  |my_setlocale   |int category|NULLOK const char* locale
+EXnpo  |char*  |setlocale      |int category|NULLOK const char* locale
+#if defined(HAS_NL_LANGINFO) && defined(PERL_LANGINFO_H)
+Ando   |const char*|Perl_langinfo|const nl_item item
 #else
-AmM    |char*  |my_setlocale   |int category|NULLOK const char* locale
+Ando   |const char*|Perl_langinfo|const int item
 #endif
 ApOM   |int    |init_i18nl10n  |int printwarn
 ApOM   |int    |init_i18nl14n  |int printwarn
-ApM    |char*  |my_strerror    |const int errnum
-ApOM   |void   |new_collate    |NULLOK const char* newcoll
-ApOM   |void   |new_ctype      |NN const char* newctype
-EXpMn  |void   |_warn_problematic_locale
-ApOM   |void   |new_numeric    |NULLOK const char* newcoll
-Ap     |void   |set_numeric_local
-Ap     |void   |set_numeric_radix
-Ap     |void   |set_numeric_standard
-ApM    |bool   |_is_in_locale_category|const bool compiling|const int category
+p      |char*  |my_strerror    |const int errnum
+Xpn    |void   |_warn_problematic_locale
+p      |void   |new_numeric    |NULLOK const char* newcoll
+Xp     |void   |set_numeric_underlying
+Xp     |void   |set_numeric_standard
+Xp     |bool   |_is_in_locale_category|const bool compiling|const int category
 Apd    |void   |sync_locale
 ApdO   |void   |require_pv     |NN const char* pv
 Apd    |void   |pack_cat       |NN SV *cat|NN const char *pat|NN const char *patend \
@@ -1303,7 +1343,7 @@ Ap        |I32    |pregexec       |NN REGEXP * const prog|NN char* stringarg \
 Ap     |void   |pregfree       |NULLOK REGEXP* r
 Ap     |void   |pregfree2      |NN REGEXP *rx
 : FIXME - is anything in re using this now?
-EXp    |REGEXP*|reg_temp_copy  |NULLOK REGEXP* ret_x|NN REGEXP* rx
+EXp    |REGEXP*|reg_temp_copy  |NULLOK REGEXP* dsv|NN REGEXP* ssv
 Ap     |void   |regfree_internal|NN REGEXP *const rx
 #if defined(USE_ITHREADS)
 Ap     |void*  |regdupe_internal|NN REGEXP * const r|NN CLONE_PARAMS* param
@@ -1718,12 +1758,15 @@ EXMp    |void   |_invlist_dump  |NN PerlIO *file|I32 level   \
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |NULLOK const char* f|NN const char *const s
 EpM    |char * |_byte_dump_string                                      \
-                               |NN const U8 * s                        \
+                               |NN const U8 * const start              \
                                |const STRLEN len                       \
                                |const bool format
 #if defined(PERL_IN_UTF8_C)
-inR    |bool   |does_utf8_overflow|NN const U8 * const s|NN const U8 * e
-inR    |bool   |is_utf8_overlong_given_start_byte_ok|NN const U8 * const s|const STRLEN len
+inR    |int    |does_utf8_overflow|NN const U8 * const s               \
+                                  |NN const U8 * e                     \
+                                  |const bool consider_overlongs
+inR    |int    |is_utf8_overlong_given_start_byte_ok|NN const U8 * const s \
+                                                    |const STRLEN len
 inR    |int    |isFF_OVERLONG  |NN const U8 * const s|const STRLEN len
 sMR    |char * |unexpected_non_continuation_text                       \
                |NN const U8 * const s                                  \
@@ -1776,10 +1819,10 @@ pn      |bool   |translate_substr_offsets|STRLEN curlen|IV pos1_iv \
 #if defined(UNLINK_ALL_VERSIONS)
 Ap     |I32    |unlnk          |NN const char* f
 #endif
-Apd    |I32    |unpack_str     |NN const char *pat|NN const char *patend|NN const char *s \
+Apd    |SSize_t|unpack_str     |NN const char *pat|NN const char *patend|NN const char *s \
                                |NULLOK const char *strbeg|NN const char *strend|NULLOK char **new_s \
                                |I32 ocnt|U32 flags
-Apd    |I32    |unpackstring   |NN const char *pat|NN const char *patend|NN const char *s \
+Apd    |SSize_t|unpackstring   |NN const char *pat|NN const char *patend|NN const char *s \
                                |NN const char *strend|U32 flags
 Ap     |void   |unsharepvn     |NULLOK const char* sv|I32 len|U32 hash
 : Used in gv.c, hv.c
@@ -1789,9 +1832,9 @@ p |void   |utilize        |int aver|I32 floor|NULLOK OP* version|NN OP* idop|NULLOK OP* a
 ApM    |void   |_force_out_malformed_utf8_message                          \
                |NN const U8 *const p|NN const U8 * const e|const U32 flags \
                |const bool die_here
-Ap     |U8*    |utf16_to_utf8  |NN U8* p|NN U8 *d|I32 bytelen|NN I32 *newlen
-Ap     |U8*    |utf16_to_utf8_reversed|NN U8* p|NN U8 *d|I32 bytelen|NN I32 *newlen
-AdpPR  |STRLEN |utf8_length    |NN const U8* s|NN const U8 *e
+EXp    |U8*    |utf16_to_utf8  |NN U8* p|NN U8 *d|I32 bytelen|NN I32 *newlen
+EXp    |U8*    |utf16_to_utf8_reversed|NN U8* p|NN U8 *d|I32 bytelen|NN I32 *newlen
+AdpR   |STRLEN |utf8_length    |NN const U8* s|NN const U8 *e
 AipdR  |IV     |utf8_distance  |NN const U8 *a|NN const U8 *b
 AipdRn |U8*    |utf8_hop       |NN const U8 *s|SSize_t off
 AipdRn |U8*    |utf8_hop_back|NN const U8 *s|SSize_t off|NN const U8 *start
@@ -1979,12 +2022,13 @@ Apdmb   |void   |sv_force_normal|NN SV *sv
 Apd    |void   |sv_force_normal_flags|NN SV *const sv|const U32 flags
 pX     |SSize_t|tmps_grow_p    |SSize_t ix
 Apd    |SV*    |sv_rvweaken    |NN SV *const sv
+Apd    |SV*    |sv_rvunweaken  |NN SV *const sv
 AnpMd  |SV*    |sv_get_backrefs|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
 Ap     |OP*    |newANONATTRSUB |I32 floor|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block
 Am     |CV*    |newATTRSUB     |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block
-pX     |CV*    |newATTRSUB_x   |I32 floor|NULLOK OP *o|NULLOK OP *proto \
+pdX    |CV*    |newATTRSUB_x   |I32 floor|NULLOK OP *o|NULLOK OP *proto \
                                 |NULLOK OP *attrs|NULLOK OP *block \
                                 |bool o_is_gv
 Ap     |CV *   |newMYSUB       |I32 floor|NN OP *o|NULLOK OP *proto \
@@ -2047,12 +2091,12 @@ Adp     |int    |nothreadhook
 p      |void   |init_constants
 
 #if defined(PERL_IN_DOOP_C)
-sR     |I32    |do_trans_simple        |NN SV * const sv
-sR     |I32    |do_trans_count         |NN SV * const sv
-sR     |I32    |do_trans_complex       |NN SV * const sv
-sR     |I32    |do_trans_simple_utf8   |NN SV * const sv
-sR     |I32    |do_trans_count_utf8    |NN SV * const sv
-sR     |I32    |do_trans_complex_utf8  |NN SV * const sv
+sR     |Size_t |do_trans_simple        |NN SV * const sv
+sR     |Size_t |do_trans_count         |NN SV * const sv
+sR     |Size_t |do_trans_complex       |NN SV * const sv
+sR     |Size_t |do_trans_simple_utf8   |NN SV * const sv
+sR     |Size_t |do_trans_count_utf8    |NN SV * const sv
+sR     |Size_t |do_trans_complex_utf8  |NN SV * const sv
 #endif
 
 #if defined(PERL_IN_GV_C)
@@ -2200,17 +2244,17 @@ pRxo    |GV*    |softref2xv     |NN SV *const sv|NN const char *const what \
 #endif
 
 #if defined(PERL_IN_PP_PACK_C)
-s      |I32    |unpack_rec     |NN struct tempsym* symptr|NN const char *s \
+s      |SSize_t|unpack_rec     |NN struct tempsym* symptr|NN const char *s \
                                |NN const char *strbeg|NN const char *strend|NULLOK const char **new_s
 s      |SV **  |pack_rec       |NN SV *cat|NN struct tempsym* symptr|NN SV **beglist|NN SV **endlist
 s      |SV*    |mul128         |NN SV *sv|U8 m
-s      |I32    |measure_struct |NN struct tempsym* symptr
+s      |SSize_t|measure_struct |NN struct tempsym* symptr
 s      |bool   |next_symbol    |NN struct tempsym* symptr
 sR     |SV*    |is_an_int      |NN const char *s|STRLEN l
 s      |int    |div128         |NN SV *pnum|NN bool *done
 s      |const char *|group_end |NN const char *patptr|NN const char *patend \
                                |char ender
-sR     |const char *|get_num   |NN const char *patptr|NN I32 *lenptr
+sR     |const char *|get_num   |NN const char *patptr|NN SSize_t *lenptr
 ns     |bool   |need_utf8      |NN const char *pat|NN const char *patend
 ns     |char   |first_symbol   |NN const char *pat|NN const char *patend
 sR     |char * |sv_exp_grow    |NN SV *sv|STRLEN needed
@@ -2263,7 +2307,6 @@ 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
 
 #if defined(PERL_IN_PP_SYS_C)
@@ -2483,6 +2526,8 @@ ERp       |bool   |_is_grapheme   |NN const U8 * strbeg|NN const U8 * s|NN const U8 *stren
 
 #if defined(PERL_IN_REGEXEC_C)
 ERs    |bool   |isFOO_utf8_lc  |const U8 classnum|NN const U8* character
+ERns   |char *|find_next_ascii|NN char* s|NN const char * send|const bool is_utf8
+ERns   |char *|find_next_non_ascii|NN char* s|NN const char * send|const bool is_utf8
 ERs    |SSize_t|regmatch       |NN regmatch_info *reginfo|NN char *startpos|NN regnode *prog
 WERs   |I32    |regrepeat      |NN regexp *prog|NN char **startposp \
                                |NN const regnode *p \
@@ -2678,11 +2723,11 @@ s       |void   |checkcomma     |NN const char *s|NN const char *name \
                                |NN const char *what
 s      |void   |force_ident    |NN const char *s|int kind
 s      |void   |force_ident_maybe_lex|char pit
-s      |void   |incline        |NN const char *s
+s      |void   |incline        |NN const char *s|NN const char *end
 s      |int    |intuit_method  |NN char *s|NULLOK SV *ioname|NULLOK CV *cv
-s      |int    |intuit_more    |NN char *s
+s      |int    |intuit_more    |NN char *s|NN char *e
 s      |I32    |lop            |I32 f|U8 x|NN char *s
-rs     |void   |missingterm    |NULLOK char *s
+rs     |void   |missingterm    |NULLOK char *s|STRLEN len
 s      |void   |no_op          |NN const char *const what|NULLOK char *s
 s      |int    |pending_ident
 sR     |I32    |sublex_done
@@ -2698,7 +2743,8 @@ so        |SV*    |new_constant   |NULLOK const char *s|STRLEN len \
 s      |int    |ao             |int toketype
 s      |void|parse_ident|NN char **s|NN char **d \
                      |NN char * const e|int allow_package \
-                               |bool is_utf8|bool check_dollar
+                               |bool is_utf8|bool check_dollar \
+                               |bool tick_warn
 #  if defined(PERL_CR_FILTER)
 s      |I32    |cr_textfilter  |int idx|NULLOK SV *sv|int maxlen
 s      |void   |strip_return   |NN SV *sv
@@ -2708,32 +2754,54 @@ s       |int    |tokereport     |I32 rv|NN const YYSTYPE* lvalp
 sf     |void   |printbuf       |NN const char *const fmt|NN const char *const s
 #  endif
 #endif
-EXMp   |bool   |validate_proto |NN SV *name|NULLOK SV *proto|bool warn
+EXMp   |bool   |validate_proto |NN SV *name|NULLOK SV *proto|bool warn \
+               |bool curstash
 
 #if defined(PERL_IN_UNIVERSAL_C)
 s      |bool   |isa_lookup     |NN HV *stash|NN const char * const name \
                                         |STRLEN len|U32 flags
 #endif
 
-#if defined(USE_LOCALE) && defined(PERL_IN_LOCALE_C)
+#if defined(PERL_IN_LOCALE_C)
+sn     |const char*|category_name |const int category
+#  ifdef HAS_NL_LANGINFO
+sn     |const char*|my_nl_langinfo|const nl_item item|bool toggle
+#  else
+sn     |const char*|my_nl_langinfo|const int item|bool toggle
+#  endif
+in     |const char *|save_to_buffer|NN const char * string     \
+                                   |NULLOK char **buf          \
+                                   |NN Size_t *buf_size        \
+                                   |const Size_t offset
+#  if defined(USE_LOCALE)
 s      |char*  |stdize_locale  |NN char* locs
-#   ifdef DEBUGGING
+s      |void   |new_collate    |NULLOK const char* newcoll
+s      |void   |new_ctype      |NN const char* newctype
+s      |void   |set_numeric_radix|const bool use_locale
+#    ifdef WIN32
+s      |char*  |win32_setlocale|int category|NULLOK const char* locale
+#    endif
+#    ifdef DEBUGGING
 s      |void   |print_collxfrm_input_and_return                \
                            |NN const char * const s            \
                            |NN const char * const e            \
                            |NULLOK const STRLEN * const xlen   \
                            |const bool is_utf8
-#   endif
+s      |void   |print_bytes_for_locale |NN const char * const s        \
+                                       |NN const char * const e        \
+                                       |const bool is_utf8
+snR    |char * |setlocale_debug_string |const int category                 \
+                                       |NULLOK const char* const locale    \
+                                       |NULLOK const char* const retval
+#    endif
+#  endif
 #endif
 
-#if defined(USE_LOCALE) \
-    && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX))
+#if        defined(USE_LOCALE)         \
+    && (   defined(PERL_IN_LOCALE_C)   \
+        || defined(PERL_IN_MG_C)       \
+       || defined (PERL_EXT_POSIX))
 ApM    |bool   |_is_cur_LC_category_utf8|int category
-#      ifdef DEBUGGING
-AMnpR  |char * |_setlocale_debug_string|const int category                 \
-                                       |NULLOK const char* const locale    \
-                                       |NULLOK const char* const retval
-#      endif
 #endif
 
 
@@ -2938,6 +3006,7 @@ Apod      |void   |hv_assert      |NN HV *hv
 #endif
 
 ApdR   |SV*    |hv_scalar      |NN HV *hv
+p      |void   |hv_pushkv      |NN HV *hv|U32 flags
 ApdRM  |SV*    |hv_bucket_ratio|NN HV *hv
 ApoR   |I32*   |hv_riter_p     |NN HV *hv
 ApoR   |HE**   |hv_eiter_p     |NN HV *hv
@@ -2992,10 +3061,6 @@ ApoP     |bool   |ckwarn_d       |U32 w
 XEopMR |STRLEN *|new_warnings_bitfield|NULLOK STRLEN *buffer \
                                |NN const char *const bits|STRLEN size
 
-#ifndef SPRINTF_RETURNS_STRLEN
-Apnod  |int    |my_sprintf     |NN char *buffer|NN const char *pat|...
-#endif
-
 Apnodf |int    |my_snprintf    |NN char *buffer|const Size_t len|NN const char *format|...
 Apnod  |int    |my_vsnprintf   |NN char *buffer|const Size_t len|NN const char *format|va_list ap
 #ifdef USE_QUADMATH
@@ -3029,6 +3094,17 @@ Apnod    |Size_t |my_strlcat     |NULLOK char *dst|NULLOK const char *src|Size_t size
 Apnod  |Size_t |my_strlcpy     |NULLOK char *dst|NULLOK const char *src|Size_t size
 #endif
 
+#ifndef HAS_STRNLEN
+Apnod  |Size_t |my_strnlen     |NN const char *str|Size_t maxlen
+#endif
+
+#ifndef HAS_MKOSTEMP
+pno    |int    |my_mkostemp    |NN char *templte|int flags
+#endif
+#ifndef HAS_MKSTEMP
+pno    |int    |my_mkstemp     |NN char *templte
+#endif
+
 APpdn  |bool   |isinfnan       |NV nv
 p      |bool   |isinfnansv     |NN SV *sv
 
Unnamed repository; edit this file 'description' to name the repository.