remove VIRTUAL tag, PERL_OBJECT doesn't need it anymore

p4raw-id: //depot/perl@4511

18 files changed, 690 insertions, 725 deletions

diff --git a/dosish.h b/dosish.h
index 7e72d6727b..58c38161d0 100644
--- a/dosish.h
+++ b/dosish.h
@@ -31,7 +31,6 @@
 
 #define PERL_SYS_TERM() MALLOC_TERM
 #define dXSUB_SYS
-#define TMPPATH "plXXXXXX"
 
 /*
  * 5.003_07 and earlier keyed on #ifdef MSDOS for determining if we were 
diff --git a/embed.pl b/embed.pl
index 06d6371a1a..71e9406764 100755
--- a/embed.pl
+++ b/embed.pl
@@ -116,7 +116,7 @@ sub write_protos {
 	    $func = "S_$func";
 	}
 	else {
-	    $retval = "VIRTUAL $retval";
+	    $retval = "PERL_CALLCONV $retval";
 	    if ($flags =~ /p/) {
 		$func = "Perl_$func";
 	    }
diff --git a/mg.c b/mg.c
index eed84f8ed6..aed978a025 100644
--- a/mg.c
+++ b/mg.c
@@ -2068,7 +2068,6 @@ cleanup:
 
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/os2/os2ish.h b/os2/os2ish.h
index 23b109670f..3d7a6fd403 100644
--- a/os2/os2ish.h
+++ b/os2/os2ish.h
@@ -231,7 +231,6 @@ void *sys_alloc(int size);
 #  define PerlIO FILE
 #endif 
 
-#define TMPPATH tmppath
 #define TMPPATH1 "plXXXXXX"
 extern char *tmppath;
 PerlIO *my_syspopen(char *cmd, char *mode);
diff --git a/perl.c b/perl.c
index 3b1bc3dbfa..ce73fe911e 100644
--- a/perl.c
+++ b/perl.c
@@ -3201,7 +3201,6 @@ S_my_exit_jump(pTHX)
 }
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/perl.h b/perl.h
index e3d34e7f01..d30674dbd3 100644
--- a/perl.h
+++ b/perl.h
@@ -1857,10 +1857,6 @@ typedef I32 CHECKPOINT;
 #   define MAXSYSFD 2
 #endif
 
-#ifndef TMPPATH
-#  define TMPPATH "/tmp/perl-eXXXXXX"
-#endif
-
 #ifndef __cplusplus
 Uid_t getuid (void);
 Uid_t geteuid (void);
@@ -2577,13 +2573,6 @@ typedef void *Thread;
 #  define PERL_CALLCONV
 #endif 
 
-#ifdef PERL_OBJECT
-#  define VIRTUAL virtual PERL_CALLCONV
-#else
-#  define VIRTUAL PERL_CALLCONV
-/*START_EXTERN_C*/
-#endif
-
 #ifndef NEXT30_NO_ATTRIBUTE
 #  ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
 #    ifdef  __attribute__      /* Avoid possible redefinition errors */
@@ -2611,10 +2600,8 @@ public:
 #include "pp_proto.h"
 
 #ifdef PERL_OBJECT
-VIRTUAL int CPerlObj::do_aspawn (void *vreally, void **vmark, void **vsp);
+int CPerlObj::do_aspawn (void *vreally, void **vmark, void **vsp);
 #undef PERL_DECL_PROT
-#else
-/*END_EXTERN_C*/
 #endif
 
 #ifndef PERL_OBJECT
diff --git a/perly.c b/perly.c
index 64ad3b5582..f9734b3631 100644
--- a/perly.c
+++ b/perly.c
@@ -2481,7 +2481,6 @@ yyaccept:
 }
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/perly_c.diff b/perly_c.diff
index 450b159fb2..0b73880c4e 100644
--- a/perly_c.diff
+++ b/perly_c.diff
@@ -134,7 +134,7 @@
   yyaccept:
 !     return (0);
   }
---- 2524,2570 ----
+--- 2524,2569 ----
   #endif
       if (yyssp >= yyss + yystacksize - 1)
       {
@@ -164,7 +164,6 @@
 ! }
 ! 
 ! #ifdef PERL_OBJECT
-! #define NO_XSLOCKS
 ! #include "XSUB.h"
 ! #endif
 ! 
diff --git a/pp_ctl.c b/pp_ctl.c
index 833e87e7af..746f483dd0 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -4089,7 +4089,6 @@ S_qsortsv(pTHX_ SV ** array, size_t num_elts, SVCOMPARE_t compare)
 
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #undef this
 #define this pPerl
 #include "XSUB.h"
diff --git a/proto.h b/proto.h
index 4097a71cd6..e62902cf88 100644
--- a/proto.h
+++ b/proto.h
@@ -7,736 +7,736 @@
 #if defined(PERL_OBJECT)
 public:
 #endif
-VIRTUAL SV*	Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir);
-VIRTUAL bool	Perl_Gv_AMupdate(pTHX_ HV* stash);
-VIRTUAL OP*	Perl_append_elem(pTHX_ I32 optype, OP* head, OP* tail);
-VIRTUAL OP*	Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last);
-VIRTUAL I32	Perl_apply(pTHX_ I32 type, SV** mark, SV** sp);
-VIRTUAL bool	Perl_avhv_exists_ent(pTHX_ AV *ar, SV* keysv, U32 hash);
-VIRTUAL SV**	Perl_avhv_fetch_ent(pTHX_ AV *ar, SV* keysv, I32 lval, U32 hash);
-VIRTUAL HE*	Perl_avhv_iternext(pTHX_ AV *ar);
-VIRTUAL SV*	Perl_avhv_iterval(pTHX_ AV *ar, HE* entry);
-VIRTUAL HV*	Perl_avhv_keys(pTHX_ AV *ar);
-VIRTUAL void	Perl_av_clear(pTHX_ AV* ar);
-VIRTUAL void	Perl_av_extend(pTHX_ AV* ar, I32 key);
-VIRTUAL AV*	Perl_av_fake(pTHX_ I32 size, SV** svp);
-VIRTUAL SV**	Perl_av_fetch(pTHX_ AV* ar, I32 key, I32 lval);
-VIRTUAL void	Perl_av_fill(pTHX_ AV* ar, I32 fill);
-VIRTUAL I32	Perl_av_len(pTHX_ AV* ar);
-VIRTUAL AV*	Perl_av_make(pTHX_ I32 size, SV** svp);
-VIRTUAL SV*	Perl_av_pop(pTHX_ AV* ar);
-VIRTUAL void	Perl_av_push(pTHX_ AV* ar, SV* val);
-VIRTUAL void	Perl_av_reify(pTHX_ AV* ar);
-VIRTUAL SV*	Perl_av_shift(pTHX_ AV* ar);
-VIRTUAL SV**	Perl_av_store(pTHX_ AV* ar, I32 key, SV* val);
-VIRTUAL void	Perl_av_undef(pTHX_ AV* ar);
-VIRTUAL void	Perl_av_unshift(pTHX_ AV* ar, I32 num);
-VIRTUAL OP*	Perl_bind_match(pTHX_ I32 type, OP* left, OP* pat);
-VIRTUAL OP*	Perl_block_end(pTHX_ I32 floor, OP* seq);
-VIRTUAL I32	Perl_block_gimme(pTHX);
-VIRTUAL int	Perl_block_start(pTHX_ int full);
-VIRTUAL void	Perl_boot_core_UNIVERSAL(pTHX);
-VIRTUAL void	Perl_call_list(pTHX_ I32 oldscope, AV* av_list);
-VIRTUAL bool	Perl_cando(pTHX_ Mode_t mode, Uid_t effective, Stat_t* statbufp);
-VIRTUAL U32	Perl_cast_ulong(pTHX_ NV f);
-VIRTUAL I32	Perl_cast_i32(pTHX_ NV f);
-VIRTUAL IV	Perl_cast_iv(pTHX_ NV f);
-VIRTUAL UV	Perl_cast_uv(pTHX_ NV f);
+PERL_CALLCONV SV*	Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir);
+PERL_CALLCONV bool	Perl_Gv_AMupdate(pTHX_ HV* stash);
+PERL_CALLCONV OP*	Perl_append_elem(pTHX_ I32 optype, OP* head, OP* tail);
+PERL_CALLCONV OP*	Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last);
+PERL_CALLCONV I32	Perl_apply(pTHX_ I32 type, SV** mark, SV** sp);
+PERL_CALLCONV bool	Perl_avhv_exists_ent(pTHX_ AV *ar, SV* keysv, U32 hash);
+PERL_CALLCONV SV**	Perl_avhv_fetch_ent(pTHX_ AV *ar, SV* keysv, I32 lval, U32 hash);
+PERL_CALLCONV HE*	Perl_avhv_iternext(pTHX_ AV *ar);
+PERL_CALLCONV SV*	Perl_avhv_iterval(pTHX_ AV *ar, HE* entry);
+PERL_CALLCONV HV*	Perl_avhv_keys(pTHX_ AV *ar);
+PERL_CALLCONV void	Perl_av_clear(pTHX_ AV* ar);
+PERL_CALLCONV void	Perl_av_extend(pTHX_ AV* ar, I32 key);
+PERL_CALLCONV AV*	Perl_av_fake(pTHX_ I32 size, SV** svp);
+PERL_CALLCONV SV**	Perl_av_fetch(pTHX_ AV* ar, I32 key, I32 lval);
+PERL_CALLCONV void	Perl_av_fill(pTHX_ AV* ar, I32 fill);
+PERL_CALLCONV I32	Perl_av_len(pTHX_ AV* ar);
+PERL_CALLCONV AV*	Perl_av_make(pTHX_ I32 size, SV** svp);
+PERL_CALLCONV SV*	Perl_av_pop(pTHX_ AV* ar);
+PERL_CALLCONV void	Perl_av_push(pTHX_ AV* ar, SV* val);
+PERL_CALLCONV void	Perl_av_reify(pTHX_ AV* ar);
+PERL_CALLCONV SV*	Perl_av_shift(pTHX_ AV* ar);
+PERL_CALLCONV SV**	Perl_av_store(pTHX_ AV* ar, I32 key, SV* val);
+PERL_CALLCONV void	Perl_av_undef(pTHX_ AV* ar);
+PERL_CALLCONV void	Perl_av_unshift(pTHX_ AV* ar, I32 num);
+PERL_CALLCONV OP*	Perl_bind_match(pTHX_ I32 type, OP* left, OP* pat);
+PERL_CALLCONV OP*	Perl_block_end(pTHX_ I32 floor, OP* seq);
+PERL_CALLCONV I32	Perl_block_gimme(pTHX);
+PERL_CALLCONV int	Perl_block_start(pTHX_ int full);
+PERL_CALLCONV void	Perl_boot_core_UNIVERSAL(pTHX);
+PERL_CALLCONV void	Perl_call_list(pTHX_ I32 oldscope, AV* av_list);
+PERL_CALLCONV bool	Perl_cando(pTHX_ Mode_t mode, Uid_t effective, Stat_t* statbufp);
+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);
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
-VIRTUAL I32	Perl_my_chsize(pTHX_ int fd, Off_t length);
+PERL_CALLCONV I32	Perl_my_chsize(pTHX_ int fd, Off_t length);
 #endif
 #if defined(USE_THREADS)
-VIRTUAL MAGIC*	Perl_condpair_magic(pTHX_ SV *sv);
+PERL_CALLCONV MAGIC*	Perl_condpair_magic(pTHX_ SV *sv);
 #endif
-VIRTUAL OP*	Perl_convert(pTHX_ I32 optype, I32 flags, OP* o);
-VIRTUAL void	Perl_croak(pTHX_ const char* pat, ...) __attribute__((noreturn));
-VIRTUAL void	Perl_vcroak(pTHX_ const char* pat, va_list* args) __attribute__((noreturn));
+PERL_CALLCONV OP*	Perl_convert(pTHX_ I32 optype, I32 flags, OP* o);
+PERL_CALLCONV void	Perl_croak(pTHX_ const char* pat, ...) __attribute__((noreturn));
+PERL_CALLCONV void	Perl_vcroak(pTHX_ const char* pat, va_list* args) __attribute__((noreturn));
 #if defined(PERL_IMPLICIT_CONTEXT)
-VIRTUAL void	Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn));
-VIRTUAL OP*	Perl_die_nocontext(const char* pat, ...);
-VIRTUAL void	Perl_deb_nocontext(const char* pat, ...);
-VIRTUAL char*	Perl_form_nocontext(const char* pat, ...);
-VIRTUAL SV*	Perl_mess_nocontext(const char* pat, ...);
-VIRTUAL void	Perl_warn_nocontext(const char* pat, ...);
-VIRTUAL void	Perl_warner_nocontext(U32 err, const char* pat, ...);
-VIRTUAL SV*	Perl_newSVpvf_nocontext(const char* pat, ...);
-VIRTUAL void	Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...);
-VIRTUAL int	Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...);
-#endif
-VIRTUAL void	Perl_cv_ckproto(pTHX_ CV* cv, GV* gv, char* p);
-VIRTUAL CV*	Perl_cv_clone(pTHX_ CV* proto);
-VIRTUAL SV*	Perl_cv_const_sv(pTHX_ CV* cv);
-VIRTUAL SV*	Perl_op_const_sv(pTHX_ OP* o, CV* cv);
-VIRTUAL void	Perl_cv_undef(pTHX_ CV* cv);
-VIRTUAL void	Perl_cx_dump(pTHX_ PERL_CONTEXT* cs);
-VIRTUAL SV*	Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
-VIRTUAL void	Perl_filter_del(pTHX_ filter_t funcp);
-VIRTUAL I32	Perl_filter_read(pTHX_ int idx, SV* buffer, int maxlen);
-VIRTUAL char**	Perl_get_op_descs(pTHX);
-VIRTUAL char**	Perl_get_op_names(pTHX);
-VIRTUAL char*	Perl_get_no_modify(pTHX);
-VIRTUAL U32*	Perl_get_opargs(pTHX);
-VIRTUAL PPADDR_t*	Perl_get_ppaddr(pTHX);
-VIRTUAL I32	Perl_cxinc(pTHX);
-VIRTUAL void	Perl_deb(pTHX_ const char* pat, ...);
-VIRTUAL void	Perl_vdeb(pTHX_ const char* pat, va_list* args);
-VIRTUAL void	Perl_debprofdump(pTHX);
-VIRTUAL I32	Perl_debop(pTHX_ OP* o);
-VIRTUAL I32	Perl_debstack(pTHX);
-VIRTUAL I32	Perl_debstackptrs(pTHX);
-VIRTUAL char*	Perl_delimcpy(pTHX_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen);
-VIRTUAL void	Perl_deprecate(pTHX_ char* s);
-VIRTUAL OP*	Perl_die(pTHX_ const char* pat, ...);
-VIRTUAL OP*	Perl_vdie(pTHX_ const char* pat, va_list* args);
-VIRTUAL OP*	Perl_die_where(pTHX_ char* message, STRLEN msglen);
-VIRTUAL void	Perl_dounwind(pTHX_ I32 cxix);
-VIRTUAL bool	Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp);
-VIRTUAL bool	Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag);
-VIRTUAL int	Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int flag);
-VIRTUAL void	Perl_do_chop(pTHX_ SV* asv, SV* sv);
-VIRTUAL bool	Perl_do_close(pTHX_ GV* gv, bool not_implicit);
-VIRTUAL bool	Perl_do_eof(pTHX_ GV* gv);
-VIRTUAL bool	Perl_do_exec(pTHX_ char* cmd);
+PERL_CALLCONV void	Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn));
+PERL_CALLCONV OP*	Perl_die_nocontext(const char* pat, ...);
+PERL_CALLCONV void	Perl_deb_nocontext(const char* pat, ...);
+PERL_CALLCONV char*	Perl_form_nocontext(const char* pat, ...);
+PERL_CALLCONV SV*	Perl_mess_nocontext(const char* pat, ...);
+PERL_CALLCONV void	Perl_warn_nocontext(const char* pat, ...);
+PERL_CALLCONV void	Perl_warner_nocontext(U32 err, const char* pat, ...);
+PERL_CALLCONV SV*	Perl_newSVpvf_nocontext(const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...);
+PERL_CALLCONV int	Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...);
+#endif
+PERL_CALLCONV void	Perl_cv_ckproto(pTHX_ CV* cv, GV* gv, char* p);
+PERL_CALLCONV CV*	Perl_cv_clone(pTHX_ CV* proto);
+PERL_CALLCONV SV*	Perl_cv_const_sv(pTHX_ CV* cv);
+PERL_CALLCONV SV*	Perl_op_const_sv(pTHX_ OP* o, CV* cv);
+PERL_CALLCONV void	Perl_cv_undef(pTHX_ CV* cv);
+PERL_CALLCONV void	Perl_cx_dump(pTHX_ PERL_CONTEXT* cs);
+PERL_CALLCONV SV*	Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
+PERL_CALLCONV void	Perl_filter_del(pTHX_ filter_t funcp);
+PERL_CALLCONV I32	Perl_filter_read(pTHX_ int idx, SV* buffer, int maxlen);
+PERL_CALLCONV char**	Perl_get_op_descs(pTHX);
+PERL_CALLCONV char**	Perl_get_op_names(pTHX);
+PERL_CALLCONV char*	Perl_get_no_modify(pTHX);
+PERL_CALLCONV U32*	Perl_get_opargs(pTHX);
+PERL_CALLCONV PPADDR_t*	Perl_get_ppaddr(pTHX);
+PERL_CALLCONV I32	Perl_cxinc(pTHX);
+PERL_CALLCONV void	Perl_deb(pTHX_ const char* pat, ...);
+PERL_CALLCONV void	Perl_vdeb(pTHX_ const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_debprofdump(pTHX);
+PERL_CALLCONV I32	Perl_debop(pTHX_ OP* o);
+PERL_CALLCONV I32	Perl_debstack(pTHX);
+PERL_CALLCONV I32	Perl_debstackptrs(pTHX);
+PERL_CALLCONV char*	Perl_delimcpy(pTHX_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen);
+PERL_CALLCONV void	Perl_deprecate(pTHX_ char* s);
+PERL_CALLCONV OP*	Perl_die(pTHX_ const char* pat, ...);
+PERL_CALLCONV OP*	Perl_vdie(pTHX_ const char* pat, va_list* args);
+PERL_CALLCONV OP*	Perl_die_where(pTHX_ char* message, STRLEN msglen);
+PERL_CALLCONV void	Perl_dounwind(pTHX_ I32 cxix);
+PERL_CALLCONV bool	Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp);
+PERL_CALLCONV bool	Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag);
+PERL_CALLCONV int	Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int flag);
+PERL_CALLCONV void	Perl_do_chop(pTHX_ SV* asv, SV* sv);
+PERL_CALLCONV bool	Perl_do_close(pTHX_ GV* gv, bool not_implicit);
+PERL_CALLCONV bool	Perl_do_eof(pTHX_ GV* gv);
+PERL_CALLCONV bool	Perl_do_exec(pTHX_ char* cmd);
 #if !defined(WIN32)
-VIRTUAL bool	Perl_do_exec3(pTHX_ char* cmd, int fd, int flag);
+PERL_CALLCONV bool	Perl_do_exec3(pTHX_ char* cmd, int fd, int flag);
 #endif
-VIRTUAL void	Perl_do_execfree(pTHX);
+PERL_CALLCONV void	Perl_do_execfree(pTHX);
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
-VIRTUAL I32	Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp);
-VIRTUAL I32	Perl_do_ipcget(pTHX_ I32 optype, SV** mark, SV** sp);
-VIRTUAL I32	Perl_do_msgrcv(pTHX_ SV** mark, SV** sp);
-VIRTUAL I32	Perl_do_msgsnd(pTHX_ SV** mark, SV** sp);
-VIRTUAL I32	Perl_do_semop(pTHX_ SV** mark, SV** sp);
-VIRTUAL I32	Perl_do_shmio(pTHX_ I32 optype, SV** mark, SV** sp);
-#endif
-VIRTUAL void	Perl_do_join(pTHX_ SV* sv, SV* del, SV** mark, SV** sp);
-VIRTUAL OP*	Perl_do_kv(pTHX);
-VIRTUAL bool	Perl_do_open(pTHX_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp);
-VIRTUAL bool	Perl_do_open9(pTHX_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num);
-VIRTUAL void	Perl_do_pipe(pTHX_ SV* sv, GV* rgv, GV* wgv);
-VIRTUAL bool	Perl_do_print(pTHX_ SV* sv, PerlIO* fp);
-VIRTUAL OP*	Perl_do_readline(pTHX);
-VIRTUAL I32	Perl_do_chomp(pTHX_ SV* sv);
-VIRTUAL bool	Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
-VIRTUAL void	Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg);
-VIRTUAL Off_t	Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence);
-VIRTUAL Off_t	Perl_do_tell(pTHX_ GV* gv);
-VIRTUAL I32	Perl_do_trans(pTHX_ SV* sv);
-VIRTUAL UV	Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size);
-VIRTUAL void	Perl_do_vecset(pTHX_ SV* sv);
-VIRTUAL void	Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right);
-VIRTUAL OP*	Perl_dofile(pTHX_ OP* term);
-VIRTUAL I32	Perl_dowantarray(pTHX);
-VIRTUAL void	Perl_dump_all(pTHX);
-VIRTUAL void	Perl_dump_eval(pTHX);
+PERL_CALLCONV I32	Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp);
+PERL_CALLCONV I32	Perl_do_ipcget(pTHX_ I32 optype, SV** mark, SV** sp);
+PERL_CALLCONV I32	Perl_do_msgrcv(pTHX_ SV** mark, SV** sp);
+PERL_CALLCONV I32	Perl_do_msgsnd(pTHX_ SV** mark, SV** sp);
+PERL_CALLCONV I32	Perl_do_semop(pTHX_ SV** mark, SV** sp);
+PERL_CALLCONV I32	Perl_do_shmio(pTHX_ I32 optype, SV** mark, SV** sp);
+#endif
+PERL_CALLCONV void	Perl_do_join(pTHX_ SV* sv, SV* del, SV** mark, SV** sp);
+PERL_CALLCONV OP*	Perl_do_kv(pTHX);
+PERL_CALLCONV bool	Perl_do_open(pTHX_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp);
+PERL_CALLCONV bool	Perl_do_open9(pTHX_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num);
+PERL_CALLCONV void	Perl_do_pipe(pTHX_ SV* sv, GV* rgv, GV* wgv);
+PERL_CALLCONV bool	Perl_do_print(pTHX_ SV* sv, PerlIO* fp);
+PERL_CALLCONV OP*	Perl_do_readline(pTHX);
+PERL_CALLCONV I32	Perl_do_chomp(pTHX_ SV* sv);
+PERL_CALLCONV bool	Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
+PERL_CALLCONV void	Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg);
+PERL_CALLCONV Off_t	Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence);
+PERL_CALLCONV Off_t	Perl_do_tell(pTHX_ GV* gv);
+PERL_CALLCONV I32	Perl_do_trans(pTHX_ SV* sv);
+PERL_CALLCONV UV	Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size);
+PERL_CALLCONV void	Perl_do_vecset(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right);
+PERL_CALLCONV OP*	Perl_dofile(pTHX_ OP* term);
+PERL_CALLCONV I32	Perl_dowantarray(pTHX);
+PERL_CALLCONV void	Perl_dump_all(pTHX);
+PERL_CALLCONV void	Perl_dump_eval(pTHX);
 #if defined(DUMP_FDS)
-VIRTUAL void	Perl_dump_fds(pTHX_ char* s);
-#endif
-VIRTUAL void	Perl_dump_form(pTHX_ GV* gv);
-VIRTUAL void	Perl_gv_dump(pTHX_ GV* gv);
-VIRTUAL void	Perl_op_dump(pTHX_ OP* arg);
-VIRTUAL void	Perl_pmop_dump(pTHX_ PMOP* pm);
-VIRTUAL void	Perl_dump_packsubs(pTHX_ HV* stash);
-VIRTUAL void	Perl_dump_sub(pTHX_ GV* gv);
-VIRTUAL void	Perl_fbm_compile(pTHX_ SV* sv, U32 flags);
-VIRTUAL char*	Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
-VIRTUAL char*	Perl_find_script(pTHX_ char *scriptname, bool dosearch, char **search_ext, I32 flags);
+PERL_CALLCONV void	Perl_dump_fds(pTHX_ char* s);
+#endif
+PERL_CALLCONV void	Perl_dump_form(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_gv_dump(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_op_dump(pTHX_ OP* arg);
+PERL_CALLCONV void	Perl_pmop_dump(pTHX_ PMOP* pm);
+PERL_CALLCONV void	Perl_dump_packsubs(pTHX_ HV* stash);
+PERL_CALLCONV void	Perl_dump_sub(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_fbm_compile(pTHX_ SV* sv, U32 flags);
+PERL_CALLCONV char*	Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
+PERL_CALLCONV char*	Perl_find_script(pTHX_ char *scriptname, bool dosearch, char **search_ext, I32 flags);
 #if defined(USE_THREADS)
-VIRTUAL PADOFFSET	Perl_find_threadsv(pTHX_ const char *name);
-#endif
-VIRTUAL OP*	Perl_force_list(pTHX_ OP* arg);
-VIRTUAL OP*	Perl_fold_constants(pTHX_ OP* arg);
-VIRTUAL char*	Perl_form(pTHX_ const char* pat, ...);
-VIRTUAL char*	Perl_vform(pTHX_ const char* pat, va_list* args);
-VIRTUAL void	Perl_free_tmps(pTHX);
-VIRTUAL OP*	Perl_gen_constant_list(pTHX_ OP* o);
+PERL_CALLCONV PADOFFSET	Perl_find_threadsv(pTHX_ const char *name);
+#endif
+PERL_CALLCONV OP*	Perl_force_list(pTHX_ OP* arg);
+PERL_CALLCONV OP*	Perl_fold_constants(pTHX_ OP* arg);
+PERL_CALLCONV char*	Perl_form(pTHX_ const char* pat, ...);
+PERL_CALLCONV char*	Perl_vform(pTHX_ const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_free_tmps(pTHX);
+PERL_CALLCONV OP*	Perl_gen_constant_list(pTHX_ OP* o);
 #if !defined(HAS_GETENV_LEN)
-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 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);
 #if defined(USE_THREADS)
-VIRTUAL int	Perl_magic_mutexfree(pTHX_ SV* sv, MAGIC* mg);
-#endif
-VIRTUAL int	Perl_magic_nextpack(pTHX_ SV* sv, MAGIC* mg, SV* key);
-VIRTUAL U32	Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_set(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setamagic(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setbm(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_mutexfree(pTHX_ SV* sv, MAGIC* mg);
+#endif
+PERL_CALLCONV int	Perl_magic_nextpack(pTHX_ SV* sv, MAGIC* mg, SV* key);
+PERL_CALLCONV U32	Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_regdatum_get(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_setbm(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg);
 #if defined(USE_LOCALE_COLLATE)
-VIRTUAL int	Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg);
-#endif
-VIRTUAL int	Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setglob(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL U32	Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL int	Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg);
-VIRTUAL void	Perl_magicname(pTHX_ char* sym, char* name, I32 namlen);
+PERL_CALLCONV int	Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg);
+#endif
+PERL_CALLCONV int	Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setfm(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setglob(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV U32	Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV int	Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg);
+PERL_CALLCONV void	Perl_magicname(pTHX_ char* sym, char* name, I32 namlen);
 #if defined(MYMALLOC)
-VIRTUAL MEM_SIZE	Perl_malloced_size(void *p);
+PERL_CALLCONV MEM_SIZE	Perl_malloced_size(void *p);
 #endif
-VIRTUAL void	Perl_markstack_grow(pTHX);
+PERL_CALLCONV void	Perl_markstack_grow(pTHX);
 #if defined(USE_LOCALE_COLLATE)
-VIRTUAL char*	Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen);
-#endif
-VIRTUAL SV*	Perl_mess(pTHX_ const char* pat, ...);
-VIRTUAL SV*	Perl_vmess(pTHX_ const char* pat, va_list* args);
-VIRTUAL void	Perl_qerror(pTHX_ SV* err);
-VIRTUAL int	Perl_mg_clear(pTHX_ SV* sv);
-VIRTUAL int	Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen);
-VIRTUAL MAGIC*	Perl_mg_find(pTHX_ SV* sv, int type);
-VIRTUAL int	Perl_mg_free(pTHX_ SV* sv);
-VIRTUAL int	Perl_mg_get(pTHX_ SV* sv);
-VIRTUAL U32	Perl_mg_length(pTHX_ SV* sv);
-VIRTUAL void	Perl_mg_magical(pTHX_ SV* sv);
-VIRTUAL int	Perl_mg_set(pTHX_ SV* sv);
-VIRTUAL I32	Perl_mg_size(pTHX_ SV* sv);
-VIRTUAL OP*	Perl_mod(pTHX_ OP* o, I32 type);
-VIRTUAL char*	Perl_moreswitches(pTHX_ char* s);
-VIRTUAL OP*	Perl_my(pTHX_ OP* o);
-VIRTUAL NV	Perl_my_atof(pTHX_ const char *s);
+PERL_CALLCONV char*	Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen);
+#endif
+PERL_CALLCONV SV*	Perl_mess(pTHX_ const char* pat, ...);
+PERL_CALLCONV SV*	Perl_vmess(pTHX_ const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_qerror(pTHX_ SV* err);
+PERL_CALLCONV int	Perl_mg_clear(pTHX_ SV* sv);
+PERL_CALLCONV int	Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen);
+PERL_CALLCONV MAGIC*	Perl_mg_find(pTHX_ SV* sv, int type);
+PERL_CALLCONV int	Perl_mg_free(pTHX_ SV* sv);
+PERL_CALLCONV int	Perl_mg_get(pTHX_ SV* sv);
+PERL_CALLCONV U32	Perl_mg_length(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_mg_magical(pTHX_ SV* sv);
+PERL_CALLCONV int	Perl_mg_set(pTHX_ SV* sv);
+PERL_CALLCONV I32	Perl_mg_size(pTHX_ SV* sv);
+PERL_CALLCONV OP*	Perl_mod(pTHX_ OP* o, I32 type);
+PERL_CALLCONV char*	Perl_moreswitches(pTHX_ char* s);
+PERL_CALLCONV OP*	Perl_my(pTHX_ OP* o);
+PERL_CALLCONV NV	Perl_my_atof(pTHX_ const char *s);
 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
-VIRTUAL char*	Perl_my_bcopy(pTHX_ const char* from, char* to, I32 len);
+PERL_CALLCONV char*	Perl_my_bcopy(pTHX_ const char* from, char* to, I32 len);
 #endif
 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
-VIRTUAL char*	Perl_my_bzero(pTHX_ char* loc, I32 len);
+PERL_CALLCONV char*	Perl_my_bzero(pTHX_ char* loc, I32 len);
 #endif
-VIRTUAL void	Perl_my_exit(pTHX_ U32 status) __attribute__((noreturn));
-VIRTUAL void	Perl_my_failure_exit(pTHX) __attribute__((noreturn));
-VIRTUAL I32	Perl_my_fflush_all(pTHX);
-VIRTUAL I32	Perl_my_lstat(pTHX);
+PERL_CALLCONV void	Perl_my_exit(pTHX_ U32 status) __attribute__((noreturn));
+PERL_CALLCONV void	Perl_my_failure_exit(pTHX) __attribute__((noreturn));
+PERL_CALLCONV I32	Perl_my_fflush_all(pTHX);
+PERL_CALLCONV I32	Perl_my_lstat(pTHX);
 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
-VIRTUAL I32	Perl_my_memcmp(pTHX_ const char* s1, const char* s2, I32 len);
+PERL_CALLCONV I32	Perl_my_memcmp(pTHX_ const char* s1, const char* s2, I32 len);
 #endif
 #if !defined(HAS_MEMSET)
-VIRTUAL void*	Perl_my_memset(pTHX_ char* loc, I32 ch, I32 len);
+PERL_CALLCONV void*	Perl_my_memset(pTHX_ char* loc, I32 ch, I32 len);
 #endif
 #if !defined(PERL_OBJECT)
-VIRTUAL I32	Perl_my_pclose(pTHX_ PerlIO* ptr);
-VIRTUAL PerlIO*	Perl_my_popen(pTHX_ char* cmd, char* mode);
+PERL_CALLCONV I32	Perl_my_pclose(pTHX_ PerlIO* ptr);
+PERL_CALLCONV PerlIO*	Perl_my_popen(pTHX_ char* cmd, char* mode);
 #endif
-VIRTUAL void	Perl_my_setenv(pTHX_ char* nam, char* val);
-VIRTUAL I32	Perl_my_stat(pTHX);
+PERL_CALLCONV void	Perl_my_setenv(pTHX_ char* nam, char* val);
+PERL_CALLCONV I32	Perl_my_stat(pTHX);
 #if defined(MYSWAP)
-VIRTUAL short	Perl_my_swap(pTHX_ short s);
-VIRTUAL long	Perl_my_htonl(pTHX_ long l);
-VIRTUAL long	Perl_my_ntohl(pTHX_ long l);
-#endif
-VIRTUAL void	Perl_my_unexec(pTHX);
-VIRTUAL OP*	Perl_newANONLIST(pTHX_ OP* o);
-VIRTUAL OP*	Perl_newANONHASH(pTHX_ OP* o);
-VIRTUAL OP*	Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
-VIRTUAL OP*	Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right);
-VIRTUAL OP*	Perl_newCONDOP(pTHX_ I32 flags, OP* expr, OP* trueop, OP* falseop);
-VIRTUAL void	Perl_newCONSTSUB(pTHX_ HV* stash, char* name, SV* sv);
-VIRTUAL void	Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
-VIRTUAL OP*	Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont);
-VIRTUAL OP*	Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right);
-VIRTUAL OP*	Perl_newLOOPEX(pTHX_ I32 type, OP* label);
-VIRTUAL OP*	Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block);
-VIRTUAL OP*	Perl_newNULLLIST(pTHX);
-VIRTUAL OP*	Perl_newOP(pTHX_ I32 optype, I32 flags);
-VIRTUAL void	Perl_newPROG(pTHX_ OP* o);
-VIRTUAL OP*	Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right);
-VIRTUAL OP*	Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop);
-VIRTUAL OP*	Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o);
-VIRTUAL CV*	Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
-VIRTUAL CV*	Perl_newXS(pTHX_ char* name, XSUBADDR_t f, char* filename);
-VIRTUAL AV*	Perl_newAV(pTHX);
-VIRTUAL OP*	Perl_newAVREF(pTHX_ OP* o);
-VIRTUAL OP*	Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
-VIRTUAL OP*	Perl_newCVREF(pTHX_ I32 flags, OP* o);
-VIRTUAL OP*	Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv);
-VIRTUAL GV*	Perl_newGVgen(pTHX_ char* pack);
-VIRTUAL OP*	Perl_newGVREF(pTHX_ I32 type, OP* o);
-VIRTUAL OP*	Perl_newHVREF(pTHX_ OP* o);
-VIRTUAL HV*	Perl_newHV(pTHX);
-VIRTUAL HV*	Perl_newHVhv(pTHX_ HV* hv);
-VIRTUAL IO*	Perl_newIO(pTHX);
-VIRTUAL OP*	Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
-VIRTUAL OP*	Perl_newPMOP(pTHX_ I32 type, I32 flags);
-VIRTUAL OP*	Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv);
-VIRTUAL SV*	Perl_newRV(pTHX_ SV* pref);
-VIRTUAL SV*	Perl_newRV_noinc(pTHX_ SV *sv);
-VIRTUAL SV*	Perl_newSV(pTHX_ STRLEN len);
-VIRTUAL OP*	Perl_newSVREF(pTHX_ OP* o);
-VIRTUAL OP*	Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv);
-VIRTUAL SV*	Perl_newSViv(pTHX_ IV i);
-VIRTUAL SV*	Perl_newSVnv(pTHX_ NV n);
-VIRTUAL SV*	Perl_newSVpv(pTHX_ const char* s, STRLEN len);
-VIRTUAL SV*	Perl_newSVpvn(pTHX_ const char* s, STRLEN len);
-VIRTUAL SV*	Perl_newSVpvf(pTHX_ const char* pat, ...);
-VIRTUAL SV*	Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args);
-VIRTUAL SV*	Perl_newSVrv(pTHX_ SV* rv, const char* classname);
-VIRTUAL SV*	Perl_newSVsv(pTHX_ SV* old);
-VIRTUAL OP*	Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first);
-VIRTUAL OP*	Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);
-VIRTUAL PERL_SI*	Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems);
-VIRTUAL PerlIO*	Perl_nextargv(pTHX_ GV* gv);
-VIRTUAL char*	Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
-VIRTUAL OP*	Perl_oopsCV(pTHX_ OP* o);
-VIRTUAL void	Perl_op_free(pTHX_ OP* arg);
-VIRTUAL void	Perl_package(pTHX_ OP* o);
-VIRTUAL PADOFFSET	Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
-VIRTUAL PADOFFSET	Perl_pad_allocmy(pTHX_ char* name);
-VIRTUAL PADOFFSET	Perl_pad_findmy(pTHX_ char* name);
-VIRTUAL OP*	Perl_oopsAV(pTHX_ OP* o);
-VIRTUAL OP*	Perl_oopsHV(pTHX_ OP* o);
-VIRTUAL void	Perl_pad_leavemy(pTHX_ I32 fill);
-VIRTUAL SV*	Perl_pad_sv(pTHX_ PADOFFSET po);
-VIRTUAL void	Perl_pad_free(pTHX_ PADOFFSET po);
-VIRTUAL void	Perl_pad_reset(pTHX);
-VIRTUAL void	Perl_pad_swipe(pTHX_ PADOFFSET po);
-VIRTUAL void	Perl_peep(pTHX_ OP* o);
+PERL_CALLCONV short	Perl_my_swap(pTHX_ short s);
+PERL_CALLCONV long	Perl_my_htonl(pTHX_ long l);
+PERL_CALLCONV long	Perl_my_ntohl(pTHX_ long l);
+#endif
+PERL_CALLCONV void	Perl_my_unexec(pTHX);
+PERL_CALLCONV OP*	Perl_newANONLIST(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_newANONHASH(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
+PERL_CALLCONV OP*	Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right);
+PERL_CALLCONV OP*	Perl_newCONDOP(pTHX_ I32 flags, OP* expr, OP* trueop, OP* falseop);
+PERL_CALLCONV void	Perl_newCONSTSUB(pTHX_ HV* stash, char* name, SV* sv);
+PERL_CALLCONV void	Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
+PERL_CALLCONV OP*	Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont);
+PERL_CALLCONV OP*	Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right);
+PERL_CALLCONV OP*	Perl_newLOOPEX(pTHX_ I32 type, OP* label);
+PERL_CALLCONV OP*	Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block);
+PERL_CALLCONV OP*	Perl_newNULLLIST(pTHX);
+PERL_CALLCONV OP*	Perl_newOP(pTHX_ I32 optype, I32 flags);
+PERL_CALLCONV void	Perl_newPROG(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right);
+PERL_CALLCONV OP*	Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop);
+PERL_CALLCONV OP*	Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o);
+PERL_CALLCONV CV*	Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
+PERL_CALLCONV CV*	Perl_newXS(pTHX_ char* name, XSUBADDR_t f, char* filename);
+PERL_CALLCONV AV*	Perl_newAV(pTHX);
+PERL_CALLCONV OP*	Perl_newAVREF(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
+PERL_CALLCONV OP*	Perl_newCVREF(pTHX_ I32 flags, OP* o);
+PERL_CALLCONV OP*	Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv);
+PERL_CALLCONV GV*	Perl_newGVgen(pTHX_ char* pack);
+PERL_CALLCONV OP*	Perl_newGVREF(pTHX_ I32 type, OP* o);
+PERL_CALLCONV OP*	Perl_newHVREF(pTHX_ OP* o);
+PERL_CALLCONV HV*	Perl_newHV(pTHX);
+PERL_CALLCONV HV*	Perl_newHVhv(pTHX_ HV* hv);
+PERL_CALLCONV IO*	Perl_newIO(pTHX);
+PERL_CALLCONV OP*	Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last);
+PERL_CALLCONV OP*	Perl_newPMOP(pTHX_ I32 type, I32 flags);
+PERL_CALLCONV OP*	Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv);
+PERL_CALLCONV SV*	Perl_newRV(pTHX_ SV* pref);
+PERL_CALLCONV SV*	Perl_newRV_noinc(pTHX_ SV *sv);
+PERL_CALLCONV SV*	Perl_newSV(pTHX_ STRLEN len);
+PERL_CALLCONV OP*	Perl_newSVREF(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv);
+PERL_CALLCONV SV*	Perl_newSViv(pTHX_ IV i);
+PERL_CALLCONV SV*	Perl_newSVnv(pTHX_ NV n);
+PERL_CALLCONV SV*	Perl_newSVpv(pTHX_ const char* s, STRLEN len);
+PERL_CALLCONV SV*	Perl_newSVpvn(pTHX_ const char* s, STRLEN len);
+PERL_CALLCONV SV*	Perl_newSVpvf(pTHX_ const char* pat, ...);
+PERL_CALLCONV SV*	Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args);
+PERL_CALLCONV SV*	Perl_newSVrv(pTHX_ SV* rv, const char* classname);
+PERL_CALLCONV SV*	Perl_newSVsv(pTHX_ SV* old);
+PERL_CALLCONV OP*	Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first);
+PERL_CALLCONV OP*	Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);
+PERL_CALLCONV PERL_SI*	Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems);
+PERL_CALLCONV PerlIO*	Perl_nextargv(pTHX_ GV* gv);
+PERL_CALLCONV char*	Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
+PERL_CALLCONV OP*	Perl_oopsCV(pTHX_ OP* o);
+PERL_CALLCONV void	Perl_op_free(pTHX_ OP* arg);
+PERL_CALLCONV void	Perl_package(pTHX_ OP* o);
+PERL_CALLCONV PADOFFSET	Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
+PERL_CALLCONV PADOFFSET	Perl_pad_allocmy(pTHX_ char* name);
+PERL_CALLCONV PADOFFSET	Perl_pad_findmy(pTHX_ char* name);
+PERL_CALLCONV OP*	Perl_oopsAV(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_oopsHV(pTHX_ OP* o);
+PERL_CALLCONV void	Perl_pad_leavemy(pTHX_ I32 fill);
+PERL_CALLCONV SV*	Perl_pad_sv(pTHX_ PADOFFSET po);
+PERL_CALLCONV void	Perl_pad_free(pTHX_ PADOFFSET po);
+PERL_CALLCONV void	Perl_pad_reset(pTHX);
+PERL_CALLCONV void	Perl_pad_swipe(pTHX_ PADOFFSET po);
+PERL_CALLCONV void	Perl_peep(pTHX_ OP* o);
 #if defined(PERL_OBJECT)
-VIRTUAL void	perl_construct(void);
-VIRTUAL void	perl_destruct(void);
-VIRTUAL void	perl_free(void);
-VIRTUAL int	perl_run(void);
-VIRTUAL int	perl_parse(XSINIT_t xsinit, int argc, char** argv, char** env);
+PERL_CALLCONV void	perl_construct(void);
+PERL_CALLCONV void	perl_destruct(void);
+PERL_CALLCONV void	perl_free(void);
+PERL_CALLCONV int	perl_run(void);
+PERL_CALLCONV int	perl_parse(XSINIT_t xsinit, int argc, char** argv, char** env);
 #else
-VIRTUAL PerlInterpreter*	perl_alloc(void);
-VIRTUAL void	perl_construct(PerlInterpreter* sv_interp);
-VIRTUAL void	perl_destruct(PerlInterpreter* sv_interp);
-VIRTUAL void	perl_free(PerlInterpreter* sv_interp);
-VIRTUAL int	perl_run(PerlInterpreter* sv_interp);
-VIRTUAL int	perl_parse(PerlInterpreter* sv_interp, XSINIT_t xsinit, int argc, char** argv, char** env);
+PERL_CALLCONV PerlInterpreter*	perl_alloc(void);
+PERL_CALLCONV void	perl_construct(PerlInterpreter* sv_interp);
+PERL_CALLCONV void	perl_destruct(PerlInterpreter* sv_interp);
+PERL_CALLCONV void	perl_free(PerlInterpreter* sv_interp);
+PERL_CALLCONV int	perl_run(PerlInterpreter* sv_interp);
+PERL_CALLCONV int	perl_parse(PerlInterpreter* sv_interp, XSINIT_t xsinit, int argc, char** argv, char** env);
 #if defined(USE_THREADS)
-VIRTUAL struct perl_thread*	Perl_new_struct_thread(pTHX_ struct perl_thread *t);
-#endif
-#endif
-VIRTUAL void	Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
-VIRTUAL I32	Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv);
-VIRTUAL I32	Perl_call_method(pTHX_ const char* methname, I32 flags);
-VIRTUAL I32	Perl_call_pv(pTHX_ const char* sub_name, I32 flags);
-VIRTUAL I32	Perl_call_sv(pTHX_ SV* sv, I32 flags);
-VIRTUAL SV*	Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error);
-VIRTUAL I32	Perl_eval_sv(pTHX_ SV* sv, I32 flags);
-VIRTUAL SV*	Perl_get_sv(pTHX_ const char* name, I32 create);
-VIRTUAL AV*	Perl_get_av(pTHX_ const char* name, I32 create);
-VIRTUAL HV*	Perl_get_hv(pTHX_ const char* name, I32 create);
-VIRTUAL CV*	Perl_get_cv(pTHX_ const char* name, I32 create);
-VIRTUAL int	Perl_init_i18nl10n(pTHX_ int printwarn);
-VIRTUAL int	Perl_init_i18nl14n(pTHX_ int printwarn);
-VIRTUAL void	Perl_new_collate(pTHX_ const char* newcoll);
-VIRTUAL void	Perl_new_ctype(pTHX_ const char* newctype);
-VIRTUAL void	Perl_new_numeric(pTHX_ const char* newcoll);
-VIRTUAL void	Perl_set_numeric_local(pTHX);
-VIRTUAL void	Perl_set_numeric_radix(pTHX);
-VIRTUAL void	Perl_set_numeric_standard(pTHX);
-VIRTUAL void	Perl_require_pv(pTHX_ const char* pv);
-VIRTUAL void	Perl_pidgone(pTHX_ Pid_t pid, int status);
-VIRTUAL void	Perl_pmflag(pTHX_ U16* pmfl, int ch);
-VIRTUAL OP*	Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl);
-VIRTUAL OP*	Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
-VIRTUAL OP*	Perl_pop_return(pTHX);
-VIRTUAL void	Perl_pop_scope(pTHX);
-VIRTUAL OP*	Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail);
-VIRTUAL void	Perl_push_return(pTHX_ OP* o);
-VIRTUAL void	Perl_push_scope(pTHX);
-VIRTUAL OP*	Perl_ref(pTHX_ OP* o, I32 type);
-VIRTUAL OP*	Perl_refkids(pTHX_ OP* o, I32 type);
-VIRTUAL void	Perl_regdump(pTHX_ regexp* r);
-VIRTUAL I32	Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave);
-VIRTUAL void	Perl_pregfree(pTHX_ struct regexp* r);
-VIRTUAL regexp*	Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm);
-VIRTUAL char*	Perl_re_intuit_start(pTHX_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
-VIRTUAL SV*	Perl_re_intuit_string(pTHX_ regexp* prog);
-VIRTUAL I32	Perl_regexec_flags(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
-VIRTUAL regnode*	Perl_regnext(pTHX_ regnode* p);
-VIRTUAL void	Perl_regprop(pTHX_ SV* sv, regnode* o);
-VIRTUAL void	Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count);
-VIRTUAL char*	Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
-VIRTUAL Sighandler_t	Perl_rsignal(pTHX_ int i, Sighandler_t t);
-VIRTUAL int	Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
-VIRTUAL int	Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2);
-VIRTUAL Sighandler_t	Perl_rsignal_state(pTHX_ int i);
-VIRTUAL void	Perl_rxres_free(pTHX_ void** rsp);
-VIRTUAL void	Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx);
-VIRTUAL void	Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx);
+PERL_CALLCONV struct perl_thread*	Perl_new_struct_thread(pTHX_ struct perl_thread *t);
+#endif
+#endif
+PERL_CALLCONV void	Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
+PERL_CALLCONV I32	Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv);
+PERL_CALLCONV I32	Perl_call_method(pTHX_ const char* methname, I32 flags);
+PERL_CALLCONV I32	Perl_call_pv(pTHX_ const char* sub_name, I32 flags);
+PERL_CALLCONV I32	Perl_call_sv(pTHX_ SV* sv, I32 flags);
+PERL_CALLCONV SV*	Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error);
+PERL_CALLCONV I32	Perl_eval_sv(pTHX_ SV* sv, I32 flags);
+PERL_CALLCONV SV*	Perl_get_sv(pTHX_ const char* name, I32 create);
+PERL_CALLCONV AV*	Perl_get_av(pTHX_ const char* name, I32 create);
+PERL_CALLCONV HV*	Perl_get_hv(pTHX_ const char* name, I32 create);
+PERL_CALLCONV CV*	Perl_get_cv(pTHX_ const char* name, I32 create);
+PERL_CALLCONV int	Perl_init_i18nl10n(pTHX_ int printwarn);
+PERL_CALLCONV int	Perl_init_i18nl14n(pTHX_ int printwarn);
+PERL_CALLCONV void	Perl_new_collate(pTHX_ const char* newcoll);
+PERL_CALLCONV void	Perl_new_ctype(pTHX_ const char* newctype);
+PERL_CALLCONV void	Perl_new_numeric(pTHX_ const char* newcoll);
+PERL_CALLCONV void	Perl_set_numeric_local(pTHX);
+PERL_CALLCONV void	Perl_set_numeric_radix(pTHX);
+PERL_CALLCONV void	Perl_set_numeric_standard(pTHX);
+PERL_CALLCONV void	Perl_require_pv(pTHX_ const char* pv);
+PERL_CALLCONV void	Perl_pidgone(pTHX_ Pid_t pid, int status);
+PERL_CALLCONV void	Perl_pmflag(pTHX_ U16* pmfl, int ch);
+PERL_CALLCONV OP*	Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl);
+PERL_CALLCONV OP*	Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
+PERL_CALLCONV OP*	Perl_pop_return(pTHX);
+PERL_CALLCONV void	Perl_pop_scope(pTHX);
+PERL_CALLCONV OP*	Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail);
+PERL_CALLCONV void	Perl_push_return(pTHX_ OP* o);
+PERL_CALLCONV void	Perl_push_scope(pTHX);
+PERL_CALLCONV OP*	Perl_ref(pTHX_ OP* o, I32 type);
+PERL_CALLCONV OP*	Perl_refkids(pTHX_ OP* o, I32 type);
+PERL_CALLCONV void	Perl_regdump(pTHX_ regexp* r);
+PERL_CALLCONV I32	Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave);
+PERL_CALLCONV void	Perl_pregfree(pTHX_ struct regexp* r);
+PERL_CALLCONV regexp*	Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm);
+PERL_CALLCONV char*	Perl_re_intuit_start(pTHX_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
+PERL_CALLCONV SV*	Perl_re_intuit_string(pTHX_ regexp* prog);
+PERL_CALLCONV I32	Perl_regexec_flags(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
+PERL_CALLCONV regnode*	Perl_regnext(pTHX_ regnode* p);
+PERL_CALLCONV void	Perl_regprop(pTHX_ SV* sv, regnode* o);
+PERL_CALLCONV void	Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count);
+PERL_CALLCONV char*	Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend);
+PERL_CALLCONV Sighandler_t	Perl_rsignal(pTHX_ int i, Sighandler_t t);
+PERL_CALLCONV int	Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
+PERL_CALLCONV int	Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2);
+PERL_CALLCONV Sighandler_t	Perl_rsignal_state(pTHX_ int i);
+PERL_CALLCONV void	Perl_rxres_free(pTHX_ void** rsp);
+PERL_CALLCONV void	Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx);
+PERL_CALLCONV void	Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx);
 #if !defined(HAS_RENAME)
-VIRTUAL I32	Perl_same_dirent(pTHX_ char* a, char* b);
-#endif
-VIRTUAL char*	Perl_savepv(pTHX_ const char* sv);
-VIRTUAL char*	Perl_savepvn(pTHX_ const char* sv, I32 len);
-VIRTUAL void	Perl_savestack_grow(pTHX);
-VIRTUAL void	Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr);
-VIRTUAL I32	Perl_save_alloc(pTHX_ I32 size, I32 pad);
-VIRTUAL void	Perl_save_aptr(pTHX_ AV** aptr);
-VIRTUAL AV*	Perl_save_ary(pTHX_ GV* gv);
-VIRTUAL void	Perl_save_clearsv(pTHX_ SV** svp);
-VIRTUAL void	Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen);
-VIRTUAL void	Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
-VIRTUAL void	Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
-VIRTUAL void	Perl_save_freesv(pTHX_ SV* sv);
-VIRTUAL void	Perl_save_freeop(pTHX_ OP* o);
-VIRTUAL void	Perl_save_freepv(pTHX_ char* pv);
-VIRTUAL void	Perl_save_generic_svref(pTHX_ SV** sptr);
-VIRTUAL void	Perl_save_gp(pTHX_ GV* gv, I32 empty);
-VIRTUAL HV*	Perl_save_hash(pTHX_ GV* gv);
-VIRTUAL void	Perl_save_helem(pTHX_ HV* hv, SV *key, SV **sptr);
-VIRTUAL void	Perl_save_hints(pTHX);
-VIRTUAL void	Perl_save_hptr(pTHX_ HV** hptr);
-VIRTUAL void	Perl_save_I16(pTHX_ I16* intp);
-VIRTUAL void	Perl_save_I32(pTHX_ I32* intp);
-VIRTUAL void	Perl_save_int(pTHX_ int* intp);
-VIRTUAL void	Perl_save_item(pTHX_ SV* item);
-VIRTUAL void	Perl_save_iv(pTHX_ IV* iv);
-VIRTUAL void	Perl_save_list(pTHX_ SV** sarg, I32 maxsarg);
-VIRTUAL void	Perl_save_long(pTHX_ long* longp);
-VIRTUAL void	Perl_save_nogv(pTHX_ GV* gv);
-VIRTUAL void	Perl_save_op(pTHX);
-VIRTUAL SV*	Perl_save_scalar(pTHX_ GV* gv);
-VIRTUAL void	Perl_save_pptr(pTHX_ char** pptr);
-VIRTUAL void	Perl_save_re_context(pTHX);
-VIRTUAL void	Perl_save_sptr(pTHX_ SV** sptr);
-VIRTUAL SV*	Perl_save_svref(pTHX_ SV** sptr);
-VIRTUAL SV**	Perl_save_threadsv(pTHX_ PADOFFSET i);
-VIRTUAL OP*	Perl_sawparens(pTHX_ OP* o);
-VIRTUAL OP*	Perl_scalar(pTHX_ OP* o);
-VIRTUAL OP*	Perl_scalarkids(pTHX_ OP* o);
-VIRTUAL OP*	Perl_scalarseq(pTHX_ OP* o);
-VIRTUAL OP*	Perl_scalarvoid(pTHX_ OP* o);
-VIRTUAL NV	Perl_scan_bin(pTHX_ char* start, I32 len, I32* retlen);
-VIRTUAL NV	Perl_scan_hex(pTHX_ char* start, I32 len, I32* retlen);
-VIRTUAL char*	Perl_scan_num(pTHX_ char* s);
-VIRTUAL NV	Perl_scan_oct(pTHX_ char* start, I32 len, I32* retlen);
-VIRTUAL OP*	Perl_scope(pTHX_ OP* o);
-VIRTUAL char*	Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);
+PERL_CALLCONV I32	Perl_same_dirent(pTHX_ char* a, char* b);
+#endif
+PERL_CALLCONV char*	Perl_savepv(pTHX_ const char* sv);
+PERL_CALLCONV char*	Perl_savepvn(pTHX_ const char* sv, I32 len);
+PERL_CALLCONV void	Perl_savestack_grow(pTHX);
+PERL_CALLCONV void	Perl_save_aelem(pTHX_ AV* av, I32 idx, SV **sptr);
+PERL_CALLCONV I32	Perl_save_alloc(pTHX_ I32 size, I32 pad);
+PERL_CALLCONV void	Perl_save_aptr(pTHX_ AV** aptr);
+PERL_CALLCONV AV*	Perl_save_ary(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_save_clearsv(pTHX_ SV** svp);
+PERL_CALLCONV void	Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen);
+PERL_CALLCONV void	Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
+PERL_CALLCONV void	Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
+PERL_CALLCONV void	Perl_save_freesv(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_save_freeop(pTHX_ OP* o);
+PERL_CALLCONV void	Perl_save_freepv(pTHX_ char* pv);
+PERL_CALLCONV void	Perl_save_generic_svref(pTHX_ SV** sptr);
+PERL_CALLCONV void	Perl_save_gp(pTHX_ GV* gv, I32 empty);
+PERL_CALLCONV HV*	Perl_save_hash(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_save_helem(pTHX_ HV* hv, SV *key, SV **sptr);
+PERL_CALLCONV void	Perl_save_hints(pTHX);
+PERL_CALLCONV void	Perl_save_hptr(pTHX_ HV** hptr);
+PERL_CALLCONV void	Perl_save_I16(pTHX_ I16* intp);
+PERL_CALLCONV void	Perl_save_I32(pTHX_ I32* intp);
+PERL_CALLCONV void	Perl_save_int(pTHX_ int* intp);
+PERL_CALLCONV void	Perl_save_item(pTHX_ SV* item);
+PERL_CALLCONV void	Perl_save_iv(pTHX_ IV* iv);
+PERL_CALLCONV void	Perl_save_list(pTHX_ SV** sarg, I32 maxsarg);
+PERL_CALLCONV void	Perl_save_long(pTHX_ long* longp);
+PERL_CALLCONV void	Perl_save_nogv(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_save_op(pTHX);
+PERL_CALLCONV SV*	Perl_save_scalar(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_save_pptr(pTHX_ char** pptr);
+PERL_CALLCONV void	Perl_save_re_context(pTHX);
+PERL_CALLCONV void	Perl_save_sptr(pTHX_ SV** sptr);
+PERL_CALLCONV SV*	Perl_save_svref(pTHX_ SV** sptr);
+PERL_CALLCONV SV**	Perl_save_threadsv(pTHX_ PADOFFSET i);
+PERL_CALLCONV OP*	Perl_sawparens(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_scalar(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_scalarkids(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_scalarseq(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_scalarvoid(pTHX_ OP* o);
+PERL_CALLCONV NV	Perl_scan_bin(pTHX_ char* start, I32 len, I32* retlen);
+PERL_CALLCONV NV	Perl_scan_hex(pTHX_ char* start, I32 len, I32* retlen);
+PERL_CALLCONV char*	Perl_scan_num(pTHX_ char* s);
+PERL_CALLCONV NV	Perl_scan_oct(pTHX_ char* start, I32 len, I32* retlen);
+PERL_CALLCONV OP*	Perl_scope(pTHX_ OP* o);
+PERL_CALLCONV char*	Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);
 #if !defined(VMS)
-VIRTUAL I32	Perl_setenv_getix(pTHX_ char* nam);
-#endif
-VIRTUAL void	Perl_setdefout(pTHX_ GV* gv);
-VIRTUAL char*	Perl_sharepvn(pTHX_ const char* sv, I32 len, U32 hash);
-VIRTUAL HEK*	Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash);
-VIRTUAL Signal_t	Perl_sighandler(int sig);
-VIRTUAL SV**	Perl_stack_grow(pTHX_ SV** sp, SV**p, int n);
-VIRTUAL I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
-VIRTUAL void	Perl_sub_crush_depth(pTHX_ CV* cv);
-VIRTUAL bool	Perl_sv_2bool(pTHX_ SV* sv);
-VIRTUAL CV*	Perl_sv_2cv(pTHX_ SV* sv, HV** st, GV** gvp, I32 lref);
-VIRTUAL IO*	Perl_sv_2io(pTHX_ SV* sv);
-VIRTUAL IV	Perl_sv_2iv(pTHX_ SV* sv);
-VIRTUAL SV*	Perl_sv_2mortal(pTHX_ SV* sv);
-VIRTUAL NV	Perl_sv_2nv(pTHX_ SV* sv);
-VIRTUAL char*	Perl_sv_2pv(pTHX_ SV* sv, STRLEN* lp);
-VIRTUAL UV	Perl_sv_2uv(pTHX_ SV* sv);
-VIRTUAL IV	Perl_sv_iv(pTHX_ SV* sv);
-VIRTUAL UV	Perl_sv_uv(pTHX_ SV* sv);
-VIRTUAL NV	Perl_sv_nv(pTHX_ SV* sv);
-VIRTUAL char*	Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len);
-VIRTUAL I32	Perl_sv_true(pTHX_ SV *sv);
-VIRTUAL void	Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags);
-VIRTUAL int	Perl_sv_backoff(pTHX_ SV* sv);
-VIRTUAL SV*	Perl_sv_bless(pTHX_ SV* sv, HV* stash);
-VIRTUAL void	Perl_sv_catpvf(pTHX_ SV* sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args);
-VIRTUAL void	Perl_sv_catpv(pTHX_ SV* sv, const char* ptr);
-VIRTUAL void	Perl_sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
-VIRTUAL void	Perl_sv_catsv(pTHX_ SV* dsv, SV* ssv);
-VIRTUAL void	Perl_sv_chop(pTHX_ SV* sv, char* ptr);
-VIRTUAL void	Perl_sv_clean_all(pTHX);
-VIRTUAL void	Perl_sv_clean_objs(pTHX);
-VIRTUAL void	Perl_sv_clear(pTHX_ SV* sv);
-VIRTUAL I32	Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2);
-VIRTUAL I32	Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2);
+PERL_CALLCONV I32	Perl_setenv_getix(pTHX_ char* nam);
+#endif
+PERL_CALLCONV void	Perl_setdefout(pTHX_ GV* gv);
+PERL_CALLCONV char*	Perl_sharepvn(pTHX_ const char* sv, I32 len, U32 hash);
+PERL_CALLCONV HEK*	Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash);
+PERL_CALLCONV Signal_t	Perl_sighandler(int sig);
+PERL_CALLCONV SV**	Perl_stack_grow(pTHX_ SV** sp, SV**p, int n);
+PERL_CALLCONV I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
+PERL_CALLCONV void	Perl_sub_crush_depth(pTHX_ CV* cv);
+PERL_CALLCONV bool	Perl_sv_2bool(pTHX_ SV* sv);
+PERL_CALLCONV CV*	Perl_sv_2cv(pTHX_ SV* sv, HV** st, GV** gvp, I32 lref);
+PERL_CALLCONV IO*	Perl_sv_2io(pTHX_ SV* sv);
+PERL_CALLCONV IV	Perl_sv_2iv(pTHX_ SV* sv);
+PERL_CALLCONV SV*	Perl_sv_2mortal(pTHX_ SV* sv);
+PERL_CALLCONV NV	Perl_sv_2nv(pTHX_ SV* sv);
+PERL_CALLCONV char*	Perl_sv_2pv(pTHX_ SV* sv, STRLEN* lp);
+PERL_CALLCONV UV	Perl_sv_2uv(pTHX_ SV* sv);
+PERL_CALLCONV IV	Perl_sv_iv(pTHX_ SV* sv);
+PERL_CALLCONV UV	Perl_sv_uv(pTHX_ SV* sv);
+PERL_CALLCONV NV	Perl_sv_nv(pTHX_ SV* sv);
+PERL_CALLCONV char*	Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len);
+PERL_CALLCONV I32	Perl_sv_true(pTHX_ SV *sv);
+PERL_CALLCONV void	Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags);
+PERL_CALLCONV int	Perl_sv_backoff(pTHX_ SV* sv);
+PERL_CALLCONV SV*	Perl_sv_bless(pTHX_ SV* sv, HV* stash);
+PERL_CALLCONV void	Perl_sv_catpvf(pTHX_ SV* sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_sv_catpv(pTHX_ SV* sv, const char* ptr);
+PERL_CALLCONV void	Perl_sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
+PERL_CALLCONV void	Perl_sv_catsv(pTHX_ SV* dsv, SV* ssv);
+PERL_CALLCONV void	Perl_sv_chop(pTHX_ SV* sv, char* ptr);
+PERL_CALLCONV void	Perl_sv_clean_all(pTHX);
+PERL_CALLCONV void	Perl_sv_clean_objs(pTHX);
+PERL_CALLCONV void	Perl_sv_clear(pTHX_ SV* sv);
+PERL_CALLCONV I32	Perl_sv_cmp(pTHX_ SV* sv1, SV* sv2);
+PERL_CALLCONV I32	Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2);
 #if defined(USE_LOCALE_COLLATE)
-VIRTUAL char*	Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp);
-#endif
-VIRTUAL OP*	Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, char* code, AV** avp);
-VIRTUAL void	Perl_sv_dec(pTHX_ SV* sv);
-VIRTUAL void	Perl_sv_dump(pTHX_ SV* sv);
-VIRTUAL bool	Perl_sv_derived_from(pTHX_ SV* sv, const char* name);
-VIRTUAL I32	Perl_sv_eq(pTHX_ SV* sv1, SV* sv2);
-VIRTUAL void	Perl_sv_free(pTHX_ SV* sv);
-VIRTUAL void	Perl_sv_free_arenas(pTHX);
-VIRTUAL char*	Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append);
-VIRTUAL char*	Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen);
-VIRTUAL void	Perl_sv_inc(pTHX_ SV* sv);
-VIRTUAL void	Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen);
-VIRTUAL int	Perl_sv_isa(pTHX_ SV* sv, const char* name);
-VIRTUAL int	Perl_sv_isobject(pTHX_ SV* sv);
-VIRTUAL STRLEN	Perl_sv_len(pTHX_ SV* sv);
-VIRTUAL STRLEN	Perl_sv_len_utf8(pTHX_ SV* sv);
-VIRTUAL void	Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen);
-VIRTUAL SV*	Perl_sv_mortalcopy(pTHX_ SV* oldsv);
-VIRTUAL SV*	Perl_sv_newmortal(pTHX);
-VIRTUAL SV*	Perl_sv_newref(pTHX_ SV* sv);
-VIRTUAL char*	Perl_sv_peek(pTHX_ SV* sv);
-VIRTUAL void	Perl_sv_pos_u2b(pTHX_ SV* sv, I32* offsetp, I32* lenp);
-VIRTUAL void	Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp);
-VIRTUAL char*	Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp);
-VIRTUAL char*	Perl_sv_reftype(pTHX_ SV* sv, int ob);
-VIRTUAL void	Perl_sv_replace(pTHX_ SV* sv, SV* nsv);
-VIRTUAL void	Perl_sv_report_used(pTHX);
-VIRTUAL void	Perl_sv_reset(pTHX_ char* s, HV* stash);
-VIRTUAL void	Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args);
-VIRTUAL void	Perl_sv_setiv(pTHX_ SV* sv, IV num);
-VIRTUAL void	Perl_sv_setpviv(pTHX_ SV* sv, IV num);
-VIRTUAL void	Perl_sv_setuv(pTHX_ SV* sv, UV num);
-VIRTUAL void	Perl_sv_setnv(pTHX_ SV* sv, NV num);
-VIRTUAL SV*	Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv);
-VIRTUAL SV*	Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv);
-VIRTUAL SV*	Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv);
-VIRTUAL SV*	Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, char* pv, STRLEN n);
-VIRTUAL void	Perl_sv_setpv(pTHX_ SV* sv, const char* ptr);
-VIRTUAL void	Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
-VIRTUAL void	Perl_sv_setsv(pTHX_ SV* dsv, SV* ssv);
-VIRTUAL void	Perl_sv_taint(pTHX_ SV* sv);
-VIRTUAL bool	Perl_sv_tainted(pTHX_ SV* sv);
-VIRTUAL int	Perl_sv_unmagic(pTHX_ SV* sv, int type);
-VIRTUAL void	Perl_sv_unref(pTHX_ SV* sv);
-VIRTUAL void	Perl_sv_untaint(pTHX_ SV* sv);
-VIRTUAL bool	Perl_sv_upgrade(pTHX_ SV* sv, U32 mt);
-VIRTUAL void	Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len);
-VIRTUAL void	Perl_sv_vcatpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
-VIRTUAL void	Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
-VIRTUAL SV*	Perl_swash_init(pTHX_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none);
-VIRTUAL UV	Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr);
-VIRTUAL void	Perl_taint_env(pTHX);
-VIRTUAL void	Perl_taint_proper(pTHX_ const char* f, const char* s);
-VIRTUAL UV	Perl_to_utf8_lower(pTHX_ U8 *p);
-VIRTUAL UV	Perl_to_utf8_upper(pTHX_ U8 *p);
-VIRTUAL UV	Perl_to_utf8_title(pTHX_ U8 *p);
+PERL_CALLCONV char*	Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp);
+#endif
+PERL_CALLCONV OP*	Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, char* code, AV** avp);
+PERL_CALLCONV void	Perl_sv_dec(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_dump(pTHX_ SV* sv);
+PERL_CALLCONV bool	Perl_sv_derived_from(pTHX_ SV* sv, const char* name);
+PERL_CALLCONV I32	Perl_sv_eq(pTHX_ SV* sv1, SV* sv2);
+PERL_CALLCONV void	Perl_sv_free(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_free_arenas(pTHX);
+PERL_CALLCONV char*	Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append);
+PERL_CALLCONV char*	Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen);
+PERL_CALLCONV void	Perl_sv_inc(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen);
+PERL_CALLCONV int	Perl_sv_isa(pTHX_ SV* sv, const char* name);
+PERL_CALLCONV int	Perl_sv_isobject(pTHX_ SV* sv);
+PERL_CALLCONV STRLEN	Perl_sv_len(pTHX_ SV* sv);
+PERL_CALLCONV STRLEN	Perl_sv_len_utf8(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen);
+PERL_CALLCONV SV*	Perl_sv_mortalcopy(pTHX_ SV* oldsv);
+PERL_CALLCONV SV*	Perl_sv_newmortal(pTHX);
+PERL_CALLCONV SV*	Perl_sv_newref(pTHX_ SV* sv);
+PERL_CALLCONV char*	Perl_sv_peek(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_pos_u2b(pTHX_ SV* sv, I32* offsetp, I32* lenp);
+PERL_CALLCONV void	Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp);
+PERL_CALLCONV char*	Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp);
+PERL_CALLCONV char*	Perl_sv_reftype(pTHX_ SV* sv, int ob);
+PERL_CALLCONV void	Perl_sv_replace(pTHX_ SV* sv, SV* nsv);
+PERL_CALLCONV void	Perl_sv_report_used(pTHX);
+PERL_CALLCONV void	Perl_sv_reset(pTHX_ char* s, HV* stash);
+PERL_CALLCONV void	Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_sv_setiv(pTHX_ SV* sv, IV num);
+PERL_CALLCONV void	Perl_sv_setpviv(pTHX_ SV* sv, IV num);
+PERL_CALLCONV void	Perl_sv_setuv(pTHX_ SV* sv, UV num);
+PERL_CALLCONV void	Perl_sv_setnv(pTHX_ SV* sv, NV num);
+PERL_CALLCONV SV*	Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv);
+PERL_CALLCONV SV*	Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv);
+PERL_CALLCONV SV*	Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv);
+PERL_CALLCONV SV*	Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, char* pv, STRLEN n);
+PERL_CALLCONV void	Perl_sv_setpv(pTHX_ SV* sv, const char* ptr);
+PERL_CALLCONV void	Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len);
+PERL_CALLCONV void	Perl_sv_setsv(pTHX_ SV* dsv, SV* ssv);
+PERL_CALLCONV void	Perl_sv_taint(pTHX_ SV* sv);
+PERL_CALLCONV bool	Perl_sv_tainted(pTHX_ SV* sv);
+PERL_CALLCONV int	Perl_sv_unmagic(pTHX_ SV* sv, int type);
+PERL_CALLCONV void	Perl_sv_unref(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_untaint(pTHX_ SV* sv);
+PERL_CALLCONV bool	Perl_sv_upgrade(pTHX_ SV* sv, U32 mt);
+PERL_CALLCONV void	Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len);
+PERL_CALLCONV void	Perl_sv_vcatpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
+PERL_CALLCONV void	Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted);
+PERL_CALLCONV SV*	Perl_swash_init(pTHX_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none);
+PERL_CALLCONV UV	Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr);
+PERL_CALLCONV void	Perl_taint_env(pTHX);
+PERL_CALLCONV void	Perl_taint_proper(pTHX_ const char* f, const char* s);
+PERL_CALLCONV UV	Perl_to_utf8_lower(pTHX_ U8 *p);
+PERL_CALLCONV UV	Perl_to_utf8_upper(pTHX_ U8 *p);
+PERL_CALLCONV UV	Perl_to_utf8_title(pTHX_ U8 *p);
 #if defined(UNLINK_ALL_VERSIONS)
-VIRTUAL I32	Perl_unlnk(pTHX_ char* f);
+PERL_CALLCONV I32	Perl_unlnk(pTHX_ char* f);
 #endif
 #if defined(USE_THREADS)
-VIRTUAL void	Perl_unlock_condpair(pTHX_ void* svv);
-#endif
-VIRTUAL void	Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
-VIRTUAL void	Perl_unshare_hek(pTHX_ HEK* hek);
-VIRTUAL void	Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* id, OP* arg);
-VIRTUAL U8*	Perl_utf16_to_utf8(pTHX_ U16* p, U8 *d, I32 bytelen);
-VIRTUAL U8*	Perl_utf16_to_utf8_reversed(pTHX_ U16* p, U8 *d, I32 bytelen);
-VIRTUAL I32	Perl_utf8_distance(pTHX_ U8 *a, U8 *b);
-VIRTUAL U8*	Perl_utf8_hop(pTHX_ U8 *s, I32 off);
-VIRTUAL UV	Perl_utf8_to_uv(pTHX_ U8 *s, I32* retlen);
-VIRTUAL U8*	Perl_uv_to_utf8(pTHX_ U8 *d, UV uv);
-VIRTUAL void	Perl_vivify_defelem(pTHX_ SV* sv);
-VIRTUAL void	Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
-VIRTUAL I32	Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
-VIRTUAL void	Perl_warn(pTHX_ const char* pat, ...);
-VIRTUAL void	Perl_vwarn(pTHX_ const char* pat, va_list* args);
-VIRTUAL void	Perl_warner(pTHX_ U32 err, const char* pat, ...);
-VIRTUAL void	Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args);
-VIRTUAL void	Perl_watch(pTHX_ char** addr);
-VIRTUAL I32	Perl_whichsig(pTHX_ char* sig);
-VIRTUAL int	Perl_yyerror(pTHX_ char* s);
+PERL_CALLCONV void	Perl_unlock_condpair(pTHX_ void* svv);
+#endif
+PERL_CALLCONV void	Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
+PERL_CALLCONV void	Perl_unshare_hek(pTHX_ HEK* hek);
+PERL_CALLCONV void	Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* id, OP* arg);
+PERL_CALLCONV U8*	Perl_utf16_to_utf8(pTHX_ U16* p, U8 *d, I32 bytelen);
+PERL_CALLCONV U8*	Perl_utf16_to_utf8_reversed(pTHX_ U16* p, U8 *d, I32 bytelen);
+PERL_CALLCONV I32	Perl_utf8_distance(pTHX_ U8 *a, U8 *b);
+PERL_CALLCONV U8*	Perl_utf8_hop(pTHX_ U8 *s, I32 off);
+PERL_CALLCONV UV	Perl_utf8_to_uv(pTHX_ U8 *s, I32* retlen);
+PERL_CALLCONV U8*	Perl_uv_to_utf8(pTHX_ U8 *d, UV uv);
+PERL_CALLCONV void	Perl_vivify_defelem(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
+PERL_CALLCONV I32	Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
+PERL_CALLCONV void	Perl_warn(pTHX_ const char* pat, ...);
+PERL_CALLCONV void	Perl_vwarn(pTHX_ const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_warner(pTHX_ U32 err, const char* pat, ...);
+PERL_CALLCONV void	Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_watch(pTHX_ char** addr);
+PERL_CALLCONV I32	Perl_whichsig(pTHX_ char* sig);
+PERL_CALLCONV int	Perl_yyerror(pTHX_ char* s);
 #if defined(USE_PURE_BISON)
-VIRTUAL int	Perl_yylex(pTHX_ YYSTYPE *lvalp, int *lcharp);
+PERL_CALLCONV int	Perl_yylex(pTHX_ YYSTYPE *lvalp, int *lcharp);
 #else
-VIRTUAL int	Perl_yylex(pTHX);
+PERL_CALLCONV int	Perl_yylex(pTHX);
 #endif
-VIRTUAL int	Perl_yyparse(pTHX);
-VIRTUAL int	Perl_yywarn(pTHX_ char* s);
+PERL_CALLCONV int	Perl_yyparse(pTHX);
+PERL_CALLCONV int	Perl_yywarn(pTHX_ char* s);
 #if defined(MYMALLOC)
-VIRTUAL void	Perl_dump_mstats(pTHX_ char* s);
-VIRTUAL Malloc_t	Perl_malloc(MEM_SIZE nbytes);
-VIRTUAL Malloc_t	Perl_calloc(MEM_SIZE elements, MEM_SIZE size);
-VIRTUAL Malloc_t	Perl_realloc(Malloc_t where, MEM_SIZE nbytes);
-VIRTUAL Free_t	Perl_mfree(Malloc_t where);
-#endif
-VIRTUAL Malloc_t	Perl_safesysmalloc(MEM_SIZE nbytes);
-VIRTUAL Malloc_t	Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size);
-VIRTUAL Malloc_t	Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes);
-VIRTUAL Free_t	Perl_safesysfree(Malloc_t where);
+PERL_CALLCONV void	Perl_dump_mstats(pTHX_ char* s);
+PERL_CALLCONV Malloc_t	Perl_malloc(MEM_SIZE nbytes);
+PERL_CALLCONV Malloc_t	Perl_calloc(MEM_SIZE elements, MEM_SIZE size);
+PERL_CALLCONV Malloc_t	Perl_realloc(Malloc_t where, MEM_SIZE nbytes);
+PERL_CALLCONV Free_t	Perl_mfree(Malloc_t where);
+#endif
+PERL_CALLCONV Malloc_t	Perl_safesysmalloc(MEM_SIZE nbytes);
+PERL_CALLCONV Malloc_t	Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size);
+PERL_CALLCONV Malloc_t	Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes);
+PERL_CALLCONV Free_t	Perl_safesysfree(Malloc_t where);
 #if defined(LEAKTEST)
-VIRTUAL Malloc_t	Perl_safexmalloc(I32 x, MEM_SIZE size);
-VIRTUAL Malloc_t	Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size);
-VIRTUAL Malloc_t	Perl_safexrealloc(Malloc_t where, MEM_SIZE size);
-VIRTUAL void	Perl_safexfree(Malloc_t where);
+PERL_CALLCONV Malloc_t	Perl_safexmalloc(I32 x, MEM_SIZE size);
+PERL_CALLCONV Malloc_t	Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size);
+PERL_CALLCONV Malloc_t	Perl_safexrealloc(Malloc_t where, MEM_SIZE size);
+PERL_CALLCONV void	Perl_safexfree(Malloc_t where);
 #endif
 #if defined(PERL_GLOBAL_STRUCT)
-VIRTUAL struct perl_vars *	Perl_GetVars(pTHX);
-#endif
-VIRTUAL int	Perl_runops_standard(pTHX);
-VIRTUAL int	Perl_runops_debug(pTHX);
-VIRTUAL void	Perl_sv_catpvf_mg(pTHX_ SV *sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
-VIRTUAL void	Perl_sv_catpv_mg(pTHX_ SV *sv, const char *ptr);
-VIRTUAL void	Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
-VIRTUAL void	Perl_sv_catsv_mg(pTHX_ SV *dstr, SV *sstr);
-VIRTUAL void	Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...);
-VIRTUAL void	Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
-VIRTUAL void	Perl_sv_setiv_mg(pTHX_ SV *sv, IV i);
-VIRTUAL void	Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv);
-VIRTUAL void	Perl_sv_setuv_mg(pTHX_ SV *sv, UV u);
-VIRTUAL void	Perl_sv_setnv_mg(pTHX_ SV *sv, NV num);
-VIRTUAL void	Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr);
-VIRTUAL void	Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
-VIRTUAL void	Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr);
-VIRTUAL void	Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
-VIRTUAL MGVTBL*	Perl_get_vtbl(pTHX_ int vtbl_id);
-VIRTUAL char*	Perl_pv_display(pTHX_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
-VIRTUAL void	Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...);
-VIRTUAL void	Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args);
-VIRTUAL void	Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv);
-VIRTUAL void	Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv);
-VIRTUAL void	Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, char *name, HV *sv);
-VIRTUAL void	Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
-VIRTUAL void	Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o);
-VIRTUAL void	Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm);
-VIRTUAL void	Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
-VIRTUAL void	Perl_magic_dump(pTHX_ MAGIC *mg);
-VIRTUAL void*	Perl_default_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, ...);
-VIRTUAL void*	Perl_vdefault_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args);
-VIRTUAL void	Perl_reginitcolors(pTHX);
-VIRTUAL char*	Perl_sv_2pv_nolen(pTHX_ SV* sv);
-VIRTUAL char*	Perl_sv_pv(pTHX_ SV *sv);
-VIRTUAL void	Perl_sv_force_normal(pTHX_ SV *sv);
-VIRTUAL void	Perl_tmps_grow(pTHX_ I32 n);
-VIRTUAL SV*	Perl_sv_rvweaken(pTHX_ SV *sv);
-VIRTUAL int	Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg);
-VIRTUAL OP*	Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block);
-VIRTUAL CV*	Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
-VIRTUAL void	Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
-VIRTUAL OP *	Perl_my_attrs(pTHX_ OP *o, OP *attrs);
-VIRTUAL void	Perl_boot_core_xsutils(pTHX);
+PERL_CALLCONV struct perl_vars *	Perl_GetVars(pTHX);
+#endif
+PERL_CALLCONV int	Perl_runops_standard(pTHX);
+PERL_CALLCONV int	Perl_runops_debug(pTHX);
+PERL_CALLCONV void	Perl_sv_catpvf_mg(pTHX_ SV *sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_sv_catpv_mg(pTHX_ SV *sv, const char *ptr);
+PERL_CALLCONV void	Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
+PERL_CALLCONV void	Perl_sv_catsv_mg(pTHX_ SV *dstr, SV *sstr);
+PERL_CALLCONV void	Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...);
+PERL_CALLCONV void	Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
+PERL_CALLCONV void	Perl_sv_setiv_mg(pTHX_ SV *sv, IV i);
+PERL_CALLCONV void	Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv);
+PERL_CALLCONV void	Perl_sv_setuv_mg(pTHX_ SV *sv, UV u);
+PERL_CALLCONV void	Perl_sv_setnv_mg(pTHX_ SV *sv, NV num);
+PERL_CALLCONV void	Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr);
+PERL_CALLCONV void	Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
+PERL_CALLCONV void	Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr);
+PERL_CALLCONV void	Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
+PERL_CALLCONV MGVTBL*	Perl_get_vtbl(pTHX_ int vtbl_id);
+PERL_CALLCONV char*	Perl_pv_display(pTHX_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+PERL_CALLCONV void	Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...);
+PERL_CALLCONV void	Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args);
+PERL_CALLCONV void	Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv);
+PERL_CALLCONV void	Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv);
+PERL_CALLCONV void	Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, char *name, HV *sv);
+PERL_CALLCONV void	Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
+PERL_CALLCONV void	Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o);
+PERL_CALLCONV void	Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm);
+PERL_CALLCONV void	Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
+PERL_CALLCONV void	Perl_magic_dump(pTHX_ MAGIC *mg);
+PERL_CALLCONV void*	Perl_default_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, ...);
+PERL_CALLCONV void*	Perl_vdefault_protect(pTHX_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args);
+PERL_CALLCONV void	Perl_reginitcolors(pTHX);
+PERL_CALLCONV char*	Perl_sv_2pv_nolen(pTHX_ SV* sv);
+PERL_CALLCONV char*	Perl_sv_pv(pTHX_ SV *sv);
+PERL_CALLCONV void	Perl_sv_force_normal(pTHX_ SV *sv);
+PERL_CALLCONV void	Perl_tmps_grow(pTHX_ I32 n);
+PERL_CALLCONV SV*	Perl_sv_rvweaken(pTHX_ SV *sv);
+PERL_CALLCONV int	Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg);
+PERL_CALLCONV OP*	Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block);
+PERL_CALLCONV CV*	Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
+PERL_CALLCONV void	Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
+PERL_CALLCONV OP *	Perl_my_attrs(pTHX_ OP *o, OP *attrs);
+PERL_CALLCONV void	Perl_boot_core_xsutils(pTHX);
 #if defined(PERL_OBJECT)
 protected:
 #endif
diff --git a/regcomp.c b/regcomp.c
index 2d69750d8e..356fcb3149 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3541,7 +3541,6 @@ Perl_save_re_context(pTHX)
 }
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #undef this
 #define this pPerl
diff --git a/regexec.c b/regexec.c
index 684e344c16..611b132cf3 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3549,7 +3549,6 @@ S_reghopmaybe(pTHX_ U8* s, I32 off)
 }
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/sv.c b/sv.c
index 6324ffd54e..ccb93f359c 100644
--- a/sv.c
+++ b/sv.c
@@ -5582,7 +5582,6 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/toke.c b/toke.c
index 0ef7d5274b..253db354f4 100644
--- a/toke.c
+++ b/toke.c
@@ -7005,7 +7005,6 @@ Perl_yyerror(pTHX_ char *s)
 
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/universal.c b/universal.c
index f7d794218f..aa5487ff0e 100644
--- a/universal.c
+++ b/universal.c
@@ -117,10 +117,6 @@ Perl_boot_core_UNIVERSAL(pTHX)
     newXS("UNIVERSAL::VERSION", 	XS_UNIVERSAL_VERSION, 	  file);
 }
 
-#ifdef PERL_OBJECT
-#define NO_XSLOCKS
-#endif  /* PERL_OBJECT */
-
 #include "XSUB.h"
 
 XS(XS_UNIVERSAL_isa)
diff --git a/vms/perly_c.vms b/vms/perly_c.vms
index acecce7554..4787247429 100644
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@ -2483,7 +2483,6 @@ yyaccept:
 }
 
 #ifdef PERL_OBJECT
-#define NO_XSLOCKS
 #include "XSUB.h"
 #endif
 
diff --git a/vms/vmsish.h b/vms/vmsish.h
index 261a506987..68ac8b9305 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -681,6 +681,4 @@ typedef char __VMS_SEPYTOTORP__;
 #undef HAS_NTOHL
 #endif
 
-#define TMPPATH "sys$scratch:perl-eXXXXXX"
-
 #endif  /* __vmsish_h_included */
diff --git a/xsutils.c b/xsutils.c
index ea717d96f5..f9d5e0d28b 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -35,10 +35,6 @@ Perl_boot_core_xsutils(pTHX)
     newXS("attributes::bootstrap",	XS_attributes_bootstrap,	file);
 }
 
-#ifdef PERL_OBJECT
-#define NO_XSLOCKS
-#endif  /* PERL_OBJECT */
-
 #include "XSUB.h"
 
 static int