-VIRTUAL char* Perl_getenv_len(pTHX_ char* key, unsigned long *len);
-#endif
-VIRTUAL void Perl_gp_free(pTHX_ GV* gv);
-VIRTUAL GP* Perl_gp_ref(pTHX_ GP* gp);
-VIRTUAL GV* Perl_gv_AVadd(pTHX_ GV* gv);
-VIRTUAL GV* Perl_gv_HVadd(pTHX_ GV* gv);
-VIRTUAL GV* Perl_gv_IOadd(pTHX_ GV* gv);
-VIRTUAL GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method);
-VIRTUAL void Perl_gv_check(pTHX_ HV* stash);
-VIRTUAL void Perl_gv_efullname(pTHX_ SV* sv, GV* gv);
-VIRTUAL void Perl_gv_efullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
-VIRTUAL GV* Perl_gv_fetchfile(pTHX_ const char* name);
-VIRTUAL GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
-VIRTUAL GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name);
-VIRTUAL GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload);
-VIRTUAL GV* Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32 sv_type);
-VIRTUAL void Perl_gv_fullname(pTHX_ SV* sv, GV* gv);
-VIRTUAL void Perl_gv_fullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
-VIRTUAL void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi);
-VIRTUAL HV* Perl_gv_stashpv(pTHX_ const char* name, I32 create);
-VIRTUAL HV* Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 create);
-VIRTUAL HV* Perl_gv_stashsv(pTHX_ SV* sv, I32 create);
-VIRTUAL void Perl_hv_clear(pTHX_ HV* tb);
-VIRTUAL void Perl_hv_delayfree_ent(pTHX_ HV* hv, HE* entry);
-VIRTUAL SV* Perl_hv_delete(pTHX_ HV* tb, const char* key, U32 klen, I32 flags);
-VIRTUAL SV* Perl_hv_delete_ent(pTHX_ HV* tb, SV* key, I32 flags, U32 hash);
-VIRTUAL bool Perl_hv_exists(pTHX_ HV* tb, const char* key, U32 klen);
-VIRTUAL bool Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash);
-VIRTUAL SV** Perl_hv_fetch(pTHX_ HV* tb, const char* key, U32 klen, I32 lval);
-VIRTUAL HE* Perl_hv_fetch_ent(pTHX_ HV* tb, SV* key, I32 lval, U32 hash);
-VIRTUAL void Perl_hv_free_ent(pTHX_ HV* hv, HE* entry);
-VIRTUAL I32 Perl_hv_iterinit(pTHX_ HV* tb);
-VIRTUAL char* Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen);
-VIRTUAL SV* Perl_hv_iterkeysv(pTHX_ HE* entry);
-VIRTUAL HE* Perl_hv_iternext(pTHX_ HV* tb);
-VIRTUAL SV* Perl_hv_iternextsv(pTHX_ HV* hv, char** key, I32* retlen);
-VIRTUAL SV* Perl_hv_iterval(pTHX_ HV* tb, HE* entry);
-VIRTUAL void Perl_hv_ksplit(pTHX_ HV* hv, IV newmax);
-VIRTUAL void Perl_hv_magic(pTHX_ HV* hv, GV* gv, int how);
-VIRTUAL SV** Perl_hv_store(pTHX_ HV* tb, const char* key, U32 klen, SV* val, U32 hash);
-VIRTUAL HE* Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash);
-VIRTUAL void Perl_hv_undef(pTHX_ HV* tb);
-VIRTUAL I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len);
-VIRTUAL I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len);
-VIRTUAL bool Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective);
-VIRTUAL void Perl_init_debugger(pTHX);
-VIRTUAL void Perl_init_stacks(pTHX);
-VIRTUAL U32 Perl_intro_my(pTHX);
-VIRTUAL char* Perl_instr(pTHX_ const char* big, const char* little);
-VIRTUAL bool Perl_io_close(pTHX_ IO* io, bool not_implicit);
-VIRTUAL OP* Perl_invert(pTHX_ OP* cmd);
-VIRTUAL bool Perl_is_uni_alnum(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_alnumc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_idfirst(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_alpha(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_ascii(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_space(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_cntrl(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_graph(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_digit(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_upper(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_lower(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_print(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_punct(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_xdigit(pTHX_ U32 c);
-VIRTUAL U32 Perl_to_uni_upper(pTHX_ U32 c);
-VIRTUAL U32 Perl_to_uni_title(pTHX_ U32 c);
-VIRTUAL U32 Perl_to_uni_lower(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_alnum_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_alnumc_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_idfirst_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_alpha_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_ascii_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_space_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_cntrl_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_graph_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_digit_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_upper_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_lower_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_print_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_punct_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_uni_xdigit_lc(pTHX_ U32 c);
-VIRTUAL U32 Perl_to_uni_upper_lc(pTHX_ U32 c);
-VIRTUAL U32 Perl_to_uni_title_lc(pTHX_ U32 c);
-VIRTUAL U32 Perl_to_uni_lower_lc(pTHX_ U32 c);
-VIRTUAL bool Perl_is_utf8_alnum(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_alnumc(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_idfirst(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_alpha(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_ascii(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_space(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_cntrl(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_digit(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_graph(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_upper(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_lower(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_print(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_punct(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_xdigit(pTHX_ U8 *p);
-VIRTUAL bool Perl_is_utf8_mark(pTHX_ U8 *p);
-VIRTUAL OP* Perl_jmaybe(pTHX_ OP* arg);
-VIRTUAL I32 Perl_keyword(pTHX_ char* d, I32 len);
-VIRTUAL void Perl_leave_scope(pTHX_ I32 base);
-VIRTUAL void Perl_lex_end(pTHX);
-VIRTUAL void Perl_lex_start(pTHX_ SV* line);
-VIRTUAL OP* Perl_linklist(pTHX_ OP* o);
-VIRTUAL OP* Perl_list(pTHX_ OP* o);
-VIRTUAL OP* Perl_listkids(pTHX_ OP* o);
-VIRTUAL OP* Perl_localize(pTHX_ OP* arg, I32 lexical);
-VIRTUAL I32 Perl_looks_like_number(pTHX_ SV* sv);
-VIRTUAL int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_existspack(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_freeregexp(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getarylen(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getglob(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL U32 Perl_magic_len(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV char* Perl_getenv_len(pTHX_ 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_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method);
+PERL_CALLCONV void Perl_gv_check(pTHX_ HV* stash);
+PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, GV* gv);
+PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
+PERL_CALLCONV GV* Perl_gv_fetchfile(pTHX_ const char* name);
+PERL_CALLCONV GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level);
+PERL_CALLCONV GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name);
+PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload);
+PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32 sv_type);
+PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, GV* gv);
+PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
+PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi);
+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);
+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, U32 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, U32 klen);
+PERL_CALLCONV bool Perl_hv_exists_ent(pTHX_ HV* tb, SV* key, U32 hash);
+PERL_CALLCONV SV** Perl_hv_fetch(pTHX_ HV* tb, const char* key, U32 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);
+PERL_CALLCONV I32 Perl_hv_iterinit(pTHX_ HV* tb);
+PERL_CALLCONV char* Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen);
+PERL_CALLCONV SV* Perl_hv_iterkeysv(pTHX_ HE* entry);
+PERL_CALLCONV HE* Perl_hv_iternext(pTHX_ HV* tb);
+PERL_CALLCONV SV* Perl_hv_iternextsv(pTHX_ HV* hv, char** key, I32* retlen);
+PERL_CALLCONV SV* Perl_hv_iterval(pTHX_ HV* tb, HE* entry);
+PERL_CALLCONV void Perl_hv_ksplit(pTHX_ HV* hv, IV newmax);
+PERL_CALLCONV void Perl_hv_magic(pTHX_ HV* hv, GV* gv, int how);
+PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV* tb, const char* key, U32 klen, SV* val, U32 hash);
+PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash);
+PERL_CALLCONV void Perl_hv_undef(pTHX_ HV* tb);
+PERL_CALLCONV I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len);
+PERL_CALLCONV I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len);
+PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective);
+PERL_CALLCONV void Perl_init_debugger(pTHX);
+PERL_CALLCONV void Perl_init_stacks(pTHX);
+PERL_CALLCONV U32 Perl_intro_my(pTHX);
+PERL_CALLCONV char* Perl_instr(pTHX_ const char* big, const char* little);
+PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit);
+PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd);
+PERL_CALLCONV bool Perl_is_uni_alnum(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_alnumc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_idfirst(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_alpha(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_ascii(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_space(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_cntrl(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_graph(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_digit(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_upper(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_print(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_upper(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_title(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_lower(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_alnumc_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_alpha_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_ascii_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_space_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_cntrl_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_graph_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_digit_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_upper_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_upper_lc(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_title_lc(pTHX_ U32 c);
+PERL_CALLCONV U32 Perl_to_uni_lower_lc(pTHX_ U32 c);
+PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_alnumc(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ U8 *p);
+PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ U8 *p);
+PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP* arg);
+PERL_CALLCONV I32 Perl_keyword(pTHX_ char* d, I32 len);
+PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base);
+PERL_CALLCONV void Perl_lex_end(pTHX);
+PERL_CALLCONV void Perl_lex_start(pTHX_ SV* line);
+PERL_CALLCONV OP* Perl_linklist(pTHX_ OP* o);
+PERL_CALLCONV OP* Perl_list(pTHX_ OP* o);
+PERL_CALLCONV OP* Perl_listkids(pTHX_ OP* o);
+PERL_CALLCONV void Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...)
+#ifdef CHECK_FORMAT
+ __attribute__((format(printf,pTHX_3,pTHX_4)))
+#endif
+;
+PERL_CALLCONV void Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args);
+PERL_CALLCONV OP* Perl_localize(pTHX_ OP* arg, I32 lexical);
+PERL_CALLCONV I32 Perl_looks_like_number(pTHX_ SV* sv);
+PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_freeregexp(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getarylen(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getglob(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV U32 Perl_magic_len(pTHX_ SV* sv, MAGIC* mg);