#endif
+PERL_CALLCONV void* Perl_get_arena(pTHX_ int svtype)
+ __attribute__malloc__
+ __attribute__warn_unused_result__;
+
+
#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
STATIC void S_hsplit(pTHX_ HV *hv)
__attribute__nonnull__(pTHX_1);
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
-STATIC void S_find_beginning(pTHX_ int suidscript);
-STATIC void S_forbid_setid(pTHX_ char flag, int suidscript);
+STATIC void S_find_beginning(pTHX);
+STATIC void S_forbid_setid(pTHX_ const char flag, const int suidscript);
STATIC void S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate);
STATIC void S_init_interp(pTHX);
STATIC void S_init_ids(pTHX);