POD nits

[p5sagit/p5-mst-13.2.git] / proto.h

diff --git a/proto.h b/proto.h
index 6ac3d69..473b804 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -139,14 +139,26 @@ PERL_CALLCONV bool        Perl_cando(pTHX_ Mode_t mode, Uid_t effective, const Stat_t*
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_3);
 
-PERL_CALLCONV U32      Perl_cast_ulong(pTHX_ NV f);
-PERL_CALLCONV I32      Perl_cast_i32(pTHX_ NV f);
-PERL_CALLCONV IV       Perl_cast_iv(pTHX_ NV f);
-PERL_CALLCONV UV       Perl_cast_uv(pTHX_ NV f);
+PERL_CALLCONV U32      Perl_cast_ulong(pTHX_ NV f)
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV I32      Perl_cast_i32(pTHX_ NV f)
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV IV       Perl_cast_iv(pTHX_ NV f)
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV UV       Perl_cast_uv(pTHX_ NV f)
+                       __attribute__warn_unused_result__;
+
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
-PERL_CALLCONV I32      Perl_my_chsize(pTHX_ int fd, Off_t length);
+PERL_CALLCONV I32      Perl_my_chsize(pTHX_ int fd, Off_t length)
+                       __attribute__warn_unused_result__;
+
 #endif
-PERL_CALLCONV OP*      Perl_convert(pTHX_ I32 optype, I32 flags, OP* o);
+PERL_CALLCONV OP*      Perl_convert(pTHX_ I32 optype, I32 flags, OP* o)
+                       __attribute__warn_unused_result__;
+
 PERL_CALLCONV void     Perl_croak(pTHX_ const char* pat, ...)
                        __attribute__noreturn__
                        __attribute__format__(__printf__,pTHX_1,pTHX_2);
@@ -361,9 +373,15 @@ PERL_CALLCONV char*        Perl_getenv_len(pTHX_ const char* key, unsigned long *len);
 #endif
 PERL_CALLCONV void     Perl_gp_free(pTHX_ GV* gv);
 PERL_CALLCONV GP*      Perl_gp_ref(pTHX_ GP* gp);
-PERL_CALLCONV GV*      Perl_gv_AVadd(pTHX_ GV* gv);
-PERL_CALLCONV GV*      Perl_gv_HVadd(pTHX_ GV* gv);
-PERL_CALLCONV GV*      Perl_gv_IOadd(pTHX_ GV* gv);
+PERL_CALLCONV GV*      Perl_gv_AVadd(pTHX_ GV* gv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV GV*      Perl_gv_HVadd(pTHX_ GV* gv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV GV*      Perl_gv_IOadd(pTHX_ GV* gv)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV GV*      Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_2);
@@ -372,7 +390,9 @@ PERL_CALLCONV void  Perl_gv_check(pTHX_ HV* stash);
 PERL_CALLCONV void     Perl_gv_efullname(pTHX_ SV* sv, const GV* gv);
 /* PERL_CALLCONV void  Perl_gv_efullname3(pTHX_ SV* sv, const GV* gv, const char* prefix); */
 PERL_CALLCONV void     Perl_gv_efullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain);
-PERL_CALLCONV GV*      Perl_gv_fetchfile(pTHX_ const char* name);
+PERL_CALLCONV GV*      Perl_gv_fetchfile(pTHX_ const char* name)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV GV*      Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
 PERL_CALLCONV GV*      Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
 PERL_CALLCONV GV*      Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name);
@@ -381,7 +401,11 @@ PERL_CALLCONV GV*  Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32 sv_type);
 PERL_CALLCONV void     Perl_gv_fullname(pTHX_ SV* sv, const GV* gv);
 /* PERL_CALLCONV void  Perl_gv_fullname3(pTHX_ SV* sv, const GV* gv, const char* prefix); */
 PERL_CALLCONV void     Perl_gv_fullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain);
-PERL_CALLCONV void     Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi);
+PERL_CALLCONV void     Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
+
 PERL_CALLCONV HV*      Perl_gv_stashpv(pTHX_ const char* name, I32 create);
 PERL_CALLCONV HV*      Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 create);
 PERL_CALLCONV HV*      Perl_gv_stashsv(pTHX_ SV* sv, I32 create);
@@ -389,8 +413,12 @@ PERL_CALLCONV void Perl_hv_clear(pTHX_ HV* tb);
 PERL_CALLCONV void     Perl_hv_delayfree_ent(pTHX_ HV* hv, HE* entry);
 PERL_CALLCONV SV*      Perl_hv_delete(pTHX_ HV* tb, const char* key, I32 klen, I32 flags);
 PERL_CALLCONV SV*      Perl_hv_delete_ent(pTHX_ HV* tb, SV* key, I32 flags, U32 hash);
-PERL_CALLCONV bool     Perl_hv_exists(pTHX_ HV* tb, const char* key, I32 klen);
-PERL_CALLCONV bool     Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash);
+PERL_CALLCONV bool     Perl_hv_exists(pTHX_ HV* tb, const char* key, I32 klen)
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV bool     Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash)
+                       __attribute__warn_unused_result__;
+
 PERL_CALLCONV SV**     Perl_hv_fetch(pTHX_ HV* tb, const char* key, I32 klen, I32 lval);
 PERL_CALLCONV HE*      Perl_hv_fetch_ent(pTHX_ HV* tb, SV* key, I32 lval, U32 hash);
 PERL_CALLCONV void     Perl_hv_free_ent(pTHX_ HV* hv, HE* entry)
@@ -731,7 +759,9 @@ PERL_CALLCONV UV    Perl_grok_hex(pTHX_ const char* start, STRLEN* len_p, I32* flag
 PERL_CALLCONV int      Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV bool     Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send);
+PERL_CALLCONV bool     Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
+                       __attribute__warn_unused_result__;
+
 PERL_CALLCONV UV       Perl_grok_oct(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result);
 PERL_CALLCONV int      Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV int      Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
@@ -762,6 +792,7 @@ PERL_CALLCONV int   Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg)
 PERL_CALLCONV int      Perl_magic_set(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV int      Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV int      Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int      Perl_magic_freearylen_p(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV int      Perl_magic_setbm(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV int      Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV int      Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg);
@@ -1079,7 +1110,7 @@ PERL_CALLCONV char*       Perl_scan_vstring(pTHX_ const char *vstr, SV *sv)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV char*    Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv)
+PERL_CALLCONV const char*      Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
@@ -1255,9 +1286,25 @@ PERL_CALLCONV I32        Perl_same_dirent(pTHX_ const char* a, const char* b)
                        __attribute__nonnull__(pTHX_2);
 
 #endif
-PERL_CALLCONV char*    Perl_savepv(pTHX_ const char* pv);
-PERL_CALLCONV char*    Perl_savesharedpv(pTHX_ const char* pv);
-PERL_CALLCONV char*    Perl_savepvn(pTHX_ const char* pv, I32 len);
+PERL_CALLCONV char*    Perl_savepv(pTHX_ const char* pv)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_savepvn(pTHX_ const char* pv, I32 len)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_savesharedpv(pTHX_ const char* pv)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV char*    Perl_savesvpv(pTHX_ SV* sv)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_savestack_grow(pTHX);
 PERL_CALLCONV void     Perl_savestack_grow_cnt(pTHX_ I32 need);
 PERL_CALLCONV void     Perl_save_aelem(pTHX_ const AV* av, I32 idx, SV **sptr);
@@ -1571,7 +1618,7 @@ PERL_CALLCONV void        Perl_sv_unref_flags(pTHX_ SV* sv, U32 flags)
 PERL_CALLCONV void     Perl_sv_untaint(pTHX_ SV* sv)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV bool     Perl_sv_upgrade(pTHX_ SV* sv, U32 mt)
+PERL_CALLCONV void     Perl_sv_upgrade(pTHX_ SV* sv, U32 mt)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV void     Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len)
@@ -1771,27 +1818,76 @@ PERL_CALLCONV OP *      Perl_my_attrs(pTHX_ OP *o, OP *attrs)
 
 PERL_CALLCONV void     Perl_boot_core_xsutils(pTHX);
 #if defined(USE_ITHREADS)
-PERL_CALLCONV PERL_CONTEXT*    Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param);
-PERL_CALLCONV PERL_SI* Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param);
-PERL_CALLCONV ANY*     Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param);
-PERL_CALLCONV void*    Perl_any_dup(pTHX_ void* v, PerlInterpreter* proto_perl);
-PERL_CALLCONV HE*      Perl_he_dup(pTHX_ HE* e, bool shared, CLONE_PARAMS* param);
-PERL_CALLCONV HEK*     Perl_hek_dup(pTHX_ HEK* e, CLONE_PARAMS* param);
-PERL_CALLCONV REGEXP*  Perl_re_dup(pTHX_ REGEXP* r, CLONE_PARAMS* param);
-PERL_CALLCONV PerlIO*  Perl_fp_dup(pTHX_ PerlIO* fp, char type, CLONE_PARAMS* param);
-PERL_CALLCONV DIR*     Perl_dirp_dup(pTHX_ DIR* dp);
-PERL_CALLCONV GP*      Perl_gp_dup(pTHX_ GP* gp, CLONE_PARAMS* param);
-PERL_CALLCONV MAGIC*   Perl_mg_dup(pTHX_ MAGIC* mg, CLONE_PARAMS* param);
-PERL_CALLCONV SV*      Perl_sv_dup(pTHX_ SV* sstr, CLONE_PARAMS* param);
-PERL_CALLCONV void     Perl_rvpv_dup(pTHX_ SV* dstr, SV *sstr, CLONE_PARAMS* param);
-PERL_CALLCONV PTR_TBL_t*       Perl_ptr_table_new(pTHX);
-PERL_CALLCONV void*    Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv)
-                       __attribute__nonnull__(pTHX_1)
+PERL_CALLCONV PERL_CONTEXT*    Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV PERL_SI* Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV ANY*     Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void*    Perl_any_dup(pTHX_ void* v, const PerlInterpreter* proto_perl)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV void     Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
+PERL_CALLCONV HE*      Perl_he_dup(pTHX_ HE* e, bool shared, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV HEK*     Perl_hek_dup(pTHX_ HEK* e, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV REGEXP*  Perl_re_dup(pTHX_ const REGEXP* r, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV PerlIO*  Perl_fp_dup(pTHX_ PerlIO* fp, char type, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV DIR*     Perl_dirp_dup(pTHX_ DIR* dp)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV GP*      Perl_gp_dup(pTHX_ GP* gp, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV MAGIC*   Perl_mg_dup(pTHX_ MAGIC* mg, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_sv_dup(pTHX_ SV* sstr, CLONE_PARAMS* param)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
+PERL_CALLCONV void     Perl_rvpv_dup(pTHX_ SV* dstr, SV *sstr, CLONE_PARAMS* param)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV PTR_TBL_t*       Perl_ptr_table_new(pTHX)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV void*    Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, const void *sv)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, const void *oldsv, void *newsv)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
+
 PERL_CALLCONV void     Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl)
                        __attribute__nonnull__(pTHX_1);
 
@@ -1810,9 +1906,11 @@ PERL_CALLCONV void       Perl_sys_intern_init(pTHX);
 #endif
 
 PERL_CALLCONV char *   Perl_custom_op_name(pTHX_ const OP* op)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV char *   Perl_custom_op_desc(pTHX_ const OP* op)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 
@@ -1829,42 +1927,54 @@ END_EXTERN_C
 
 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
 STATIC I32     S_do_trans_simple(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 STATIC I32     S_do_trans_count(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 STATIC I32     S_do_trans_complex(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 STATIC I32     S_do_trans_simple_utf8(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 STATIC I32     S_do_trans_count_utf8(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 STATIC I32     S_do_trans_complex_utf8(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 #endif
 
 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
-STATIC void    S_gv_init_sv(pTHX_ GV *gv, I32 sv_type);
+STATIC void    S_gv_init_sv(pTHX_ GV *gv, I32 sv_type)
+                       __attribute__nonnull__(pTHX_1);
+
 STATIC void    S_require_errno(pTHX_ GV *gv)
                        __attribute__nonnull__(pTHX_1);
 
 #endif
 
 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
-STATIC void    S_hsplit(pTHX_ HV *hv);
+STATIC void    S_hsplit(pTHX_ HV *hv)
+                       __attribute__nonnull__(pTHX_1);
+
 STATIC void    S_hfreeentries(pTHX_ HV *hv);
 STATIC HE*     S_new_he(pTHX)
+                       __attribute__malloc__
                        __attribute__warn_unused_result__;
 
 STATIC void    S_del_he(pTHX_ HE *p)
                        __attribute__nonnull__(pTHX_1);
 
 STATIC HEK*    S_save_hek_flags(pTHX_ const char *str, I32 len, U32 hash, int flags)
+                       __attribute__malloc__
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
@@ -1873,8 +1983,8 @@ STATIC void       S_hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store)
                        __attribute__nonnull__(pTHX_2)
                        __attribute__nonnull__(pTHX_3);
 
-STATIC void    S_unshare_hek_or_pvn(pTHX_ HEK* hek, const char* str, I32 len, U32 hash);
-STATIC HE*     S_share_hek_flags(pTHX_ const char* sv, I32 len, U32 hash, int flags)
+STATIC void    S_unshare_hek_or_pvn(pTHX_ const HEK* hek, const char* str, I32 len, U32 hash);
+STATIC HEK*    S_share_hek_flags(pTHX_ const char* sv, I32 len, U32 hash, int flags)
                        __attribute__warn_unused_result__;
 
 STATIC void    S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const char *msg)
@@ -1882,7 +1992,11 @@ STATIC void      S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const ch
                        __attribute__nonnull__(pTHX_2)
                        __attribute__nonnull__(pTHX_4);
 
-STATIC struct xpvhv_aux*       S_hv_auxinit(pTHX_ HV *hv);
+STATIC struct xpvhv_aux*       S_hv_auxinit(pTHX_ HV *hv)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC SV*     S_hv_delete_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
+STATIC HE*     S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int flags, int action, SV* val, U32 hash);
 #endif
 
 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
@@ -2157,7 +2271,9 @@ STATIC void*      S_call_list_body(pTHX_ CV *cv);
 #endif
 
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
-STATIC SV*     S_refto(pTHX_ SV* sv);
+STATIC SV*     S_refto(pTHX_ SV* sv)
+                       __attribute__warn_unused_result__;
+
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
@@ -2191,22 +2307,44 @@ STATIC const char *     S_get_num(pTHX_ const char *ppat, I32 *lenptr)
 #endif
 
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
-STATIC OP*     S_docatch(pTHX_ OP *o);
-STATIC void*   S_docatch_body(pTHX);
-STATIC OP*     S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit);
-STATIC OP*     S_doparseform(pTHX_ SV *sv);
-STATIC bool    S_num_overflow(NV value, I32 fldsize, I32 frcsize);
-STATIC I32     S_dopoptoeval(pTHX_ I32 startingblock);
+STATIC OP*     S_docatch(pTHX_ OP *o)
+                       __attribute__warn_unused_result__;
+
+STATIC void    S_docatch_body(pTHX);
+STATIC OP*     S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
+                       __attribute__warn_unused_result__;
+
+STATIC OP*     S_doparseform(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__;
+
+STATIC bool    S_num_overflow(NV value, I32 fldsize, I32 frcsize)
+                       __attribute__warn_unused_result__;
+
+STATIC I32     S_dopoptoeval(pTHX_ I32 startingblock)
+                       __attribute__warn_unused_result__;
+
 STATIC I32     S_dopoptolabel(pTHX_ const char *label)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
-STATIC I32     S_dopoptoloop(pTHX_ I32 startingblock);
-STATIC I32     S_dopoptosub(pTHX_ I32 startingblock);
-STATIC I32     S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock);
+STATIC I32     S_dopoptoloop(pTHX_ I32 startingblock)
+                       __attribute__warn_unused_result__;
+
+STATIC I32     S_dopoptosub(pTHX_ I32 startingblock)
+                       __attribute__warn_unused_result__;
+
+STATIC I32     S_dopoptosub_at(pTHX_ const PERL_CONTEXT* cxstk, I32 startingblock)
+                       __attribute__warn_unused_result__;
+
 STATIC void    S_save_lines(pTHX_ AV *array, SV *sv);
-STATIC OP*     S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq);
-STATIC PerlIO *        S_doopen_pm(pTHX_ const char *name, const char *mode);
+STATIC OP*     S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
+                       __attribute__warn_unused_result__;
+
+STATIC PerlIO *        S_doopen_pm(pTHX_ const char *name, const char *mode)
+                       __attribute__warn_unused_result__;
+
 STATIC bool    S_path_is_absolute(pTHX_ const char *name)
+                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 #endif
@@ -2235,7 +2373,6 @@ STATIC OP*        S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
                        __attribute__nonnull__(pTHX_3);
 
 STATIC int     S_emulate_eaccess(pTHX_ const char* path, Mode_t mode)
-                       __attribute__noreturn__
                        __attribute__nonnull__(pTHX_1);
 
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
@@ -2411,28 +2548,6 @@ STATIC SV*       S_save_scalar_at(pTHX_ SV **sptr);
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 STATIC IV      S_asIV(pTHX_ SV* sv);
 STATIC UV      S_asUV(pTHX_ SV* sv);
-STATIC XPVNV*  S_new_xnv(pTHX);
-STATIC XPV*    S_new_xpv(pTHX);
-STATIC XPVIV*  S_new_xpviv(pTHX);
-STATIC XPVNV*  S_new_xpvnv(pTHX);
-STATIC XPVCV*  S_new_xpvcv(pTHX);
-STATIC XPVAV*  S_new_xpvav(pTHX);
-STATIC XPVHV*  S_new_xpvhv(pTHX);
-STATIC XPVMG*  S_new_xpvmg(pTHX);
-STATIC XPVGV*  S_new_xpvgv(pTHX);
-STATIC XPVLV*  S_new_xpvlv(pTHX);
-STATIC XPVBM*  S_new_xpvbm(pTHX);
-STATIC void    S_del_xnv(pTHX_ XPVNV* p);
-STATIC void    S_del_xpv(pTHX_ XPV* p);
-STATIC void    S_del_xpviv(pTHX_ XPVIV* p);
-STATIC void    S_del_xpvnv(pTHX_ XPVNV* p);
-STATIC void    S_del_xpvcv(pTHX_ XPVCV* p);
-STATIC void    S_del_xpvav(pTHX_ XPVAV* p);
-STATIC void    S_del_xpvhv(pTHX_ XPVHV* p);
-STATIC void    S_del_xpvmg(pTHX_ XPVMG* p);
-STATIC void    S_del_xpvgv(pTHX_ XPVGV* p);
-STATIC void    S_del_xpvlv(pTHX_ XPVLV* p);
-STATIC void    S_del_xpvbm(pTHX_ XPVBM* p);
 STATIC void    S_sv_unglob(pTHX_ SV* sv);
 STATIC void    S_not_a_number(pTHX_ SV *sv);
 STATIC I32     S_visit(pTHX_ SVFUNC_t f, U32 flags, U32 mask);
@@ -2472,7 +2587,7 @@ STATIC bool       S_utf8_mg_pos_init(pTHX_ SV *sv, MAGIC **mgp, STRLEN **cachep, I32 i
                        __attribute__nonnull__(pTHX_7);
 
 #if defined(PERL_OLD_COPY_ON_WRITE)
-STATIC void    S_sv_release_COW(pTHX_ SV *sv, const char *pvx, STRLEN cur, STRLEN len, U32 hash, SV *after);
+STATIC void    S_sv_release_COW(pTHX_ SV *sv, const char *pvx, STRLEN len, SV *after);
 #endif
 #endif
 
@@ -2665,7 +2780,9 @@ PERL_CALLCONV void        Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv
 PERL_CALLCONV void     Perl_pad_push(pTHX_ PADLIST *padlist, int depth)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV HV*      Perl_pad_compname_type(pTHX_ const PADOFFSET po);
+PERL_CALLCONV HV*      Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+                       __attribute__warn_unused_result__;
+
 
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
 STATIC PADOFFSET       S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, SV** out_capture, SV** out_name_sv, int *out_flags);
@@ -2688,11 +2805,6 @@ PERL_CALLCONV void       Perl_hv_assert(pTHX_ HV* tb)
                        __attribute__nonnull__(pTHX_1);
 
 
-#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
-STATIC SV*     S_hv_delete_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
-STATIC HE*     S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int flags, int action, SV* val, U32 hash);
-#endif
-
 PERL_CALLCONV SV*      Perl_hv_scalar(pTHX_ HV* hv)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
@@ -2819,7 +2931,11 @@ PERL_CALLCONV bool       Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags)
                        __attribute__warn_unused_result__;
 
 
-PERL_CALLCONV char*    Perl_savesvpv(pTHX_ SV* sv);
+PERL_CALLCONV bool     Perl_stashpv_hvname_match(pTHX_ const COP *cop, const HV *hv)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
 
 END_EXTERN_C
 /*