This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
initial stub implementation of implicit thread/this
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 7 Jun 1999 05:18:34 +0000 (05:18 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 7 Jun 1999 05:18:34 +0000 (05:18 +0000)
pointer argument; builds/tests on Solaris, win32
hasn't been fixed up yet; proto.h, global.sym and
static function decls are now generated from a common
database in proto.pl; some inconsistently named
perl_foo() things are now Perl_foo(), compatibility
#defines provided; perl_foo() (lowercase 'p') reserved
for functions that take an explicit context argument;
next step: generate #define foo(a,b) Perl_foo(aTHX_ a,b)

p4raw-id: //depot/perl@3522

47 files changed:
XSUB.h
av.c
cop.h
deb.c
doio.c
doop.c
dump.c
ebcdic.c
embed.h
embed.pl
ext/POSIX/POSIX.xs
global.sym
globals.c
gv.c
gv.h
hv.c
malloc.c
mg.c
miniperlmain.c
objXSUB.h
op.c
opcode.h
opcode.pl
perl.c
perl.h
perl_exp.SH
perlio.c
perly.c
perly.y
pp.c
pp.sym
pp_ctl.c
pp_hot.c
pp_proto.h
pp_sys.c
proto.h
regcomp.c
regexec.c
run.c
scope.c
scope.h
sv.c
taint.c
toke.c
universal.c
utf8.c
util.c

diff --git a/XSUB.h b/XSUB.h
index 0af51d3..5c3ec64 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
            tmpsv = ST(1);                                              \
        else {                                                          \
            /* XXX GV_ADDWARN */                                        \
-           tmpsv = perl_get_sv(form("%s::%s", module,                  \
-                                 vn = "XS_VERSION"), FALSE);           \
+           tmpsv = get_sv(form("%s::%s", module,                       \
+                               vn = "XS_VERSION"), FALSE);             \
            if (!tmpsv || !SvOK(tmpsv))                                 \
-               tmpsv = perl_get_sv(form("%s::%s", module,              \
-                                     vn = "VERSION"), FALSE);          \
+               tmpsv = get_sv(form("%s::%s", module,                   \
+                                   vn = "VERSION"), FALSE);            \
        }                                                               \
        if (tmpsv && (!SvOK(tmpsv) || strNE(XS_VERSION, SvPV(tmpsv, n_a))))     \
            croak("%s object version %s does not match %s%s%s%s %_",    \
diff --git a/av.c b/av.c
index 1f0d94a..265eb71 100644 (file)
--- a/av.c
+++ b/av.c
  */
 
 #include "EXTERN.h"
+#define PERL_IN_AV_C
 #include "perl.h"
 
 void
-av_reify(AV *av)
+Perl_av_reify(pTHX_ AV *av)
 {
     I32 key;
     SV* sv;
@@ -46,7 +47,7 @@ av_reify(AV *av)
 }
 
 void
-av_extend(AV *av, I32 key)
+Perl_av_extend(pTHX_ AV *av, I32 key)
 {
     dTHR;                      /* only necessary if we have to extend stack */
     MAGIC *mg;
@@ -60,7 +61,7 @@ av_extend(AV *av, I32 key)
        PUSHs(SvTIED_obj((SV*)av, mg));
        PUSHs(sv_2mortal(newSViv(key+1)));
         PUTBACK;
-       perl_call_method("EXTEND", G_SCALAR|G_DISCARD);
+       call_method("EXTEND", G_SCALAR|G_DISCARD);
        POPSTACK;
        FREETMPS;
        LEAVE;
@@ -149,7 +150,7 @@ av_extend(AV *av, I32 key)
 }
 
 SV**
-av_fetch(register AV *av, I32 key, I32 lval)
+Perl_av_fetch(pTHX_ register AV *av, I32 key, I32 lval)
 {
     SV *sv;
 
@@ -196,7 +197,7 @@ av_fetch(register AV *av, I32 key, I32 lval)
 }
 
 SV**
-av_store(register AV *av, I32 key, SV *val)
+Perl_av_store(pTHX_ register AV *av, I32 key, SV *val)
 {
     SV** ary;
     U32  fill;
@@ -255,7 +256,7 @@ av_store(register AV *av, I32 key, SV *val)
 }
 
 AV *
-newAV(void)
+Perl_newAV(pTHX)
 {
     register AV *av;
 
@@ -269,7 +270,7 @@ newAV(void)
 }
 
 AV *
-av_make(register I32 size, register SV **strp)
+Perl_av_make(pTHX_ register I32 size, register SV **strp)
 {
     register AV *av;
     register I32 i;
@@ -295,7 +296,7 @@ av_make(register I32 size, register SV **strp)
 }
 
 AV *
-av_fake(register I32 size, register SV **strp)
+Perl_av_fake(pTHX_ register I32 size, register SV **strp)
 {
     register AV *av;
     register SV** ary;
@@ -318,7 +319,7 @@ av_fake(register I32 size, register SV **strp)
 }
 
 void
-av_clear(register AV *av)
+Perl_av_clear(pTHX_ register AV *av)
 {
     register I32 key;
     SV** ary;
@@ -359,7 +360,7 @@ av_clear(register AV *av)
 }
 
 void
-av_undef(register AV *av)
+Perl_av_undef(pTHX_ register AV *av)
 {
     register I32 key;
 
@@ -387,7 +388,7 @@ av_undef(register AV *av)
 }
 
 void
-av_push(register AV *av, SV *val)
+Perl_av_push(pTHX_ register AV *av, SV *val)
 {             
     MAGIC *mg;
     if (!av)
@@ -404,7 +405,7 @@ av_push(register AV *av, SV *val)
        PUSHs(val);
        PUTBACK;
        ENTER;
-       perl_call_method("PUSH", G_SCALAR|G_DISCARD);
+       call_method("PUSH", G_SCALAR|G_DISCARD);
        LEAVE;
        POPSTACK;
        return;
@@ -413,7 +414,7 @@ av_push(register AV *av, SV *val)
 }
 
 SV *
-av_pop(register AV *av)
+Perl_av_pop(pTHX_ register AV *av)
 {
     SV *retval;
     MAGIC* mg;
@@ -429,7 +430,7 @@ av_pop(register AV *av)
        XPUSHs(SvTIED_obj((SV*)av, mg));
        PUTBACK;
        ENTER;
-       if (perl_call_method("POP", G_SCALAR)) {
+       if (call_method("POP", G_SCALAR)) {
            retval = newSVsv(*PL_stack_sp--);    
        } else {    
            retval = &PL_sv_undef;
@@ -446,7 +447,7 @@ av_pop(register AV *av)
 }
 
 void
-av_unshift(register AV *av, register I32 num)
+Perl_av_unshift(pTHX_ register AV *av, register I32 num)
 {
     register I32 i;
     register SV **ary;
@@ -468,7 +469,7 @@ av_unshift(register AV *av, register I32 num)
        }
        PUTBACK;
        ENTER;
-       perl_call_method("UNSHIFT", G_SCALAR|G_DISCARD);
+       call_method("UNSHIFT", G_SCALAR|G_DISCARD);
        LEAVE;
        POPSTACK;
        return;
@@ -499,7 +500,7 @@ av_unshift(register AV *av, register I32 num)
 }
 
 SV *
-av_shift(register AV *av)
+Perl_av_shift(pTHX_ register AV *av)
 {
     SV *retval;
     MAGIC* mg;
@@ -515,7 +516,7 @@ av_shift(register AV *av)
        XPUSHs(SvTIED_obj((SV*)av, mg));
        PUTBACK;
        ENTER;
-       if (perl_call_method("SHIFT", G_SCALAR)) {
+       if (call_method("SHIFT", G_SCALAR)) {
            retval = newSVsv(*PL_stack_sp--);            
        } else {    
            retval = &PL_sv_undef;
@@ -536,13 +537,13 @@ av_shift(register AV *av)
 }
 
 I32
-av_len(register AV *av)
+Perl_av_len(pTHX_ register AV *av)
 {
     return AvFILL(av);
 }
 
 void
-av_fill(register AV *av, I32 fill)
+Perl_av_fill(pTHX_ register AV *av, I32 fill)
 {
     MAGIC *mg;
     if (!av)
@@ -559,7 +560,7 @@ av_fill(register AV *av, I32 fill)
        PUSHs(SvTIED_obj((SV*)av, mg));
        PUSHs(sv_2mortal(newSViv(fill+1)));
        PUTBACK;
-       perl_call_method("STORESIZE", G_SCALAR|G_DISCARD);
+       call_method("STORESIZE", G_SCALAR|G_DISCARD);
        POPSTACK;
        FREETMPS;
        LEAVE;
@@ -595,7 +596,7 @@ av_fill(register AV *av, I32 fill)
  */
 
 STATIC I32
-avhv_index_sv(SV* sv)
+avhv_index_sv(pTHX_ SV* sv)
 {
     I32 index = SvIV(sv);
     if (index < 1)
@@ -604,7 +605,7 @@ avhv_index_sv(SV* sv)
 }
 
 HV*
-avhv_keys(AV *av)
+Perl_avhv_keys(pTHX_ AV *av)
 {
     SV **keysp = av_fetch(av, 0, FALSE);
     if (keysp) {
@@ -622,7 +623,7 @@ avhv_keys(AV *av)
 }
 
 SV**
-avhv_fetch_ent(AV *av, SV *keysv, I32 lval, U32 hash)
+Perl_avhv_fetch_ent(pTHX_ AV *av, SV *keysv, I32 lval, U32 hash)
 {
     SV **indsvp;
     HV *keys = avhv_keys(av);
@@ -635,21 +636,21 @@ avhv_fetch_ent(AV *av, SV *keysv, I32 lval, U32 hash)
 }
 
 bool
-avhv_exists_ent(AV *av, SV *keysv, U32 hash)
+Perl_avhv_exists_ent(pTHX_ AV *av, SV *keysv, U32 hash)
 {
     HV *keys = avhv_keys(av);
     return hv_exists_ent(keys, keysv, hash);
 }
 
 HE *
-avhv_iternext(AV *av)
+Perl_avhv_iternext(pTHX_ AV *av)
 {
     HV *keys = avhv_keys(av);
     return hv_iternext(keys);
 }
 
 SV *
-avhv_iterval(AV *av, register HE *entry)
+Perl_avhv_iterval(pTHX_ AV *av, register HE *entry)
 {
     SV *sv = hv_iterval(avhv_keys(av), entry);
     return *av_fetch(av, avhv_index_sv(sv), TRUE);
diff --git a/cop.h b/cop.h
index 0f029ca..84afd58 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -291,7 +291,7 @@ struct context {
 #define G_ARRAY                1
 #define G_VOID         128     /* skip this bit when adding flags below */
 
-/* extra flags for perl_call_* routines */
+/* extra flags for Perl_call_* routines */
 #define G_DISCARD      2       /* Call FREETMPS. */
 #define G_EVAL         4       /* Assume eval {} around subroutine call. */
 #define G_NOARGS       8       /* Don't construct a @_ array. */
@@ -302,7 +302,7 @@ struct context {
 #define EVAL_NULL      0       /* not in an eval */
 #define EVAL_INEVAL    1       /* some enclosing scope is an eval */
 #define EVAL_WARNONLY  2       /* used by yywarn() when calling yyerror() */
-#define EVAL_KEEPERR   4       /* set by perl_call_sv if G_KEEPERR */
+#define EVAL_KEEPERR   4       /* set by Perl_call_sv if G_KEEPERR */
 
 /* Support for switching (stack and block) contexts.
  * This ensures magic doesn't invalidate local stack and cx pointers.
diff --git a/deb.c b/deb.c
index ad26cd6..252bb0b 100644 (file)
--- a/deb.c
+++ b/deb.c
  */
 
 #include "EXTERN.h"
+#define PERL_IN_DEB_C
 #include "perl.h"
 
 void
-deb(const char *pat, ...)
+Perl_deb(pTHX_ const char *pat, ...)
 {
 #ifdef DEBUGGING
     dTHR;
@@ -44,7 +45,7 @@ deb(const char *pat, ...)
 }
 
 void
-deb_growlevel(void)
+Perl_deb_growlevel(pTHX)
 {
 #ifdef DEBUGGING
     PL_dlmax += 128;
@@ -54,7 +55,7 @@ deb_growlevel(void)
 }
 
 I32
-debstackptrs(void)
+Perl_debstackptrs(pTHX)
 {
 #ifdef DEBUGGING
     dTHR;
@@ -70,7 +71,7 @@ debstackptrs(void)
 }
 
 I32
-debstack(void)
+Perl_debstack(pTHX)
 {
 #ifdef DEBUGGING
     dTHR;
diff --git a/doio.c b/doio.c
index e9f2a71..aac69f8 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -15,6 +15,7 @@
  */
 
 #include "EXTERN.h"
+#define PERL_IN_DOIO_C
 #include "perl.h"
 
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
@@ -81,7 +82,7 @@
 #endif
 
 bool
-do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp)
+Perl_do_open(pTHX_ GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp)
 {
     register IO *io = GvIOn(gv);
     PerlIO *saveifp = Nullfp;
@@ -410,7 +411,7 @@ say_false:
 }
 
 PerlIO *
-nextargv(register GV *gv)
+Perl_nextargv(pTHX_ register GV *gv)
 {
     register SV *sv;
 #ifndef FLEXFILENAMES
@@ -580,7 +581,7 @@ nextargv(register GV *gv)
 
 #ifdef HAS_PIPE
 void
-do_pipe(SV *sv, GV *rgv, GV *wgv)
+Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
 {
     register IO *rstio;
     register IO *wstio;
@@ -625,7 +626,7 @@ badexit:
 
 /* explicit renamed to avoid C++ conflict    -- kja */
 bool
-do_close(GV *gv, bool not_implicit)
+Perl_do_close(pTHX_ GV *gv, bool not_implicit)
 {
     bool retval;
     IO *io;
@@ -659,7 +660,7 @@ do_close(GV *gv, bool not_implicit)
 }
 
 bool
-io_close(IO *io)
+Perl_io_close(pTHX_ IO *io)
 {
     bool retval = FALSE;
     int status;
@@ -690,7 +691,7 @@ io_close(IO *io)
 }
 
 bool
-do_eof(GV *gv)
+Perl_do_eof(pTHX_ GV *gv)
 {
     dTHR;
     register IO *io;
@@ -728,7 +729,7 @@ do_eof(GV *gv)
 }
 
 Off_t
-do_tell(GV *gv)
+Perl_do_tell(pTHX_ GV *gv)
 {
     register IO *io;
     register PerlIO *fp;
@@ -750,7 +751,7 @@ do_tell(GV *gv)
 }
 
 bool
-do_seek(GV *gv, Off_t pos, int whence)
+Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence)
 {
     register IO *io;
     register PerlIO *fp;
@@ -772,7 +773,7 @@ do_seek(GV *gv, Off_t pos, int whence)
 }
 
 Off_t
-do_sysseek(GV *gv, Off_t pos, int whence)
+Perl_do_sysseek(pTHX_ GV *gv, Off_t pos, int whence)
 {
     register IO *io;
     register PerlIO *fp;
@@ -789,7 +790,7 @@ do_sysseek(GV *gv, Off_t pos, int whence)
 }
 
 int
-do_binmode(PerlIO *fp, int iotype, int flag)
+Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int flag)
 {
     if (flag != TRUE)
        croak("panic: unsetting binmode"); /* Not implemented yet */
@@ -880,7 +881,7 @@ Off_t length;               /* length to set file to */
 #endif /* F_FREESP */
 
 bool
-do_print(register SV *sv, PerlIO *fp)
+Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 {
     register char *tmps;
     STRLEN len;
@@ -930,7 +931,7 @@ do_print(register SV *sv, PerlIO *fp)
 }
 
 I32
-my_stat(ARGSproto)
+Perl_my_stat(pTHX_ ARGSproto)
 {
     djSP;
     IO *io;
@@ -984,7 +985,7 @@ my_stat(ARGSproto)
 }
 
 I32
-my_lstat(ARGSproto)
+Perl_my_lstat(pTHX_ ARGSproto)
 {
     djSP;
     SV *sv;
@@ -1011,7 +1012,7 @@ my_lstat(ARGSproto)
 }
 
 bool
-do_aexec(SV *really, register SV **mark, register SV **sp)
+Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
 {
     register char **a;
     char *tmps;
@@ -1043,7 +1044,7 @@ do_aexec(SV *really, register SV **mark, register SV **sp)
 }
 
 void
-do_execfree(void)
+Perl_do_execfree(pTHX)
 {
     if (PL_Argv) {
        Safefree(PL_Argv);
@@ -1058,13 +1059,13 @@ do_execfree(void)
 #if !defined(OS2) && !defined(WIN32) && !defined(DJGPP)
 
 bool
-do_exec(char *cmd)
+Perl_do_exec(pTHX_ char *cmd)
 {
     return do_exec3(cmd,0,0);
 }
 
 bool
-do_exec3(char *cmd, int fd, int do_report)
+Perl_do_exec3(pTHX_ char *cmd, int fd, int do_report)
 {
     register char **a;
     register char *s;
@@ -1164,7 +1165,7 @@ do_exec3(char *cmd, int fd, int do_report)
 #endif /* OS2 || WIN32 */
 
 I32
-apply(I32 type, register SV **mark, register SV **sp)
+Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp)
 {
     dTHR;
     register I32 val;
@@ -1366,7 +1367,7 @@ nothing in the core.
 /* Do the permissions allow some operation?  Assumes statcache already set. */
 #ifndef VMS /* VMS' cando is in vms.c */
 I32
-cando(I32 bit, I32 effective, register struct stat *statbufp)
+Perl_cando(pTHX_ I32 bit, I32 effective, register struct stat *statbufp)
 {
 #ifdef DOSISH
     /* [Comments and code from Len Reed]
@@ -1418,7 +1419,7 @@ cando(I32 bit, I32 effective, register struct stat *statbufp)
 #endif /* ! VMS */
 
 I32
-ingroup(I32 testgid, I32 effective)
+Perl_ingroup(pTHX_ I32 testgid, I32 effective)
 {
     if (testgid == (effective ? PL_egid : PL_gid))
        return TRUE;
@@ -1442,7 +1443,7 @@ ingroup(I32 testgid, I32 effective)
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 
 I32
-do_ipcget(I32 optype, SV **mark, SV **sp)
+Perl_do_ipcget(pTHX_ I32 optype, SV **mark, SV **sp)
 {
     dTHR;
     key_t key;
@@ -1475,7 +1476,7 @@ do_ipcget(I32 optype, SV **mark, SV **sp)
 }
 
 I32
-do_ipcctl(I32 optype, SV **mark, SV **sp)
+Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp)
 {
     dTHR;
     SV *astr;
@@ -1592,7 +1593,7 @@ do_ipcctl(I32 optype, SV **mark, SV **sp)
 }
 
 I32
-do_msgsnd(SV **mark, SV **sp)
+Perl_do_msgsnd(pTHX_ SV **mark, SV **sp)
 {
 #ifdef HAS_MSG
     dTHR;
@@ -1615,7 +1616,7 @@ do_msgsnd(SV **mark, SV **sp)
 }
 
 I32
-do_msgrcv(SV **mark, SV **sp)
+Perl_do_msgrcv(pTHX_ SV **mark, SV **sp)
 {
 #ifdef HAS_MSG
     dTHR;
@@ -1646,7 +1647,7 @@ do_msgrcv(SV **mark, SV **sp)
 }
 
 I32
-do_semop(SV **mark, SV **sp)
+Perl_do_semop(pTHX_ SV **mark, SV **sp)
 {
 #ifdef HAS_SEM
     dTHR;
@@ -1671,7 +1672,7 @@ do_semop(SV **mark, SV **sp)
 }
 
 I32
-do_shmio(I32 optype, SV **mark, SV **sp)
+Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
 {
 #ifdef HAS_SHM
     dTHR;
diff --git a/doop.c b/doop.c
index 0c9bb4f..7b5f751 100644 (file)
--- a/doop.c
+++ b/doop.c
  */
 
 #include "EXTERN.h"
+#define PERL_IN_DOOP_C
 #include "perl.h"
 
 #if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
 #include <signal.h>
 #endif
 
-#ifndef PERL_OBJECT
-static I32 do_trans_CC_simple (SV *sv);
-static I32 do_trans_CC_count (SV *sv);
-static I32 do_trans_CC_complex (SV *sv);
-static I32 do_trans_UU_simple (SV *sv);
-static I32 do_trans_UU_count (SV *sv);
-static I32 do_trans_UU_complex (SV *sv);
-static I32 do_trans_UC_simple (SV *sv);
-static I32 do_trans_CU_simple (SV *sv);
-static I32 do_trans_UC_trivial (SV *sv);
-static I32 do_trans_CU_trivial (SV *sv);
-#endif
-
 STATIC I32
-do_trans_CC_simple(SV *sv)
+do_trans_CC_simple(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -62,7 +50,7 @@ do_trans_CC_simple(SV *sv)
 }
 
 STATIC I32
-do_trans_CC_count(SV *sv)
+do_trans_CC_count(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -88,7 +76,7 @@ do_trans_CC_count(SV *sv)
 }
 
 STATIC I32
-do_trans_CC_complex(SV *sv)
+do_trans_CC_complex(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -145,7 +133,7 @@ do_trans_CC_complex(SV *sv)
 }
 
 STATIC I32
-do_trans_UU_simple(SV *sv)
+do_trans_UU_simple(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -197,7 +185,7 @@ do_trans_UU_simple(SV *sv)
 }
 
 STATIC I32
-do_trans_UU_count(SV *sv)
+do_trans_UU_count(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -224,7 +212,7 @@ do_trans_UU_count(SV *sv)
 }
 
 STATIC I32
-do_trans_UC_simple(SV *sv)
+do_trans_UC_simple(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -277,7 +265,7 @@ do_trans_UC_simple(SV *sv)
 }
 
 STATIC I32
-do_trans_CU_simple(SV *sv)
+do_trans_CU_simple(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -340,7 +328,7 @@ do_trans_CU_simple(SV *sv)
 /* utf-8 to latin-1 */
 
 STATIC I32
-do_trans_UC_trivial(SV *sv)
+do_trans_UC_trivial(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -372,7 +360,7 @@ do_trans_UC_trivial(SV *sv)
 /* latin-1 to utf-8 */
 
 STATIC I32
-do_trans_CU_trivial(SV *sv)
+do_trans_CU_trivial(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -406,7 +394,7 @@ do_trans_CU_trivial(SV *sv)
 }
 
 STATIC I32
-do_trans_UU_complex(SV *sv)
+do_trans_UU_complex(pTHX_ SV *sv)
 {
     dTHR;
     U8 *s;
@@ -591,7 +579,7 @@ do_trans_UU_complex(SV *sv)
 }
 
 I32
-do_trans(SV *sv)
+Perl_do_trans(pTHX_ SV *sv)
 {
     dTHR;
     STRLEN len;
@@ -642,7 +630,7 @@ do_trans(SV *sv)
 }
 
 void
-do_join(register SV *sv, SV *del, register SV **mark, register SV **sp)
+Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **sp)
 {
     SV **oldmark = mark;
     register I32 items = sp - mark;
@@ -697,7 +685,7 @@ do_join(register SV *sv, SV *del, register SV **mark, register SV **sp)
 }
 
 void
-do_sprintf(SV *sv, I32 len, SV **sarg)
+Perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg)
 {
     STRLEN patlen;
     char *pat = SvPV(*sarg, patlen);
@@ -710,7 +698,7 @@ do_sprintf(SV *sv, I32 len, SV **sarg)
 }
 
 void
-do_vecset(SV *sv)
+Perl_do_vecset(pTHX_ SV *sv)
 {
     SV *targ = LvTARG(sv);
     register I32 offset;
@@ -761,7 +749,7 @@ do_vecset(SV *sv)
 }
 
 void
-do_chop(register SV *astr, register SV *sv)
+Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
 {
     STRLEN len;
     char *s;
@@ -824,7 +812,7 @@ do_chop(register SV *astr, register SV *sv)
 } 
 
 I32
-do_chomp(register SV *sv)
+Perl_do_chomp(pTHX_ register SV *sv)
 {
     dTHR;
     register I32 count;
@@ -902,7 +890,7 @@ do_chomp(register SV *sv)
 } 
 
 void
-do_vop(I32 optype, SV *sv, SV *left, SV *right)
+Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
 {
     dTHR;      /* just for taint */
 #ifdef LIBERAL
@@ -1017,7 +1005,7 @@ do_vop(I32 optype, SV *sv, SV *left, SV *right)
 }
 
 OP *
-do_kv(ARGSproto)
+Perl_do_kv(pTHX_ ARGSproto)
 {
     djSP;
     HV *hv = (HV*)POPs;
diff --git a/dump.c b/dump.c
index cc6682a..063d296 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -13,6 +13,7 @@
  */
 
 #include "EXTERN.h"
+#define PERL_IN_DUMP_C
 #include "perl.h"
 
 #ifndef DBL_DIG
@@ -20,7 +21,7 @@
 #endif
 
 void
-dump_indent(I32 level, PerlIO *file, const char* pat, ...)
+Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
 {
     dTHR;
     va_list args;
@@ -32,7 +33,7 @@ dump_indent(I32 level, PerlIO *file, const char* pat, ...)
 }
 
 void
-dump_all(void)
+Perl_dump_all(pTHX)
 {
     dTHR;
     PerlIO_setlinebuf(Perl_debug_log);
@@ -42,7 +43,7 @@ dump_all(void)
 }
 
 void
-dump_packsubs(HV *stash)
+Perl_dump_packsubs(pTHX_ HV *stash)
 {
     dTHR;
     I32        i;
@@ -68,7 +69,7 @@ dump_packsubs(HV *stash)
 }
 
 void
-dump_sub(GV *gv)
+Perl_dump_sub(pTHX_ GV *gv)
 {
     SV *sv = sv_newmortal();
 
@@ -85,7 +86,7 @@ dump_sub(GV *gv)
 }
 
 void
-dump_form(GV *gv)
+Perl_dump_form(pTHX_ GV *gv)
 {
     SV *sv = sv_newmortal();
 
@@ -98,13 +99,13 @@ dump_form(GV *gv)
 }
 
 void
-dump_eval(void)
+Perl_dump_eval(pTHX)
 {
     op_dump(PL_eval_root);
 }
 
 char *
-pv_display(SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
+Perl_pv_display(pTHX_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
 {
     int truncated = 0;
     int nul_terminated = len > cur && pv[cur] == '\0';
@@ -143,7 +144,7 @@ pv_display(SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
 }
 
 char *
-sv_peek(SV *sv)
+Perl_sv_peek(pTHX_ SV *sv)
 {
     SV *t = sv_newmortal();
     STRLEN n_a;
@@ -297,7 +298,7 @@ sv_peek(SV *sv)
 }
 
 void
-do_pmop_dump(I32 level, PerlIO *file, PMOP *pm)
+Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm)
 {
     char ch;
 
@@ -357,13 +358,13 @@ do_pmop_dump(I32 level, PerlIO *file, PMOP *pm)
 }
 
 void
-pmop_dump(PMOP *pm)
+Perl_pmop_dump(pTHX_ PMOP *pm)
 {
     do_pmop_dump(0, Perl_debug_log, pm);
 }
 
 void
-do_op_dump(I32 level, PerlIO *file, OP *o)
+Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o)
 {
     dTHR;
     STRLEN n_a;
@@ -580,13 +581,13 @@ do_op_dump(I32 level, PerlIO *file, OP *o)
 }
 
 void
-op_dump(OP *o)
+Perl_op_dump(pTHX_ OP *o)
 {
     do_op_dump(0, Perl_debug_log, o);
 }
 
 void
-gv_dump(GV *gv)
+Perl_gv_dump(pTHX_ GV *gv)
 {
     SV *sv;
 
@@ -607,7 +608,7 @@ gv_dump(GV *gv)
 }
 
 void
-do_magic_dump(I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
+Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
 {
     for (; mg; mg = mg->mg_moremagic) {
        dump_indent(level, file, "  MAGIC = 0x%lx\n", (long)mg);
@@ -695,13 +696,13 @@ do_magic_dump(I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool du
 }
 
 void
-magic_dump(MAGIC *mg)
+Perl_magic_dump(pTHX_ MAGIC *mg)
 {
     do_magic_dump(0, Perl_debug_log, mg, 0, 0, 0, 0);
 }
 
 void
-do_hv_dump(I32 level, PerlIO *file, char *name, HV *sv)
+Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, char *name, HV *sv)
 {
     dump_indent(level, file, "%s = 0x%lx", name, (long)sv);
     if (sv && HvNAME(sv))
@@ -711,7 +712,7 @@ do_hv_dump(I32 level, PerlIO *file, char *name, HV *sv)
 }
 
 void
-do_gv_dump(I32 level, PerlIO *file, char *name, GV *sv)
+Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv)
 {
     dump_indent(level, file, "%s = 0x%lx", name, (long)sv);
     if (sv && GvNAME(sv))
@@ -721,7 +722,7 @@ do_gv_dump(I32 level, PerlIO *file, char *name, GV *sv)
 }
 
 void
-do_gvgv_dump(I32 level, PerlIO *file, char *name, GV *sv)
+Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv)
 {
     dump_indent(level, file, "%s = 0x%lx", name, (long)sv);
     if (sv && GvNAME(sv)) {
@@ -735,7 +736,7 @@ do_gvgv_dump(I32 level, PerlIO *file, char *name, GV *sv)
 }
 
 void
-do_sv_dump(I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
+Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
 {
     dTHR;
     SV *d = sv_newmortal();
@@ -1139,7 +1140,7 @@ do_sv_dump(I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops,
 }
 
 void
-sv_dump(SV *sv)
+Perl_sv_dump(pTHX_ SV *sv)
 {
     do_sv_dump(0, Perl_debug_log, sv, 0, 0, 0, 0);
 }
index 890bd08..14e3955 100644 (file)
--- a/ebcdic.c
+++ b/ebcdic.c
@@ -1,4 +1,5 @@
 #include "EXTERN.h"
+#define PERL_IN_EBCDIC_C
 #include "perl.h"
 
 /* in ASCII order, not that it matters */
diff --git a/embed.h b/embed.h
index c15013e..f7cf5bc 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -11,6 +11,8 @@
 
 #if !defined(PERL_OBJECT)
 
+#define ErrorNo                        Perl_ErrorNo
+#define GetVars                        Perl_GetVars
 #define Gv_AMupdate            Perl_Gv_AMupdate
 #define amagic_call            Perl_amagic_call
 #define append_elem            Perl_append_elem
 #define block_start            Perl_block_start
 #define boot_core_UNIVERSAL    Perl_boot_core_UNIVERSAL
 #define bset_obj_store         Perl_bset_obj_store
+#define call_argv              Perl_call_argv
+#define call_atexit            Perl_call_atexit
 #define call_list              Perl_call_list
+#define call_method            Perl_call_method
+#define call_pv                        Perl_call_pv
+#define call_sv                        Perl_call_sv
 #define cando                  Perl_cando
 #define cast_i32               Perl_cast_i32
 #define cast_iv                        Perl_cast_iv
 #define dump_mstats            Perl_dump_mstats
 #define dump_packsubs          Perl_dump_packsubs
 #define dump_sub               Perl_dump_sub
+#define eval_pv                        Perl_eval_pv
+#define eval_sv                        Perl_eval_sv
 #define fbm_compile            Perl_fbm_compile
 #define fbm_instr              Perl_fbm_instr
 #define filter_add             Perl_filter_add
 #define form                   Perl_form
 #define free_tmps              Perl_free_tmps
 #define gen_constant_list      Perl_gen_constant_list
+#define get_av                 Perl_get_av
+#define get_cv                 Perl_get_cv
+#define get_hv                 Perl_get_hv
 #define get_no_modify          Perl_get_no_modify
 #define get_op_descs           Perl_get_op_descs
 #define get_op_names           Perl_get_op_names
 #define get_opargs             Perl_get_opargs
+#define get_sv                 Perl_get_sv
 #define get_vtbl               Perl_get_vtbl
+#define getenv_len             Perl_getenv_len
 #define gp_free                        Perl_gp_free
 #define gp_ref                 Perl_gp_ref
 #define gv_AVadd               Perl_gv_AVadd
 #define ibcmp                  Perl_ibcmp
 #define ibcmp_locale           Perl_ibcmp_locale
 #define ingroup                        Perl_ingroup
+#define init_i18nl10n          Perl_init_i18nl10n
+#define init_i18nl14n          Perl_init_i18nl14n
 #define init_stacks            Perl_init_stacks
-#define init_thread_intern     Perl_init_thread_intern
 #define instr                  Perl_instr
 #define intro_my               Perl_intro_my
 #define invert                 Perl_invert
 #define newUNOP                        Perl_newUNOP
 #define newWHILEOP             Perl_newWHILEOP
 #define newXS                  Perl_newXS
+#define new_collate            Perl_new_collate
+#define new_ctype              Perl_new_ctype
+#define new_numeric            Perl_new_numeric
 #define new_stackinfo          Perl_new_stackinfo
 #define new_struct_thread      Perl_new_struct_thread
 #define nextargv               Perl_nextargv
 #define regnext                        Perl_regnext
 #define regprop                        Perl_regprop
 #define repeatcpy              Perl_repeatcpy
+#define require_pv             Perl_require_pv
 #define rninstr                        Perl_rninstr
 #define rsignal                        Perl_rsignal
 #define rsignal_restore                Perl_rsignal_restore
 #define scan_oct               Perl_scan_oct
 #define scope                  Perl_scope
 #define screaminstr            Perl_screaminstr
+#define set_numeric_local      Perl_set_numeric_local
+#define set_numeric_standard   Perl_set_numeric_standard
 #define setdefout              Perl_setdefout
 #define setenv_getix           Perl_setenv_getix
 #define share_hek              Perl_share_hek
 
 #else  /* PERL_OBJECT */
 
-#define Gv_AMupdate            CPerlObj::Perl_Gv_AMupdate
+#define Perl_ErrorNo           CPerlObj::Perl_ErrorNo
+#define Perl_GetVars           CPerlObj::Perl_GetVars
+#define Perl_Gv_AMupdate       CPerlObj::Perl_Gv_AMupdate
+#define Perl_amagic_call       CPerlObj::Perl_amagic_call
+#define Perl_append_elem       CPerlObj::Perl_append_elem
+#define Perl_append_list       CPerlObj::Perl_append_list
+#define Perl_apply             CPerlObj::Perl_apply
+#define Perl_assertref         CPerlObj::Perl_assertref
+#define Perl_av_clear          CPerlObj::Perl_av_clear
+#define Perl_av_extend         CPerlObj::Perl_av_extend
+#define Perl_av_fake           CPerlObj::Perl_av_fake
+#define Perl_av_fetch          CPerlObj::Perl_av_fetch
+#define Perl_av_fill           CPerlObj::Perl_av_fill
+#define Perl_av_len            CPerlObj::Perl_av_len
+#define Perl_av_make           CPerlObj::Perl_av_make
+#define Perl_av_pop            CPerlObj::Perl_av_pop
+#define Perl_av_push           CPerlObj::Perl_av_push
+#define Perl_av_reify          CPerlObj::Perl_av_reify
+#define Perl_av_shift          CPerlObj::Perl_av_shift
+#define Perl_av_store          CPerlObj::Perl_av_store
+#define Perl_av_undef          CPerlObj::Perl_av_undef
+#define Perl_av_unshift                CPerlObj::Perl_av_unshift
+#define Perl_avhv_exists_ent   CPerlObj::Perl_avhv_exists_ent
+#define Perl_avhv_fetch_ent    CPerlObj::Perl_avhv_fetch_ent
+#define Perl_avhv_iternext     CPerlObj::Perl_avhv_iternext
+#define Perl_avhv_iterval      CPerlObj::Perl_avhv_iterval
+#define Perl_avhv_keys         CPerlObj::Perl_avhv_keys
+#define Perl_bind_match                CPerlObj::Perl_bind_match
+#define Perl_block_end         CPerlObj::Perl_block_end
+#define Perl_block_gimme       CPerlObj::Perl_block_gimme
+#define Perl_block_start       CPerlObj::Perl_block_start
+#define Perl_boot_core_UNIVERSAL       CPerlObj::Perl_boot_core_UNIVERSAL
+#define Perl_bset_obj_store    CPerlObj::Perl_bset_obj_store
+#define Perl_call_argv         CPerlObj::Perl_call_argv
+#define Perl_call_atexit       CPerlObj::Perl_call_atexit
+#define Perl_call_list         CPerlObj::Perl_call_list
+#define Perl_call_method       CPerlObj::Perl_call_method
+#define Perl_call_pv           CPerlObj::Perl_call_pv
+#define Perl_call_sv           CPerlObj::Perl_call_sv
+#define Perl_cando             CPerlObj::Perl_cando
+#define Perl_cast_i32          CPerlObj::Perl_cast_i32
+#define Perl_cast_iv           CPerlObj::Perl_cast_iv
+#define Perl_cast_ulong                CPerlObj::Perl_cast_ulong
+#define Perl_cast_uv           CPerlObj::Perl_cast_uv
+#define Perl_ck_anoncode       CPerlObj::Perl_ck_anoncode
+#define Perl_ck_bitop          CPerlObj::Perl_ck_bitop
+#define Perl_ck_concat         CPerlObj::Perl_ck_concat
+#define Perl_ck_defined                CPerlObj::Perl_ck_defined
+#define Perl_ck_delete         CPerlObj::Perl_ck_delete
+#define Perl_ck_eof            CPerlObj::Perl_ck_eof
+#define Perl_ck_eval           CPerlObj::Perl_ck_eval
+#define Perl_ck_exec           CPerlObj::Perl_ck_exec
+#define Perl_ck_exists         CPerlObj::Perl_ck_exists
+#define Perl_ck_ftst           CPerlObj::Perl_ck_ftst
+#define Perl_ck_fun            CPerlObj::Perl_ck_fun
+#define Perl_ck_fun_locale     CPerlObj::Perl_ck_fun_locale
+#define Perl_ck_glob           CPerlObj::Perl_ck_glob
+#define Perl_ck_grep           CPerlObj::Perl_ck_grep
+#define Perl_ck_index          CPerlObj::Perl_ck_index
+#define Perl_ck_lengthconst    CPerlObj::Perl_ck_lengthconst
+#define Perl_ck_lfun           CPerlObj::Perl_ck_lfun
+#define Perl_ck_listiob                CPerlObj::Perl_ck_listiob
+#define Perl_ck_match          CPerlObj::Perl_ck_match
+#define Perl_ck_null           CPerlObj::Perl_ck_null
+#define Perl_ck_repeat         CPerlObj::Perl_ck_repeat
+#define Perl_ck_require                CPerlObj::Perl_ck_require
+#define Perl_ck_rfun           CPerlObj::Perl_ck_rfun
+#define Perl_ck_rvconst                CPerlObj::Perl_ck_rvconst
+#define Perl_ck_scmp           CPerlObj::Perl_ck_scmp
+#define Perl_ck_select         CPerlObj::Perl_ck_select
+#define Perl_ck_shift          CPerlObj::Perl_ck_shift
+#define Perl_ck_sort           CPerlObj::Perl_ck_sort
+#define Perl_ck_spair          CPerlObj::Perl_ck_spair
+#define Perl_ck_split          CPerlObj::Perl_ck_split
+#define Perl_ck_subr           CPerlObj::Perl_ck_subr
+#define Perl_ck_svconst                CPerlObj::Perl_ck_svconst
+#define Perl_ck_trunc          CPerlObj::Perl_ck_trunc
+#define Perl_condpair_magic    CPerlObj::Perl_condpair_magic
+#define Perl_convert           CPerlObj::Perl_convert
+#define Perl_croak             CPerlObj::Perl_croak
+#define Perl_cv_ckproto                CPerlObj::Perl_cv_ckproto
+#define Perl_cv_clone          CPerlObj::Perl_cv_clone
+#define Perl_cv_const_sv       CPerlObj::Perl_cv_const_sv
+#define Perl_cv_undef          CPerlObj::Perl_cv_undef
+#define Perl_cx_dump           CPerlObj::Perl_cx_dump
+#define Perl_cxinc             CPerlObj::Perl_cxinc
+#define Perl_deb               CPerlObj::Perl_deb
+#define Perl_deb_growlevel     CPerlObj::Perl_deb_growlevel
+#define Perl_debop             CPerlObj::Perl_debop
+#define Perl_debprofdump       CPerlObj::Perl_debprofdump
+#define Perl_debstack          CPerlObj::Perl_debstack
+#define Perl_debstackptrs      CPerlObj::Perl_debstackptrs
+#define Perl_default_protect   CPerlObj::Perl_default_protect
+#define Perl_delimcpy          CPerlObj::Perl_delimcpy
+#define Perl_deprecate         CPerlObj::Perl_deprecate
+#define Perl_die               CPerlObj::Perl_die
+#define Perl_die_where         CPerlObj::Perl_die_where
+#define Perl_do_aexec          CPerlObj::Perl_do_aexec
+#define Perl_do_binmode                CPerlObj::Perl_do_binmode
+#define Perl_do_chomp          CPerlObj::Perl_do_chomp
+#define Perl_do_chop           CPerlObj::Perl_do_chop
+#define Perl_do_close          CPerlObj::Perl_do_close
+#define Perl_do_eof            CPerlObj::Perl_do_eof
+#define Perl_do_exec           CPerlObj::Perl_do_exec
+#define Perl_do_exec3          CPerlObj::Perl_do_exec3
+#define Perl_do_execfree       CPerlObj::Perl_do_execfree
+#define Perl_do_gv_dump                CPerlObj::Perl_do_gv_dump
+#define Perl_do_gvgv_dump      CPerlObj::Perl_do_gvgv_dump
+#define Perl_do_hv_dump                CPerlObj::Perl_do_hv_dump
+#define Perl_do_ipcctl         CPerlObj::Perl_do_ipcctl
+#define Perl_do_ipcget         CPerlObj::Perl_do_ipcget
+#define Perl_do_join           CPerlObj::Perl_do_join
+#define Perl_do_kv             CPerlObj::Perl_do_kv
+#define Perl_do_magic_dump     CPerlObj::Perl_do_magic_dump
+#define Perl_do_msgrcv         CPerlObj::Perl_do_msgrcv
+#define Perl_do_msgsnd         CPerlObj::Perl_do_msgsnd
+#define Perl_do_op_dump                CPerlObj::Perl_do_op_dump
+#define Perl_do_open           CPerlObj::Perl_do_open
+#define Perl_do_pipe           CPerlObj::Perl_do_pipe
+#define Perl_do_pmop_dump      CPerlObj::Perl_do_pmop_dump
+#define Perl_do_print          CPerlObj::Perl_do_print
+#define Perl_do_readline       CPerlObj::Perl_do_readline
+#define Perl_do_seek           CPerlObj::Perl_do_seek
+#define Perl_do_semop          CPerlObj::Perl_do_semop
+#define Perl_do_shmio          CPerlObj::Perl_do_shmio
+#define Perl_do_sprintf                CPerlObj::Perl_do_sprintf
+#define Perl_do_sv_dump                CPerlObj::Perl_do_sv_dump
+#define Perl_do_sysseek                CPerlObj::Perl_do_sysseek
+#define Perl_do_tell           CPerlObj::Perl_do_tell
+#define Perl_do_trans          CPerlObj::Perl_do_trans
+#define Perl_do_vecset         CPerlObj::Perl_do_vecset
+#define Perl_do_vop            CPerlObj::Perl_do_vop
+#define Perl_dofile            CPerlObj::Perl_dofile
+#define Perl_dounwind          CPerlObj::Perl_dounwind
+#define Perl_dowantarray       CPerlObj::Perl_dowantarray
+#define Perl_dump_all          CPerlObj::Perl_dump_all
+#define Perl_dump_eval         CPerlObj::Perl_dump_eval
+#define Perl_dump_fds          CPerlObj::Perl_dump_fds
+#define Perl_dump_form         CPerlObj::Perl_dump_form
+#define Perl_dump_indent       CPerlObj::Perl_dump_indent
+#define Perl_dump_mstats       CPerlObj::Perl_dump_mstats
+#define Perl_dump_packsubs     CPerlObj::Perl_dump_packsubs
+#define Perl_dump_sub          CPerlObj::Perl_dump_sub
+#define Perl_eval_pv           CPerlObj::Perl_eval_pv
+#define Perl_eval_sv           CPerlObj::Perl_eval_sv
+#define Perl_fbm_compile       CPerlObj::Perl_fbm_compile
+#define Perl_fbm_instr         CPerlObj::Perl_fbm_instr
+#define Perl_filter_add                CPerlObj::Perl_filter_add
+#define Perl_filter_del                CPerlObj::Perl_filter_del
+#define Perl_filter_read       CPerlObj::Perl_filter_read
+#define Perl_find_script       CPerlObj::Perl_find_script
+#define Perl_find_threadsv     CPerlObj::Perl_find_threadsv
+#define Perl_fold_constants    CPerlObj::Perl_fold_constants
+#define Perl_force_list                CPerlObj::Perl_force_list
+#define Perl_form              CPerlObj::Perl_form
+#define Perl_free_tmps         CPerlObj::Perl_free_tmps
+#define Perl_gen_constant_list CPerlObj::Perl_gen_constant_list
+#define Perl_get_av            CPerlObj::Perl_get_av
+#define Perl_get_cv            CPerlObj::Perl_get_cv
+#define Perl_get_hv            CPerlObj::Perl_get_hv
+#define Perl_get_no_modify     CPerlObj::Perl_get_no_modify
+#define Perl_get_op_descs      CPerlObj::Perl_get_op_descs
+#define Perl_get_op_names      CPerlObj::Perl_get_op_names
+#define Perl_get_opargs                CPerlObj::Perl_get_opargs
+#define Perl_get_sv            CPerlObj::Perl_get_sv
+#define Perl_get_vtbl          CPerlObj::Perl_get_vtbl
+#define Perl_getenv_len                CPerlObj::Perl_getenv_len
+#define Perl_gp_free           CPerlObj::Perl_gp_free
+#define Perl_gp_ref            CPerlObj::Perl_gp_ref
+#define Perl_gv_AVadd          CPerlObj::Perl_gv_AVadd
+#define Perl_gv_HVadd          CPerlObj::Perl_gv_HVadd
+#define Perl_gv_IOadd          CPerlObj::Perl_gv_IOadd
+#define Perl_gv_autoload4      CPerlObj::Perl_gv_autoload4
+#define Perl_gv_check          CPerlObj::Perl_gv_check
+#define Perl_gv_dump           CPerlObj::Perl_gv_dump
+#define Perl_gv_efullname      CPerlObj::Perl_gv_efullname
+#define Perl_gv_efullname3     CPerlObj::Perl_gv_efullname3
+#define Perl_gv_fetchfile      CPerlObj::Perl_gv_fetchfile
+#define Perl_gv_fetchmeth      CPerlObj::Perl_gv_fetchmeth
+#define Perl_gv_fetchmethod    CPerlObj::Perl_gv_fetchmethod
+#define Perl_gv_fetchmethod_autoload   CPerlObj::Perl_gv_fetchmethod_autoload
+#define Perl_gv_fetchpv                CPerlObj::Perl_gv_fetchpv
+#define Perl_gv_fullname       CPerlObj::Perl_gv_fullname
+#define Perl_gv_fullname3      CPerlObj::Perl_gv_fullname3
+#define Perl_gv_init           CPerlObj::Perl_gv_init
+#define Perl_gv_stashpv                CPerlObj::Perl_gv_stashpv
+#define Perl_gv_stashpvn       CPerlObj::Perl_gv_stashpvn
+#define Perl_gv_stashsv                CPerlObj::Perl_gv_stashsv
+#define Perl_hv_clear          CPerlObj::Perl_hv_clear
+#define Perl_hv_delayfree_ent  CPerlObj::Perl_hv_delayfree_ent
+#define Perl_hv_delete         CPerlObj::Perl_hv_delete
+#define Perl_hv_delete_ent     CPerlObj::Perl_hv_delete_ent
+#define Perl_hv_exists         CPerlObj::Perl_hv_exists
+#define Perl_hv_exists_ent     CPerlObj::Perl_hv_exists_ent
+#define Perl_hv_fetch          CPerlObj::Perl_hv_fetch
+#define Perl_hv_fetch_ent      CPerlObj::Perl_hv_fetch_ent
+#define Perl_hv_free_ent       CPerlObj::Perl_hv_free_ent
+#define Perl_hv_iterinit       CPerlObj::Perl_hv_iterinit
+#define Perl_hv_iterkey                CPerlObj::Perl_hv_iterkey
+#define Perl_hv_iterkeysv      CPerlObj::Perl_hv_iterkeysv
+#define Perl_hv_iternext       CPerlObj::Perl_hv_iternext
+#define Perl_hv_iternextsv     CPerlObj::Perl_hv_iternextsv
+#define Perl_hv_iterval                CPerlObj::Perl_hv_iterval
+#define Perl_hv_ksplit         CPerlObj::Perl_hv_ksplit
+#define Perl_hv_magic          CPerlObj::Perl_hv_magic
+#define Perl_hv_store          CPerlObj::Perl_hv_store
+#define Perl_hv_store_ent      CPerlObj::Perl_hv_store_ent
+#define Perl_hv_undef          CPerlObj::Perl_hv_undef
+#define Perl_ibcmp             CPerlObj::Perl_ibcmp
+#define Perl_ibcmp_locale      CPerlObj::Perl_ibcmp_locale
+#define Perl_ingroup           CPerlObj::Perl_ingroup
+#define Perl_init_i18nl10n     CPerlObj::Perl_init_i18nl10n
+#define Perl_init_i18nl14n     CPerlObj::Perl_init_i18nl14n
+#define Perl_init_stacks       CPerlObj::Perl_init_stacks
+#define Perl_instr             CPerlObj::Perl_instr
+#define Perl_intro_my          CPerlObj::Perl_intro_my
+#define Perl_invert            CPerlObj::Perl_invert
+#define Perl_io_close          CPerlObj::Perl_io_close
+#define Perl_is_uni_alnum      CPerlObj::Perl_is_uni_alnum
+#define Perl_is_uni_alnum_lc   CPerlObj::Perl_is_uni_alnum_lc
+#define Perl_is_uni_alpha      CPerlObj::Perl_is_uni_alpha
+#define Perl_is_uni_alpha_lc   CPerlObj::Perl_is_uni_alpha_lc
+#define Perl_is_uni_digit      CPerlObj::Perl_is_uni_digit
+#define Perl_is_uni_digit_lc   CPerlObj::Perl_is_uni_digit_lc
+#define Perl_is_uni_idfirst    CPerlObj::Perl_is_uni_idfirst
+#define Perl_is_uni_idfirst_lc CPerlObj::Perl_is_uni_idfirst_lc
+#define Perl_is_uni_lower      CPerlObj::Perl_is_uni_lower
+#define Perl_is_uni_lower_lc   CPerlObj::Perl_is_uni_lower_lc
+#define Perl_is_uni_print      CPerlObj::Perl_is_uni_print
+#define Perl_is_uni_print_lc   CPerlObj::Perl_is_uni_print_lc
+#define Perl_is_uni_space      CPerlObj::Perl_is_uni_space
+#define Perl_is_uni_space_lc   CPerlObj::Perl_is_uni_space_lc
+#define Perl_is_uni_upper      CPerlObj::Perl_is_uni_upper
+#define Perl_is_uni_upper_lc   CPerlObj::Perl_is_uni_upper_lc
+#define Perl_is_utf8_alnum     CPerlObj::Perl_is_utf8_alnum
+#define Perl_is_utf8_alpha     CPerlObj::Perl_is_utf8_alpha
+#define Perl_is_utf8_digit     CPerlObj::Perl_is_utf8_digit
+#define Perl_is_utf8_idfirst   CPerlObj::Perl_is_utf8_idfirst
+#define Perl_is_utf8_lower     CPerlObj::Perl_is_utf8_lower
+#define Perl_is_utf8_mark      CPerlObj::Perl_is_utf8_mark
+#define Perl_is_utf8_print     CPerlObj::Perl_is_utf8_print
+#define Perl_is_utf8_space     CPerlObj::Perl_is_utf8_space
+#define Perl_is_utf8_upper     CPerlObj::Perl_is_utf8_upper
+#define Perl_jmaybe            CPerlObj::Perl_jmaybe
+#define Perl_keyword           CPerlObj::Perl_keyword
+#define Perl_leave_scope       CPerlObj::Perl_leave_scope
+#define Perl_lex_end           CPerlObj::Perl_lex_end
+#define Perl_lex_start         CPerlObj::Perl_lex_start
+#define Perl_linklist          CPerlObj::Perl_linklist
+#define Perl_list              CPerlObj::Perl_list
+#define Perl_listkids          CPerlObj::Perl_listkids
+#define Perl_localize          CPerlObj::Perl_localize
+#define Perl_looks_like_number CPerlObj::Perl_looks_like_number
+#define Perl_magic_clear_all_env       CPerlObj::Perl_magic_clear_all_env
+#define Perl_magic_clearenv    CPerlObj::Perl_magic_clearenv
+#define Perl_magic_clearpack   CPerlObj::Perl_magic_clearpack
+#define Perl_magic_clearsig    CPerlObj::Perl_magic_clearsig
+#define Perl_magic_dump                CPerlObj::Perl_magic_dump
+#define Perl_magic_existspack  CPerlObj::Perl_magic_existspack
+#define Perl_magic_freeregexp  CPerlObj::Perl_magic_freeregexp
+#define Perl_magic_get         CPerlObj::Perl_magic_get
+#define Perl_magic_getarylen   CPerlObj::Perl_magic_getarylen
+#define Perl_magic_getdefelem  CPerlObj::Perl_magic_getdefelem
+#define Perl_magic_getglob     CPerlObj::Perl_magic_getglob
+#define Perl_magic_getnkeys    CPerlObj::Perl_magic_getnkeys
+#define Perl_magic_getpack     CPerlObj::Perl_magic_getpack
+#define Perl_magic_getpos      CPerlObj::Perl_magic_getpos
+#define Perl_magic_getsig      CPerlObj::Perl_magic_getsig
+#define Perl_magic_getsubstr   CPerlObj::Perl_magic_getsubstr
+#define Perl_magic_gettaint    CPerlObj::Perl_magic_gettaint
+#define Perl_magic_getuvar     CPerlObj::Perl_magic_getuvar
+#define Perl_magic_getvec      CPerlObj::Perl_magic_getvec
+#define Perl_magic_killbackrefs        CPerlObj::Perl_magic_killbackrefs
+#define Perl_magic_len         CPerlObj::Perl_magic_len
+#define Perl_magic_mutexfree   CPerlObj::Perl_magic_mutexfree
+#define Perl_magic_nextpack    CPerlObj::Perl_magic_nextpack
+#define Perl_magic_regdata_cnt CPerlObj::Perl_magic_regdata_cnt
+#define Perl_magic_regdatum_get        CPerlObj::Perl_magic_regdatum_get
+#define Perl_magic_set         CPerlObj::Perl_magic_set
+#define Perl_magic_set_all_env CPerlObj::Perl_magic_set_all_env
+#define Perl_magic_setamagic   CPerlObj::Perl_magic_setamagic
+#define Perl_magic_setarylen   CPerlObj::Perl_magic_setarylen
+#define Perl_magic_setbm       CPerlObj::Perl_magic_setbm
+#define Perl_magic_setcollxfrm CPerlObj::Perl_magic_setcollxfrm
+#define Perl_magic_setdbline   CPerlObj::Perl_magic_setdbline
+#define Perl_magic_setdefelem  CPerlObj::Perl_magic_setdefelem
+#define Perl_magic_setenv      CPerlObj::Perl_magic_setenv
+#define Perl_magic_setfm       CPerlObj::Perl_magic_setfm
+#define Perl_magic_setglob     CPerlObj::Perl_magic_setglob
+#define Perl_magic_setisa      CPerlObj::Perl_magic_setisa
+#define Perl_magic_setmglob    CPerlObj::Perl_magic_setmglob
+#define Perl_magic_setnkeys    CPerlObj::Perl_magic_setnkeys
+#define Perl_magic_setpack     CPerlObj::Perl_magic_setpack
+#define Perl_magic_setpos      CPerlObj::Perl_magic_setpos
+#define Perl_magic_setsig      CPerlObj::Perl_magic_setsig
+#define Perl_magic_setsubstr   CPerlObj::Perl_magic_setsubstr
+#define Perl_magic_settaint    CPerlObj::Perl_magic_settaint
+#define Perl_magic_setuvar     CPerlObj::Perl_magic_setuvar
+#define Perl_magic_setvec      CPerlObj::Perl_magic_setvec
+#define Perl_magic_sizepack    CPerlObj::Perl_magic_sizepack
+#define Perl_magic_wipepack    CPerlObj::Perl_magic_wipepack
+#define Perl_magicname         CPerlObj::Perl_magicname
+#define Perl_malloced_size     CPerlObj::Perl_malloced_size
+#define Perl_markstack_grow    CPerlObj::Perl_markstack_grow
+#define Perl_mem_collxfrm      CPerlObj::Perl_mem_collxfrm
+#define Perl_mess              CPerlObj::Perl_mess
+#define Perl_mg_clear          CPerlObj::Perl_mg_clear
+#define Perl_mg_copy           CPerlObj::Perl_mg_copy
+#define Perl_mg_find           CPerlObj::Perl_mg_find
+#define Perl_mg_free           CPerlObj::Perl_mg_free
+#define Perl_mg_get            CPerlObj::Perl_mg_get
+#define Perl_mg_length         CPerlObj::Perl_mg_length
+#define Perl_mg_magical                CPerlObj::Perl_mg_magical
+#define Perl_mg_set            CPerlObj::Perl_mg_set
+#define Perl_mg_size           CPerlObj::Perl_mg_size
+#define Perl_mod               CPerlObj::Perl_mod
+#define Perl_moreswitches      CPerlObj::Perl_moreswitches
+#define Perl_my                        CPerlObj::Perl_my
+#define Perl_my_bcopy          CPerlObj::Perl_my_bcopy
+#define Perl_my_bzero          CPerlObj::Perl_my_bzero
+#define Perl_my_chsize         CPerlObj::Perl_my_chsize
+#define Perl_my_exit           CPerlObj::Perl_my_exit
+#define Perl_my_failure_exit   CPerlObj::Perl_my_failure_exit
+#define Perl_my_fflush_all     CPerlObj::Perl_my_fflush_all
+#define Perl_my_htonl          CPerlObj::Perl_my_htonl
+#define Perl_my_lstat          CPerlObj::Perl_my_lstat
+#define Perl_my_memcmp         CPerlObj::Perl_my_memcmp
+#define Perl_my_memset         CPerlObj::Perl_my_memset
+#define Perl_my_ntohl          CPerlObj::Perl_my_ntohl
+#define Perl_my_pclose         CPerlObj::Perl_my_pclose
+#define Perl_my_popen          CPerlObj::Perl_my_popen
+#define Perl_my_setenv         CPerlObj::Perl_my_setenv
+#define Perl_my_stat           CPerlObj::Perl_my_stat
+#define Perl_my_swap           CPerlObj::Perl_my_swap
+#define Perl_my_unexec         CPerlObj::Perl_my_unexec
+#define Perl_newANONHASH       CPerlObj::Perl_newANONHASH
+#define Perl_newANONLIST       CPerlObj::Perl_newANONLIST
+#define Perl_newANONSUB                CPerlObj::Perl_newANONSUB
+#define Perl_newASSIGNOP       CPerlObj::Perl_newASSIGNOP
+#define Perl_newAV             CPerlObj::Perl_newAV
+#define Perl_newAVREF          CPerlObj::Perl_newAVREF
+#define Perl_newBINOP          CPerlObj::Perl_newBINOP
+#define Perl_newCONDOP         CPerlObj::Perl_newCONDOP
+#define Perl_newCONSTSUB       CPerlObj::Perl_newCONSTSUB
+#define Perl_newCVREF          CPerlObj::Perl_newCVREF
+#define Perl_newFORM           CPerlObj::Perl_newFORM
+#define Perl_newFOROP          CPerlObj::Perl_newFOROP
+#define Perl_newGVOP           CPerlObj::Perl_newGVOP
+#define Perl_newGVREF          CPerlObj::Perl_newGVREF
+#define Perl_newGVgen          CPerlObj::Perl_newGVgen
+#define Perl_newHV             CPerlObj::Perl_newHV
+#define Perl_newHVREF          CPerlObj::Perl_newHVREF
+#define Perl_newHVhv           CPerlObj::Perl_newHVhv
+#define Perl_newIO             CPerlObj::Perl_newIO
+#define Perl_newLISTOP         CPerlObj::Perl_newLISTOP
+#define Perl_newLOGOP          CPerlObj::Perl_newLOGOP
+#define Perl_newLOOPEX         CPerlObj::Perl_newLOOPEX
+#define Perl_newLOOPOP         CPerlObj::Perl_newLOOPOP
+#define Perl_newNULLLIST       CPerlObj::Perl_newNULLLIST
+#define Perl_newOP             CPerlObj::Perl_newOP
+#define Perl_newPMOP           CPerlObj::Perl_newPMOP
+#define Perl_newPROG           CPerlObj::Perl_newPROG
+#define Perl_newPVOP           CPerlObj::Perl_newPVOP
+#define Perl_newRANGE          CPerlObj::Perl_newRANGE
+#define Perl_newRV             CPerlObj::Perl_newRV
+#define Perl_newRV_noinc       CPerlObj::Perl_newRV_noinc
+#define Perl_newSLICEOP                CPerlObj::Perl_newSLICEOP
+#define Perl_newSTATEOP                CPerlObj::Perl_newSTATEOP
+#define Perl_newSUB            CPerlObj::Perl_newSUB
+#define Perl_newSV             CPerlObj::Perl_newSV
+#define Perl_newSVOP           CPerlObj::Perl_newSVOP
+#define Perl_newSVREF          CPerlObj::Perl_newSVREF
+#define Perl_newSViv           CPerlObj::Perl_newSViv
+#define Perl_newSVnv           CPerlObj::Perl_newSVnv
+#define Perl_newSVpv           CPerlObj::Perl_newSVpv
+#define Perl_newSVpvf          CPerlObj::Perl_newSVpvf
+#define Perl_newSVpvn          CPerlObj::Perl_newSVpvn
+#define Perl_newSVrv           CPerlObj::Perl_newSVrv
+#define Perl_newSVsv           CPerlObj::Perl_newSVsv
+#define Perl_newUNOP           CPerlObj::Perl_newUNOP
+#define Perl_newWHILEOP                CPerlObj::Perl_newWHILEOP
+#define Perl_newXS             CPerlObj::Perl_newXS
+#define Perl_new_collate       CPerlObj::Perl_new_collate
+#define Perl_new_ctype         CPerlObj::Perl_new_ctype
+#define Perl_new_numeric       CPerlObj::Perl_new_numeric
+#define Perl_new_stackinfo     CPerlObj::Perl_new_stackinfo
+#define Perl_new_struct_thread CPerlObj::Perl_new_struct_thread
+#define Perl_nextargv          CPerlObj::Perl_nextargv
+#define Perl_ninstr            CPerlObj::Perl_ninstr
+#define Perl_oopsAV            CPerlObj::Perl_oopsAV
+#define Perl_oopsCV            CPerlObj::Perl_oopsCV
+#define Perl_oopsHV            CPerlObj::Perl_oopsHV
+#define Perl_op_const_sv       CPerlObj::Perl_op_const_sv
+#define Perl_op_dump           CPerlObj::Perl_op_dump
+#define Perl_op_free           CPerlObj::Perl_op_free
+#define Perl_package           CPerlObj::Perl_package
+#define Perl_pad_alloc         CPerlObj::Perl_pad_alloc
+#define Perl_pad_allocmy       CPerlObj::Perl_pad_allocmy
+#define Perl_pad_findmy                CPerlObj::Perl_pad_findmy
+#define Perl_pad_free          CPerlObj::Perl_pad_free
+#define Perl_pad_leavemy       CPerlObj::Perl_pad_leavemy
+#define Perl_pad_reset         CPerlObj::Perl_pad_reset
+#define Perl_pad_sv            CPerlObj::Perl_pad_sv
+#define Perl_pad_swipe         CPerlObj::Perl_pad_swipe
+#define Perl_peep              CPerlObj::Perl_peep
+#define Perl_pidgone           CPerlObj::Perl_pidgone
+#define Perl_pmflag            CPerlObj::Perl_pmflag
+#define Perl_pmop_dump         CPerlObj::Perl_pmop_dump
+#define Perl_pmruntime         CPerlObj::Perl_pmruntime
+#define Perl_pmtrans           CPerlObj::Perl_pmtrans
+#define Perl_pop_return                CPerlObj::Perl_pop_return
+#define Perl_pop_scope         CPerlObj::Perl_pop_scope
+#define Perl_pp_aassign                CPerlObj::Perl_pp_aassign
+#define Perl_pp_abs            CPerlObj::Perl_pp_abs
+#define Perl_pp_accept         CPerlObj::Perl_pp_accept
+#define Perl_pp_add            CPerlObj::Perl_pp_add
+#define Perl_pp_aelem          CPerlObj::Perl_pp_aelem
+#define Perl_pp_aelemfast      CPerlObj::Perl_pp_aelemfast
+#define Perl_pp_alarm          CPerlObj::Perl_pp_alarm
+#define Perl_pp_and            CPerlObj::Perl_pp_and
+#define Perl_pp_andassign      CPerlObj::Perl_pp_andassign
+#define Perl_pp_anoncode       CPerlObj::Perl_pp_anoncode
+#define Perl_pp_anonhash       CPerlObj::Perl_pp_anonhash
+#define Perl_pp_anonlist       CPerlObj::Perl_pp_anonlist
+#define Perl_pp_aslice         CPerlObj::Perl_pp_aslice
+#define Perl_pp_atan2          CPerlObj::Perl_pp_atan2
+#define Perl_pp_av2arylen      CPerlObj::Perl_pp_av2arylen
+#define Perl_pp_backtick       CPerlObj::Perl_pp_backtick
+#define Perl_pp_bind           CPerlObj::Perl_pp_bind
+#define Perl_pp_binmode                CPerlObj::Perl_pp_binmode
+#define Perl_pp_bit_and                CPerlObj::Perl_pp_bit_and
+#define Perl_pp_bit_or         CPerlObj::Perl_pp_bit_or
+#define Perl_pp_bit_xor                CPerlObj::Perl_pp_bit_xor
+#define Perl_pp_bless          CPerlObj::Perl_pp_bless
+#define Perl_pp_caller         CPerlObj::Perl_pp_caller
+#define Perl_pp_chdir          CPerlObj::Perl_pp_chdir
+#define Perl_pp_chmod          CPerlObj::Perl_pp_chmod
+#define Perl_pp_chomp          CPerlObj::Perl_pp_chomp
+#define Perl_pp_chop           CPerlObj::Perl_pp_chop
+#define Perl_pp_chown          CPerlObj::Perl_pp_chown
+#define Perl_pp_chr            CPerlObj::Perl_pp_chr
+#define Perl_pp_chroot         CPerlObj::Perl_pp_chroot
+#define Perl_pp_close          CPerlObj::Perl_pp_close
+#define Perl_pp_closedir       CPerlObj::Perl_pp_closedir
+#define Perl_pp_complement     CPerlObj::Perl_pp_complement
+#define Perl_pp_concat         CPerlObj::Perl_pp_concat
+#define Perl_pp_cond_expr      CPerlObj::Perl_pp_cond_expr
+#define Perl_pp_connect                CPerlObj::Perl_pp_connect
+#define Perl_pp_const          CPerlObj::Perl_pp_const
+#define Perl_pp_cos            CPerlObj::Perl_pp_cos
+#define Perl_pp_crypt          CPerlObj::Perl_pp_crypt
+#define Perl_pp_dbmclose       CPerlObj::Perl_pp_dbmclose
+#define Perl_pp_dbmopen                CPerlObj::Perl_pp_dbmopen
+#define Perl_pp_dbstate                CPerlObj::Perl_pp_dbstate
+#define Perl_pp_defined                CPerlObj::Perl_pp_defined
+#define Perl_pp_delete         CPerlObj::Perl_pp_delete
+#define Perl_pp_die            CPerlObj::Perl_pp_die
+#define Perl_pp_divide         CPerlObj::Perl_pp_divide
+#define Perl_pp_dofile         CPerlObj::Perl_pp_dofile
+#define Perl_pp_dump           CPerlObj::Perl_pp_dump
+#define Perl_pp_each           CPerlObj::Perl_pp_each
+#define Perl_pp_egrent         CPerlObj::Perl_pp_egrent
+#define Perl_pp_ehostent       CPerlObj::Perl_pp_ehostent
+#define Perl_pp_enetent                CPerlObj::Perl_pp_enetent
+#define Perl_pp_enter          CPerlObj::Perl_pp_enter
+#define Perl_pp_entereval      CPerlObj::Perl_pp_entereval
+#define Perl_pp_enteriter      CPerlObj::Perl_pp_enteriter
+#define Perl_pp_enterloop      CPerlObj::Perl_pp_enterloop
+#define Perl_pp_entersub       CPerlObj::Perl_pp_entersub
+#define Perl_pp_entertry       CPerlObj::Perl_pp_entertry
+#define Perl_pp_enterwrite     CPerlObj::Perl_pp_enterwrite
+#define Perl_pp_eof            CPerlObj::Perl_pp_eof
+#define Perl_pp_eprotoent      CPerlObj::Perl_pp_eprotoent
+#define Perl_pp_epwent         CPerlObj::Perl_pp_epwent
+#define Perl_pp_eq             CPerlObj::Perl_pp_eq
+#define Perl_pp_eservent       CPerlObj::Perl_pp_eservent
+#define Perl_pp_exec           CPerlObj::Perl_pp_exec
+#define Perl_pp_exists         CPerlObj::Perl_pp_exists
+#define Perl_pp_exit           CPerlObj::Perl_pp_exit
+#define Perl_pp_exp            CPerlObj::Perl_pp_exp
+#define Perl_pp_fcntl          CPerlObj::Perl_pp_fcntl
+#define Perl_pp_fileno         CPerlObj::Perl_pp_fileno
+#define Perl_pp_flip           CPerlObj::Perl_pp_flip
+#define Perl_pp_flock          CPerlObj::Perl_pp_flock
+#define Perl_pp_flop           CPerlObj::Perl_pp_flop
+#define Perl_pp_fork           CPerlObj::Perl_pp_fork
+#define Perl_pp_formline       CPerlObj::Perl_pp_formline
+#define Perl_pp_ftatime                CPerlObj::Perl_pp_ftatime
+#define Perl_pp_ftbinary       CPerlObj::Perl_pp_ftbinary
+#define Perl_pp_ftblk          CPerlObj::Perl_pp_ftblk
+#define Perl_pp_ftchr          CPerlObj::Perl_pp_ftchr
+#define Perl_pp_ftctime                CPerlObj::Perl_pp_ftctime
+#define Perl_pp_ftdir          CPerlObj::Perl_pp_ftdir
+#define Perl_pp_fteexec                CPerlObj::Perl_pp_fteexec
+#define Perl_pp_fteowned       CPerlObj::Perl_pp_fteowned
+#define Perl_pp_fteread                CPerlObj::Perl_pp_fteread
+#define Perl_pp_ftewrite       CPerlObj::Perl_pp_ftewrite
+#define Perl_pp_ftfile         CPerlObj::Perl_pp_ftfile
+#define Perl_pp_ftis           CPerlObj::Perl_pp_ftis
+#define Perl_pp_ftlink         CPerlObj::Perl_pp_ftlink
+#define Perl_pp_ftmtime                CPerlObj::Perl_pp_ftmtime
+#define Perl_pp_ftpipe         CPerlObj::Perl_pp_ftpipe
+#define Perl_pp_ftrexec                CPerlObj::Perl_pp_ftrexec
+#define Perl_pp_ftrowned       CPerlObj::Perl_pp_ftrowned
+#define Perl_pp_ftrread                CPerlObj::Perl_pp_ftrread
+#define Perl_pp_ftrwrite       CPerlObj::Perl_pp_ftrwrite
+#define Perl_pp_ftsgid         CPerlObj::Perl_pp_ftsgid
+#define Perl_pp_ftsize         CPerlObj::Perl_pp_ftsize
+#define Perl_pp_ftsock         CPerlObj::Perl_pp_ftsock
+#define Perl_pp_ftsuid         CPerlObj::Perl_pp_ftsuid
+#define Perl_pp_ftsvtx         CPerlObj::Perl_pp_ftsvtx
+#define Perl_pp_fttext         CPerlObj::Perl_pp_fttext
+#define Perl_pp_fttty          CPerlObj::Perl_pp_fttty
+#define Perl_pp_ftzero         CPerlObj::Perl_pp_ftzero
+#define Perl_pp_ge             CPerlObj::Perl_pp_ge
+#define Perl_pp_gelem          CPerlObj::Perl_pp_gelem
+#define Perl_pp_getc           CPerlObj::Perl_pp_getc
+#define Perl_pp_getlogin       CPerlObj::Perl_pp_getlogin
+#define Perl_pp_getpeername    CPerlObj::Perl_pp_getpeername
+#define Perl_pp_getpgrp                CPerlObj::Perl_pp_getpgrp
+#define Perl_pp_getppid                CPerlObj::Perl_pp_getppid
+#define Perl_pp_getpriority    CPerlObj::Perl_pp_getpriority
+#define Perl_pp_getsockname    CPerlObj::Perl_pp_getsockname
+#define Perl_pp_ggrent         CPerlObj::Perl_pp_ggrent
+#define Perl_pp_ggrgid         CPerlObj::Perl_pp_ggrgid
+#define Perl_pp_ggrnam         CPerlObj::Perl_pp_ggrnam
+#define Perl_pp_ghbyaddr       CPerlObj::Perl_pp_ghbyaddr
+#define Perl_pp_ghbyname       CPerlObj::Perl_pp_ghbyname
+#define Perl_pp_ghostent       CPerlObj::Perl_pp_ghostent
+#define Perl_pp_glob           CPerlObj::Perl_pp_glob
+#define Perl_pp_gmtime         CPerlObj::Perl_pp_gmtime
+#define Perl_pp_gnbyaddr       CPerlObj::Perl_pp_gnbyaddr
+#define Perl_pp_gnbyname       CPerlObj::Perl_pp_gnbyname
+#define Perl_pp_gnetent                CPerlObj::Perl_pp_gnetent
+#define Perl_pp_goto           CPerlObj::Perl_pp_goto
+#define Perl_pp_gpbyname       CPerlObj::Perl_pp_gpbyname
+#define Perl_pp_gpbynumber     CPerlObj::Perl_pp_gpbynumber
+#define Perl_pp_gprotoent      CPerlObj::Perl_pp_gprotoent
+#define Perl_pp_gpwent         CPerlObj::Perl_pp_gpwent
+#define Perl_pp_gpwnam         CPerlObj::Perl_pp_gpwnam
+#define Perl_pp_gpwuid         CPerlObj::Perl_pp_gpwuid
+#define Perl_pp_grepstart      CPerlObj::Perl_pp_grepstart
+#define Perl_pp_grepwhile      CPerlObj::Perl_pp_grepwhile
+#define Perl_pp_gsbyname       CPerlObj::Perl_pp_gsbyname
+#define Perl_pp_gsbyport       CPerlObj::Perl_pp_gsbyport
+#define Perl_pp_gservent       CPerlObj::Perl_pp_gservent
+#define Perl_pp_gsockopt       CPerlObj::Perl_pp_gsockopt
+#define Perl_pp_gt             CPerlObj::Perl_pp_gt
+#define Perl_pp_gv             CPerlObj::Perl_pp_gv
+#define Perl_pp_gvsv           CPerlObj::Perl_pp_gvsv
+#define Perl_pp_helem          CPerlObj::Perl_pp_helem
+#define Perl_pp_hex            CPerlObj::Perl_pp_hex
+#define Perl_pp_hslice         CPerlObj::Perl_pp_hslice
+#define Perl_pp_i_add          CPerlObj::Perl_pp_i_add
+#define Perl_pp_i_divide       CPerlObj::Perl_pp_i_divide
+#define Perl_pp_i_eq           CPerlObj::Perl_pp_i_eq
+#define Perl_pp_i_ge           CPerlObj::Perl_pp_i_ge
+#define Perl_pp_i_gt           CPerlObj::Perl_pp_i_gt
+#define Perl_pp_i_le           CPerlObj::Perl_pp_i_le
+#define Perl_pp_i_lt           CPerlObj::Perl_pp_i_lt
+#define Perl_pp_i_modulo       CPerlObj::Perl_pp_i_modulo
+#define Perl_pp_i_multiply     CPerlObj::Perl_pp_i_multiply
+#define Perl_pp_i_ncmp         CPerlObj::Perl_pp_i_ncmp
+#define Perl_pp_i_ne           CPerlObj::Perl_pp_i_ne
+#define Perl_pp_i_negate       CPerlObj::Perl_pp_i_negate
+#define Perl_pp_i_subtract     CPerlObj::Perl_pp_i_subtract
+#define Perl_pp_index          CPerlObj::Perl_pp_index
+#define Perl_pp_int            CPerlObj::Perl_pp_int
+#define Perl_pp_ioctl          CPerlObj::Perl_pp_ioctl
+#define Perl_pp_iter           CPerlObj::Perl_pp_iter
+#define Perl_pp_join           CPerlObj::Perl_pp_join
+#define Perl_pp_keys           CPerlObj::Perl_pp_keys
+#define Perl_pp_kill           CPerlObj::Perl_pp_kill
+#define Perl_pp_last           CPerlObj::Perl_pp_last
+#define Perl_pp_lc             CPerlObj::Perl_pp_lc
+#define Perl_pp_lcfirst                CPerlObj::Perl_pp_lcfirst
+#define Perl_pp_le             CPerlObj::Perl_pp_le
+#define Perl_pp_leave          CPerlObj::Perl_pp_leave
+#define Perl_pp_leaveeval      CPerlObj::Perl_pp_leaveeval
+#define Perl_pp_leaveloop      CPerlObj::Perl_pp_leaveloop
+#define Perl_pp_leavesub       CPerlObj::Perl_pp_leavesub
+#define Perl_pp_leavetry       CPerlObj::Perl_pp_leavetry
+#define Perl_pp_leavewrite     CPerlObj::Perl_pp_leavewrite
+#define Perl_pp_left_shift     CPerlObj::Perl_pp_left_shift
+#define Perl_pp_length         CPerlObj::Perl_pp_length
+#define Perl_pp_lineseq                CPerlObj::Perl_pp_lineseq
+#define Perl_pp_link           CPerlObj::Perl_pp_link
+#define Perl_pp_list           CPerlObj::Perl_pp_list
+#define Perl_pp_listen         CPerlObj::Perl_pp_listen
+#define Perl_pp_localtime      CPerlObj::Perl_pp_localtime
+#define Perl_pp_lock           CPerlObj::Perl_pp_lock
+#define Perl_pp_log            CPerlObj::Perl_pp_log
+#define Perl_pp_lslice         CPerlObj::Perl_pp_lslice
+#define Perl_pp_lstat          CPerlObj::Perl_pp_lstat
+#define Perl_pp_lt             CPerlObj::Perl_pp_lt
+#define Perl_pp_mapstart       CPerlObj::Perl_pp_mapstart
+#define Perl_pp_mapwhile       CPerlObj::Perl_pp_mapwhile
+#define Perl_pp_match          CPerlObj::Perl_pp_match
+#define Perl_pp_method         CPerlObj::Perl_pp_method
+#define Perl_pp_mkdir          CPerlObj::Perl_pp_mkdir
+#define Perl_pp_modulo         CPerlObj::Perl_pp_modulo
+#define Perl_pp_msgctl         CPerlObj::Perl_pp_msgctl
+#define Perl_pp_msgget         CPerlObj::Perl_pp_msgget
+#define Perl_pp_msgrcv         CPerlObj::Perl_pp_msgrcv
+#define Perl_pp_msgsnd         CPerlObj::Perl_pp_msgsnd
+#define Perl_pp_multiply       CPerlObj::Perl_pp_multiply
+#define Perl_pp_ncmp           CPerlObj::Perl_pp_ncmp
+#define Perl_pp_ne             CPerlObj::Perl_pp_ne
+#define Perl_pp_negate         CPerlObj::Perl_pp_negate
+#define Perl_pp_next           CPerlObj::Perl_pp_next
+#define Perl_pp_nextstate      CPerlObj::Perl_pp_nextstate
+#define Perl_pp_not            CPerlObj::Perl_pp_not
+#define Perl_pp_null           CPerlObj::Perl_pp_null
+#define Perl_pp_oct            CPerlObj::Perl_pp_oct
+#define Perl_pp_open           CPerlObj::Perl_pp_open
+#define Perl_pp_open_dir       CPerlObj::Perl_pp_open_dir
+#define Perl_pp_or             CPerlObj::Perl_pp_or
+#define Perl_pp_orassign       CPerlObj::Perl_pp_orassign
+#define Perl_pp_ord            CPerlObj::Perl_pp_ord
+#define Perl_pp_pack           CPerlObj::Perl_pp_pack
+#define Perl_pp_padany         CPerlObj::Perl_pp_padany
+#define Perl_pp_padav          CPerlObj::Perl_pp_padav
+#define Perl_pp_padhv          CPerlObj::Perl_pp_padhv
+#define Perl_pp_padsv          CPerlObj::Perl_pp_padsv
+#define Perl_pp_pipe_op                CPerlObj::Perl_pp_pipe_op
+#define Perl_pp_pop            CPerlObj::Perl_pp_pop
+#define Perl_pp_pos            CPerlObj::Perl_pp_pos
+#define Perl_pp_postdec                CPerlObj::Perl_pp_postdec
+#define Perl_pp_postinc                CPerlObj::Perl_pp_postinc
+#define Perl_pp_pow            CPerlObj::Perl_pp_pow
+#define Perl_pp_predec         CPerlObj::Perl_pp_predec
+#define Perl_pp_preinc         CPerlObj::Perl_pp_preinc
+#define Perl_pp_print          CPerlObj::Perl_pp_print
+#define Perl_pp_prototype      CPerlObj::Perl_pp_prototype
+#define Perl_pp_prtf           CPerlObj::Perl_pp_prtf
+#define Perl_pp_push           CPerlObj::Perl_pp_push
+#define Perl_pp_pushmark       CPerlObj::Perl_pp_pushmark
+#define Perl_pp_pushre         CPerlObj::Perl_pp_pushre
+#define Perl_pp_qr             CPerlObj::Perl_pp_qr
+#define Perl_pp_quotemeta      CPerlObj::Perl_pp_quotemeta
+#define Perl_pp_rand           CPerlObj::Perl_pp_rand
+#define Perl_pp_range          CPerlObj::Perl_pp_range
+#define Perl_pp_rcatline       CPerlObj::Perl_pp_rcatline
+#define Perl_pp_read           CPerlObj::Perl_pp_read
+#define Perl_pp_readdir                CPerlObj::Perl_pp_readdir
+#define Perl_pp_readline       CPerlObj::Perl_pp_readline
+#define Perl_pp_readlink       CPerlObj::Perl_pp_readlink
+#define Perl_pp_recv           CPerlObj::Perl_pp_recv
+#define Perl_pp_redo           CPerlObj::Perl_pp_redo
+#define Perl_pp_ref            CPerlObj::Perl_pp_ref
+#define Perl_pp_refgen         CPerlObj::Perl_pp_refgen
+#define Perl_pp_regcmaybe      CPerlObj::Perl_pp_regcmaybe
+#define Perl_pp_regcomp                CPerlObj::Perl_pp_regcomp
+#define Perl_pp_regcreset      CPerlObj::Perl_pp_regcreset
+#define Perl_pp_rename         CPerlObj::Perl_pp_rename
+#define Perl_pp_repeat         CPerlObj::Perl_pp_repeat
+#define Perl_pp_require                CPerlObj::Perl_pp_require
+#define Perl_pp_reset          CPerlObj::Perl_pp_reset
+#define Perl_pp_return         CPerlObj::Perl_pp_return
+#define Perl_pp_reverse                CPerlObj::Perl_pp_reverse
+#define Perl_pp_rewinddir      CPerlObj::Perl_pp_rewinddir
+#define Perl_pp_right_shift    CPerlObj::Perl_pp_right_shift
+#define Perl_pp_rindex         CPerlObj::Perl_pp_rindex
+#define Perl_pp_rmdir          CPerlObj::Perl_pp_rmdir
+#define Perl_pp_rv2av          CPerlObj::Perl_pp_rv2av
+#define Perl_pp_rv2cv          CPerlObj::Perl_pp_rv2cv
+#define Perl_pp_rv2gv          CPerlObj::Perl_pp_rv2gv
+#define Perl_pp_rv2hv          CPerlObj::Perl_pp_rv2hv
+#define Perl_pp_rv2sv          CPerlObj::Perl_pp_rv2sv
+#define Perl_pp_sassign                CPerlObj::Perl_pp_sassign
+#define Perl_pp_scalar         CPerlObj::Perl_pp_scalar
+#define Perl_pp_schomp         CPerlObj::Perl_pp_schomp
+#define Perl_pp_schop          CPerlObj::Perl_pp_schop
+#define Perl_pp_scmp           CPerlObj::Perl_pp_scmp
+#define Perl_pp_scope          CPerlObj::Perl_pp_scope
+#define Perl_pp_seek           CPerlObj::Perl_pp_seek
+#define Perl_pp_seekdir                CPerlObj::Perl_pp_seekdir
+#define Perl_pp_select         CPerlObj::Perl_pp_select
+#define Perl_pp_semctl         CPerlObj::Perl_pp_semctl
+#define Perl_pp_semget         CPerlObj::Perl_pp_semget
+#define Perl_pp_semop          CPerlObj::Perl_pp_semop
+#define Perl_pp_send           CPerlObj::Perl_pp_send
+#define Perl_pp_seq            CPerlObj::Perl_pp_seq
+#define Perl_pp_setpgrp                CPerlObj::Perl_pp_setpgrp
+#define Perl_pp_setpriority    CPerlObj::Perl_pp_setpriority
+#define Perl_pp_sge            CPerlObj::Perl_pp_sge
+#define Perl_pp_sgrent         CPerlObj::Perl_pp_sgrent
+#define Perl_pp_sgt            CPerlObj::Perl_pp_sgt
+#define Perl_pp_shift          CPerlObj::Perl_pp_shift
+#define Perl_pp_shmctl         CPerlObj::Perl_pp_shmctl
+#define Perl_pp_shmget         CPerlObj::Perl_pp_shmget
+#define Perl_pp_shmread                CPerlObj::Perl_pp_shmread
+#define Perl_pp_shmwrite       CPerlObj::Perl_pp_shmwrite
+#define Perl_pp_shostent       CPerlObj::Perl_pp_shostent
+#define Perl_pp_shutdown       CPerlObj::Perl_pp_shutdown
+#define Perl_pp_sin            CPerlObj::Perl_pp_sin
+#define Perl_pp_sle            CPerlObj::Perl_pp_sle
+#define Perl_pp_sleep          CPerlObj::Perl_pp_sleep
+#define Perl_pp_slt            CPerlObj::Perl_pp_slt
+#define Perl_pp_sne            CPerlObj::Perl_pp_sne
+#define Perl_pp_snetent                CPerlObj::Perl_pp_snetent
+#define Perl_pp_socket         CPerlObj::Perl_pp_socket
+#define Perl_pp_sockpair       CPerlObj::Perl_pp_sockpair
+#define Perl_pp_sort           CPerlObj::Perl_pp_sort
+#define Perl_pp_splice         CPerlObj::Perl_pp_splice
+#define Perl_pp_split          CPerlObj::Perl_pp_split
+#define Perl_pp_sprintf                CPerlObj::Perl_pp_sprintf
+#define Perl_pp_sprotoent      CPerlObj::Perl_pp_sprotoent
+#define Perl_pp_spwent         CPerlObj::Perl_pp_spwent
+#define Perl_pp_sqrt           CPerlObj::Perl_pp_sqrt
+#define Perl_pp_srand          CPerlObj::Perl_pp_srand
+#define Perl_pp_srefgen                CPerlObj::Perl_pp_srefgen
+#define Perl_pp_sselect                CPerlObj::Perl_pp_sselect
+#define Perl_pp_sservent       CPerlObj::Perl_pp_sservent
+#define Perl_pp_ssockopt       CPerlObj::Perl_pp_ssockopt
+#define Perl_pp_stat           CPerlObj::Perl_pp_stat
+#define Perl_pp_stringify      CPerlObj::Perl_pp_stringify
+#define Perl_pp_stub           CPerlObj::Perl_pp_stub
+#define Perl_pp_study          CPerlObj::Perl_pp_study
+#define Perl_pp_subst          CPerlObj::Perl_pp_subst
+#define Perl_pp_substcont      CPerlObj::Perl_pp_substcont
+#define Perl_pp_substr         CPerlObj::Perl_pp_substr
+#define Perl_pp_subtract       CPerlObj::Perl_pp_subtract
+#define Perl_pp_symlink                CPerlObj::Perl_pp_symlink
+#define Perl_pp_syscall                CPerlObj::Perl_pp_syscall
+#define Perl_pp_sysopen                CPerlObj::Perl_pp_sysopen
+#define Perl_pp_sysread                CPerlObj::Perl_pp_sysread
+#define Perl_pp_sysseek                CPerlObj::Perl_pp_sysseek
+#define Perl_pp_system         CPerlObj::Perl_pp_system
+#define Perl_pp_syswrite       CPerlObj::Perl_pp_syswrite
+#define Perl_pp_tell           CPerlObj::Perl_pp_tell
+#define Perl_pp_telldir                CPerlObj::Perl_pp_telldir
+#define Perl_pp_threadsv       CPerlObj::Perl_pp_threadsv
+#define Perl_pp_tie            CPerlObj::Perl_pp_tie
+#define Perl_pp_tied           CPerlObj::Perl_pp_tied
+#define Perl_pp_time           CPerlObj::Perl_pp_time
+#define Perl_pp_tms            CPerlObj::Perl_pp_tms
+#define Perl_pp_trans          CPerlObj::Perl_pp_trans
+#define Perl_pp_truncate       CPerlObj::Perl_pp_truncate
+#define Perl_pp_uc             CPerlObj::Perl_pp_uc
+#define Perl_pp_ucfirst                CPerlObj::Perl_pp_ucfirst
+#define Perl_pp_umask          CPerlObj::Perl_pp_umask
+#define Perl_pp_undef          CPerlObj::Perl_pp_undef
+#define Perl_pp_unlink         CPerlObj::Perl_pp_unlink
+#define Perl_pp_unpack         CPerlObj::Perl_pp_unpack
+#define Perl_pp_unshift                CPerlObj::Perl_pp_unshift
+#define Perl_pp_unstack                CPerlObj::Perl_pp_unstack
+#define Perl_pp_untie          CPerlObj::Perl_pp_untie
+#define Perl_pp_utime          CPerlObj::Perl_pp_utime
+#define Perl_pp_values         CPerlObj::Perl_pp_values
+#define Perl_pp_vec            CPerlObj::Perl_pp_vec
+#define Perl_pp_wait           CPerlObj::Perl_pp_wait
+#define Perl_pp_waitpid                CPerlObj::Perl_pp_waitpid
+#define Perl_pp_wantarray      CPerlObj::Perl_pp_wantarray
+#define Perl_pp_warn           CPerlObj::Perl_pp_warn
+#define Perl_pp_xor            CPerlObj::Perl_pp_xor
+#define Perl_pregcomp          CPerlObj::Perl_pregcomp
+#define Perl_pregexec          CPerlObj::Perl_pregexec
+#define Perl_pregfree          CPerlObj::Perl_pregfree
+#define Perl_prepend_elem      CPerlObj::Perl_prepend_elem
+#define Perl_push_return       CPerlObj::Perl_push_return
+#define Perl_push_scope                CPerlObj::Perl_push_scope
+#define Perl_pv_display                CPerlObj::Perl_pv_display
+#define Perl_ref               CPerlObj::Perl_ref
+#define Perl_refkids           CPerlObj::Perl_refkids
+#define Perl_regdump           CPerlObj::Perl_regdump
+#define Perl_regexec_flags     CPerlObj::Perl_regexec_flags
+#define Perl_reginitcolors     CPerlObj::Perl_reginitcolors
+#define Perl_regnext           CPerlObj::Perl_regnext
+#define Perl_regprop           CPerlObj::Perl_regprop
+#define Perl_repeatcpy         CPerlObj::Perl_repeatcpy
+#define Perl_require_pv                CPerlObj::Perl_require_pv
+#define Perl_rninstr           CPerlObj::Perl_rninstr
+#define Perl_rsignal           CPerlObj::Perl_rsignal
+#define Perl_rsignal_restore   CPerlObj::Perl_rsignal_restore
+#define Perl_rsignal_save      CPerlObj::Perl_rsignal_save
+#define Perl_rsignal_state     CPerlObj::Perl_rsignal_state
+#define Perl_runops_debug      CPerlObj::Perl_runops_debug
+#define Perl_runops_standard   CPerlObj::Perl_runops_standard
+#define Perl_rxres_free                CPerlObj::Perl_rxres_free
+#define Perl_rxres_restore     CPerlObj::Perl_rxres_restore
+#define Perl_rxres_save                CPerlObj::Perl_rxres_save
+#define Perl_safesyscalloc     CPerlObj::Perl_safesyscalloc
+#define Perl_safesysfree       CPerlObj::Perl_safesysfree
+#define Perl_safesysmalloc     CPerlObj::Perl_safesysmalloc
+#define Perl_safesysrealloc    CPerlObj::Perl_safesysrealloc
+#define Perl_safexcalloc       CPerlObj::Perl_safexcalloc
+#define Perl_safexfree         CPerlObj::Perl_safexfree
+#define Perl_safexmalloc       CPerlObj::Perl_safexmalloc
+#define Perl_safexrealloc      CPerlObj::Perl_safexrealloc
+#define Perl_same_dirent       CPerlObj::Perl_same_dirent
+#define Perl_save_I16          CPerlObj::Perl_save_I16
+#define Perl_save_I32          CPerlObj::Perl_save_I32
+#define Perl_save_aelem                CPerlObj::Perl_save_aelem
+#define Perl_save_alloc                CPerlObj::Perl_save_alloc
+#define Perl_save_aptr         CPerlObj::Perl_save_aptr
+#define Perl_save_ary          CPerlObj::Perl_save_ary
+#define Perl_save_clearsv      CPerlObj::Perl_save_clearsv
+#define Perl_save_delete       CPerlObj::Perl_save_delete
+#define Perl_save_destructor   CPerlObj::Perl_save_destructor
+#define Perl_save_freeop       CPerlObj::Perl_save_freeop
+#define Perl_save_freepv       CPerlObj::Perl_save_freepv
+#define Perl_save_freesv       CPerlObj::Perl_save_freesv
+#define Perl_save_generic_svref        CPerlObj::Perl_save_generic_svref
+#define Perl_save_gp           CPerlObj::Perl_save_gp
+#define Perl_save_hash         CPerlObj::Perl_save_hash
+#define Perl_save_helem                CPerlObj::Perl_save_helem
+#define Perl_save_hints                CPerlObj::Perl_save_hints
+#define Perl_save_hptr         CPerlObj::Perl_save_hptr
+#define Perl_save_int          CPerlObj::Perl_save_int
+#define Perl_save_item         CPerlObj::Perl_save_item
+#define Perl_save_iv           CPerlObj::Perl_save_iv
+#define Perl_save_list         CPerlObj::Perl_save_list
+#define Perl_save_long         CPerlObj::Perl_save_long
+#define Perl_save_nogv         CPerlObj::Perl_save_nogv
+#define Perl_save_op           CPerlObj::Perl_save_op
+#define Perl_save_pptr         CPerlObj::Perl_save_pptr
+#define Perl_save_re_context   CPerlObj::Perl_save_re_context
+#define Perl_save_scalar       CPerlObj::Perl_save_scalar
+#define Perl_save_sptr         CPerlObj::Perl_save_sptr
+#define Perl_save_svref                CPerlObj::Perl_save_svref
+#define Perl_save_threadsv     CPerlObj::Perl_save_threadsv
+#define Perl_savepv            CPerlObj::Perl_savepv
+#define Perl_savepvn           CPerlObj::Perl_savepvn
+#define Perl_savestack_grow    CPerlObj::Perl_savestack_grow
+#define Perl_sawparens         CPerlObj::Perl_sawparens
+#define Perl_scalar            CPerlObj::Perl_scalar
+#define Perl_scalarkids                CPerlObj::Perl_scalarkids
+#define Perl_scalarseq         CPerlObj::Perl_scalarseq
+#define Perl_scalarvoid                CPerlObj::Perl_scalarvoid
+#define Perl_scan_bin          CPerlObj::Perl_scan_bin
+#define Perl_scan_hex          CPerlObj::Perl_scan_hex
+#define Perl_scan_num          CPerlObj::Perl_scan_num
+#define Perl_scan_oct          CPerlObj::Perl_scan_oct
+#define Perl_scope             CPerlObj::Perl_scope
+#define Perl_screaminstr       CPerlObj::Perl_screaminstr
+#define Perl_set_numeric_local CPerlObj::Perl_set_numeric_local
+#define Perl_set_numeric_standard      CPerlObj::Perl_set_numeric_standard
+#define Perl_setdefout         CPerlObj::Perl_setdefout
+#define Perl_setenv_getix      CPerlObj::Perl_setenv_getix
+#define Perl_share_hek         CPerlObj::Perl_share_hek
+#define Perl_sharepvn          CPerlObj::Perl_sharepvn
+#define Perl_sighandler                CPerlObj::Perl_sighandler
+#define Perl_stack_grow                CPerlObj::Perl_stack_grow
+#define Perl_start_subparse    CPerlObj::Perl_start_subparse
+#define Perl_sub_crush_depth   CPerlObj::Perl_sub_crush_depth
+#define Perl_sv_2bool          CPerlObj::Perl_sv_2bool
+#define Perl_sv_2cv            CPerlObj::Perl_sv_2cv
+#define Perl_sv_2io            CPerlObj::Perl_sv_2io
+#define Perl_sv_2iv            CPerlObj::Perl_sv_2iv
+#define Perl_sv_2mortal                CPerlObj::Perl_sv_2mortal
+#define Perl_sv_2nv            CPerlObj::Perl_sv_2nv
+#define Perl_sv_2pv            CPerlObj::Perl_sv_2pv
+#define Perl_sv_2pv_nolen      CPerlObj::Perl_sv_2pv_nolen
+#define Perl_sv_2uv            CPerlObj::Perl_sv_2uv
+#define Perl_sv_add_arena      CPerlObj::Perl_sv_add_arena
+#define Perl_sv_backoff                CPerlObj::Perl_sv_backoff
+#define Perl_sv_bless          CPerlObj::Perl_sv_bless
+#define Perl_sv_catpv          CPerlObj::Perl_sv_catpv
+#define Perl_sv_catpv_mg       CPerlObj::Perl_sv_catpv_mg
+#define Perl_sv_catpvf         CPerlObj::Perl_sv_catpvf
+#define Perl_sv_catpvf_mg      CPerlObj::Perl_sv_catpvf_mg
+#define Perl_sv_catpvn         CPerlObj::Perl_sv_catpvn
+#define Perl_sv_catpvn_mg      CPerlObj::Perl_sv_catpvn_mg
+#define Perl_sv_catsv          CPerlObj::Perl_sv_catsv
+#define Perl_sv_catsv_mg       CPerlObj::Perl_sv_catsv_mg
+#define Perl_sv_chop           CPerlObj::Perl_sv_chop
+#define Perl_sv_clean_all      CPerlObj::Perl_sv_clean_all
+#define Perl_sv_clean_objs     CPerlObj::Perl_sv_clean_objs
+#define Perl_sv_clear          CPerlObj::Perl_sv_clear
+#define Perl_sv_cmp            CPerlObj::Perl_sv_cmp
+#define Perl_sv_cmp_locale     CPerlObj::Perl_sv_cmp_locale
+#define Perl_sv_collxfrm       CPerlObj::Perl_sv_collxfrm
+#define Perl_sv_compile_2op    CPerlObj::Perl_sv_compile_2op
+#define Perl_sv_dec            CPerlObj::Perl_sv_dec
+#define Perl_sv_derived_from   CPerlObj::Perl_sv_derived_from
+#define Perl_sv_dump           CPerlObj::Perl_sv_dump
+#define Perl_sv_eq             CPerlObj::Perl_sv_eq
+#define Perl_sv_force_normal   CPerlObj::Perl_sv_force_normal
+#define Perl_sv_free           CPerlObj::Perl_sv_free
+#define Perl_sv_free_arenas    CPerlObj::Perl_sv_free_arenas
+#define Perl_sv_gets           CPerlObj::Perl_sv_gets
+#define Perl_sv_grow           CPerlObj::Perl_sv_grow
+#define Perl_sv_inc            CPerlObj::Perl_sv_inc
+#define Perl_sv_insert         CPerlObj::Perl_sv_insert
+#define Perl_sv_isa            CPerlObj::Perl_sv_isa
+#define Perl_sv_isobject       CPerlObj::Perl_sv_isobject
+#define Perl_sv_iv             CPerlObj::Perl_sv_iv
+#define Perl_sv_len            CPerlObj::Perl_sv_len
+#define Perl_sv_len_utf8       CPerlObj::Perl_sv_len_utf8
+#define Perl_sv_magic          CPerlObj::Perl_sv_magic
+#define Perl_sv_mortalcopy     CPerlObj::Perl_sv_mortalcopy
+#define Perl_sv_newmortal      CPerlObj::Perl_sv_newmortal
+#define Perl_sv_newref         CPerlObj::Perl_sv_newref
+#define Perl_sv_nv             CPerlObj::Perl_sv_nv
+#define Perl_sv_peek           CPerlObj::Perl_sv_peek
+#define Perl_sv_pos_b2u                CPerlObj::Perl_sv_pos_b2u
+#define Perl_sv_pos_u2b                CPerlObj::Perl_sv_pos_u2b
+#define Perl_sv_pv             CPerlObj::Perl_sv_pv
+#define Perl_sv_pvn            CPerlObj::Perl_sv_pvn
+#define Perl_sv_pvn_force      CPerlObj::Perl_sv_pvn_force
+#define Perl_sv_reftype                CPerlObj::Perl_sv_reftype
+#define Perl_sv_replace                CPerlObj::Perl_sv_replace
+#define Perl_sv_report_used    CPerlObj::Perl_sv_report_used
+#define Perl_sv_reset          CPerlObj::Perl_sv_reset
+#define Perl_sv_rvweaken       CPerlObj::Perl_sv_rvweaken
+#define Perl_sv_setiv          CPerlObj::Perl_sv_setiv
+#define Perl_sv_setiv_mg       CPerlObj::Perl_sv_setiv_mg
+#define Perl_sv_setnv          CPerlObj::Perl_sv_setnv
+#define Perl_sv_setnv_mg       CPerlObj::Perl_sv_setnv_mg
+#define Perl_sv_setpv          CPerlObj::Perl_sv_setpv
+#define Perl_sv_setpv_mg       CPerlObj::Perl_sv_setpv_mg
+#define Perl_sv_setpvf         CPerlObj::Perl_sv_setpvf
+#define Perl_sv_setpvf_mg      CPerlObj::Perl_sv_setpvf_mg
+#define Perl_sv_setpviv                CPerlObj::Perl_sv_setpviv
+#define Perl_sv_setpviv_mg     CPerlObj::Perl_sv_setpviv_mg
+#define Perl_sv_setpvn         CPerlObj::Perl_sv_setpvn
+#define Perl_sv_setpvn_mg      CPerlObj::Perl_sv_setpvn_mg
+#define Perl_sv_setref_iv      CPerlObj::Perl_sv_setref_iv
+#define Perl_sv_setref_nv      CPerlObj::Perl_sv_setref_nv
+#define Perl_sv_setref_pv      CPerlObj::Perl_sv_setref_pv
+#define Perl_sv_setref_pvn     CPerlObj::Perl_sv_setref_pvn
+#define Perl_sv_setsv          CPerlObj::Perl_sv_setsv
+#define Perl_sv_setsv_mg       CPerlObj::Perl_sv_setsv_mg
+#define Perl_sv_setuv          CPerlObj::Perl_sv_setuv
+#define Perl_sv_setuv_mg       CPerlObj::Perl_sv_setuv_mg
+#define Perl_sv_taint          CPerlObj::Perl_sv_taint
+#define Perl_sv_tainted                CPerlObj::Perl_sv_tainted
+#define Perl_sv_true           CPerlObj::Perl_sv_true
+#define Perl_sv_unmagic                CPerlObj::Perl_sv_unmagic
+#define Perl_sv_unref          CPerlObj::Perl_sv_unref
+#define Perl_sv_untaint                CPerlObj::Perl_sv_untaint
+#define Perl_sv_upgrade                CPerlObj::Perl_sv_upgrade
+#define Perl_sv_usepvn         CPerlObj::Perl_sv_usepvn
+#define Perl_sv_usepvn_mg      CPerlObj::Perl_sv_usepvn_mg
+#define Perl_sv_uv             CPerlObj::Perl_sv_uv
+#define Perl_sv_vcatpvfn       CPerlObj::Perl_sv_vcatpvfn
+#define Perl_sv_vsetpvfn       CPerlObj::Perl_sv_vsetpvfn
+#define Perl_swash_fetch       CPerlObj::Perl_swash_fetch
+#define Perl_swash_init                CPerlObj::Perl_swash_init
+#define Perl_taint_env         CPerlObj::Perl_taint_env
+#define Perl_taint_proper      CPerlObj::Perl_taint_proper
+#define Perl_tmps_grow         CPerlObj::Perl_tmps_grow
+#define Perl_to_uni_lower      CPerlObj::Perl_to_uni_lower
+#define Perl_to_uni_lower_lc   CPerlObj::Perl_to_uni_lower_lc
+#define Perl_to_uni_title      CPerlObj::Perl_to_uni_title
+#define Perl_to_uni_title_lc   CPerlObj::Perl_to_uni_title_lc
+#define Perl_to_uni_upper      CPerlObj::Perl_to_uni_upper
+#define Perl_to_uni_upper_lc   CPerlObj::Perl_to_uni_upper_lc
+#define Perl_to_utf8_lower     CPerlObj::Perl_to_utf8_lower
+#define Perl_to_utf8_title     CPerlObj::Perl_to_utf8_title
+#define Perl_to_utf8_upper     CPerlObj::Perl_to_utf8_upper
+#define Perl_unlnk             CPerlObj::Perl_unlnk
+#define Perl_unlock_condpair   CPerlObj::Perl_unlock_condpair
+#define Perl_unshare_hek       CPerlObj::Perl_unshare_hek
+#define Perl_unsharepvn                CPerlObj::Perl_unsharepvn
+#define Perl_utf16_to_utf8     CPerlObj::Perl_utf16_to_utf8
+#define Perl_utf16_to_utf8_reversed    CPerlObj::Perl_utf16_to_utf8_reversed
+#define Perl_utf8_distance     CPerlObj::Perl_utf8_distance
+#define Perl_utf8_hop          CPerlObj::Perl_utf8_hop
+#define Perl_utf8_to_uv                CPerlObj::Perl_utf8_to_uv
+#define Perl_utilize           CPerlObj::Perl_utilize
+#define Perl_uv_to_utf8                CPerlObj::Perl_uv_to_utf8
+#define Perl_vivify_defelem    CPerlObj::Perl_vivify_defelem
+#define Perl_vivify_ref                CPerlObj::Perl_vivify_ref
+#define Perl_wait4pid          CPerlObj::Perl_wait4pid
+#define Perl_warn              CPerlObj::Perl_warn
+#define Perl_warner            CPerlObj::Perl_warner
+#define Perl_watch             CPerlObj::Perl_watch
+#define Perl_whichsig          CPerlObj::Perl_whichsig
+#define Perl_yydestruct                CPerlObj::Perl_yydestruct
+#define Perl_yyerror           CPerlObj::Perl_yyerror
+#define Perl_yylex             CPerlObj::Perl_yylex
+#define Perl_yyparse           CPerlObj::Perl_yyparse
+#define Perl_yywarn            CPerlObj::Perl_yywarn
 #define add_data               CPerlObj::Perl_add_data
-#define amagic_call            CPerlObj::Perl_amagic_call
 #define amagic_cmp             CPerlObj::Perl_amagic_cmp
 #define amagic_cmp_locale      CPerlObj::Perl_amagic_cmp_locale
 #define amagic_i_ncmp          CPerlObj::Perl_amagic_i_ncmp
 #define amagic_ncmp            CPerlObj::Perl_amagic_ncmp
 #define ao                     CPerlObj::Perl_ao
-#define append_elem            CPerlObj::Perl_append_elem
-#define append_list            CPerlObj::Perl_append_list
-#define apply                  CPerlObj::Perl_apply
 #define asIV                   CPerlObj::Perl_asIV
 #define asUV                   CPerlObj::Perl_asUV
-#define assertref              CPerlObj::Perl_assertref
-#define av_clear               CPerlObj::Perl_av_clear
-#define av_extend              CPerlObj::Perl_av_extend
-#define av_fake                        CPerlObj::Perl_av_fake
-#define av_fetch               CPerlObj::Perl_av_fetch
-#define av_fill                        CPerlObj::Perl_av_fill
-#define av_len                 CPerlObj::Perl_av_len
-#define av_make                        CPerlObj::Perl_av_make
-#define av_pop                 CPerlObj::Perl_av_pop
-#define av_push                        CPerlObj::Perl_av_push
-#define av_reify               CPerlObj::Perl_av_reify
-#define av_shift               CPerlObj::Perl_av_shift
-#define av_store               CPerlObj::Perl_av_store
-#define av_undef               CPerlObj::Perl_av_undef
-#define av_unshift             CPerlObj::Perl_av_unshift
-#define avhv_exists_ent                CPerlObj::Perl_avhv_exists_ent
-#define avhv_fetch_ent         CPerlObj::Perl_avhv_fetch_ent
 #define avhv_index_sv          CPerlObj::Perl_avhv_index_sv
-#define avhv_iternext          CPerlObj::Perl_avhv_iternext
-#define avhv_iterval           CPerlObj::Perl_avhv_iterval
-#define avhv_keys              CPerlObj::Perl_avhv_keys
 #define bad_type               CPerlObj::Perl_bad_type
-#define bind_match             CPerlObj::Perl_bind_match
-#define block_end              CPerlObj::Perl_block_end
-#define block_gimme            CPerlObj::Perl_block_gimme
-#define block_start            CPerlObj::Perl_block_start
-#define boot_core_UNIVERSAL    CPerlObj::Perl_boot_core_UNIVERSAL
-#define bset_obj_store         CPerlObj::Perl_bset_obj_store
 #define cache_re               CPerlObj::Perl_cache_re
-#define call_list              CPerlObj::Perl_call_list
 #define call_list_body         CPerlObj::Perl_call_list_body
-#define cando                  CPerlObj::Perl_cando
-#define cast_i32               CPerlObj::Perl_cast_i32
-#define cast_iv                        CPerlObj::Perl_cast_iv
-#define cast_ulong             CPerlObj::Perl_cast_ulong
-#define cast_uv                        CPerlObj::Perl_cast_uv
 #define check_uni              CPerlObj::Perl_check_uni
 #define checkcomma             CPerlObj::Perl_checkcomma
-#define ck_anoncode            CPerlObj::Perl_ck_anoncode
-#define ck_bitop               CPerlObj::Perl_ck_bitop
-#define ck_concat              CPerlObj::Perl_ck_concat
-#define ck_defined             CPerlObj::Perl_ck_defined
-#define ck_delete              CPerlObj::Perl_ck_delete
-#define ck_eof                 CPerlObj::Perl_ck_eof
-#define ck_eval                        CPerlObj::Perl_ck_eval
-#define ck_exec                        CPerlObj::Perl_ck_exec
-#define ck_exists              CPerlObj::Perl_ck_exists
-#define ck_ftst                        CPerlObj::Perl_ck_ftst
-#define ck_fun                 CPerlObj::Perl_ck_fun
-#define ck_fun_locale          CPerlObj::Perl_ck_fun_locale
-#define ck_glob                        CPerlObj::Perl_ck_glob
-#define ck_grep                        CPerlObj::Perl_ck_grep
-#define ck_index               CPerlObj::Perl_ck_index
-#define ck_lengthconst         CPerlObj::Perl_ck_lengthconst
-#define ck_lfun                        CPerlObj::Perl_ck_lfun
-#define ck_listiob             CPerlObj::Perl_ck_listiob
-#define ck_match               CPerlObj::Perl_ck_match
-#define ck_null                        CPerlObj::Perl_ck_null
-#define ck_repeat              CPerlObj::Perl_ck_repeat
-#define ck_require             CPerlObj::Perl_ck_require
-#define ck_rfun                        CPerlObj::Perl_ck_rfun
-#define ck_rvconst             CPerlObj::Perl_ck_rvconst
-#define ck_scmp                        CPerlObj::Perl_ck_scmp
-#define ck_select              CPerlObj::Perl_ck_select
-#define ck_shift               CPerlObj::Perl_ck_shift
-#define ck_sort                        CPerlObj::Perl_ck_sort
-#define ck_spair               CPerlObj::Perl_ck_spair
-#define ck_split               CPerlObj::Perl_ck_split
-#define ck_subr                        CPerlObj::Perl_ck_subr
-#define ck_svconst             CPerlObj::Perl_ck_svconst
-#define ck_trunc               CPerlObj::Perl_ck_trunc
 #define clear_re               CPerlObj::Perl_clear_re
-#define condpair_magic         CPerlObj::Perl_condpair_magic
-#define convert                        CPerlObj::Perl_convert
-#define croak                  CPerlObj::Perl_croak
-#define cv_ckproto             CPerlObj::Perl_cv_ckproto
-#define cv_clone               CPerlObj::Perl_cv_clone
 #define cv_clone2              CPerlObj::Perl_cv_clone2
-#define cv_const_sv            CPerlObj::Perl_cv_const_sv
-#define cv_undef               CPerlObj::Perl_cv_undef
-#define cx_dump                        CPerlObj::Perl_cx_dump
-#define cxinc                  CPerlObj::Perl_cxinc
-#define deb                    CPerlObj::Perl_deb
-#define deb_growlevel          CPerlObj::Perl_deb_growlevel
-#define debop                  CPerlObj::Perl_debop
 #define debprof                        CPerlObj::Perl_debprof
-#define debprofdump            CPerlObj::Perl_debprofdump
-#define debstack               CPerlObj::Perl_debstack
-#define debstackptrs           CPerlObj::Perl_debstackptrs
-#define default_protect                CPerlObj::Perl_default_protect
 #define del_he                 CPerlObj::Perl_del_he
 #define del_sv                 CPerlObj::Perl_del_sv
 #define del_xiv                        CPerlObj::Perl_del_xiv
 #define del_xnv                        CPerlObj::Perl_del_xnv
 #define del_xpv                        CPerlObj::Perl_del_xpv
 #define del_xrv                        CPerlObj::Perl_del_xrv
-#define delimcpy               CPerlObj::Perl_delimcpy
 #define depcom                 CPerlObj::Perl_depcom
-#define deprecate              CPerlObj::Perl_deprecate
-#define die                    CPerlObj::Perl_die
-#define die_where              CPerlObj::Perl_die_where
 #define div128                 CPerlObj::Perl_div128
-#define do_aexec               CPerlObj::Perl_do_aexec
 #define do_aspawn              CPerlObj::Perl_do_aspawn
-#define do_binmode             CPerlObj::Perl_do_binmode
-#define do_chomp               CPerlObj::Perl_do_chomp
-#define do_chop                        CPerlObj::Perl_do_chop
 #define do_clean_all           CPerlObj::Perl_do_clean_all
 #define do_clean_named_objs    CPerlObj::Perl_do_clean_named_objs
 #define do_clean_objs          CPerlObj::Perl_do_clean_objs
-#define do_close               CPerlObj::Perl_do_close
-#define do_eof                 CPerlObj::Perl_do_eof
-#define do_exec                        CPerlObj::Perl_do_exec
-#define do_exec3               CPerlObj::Perl_do_exec3
-#define do_execfree            CPerlObj::Perl_do_execfree
-#define do_gv_dump             CPerlObj::Perl_do_gv_dump
-#define do_gvgv_dump           CPerlObj::Perl_do_gvgv_dump
-#define do_hv_dump             CPerlObj::Perl_do_hv_dump
-#define do_ipcctl              CPerlObj::Perl_do_ipcctl
-#define do_ipcget              CPerlObj::Perl_do_ipcget
-#define do_join                        CPerlObj::Perl_do_join
-#define do_kv                  CPerlObj::Perl_do_kv
-#define do_magic_dump          CPerlObj::Perl_do_magic_dump
-#define do_msgrcv              CPerlObj::Perl_do_msgrcv
-#define do_msgsnd              CPerlObj::Perl_do_msgsnd
-#define do_op_dump             CPerlObj::Perl_do_op_dump
-#define do_open                        CPerlObj::Perl_do_open
-#define do_pipe                        CPerlObj::Perl_do_pipe
-#define do_pmop_dump           CPerlObj::Perl_do_pmop_dump
-#define do_print               CPerlObj::Perl_do_print
-#define do_readline            CPerlObj::Perl_do_readline
 #define do_report_used         CPerlObj::Perl_do_report_used
-#define do_seek                        CPerlObj::Perl_do_seek
-#define do_semop               CPerlObj::Perl_do_semop
-#define do_shmio               CPerlObj::Perl_do_shmio
-#define do_sprintf             CPerlObj::Perl_do_sprintf
-#define do_sv_dump             CPerlObj::Perl_do_sv_dump
-#define do_sysseek             CPerlObj::Perl_do_sysseek
-#define do_tell                        CPerlObj::Perl_do_tell
-#define do_trans               CPerlObj::Perl_do_trans
 #define do_trans_CC_complex    CPerlObj::Perl_do_trans_CC_complex
 #define do_trans_CC_count      CPerlObj::Perl_do_trans_CC_count
 #define do_trans_CC_simple     CPerlObj::Perl_do_trans_CC_simple
 #define do_trans_UU_complex    CPerlObj::Perl_do_trans_UU_complex
 #define do_trans_UU_count      CPerlObj::Perl_do_trans_UU_count
 #define do_trans_UU_simple     CPerlObj::Perl_do_trans_UU_simple
-#define do_vecset              CPerlObj::Perl_do_vecset
-#define do_vop                 CPerlObj::Perl_do_vop
 #define docatch                        CPerlObj::Perl_docatch
 #define docatch_body           CPerlObj::Perl_docatch_body
 #define doencodes              CPerlObj::Perl_doencodes
 #define doeval                 CPerlObj::Perl_doeval
-#define dofile                 CPerlObj::Perl_dofile
 #define dofindlabel            CPerlObj::Perl_dofindlabel
 #define doform                 CPerlObj::Perl_doform
 #define doopen_pmc             CPerlObj::Perl_doopen_pmc
 #define dopoptoloop            CPerlObj::Perl_dopoptoloop
 #define dopoptosub             CPerlObj::Perl_dopoptosub
 #define dopoptosub_at          CPerlObj::Perl_dopoptosub_at
-#define dounwind               CPerlObj::Perl_dounwind
-#define dowantarray            CPerlObj::Perl_dowantarray
 #define dump                   CPerlObj::Perl_dump
-#define dump_all               CPerlObj::Perl_dump_all
-#define dump_eval              CPerlObj::Perl_dump_eval
-#define dump_fds               CPerlObj::Perl_dump_fds
-#define dump_form              CPerlObj::Perl_dump_form
-#define dump_indent            CPerlObj::Perl_dump_indent
-#define dump_mstats            CPerlObj::Perl_dump_mstats
-#define dump_packsubs          CPerlObj::Perl_dump_packsubs
-#define dump_sub               CPerlObj::Perl_dump_sub
 #define dumpuntil              CPerlObj::Perl_dumpuntil
 #define emulate_eaccess                CPerlObj::Perl_emulate_eaccess
-#define fbm_compile            CPerlObj::Perl_fbm_compile
-#define fbm_instr              CPerlObj::Perl_fbm_instr
-#define filter_add             CPerlObj::Perl_filter_add
-#define filter_del             CPerlObj::Perl_filter_del
 #define filter_gets            CPerlObj::Perl_filter_gets
-#define filter_read            CPerlObj::Perl_filter_read
 #define find_beginning         CPerlObj::Perl_find_beginning
-#define find_script            CPerlObj::Perl_find_script
-#define find_threadsv          CPerlObj::Perl_find_threadsv
-#define fold_constants         CPerlObj::Perl_fold_constants
 #define forbid_setid           CPerlObj::Perl_forbid_setid
 #define force_ident            CPerlObj::Perl_force_ident
-#define force_list             CPerlObj::Perl_force_list
 #define force_next             CPerlObj::Perl_force_next
 #define force_version          CPerlObj::Perl_force_version
 #define force_word             CPerlObj::Perl_force_word
-#define form                   CPerlObj::Perl_form
-#define fprintf                        CPerlObj::Perl_fprintf
 #define free_closures          CPerlObj::Perl_free_closures
-#define free_tmps              CPerlObj::Perl_free_tmps
-#define gen_constant_list      CPerlObj::Perl_gen_constant_list
 #define get_db_sub             CPerlObj::Perl_get_db_sub
-#define get_no_modify          CPerlObj::Perl_get_no_modify
-#define get_op_descs           CPerlObj::Perl_get_op_descs
-#define get_op_names           CPerlObj::Perl_get_op_names
-#define get_opargs             CPerlObj::Perl_get_opargs
-#define get_vtbl               CPerlObj::Perl_get_vtbl
-#define gp_free                        CPerlObj::Perl_gp_free
-#define gp_ref                 CPerlObj::Perl_gp_ref
-#define gv_AVadd               CPerlObj::Perl_gv_AVadd
-#define gv_HVadd               CPerlObj::Perl_gv_HVadd
-#define gv_IOadd               CPerlObj::Perl_gv_IOadd
-#define gv_autoload4           CPerlObj::Perl_gv_autoload4
-#define gv_check               CPerlObj::Perl_gv_check
-#define gv_dump                        CPerlObj::Perl_gv_dump
-#define gv_efullname           CPerlObj::Perl_gv_efullname
-#define gv_efullname3          CPerlObj::Perl_gv_efullname3
 #define gv_ename               CPerlObj::Perl_gv_ename
-#define gv_fetchfile           CPerlObj::Perl_gv_fetchfile
-#define gv_fetchmeth           CPerlObj::Perl_gv_fetchmeth
-#define gv_fetchmethod         CPerlObj::Perl_gv_fetchmethod
-#define gv_fetchmethod_autoload        CPerlObj::Perl_gv_fetchmethod_autoload
-#define gv_fetchpv             CPerlObj::Perl_gv_fetchpv
-#define gv_fullname            CPerlObj::Perl_gv_fullname
-#define gv_fullname3           CPerlObj::Perl_gv_fullname3
-#define gv_init                        CPerlObj::Perl_gv_init
 #define gv_init_sv             CPerlObj::Perl_gv_init_sv
-#define gv_stashpv             CPerlObj::Perl_gv_stashpv
-#define gv_stashpvn            CPerlObj::Perl_gv_stashpvn
-#define gv_stashsv             CPerlObj::Perl_gv_stashsv
 #define hfreeentries           CPerlObj::Perl_hfreeentries
 #define hsplit                 CPerlObj::Perl_hsplit
-#define hv_clear               CPerlObj::Perl_hv_clear
-#define hv_delayfree_ent       CPerlObj::Perl_hv_delayfree_ent
-#define hv_delete              CPerlObj::Perl_hv_delete
-#define hv_delete_ent          CPerlObj::Perl_hv_delete_ent
-#define hv_exists              CPerlObj::Perl_hv_exists
-#define hv_exists_ent          CPerlObj::Perl_hv_exists_ent
-#define hv_fetch               CPerlObj::Perl_hv_fetch
-#define hv_fetch_ent           CPerlObj::Perl_hv_fetch_ent
-#define hv_free_ent            CPerlObj::Perl_hv_free_ent
-#define hv_iterinit            CPerlObj::Perl_hv_iterinit
-#define hv_iterkey             CPerlObj::Perl_hv_iterkey
-#define hv_iterkeysv           CPerlObj::Perl_hv_iterkeysv
-#define hv_iternext            CPerlObj::Perl_hv_iternext
-#define hv_iternextsv          CPerlObj::Perl_hv_iternextsv
-#define hv_iterval             CPerlObj::Perl_hv_iterval
-#define hv_ksplit              CPerlObj::Perl_hv_ksplit
-#define hv_magic               CPerlObj::Perl_hv_magic
-#define hv_store               CPerlObj::Perl_hv_store
-#define hv_store_ent           CPerlObj::Perl_hv_store_ent
-#define hv_undef               CPerlObj::Perl_hv_undef
-#define ibcmp                  CPerlObj::Perl_ibcmp
-#define ibcmp_locale           CPerlObj::Perl_ibcmp_locale
 #define incl_perldb            CPerlObj::Perl_incl_perldb
 #define incline                        CPerlObj::Perl_incline
 #define incpush                        CPerlObj::Perl_incpush
-#define ingroup                        CPerlObj::Perl_ingroup
 #define init_debugger          CPerlObj::Perl_init_debugger
 #define init_ids               CPerlObj::Perl_init_ids
 #define init_interp            CPerlObj::Perl_init_interp
 #define init_perllib           CPerlObj::Perl_init_perllib
 #define init_postdump_symbols  CPerlObj::Perl_init_postdump_symbols
 #define init_predump_symbols   CPerlObj::Perl_init_predump_symbols
-#define init_stacks            CPerlObj::Perl_init_stacks
-#define init_thread_intern     CPerlObj::Perl_init_thread_intern
-#define instr                  CPerlObj::Perl_instr
-#define intro_my               CPerlObj::Perl_intro_my
 #define intuit_method          CPerlObj::Perl_intuit_method
 #define intuit_more            CPerlObj::Perl_intuit_more
-#define invert                 CPerlObj::Perl_invert
-#define io_close               CPerlObj::Perl_io_close
 #define is_an_int              CPerlObj::Perl_is_an_int
 #define is_handle_constructor  CPerlObj::Perl_is_handle_constructor
-#define is_uni_alnum           CPerlObj::Perl_is_uni_alnum
-#define is_uni_alnum_lc                CPerlObj::Perl_is_uni_alnum_lc
-#define is_uni_alpha           CPerlObj::Perl_is_uni_alpha
-#define is_uni_alpha_lc                CPerlObj::Perl_is_uni_alpha_lc
-#define is_uni_digit           CPerlObj::Perl_is_uni_digit
-#define is_uni_digit_lc                CPerlObj::Perl_is_uni_digit_lc
-#define is_uni_idfirst         CPerlObj::Perl_is_uni_idfirst
-#define is_uni_idfirst_lc      CPerlObj::Perl_is_uni_idfirst_lc
-#define is_uni_lower           CPerlObj::Perl_is_uni_lower
-#define is_uni_lower_lc                CPerlObj::Perl_is_uni_lower_lc
-#define is_uni_print           CPerlObj::Perl_is_uni_print
-#define is_uni_print_lc                CPerlObj::Perl_is_uni_print_lc
-#define is_uni_space           CPerlObj::Perl_is_uni_space
-#define is_uni_space_lc                CPerlObj::Perl_is_uni_space_lc
-#define is_uni_upper           CPerlObj::Perl_is_uni_upper
-#define is_uni_upper_lc                CPerlObj::Perl_is_uni_upper_lc
-#define is_utf8_alnum          CPerlObj::Perl_is_utf8_alnum
-#define is_utf8_alpha          CPerlObj::Perl_is_utf8_alpha
-#define is_utf8_digit          CPerlObj::Perl_is_utf8_digit
-#define is_utf8_idfirst                CPerlObj::Perl_is_utf8_idfirst
-#define is_utf8_lower          CPerlObj::Perl_is_utf8_lower
-#define is_utf8_mark           CPerlObj::Perl_is_utf8_mark
-#define is_utf8_print          CPerlObj::Perl_is_utf8_print
-#define is_utf8_space          CPerlObj::Perl_is_utf8_space
-#define is_utf8_upper          CPerlObj::Perl_is_utf8_upper
 #define isa_lookup             CPerlObj::Perl_isa_lookup
-#define jmaybe                 CPerlObj::Perl_jmaybe
-#define keyword                        CPerlObj::Perl_keyword
-#define leave_scope            CPerlObj::Perl_leave_scope
-#define lex_end                        CPerlObj::Perl_lex_end
-#define lex_start              CPerlObj::Perl_lex_start
-#define linklist               CPerlObj::Perl_linklist
-#define list                   CPerlObj::Perl_list
 #define list_assignment                CPerlObj::Perl_list_assignment
-#define listkids               CPerlObj::Perl_listkids
-#define localize               CPerlObj::Perl_localize
-#define looks_like_number      CPerlObj::Perl_looks_like_number
 #define lop                    CPerlObj::Perl_lop
-#define magic_clear_all_env    CPerlObj::Perl_magic_clear_all_env
-#define magic_clearenv         CPerlObj::Perl_magic_clearenv
-#define magic_clearpack                CPerlObj::Perl_magic_clearpack
-#define magic_clearsig         CPerlObj::Perl_magic_clearsig
-#define magic_dump             CPerlObj::Perl_magic_dump
-#define magic_existspack       CPerlObj::Perl_magic_existspack
-#define magic_freeregexp       CPerlObj::Perl_magic_freeregexp
-#define magic_get              CPerlObj::Perl_magic_get
-#define magic_getarylen                CPerlObj::Perl_magic_getarylen
-#define magic_getdefelem       CPerlObj::Perl_magic_getdefelem
-#define magic_getglob          CPerlObj::Perl_magic_getglob
-#define magic_getnkeys         CPerlObj::Perl_magic_getnkeys
-#define magic_getpack          CPerlObj::Perl_magic_getpack
-#define magic_getpos           CPerlObj::Perl_magic_getpos
-#define magic_getsig           CPerlObj::Perl_magic_getsig
-#define magic_getsubstr                CPerlObj::Perl_magic_getsubstr
-#define magic_gettaint         CPerlObj::Perl_magic_gettaint
-#define magic_getuvar          CPerlObj::Perl_magic_getuvar
-#define magic_getvec           CPerlObj::Perl_magic_getvec
-#define magic_killbackrefs     CPerlObj::Perl_magic_killbackrefs
-#define magic_len              CPerlObj::Perl_magic_len
 #define magic_methcall         CPerlObj::Perl_magic_methcall
 #define magic_methcall         CPerlObj::Perl_magic_methcall
 #define magic_methpack         CPerlObj::Perl_magic_methpack
-#define magic_mutexfree                CPerlObj::Perl_magic_mutexfree
-#define magic_nextpack         CPerlObj::Perl_magic_nextpack
-#define magic_regdata_cnt      CPerlObj::Perl_magic_regdata_cnt
-#define magic_regdatum_get     CPerlObj::Perl_magic_regdatum_get
-#define magic_set              CPerlObj::Perl_magic_set
-#define magic_set_all_env      CPerlObj::Perl_magic_set_all_env
-#define magic_setamagic                CPerlObj::Perl_magic_setamagic
-#define magic_setarylen                CPerlObj::Perl_magic_setarylen
-#define magic_setbm            CPerlObj::Perl_magic_setbm
-#define magic_setcollxfrm      CPerlObj::Perl_magic_setcollxfrm
-#define magic_setdbline                CPerlObj::Perl_magic_setdbline
-#define magic_setdefelem       CPerlObj::Perl_magic_setdefelem
-#define magic_setenv           CPerlObj::Perl_magic_setenv
-#define magic_setfm            CPerlObj::Perl_magic_setfm
-#define magic_setglob          CPerlObj::Perl_magic_setglob
-#define magic_setisa           CPerlObj::Perl_magic_setisa
-#define magic_setmglob         CPerlObj::Perl_magic_setmglob
-#define magic_setnkeys         CPerlObj::Perl_magic_setnkeys
-#define magic_setpack          CPerlObj::Perl_magic_setpack
-#define magic_setpos           CPerlObj::Perl_magic_setpos
-#define magic_setsig           CPerlObj::Perl_magic_setsig
-#define magic_setsubstr                CPerlObj::Perl_magic_setsubstr
-#define magic_settaint         CPerlObj::Perl_magic_settaint
-#define magic_setuvar          CPerlObj::Perl_magic_setuvar
-#define magic_setvec           CPerlObj::Perl_magic_setvec
-#define magic_sizepack         CPerlObj::Perl_magic_sizepack
-#define magic_wipepack         CPerlObj::Perl_magic_wipepack
-#define magicname              CPerlObj::Perl_magicname
-#define malloced_size          CPerlObj::Perl_malloced_size
-#define markstack_grow         CPerlObj::Perl_markstack_grow
-#define mem_collxfrm           CPerlObj::Perl_mem_collxfrm
-#define mess                   CPerlObj::Perl_mess
+#define main                   CPerlObj::Perl_main
 #define mess_alloc             CPerlObj::Perl_mess_alloc
-#define mg_clear               CPerlObj::Perl_mg_clear
-#define mg_copy                        CPerlObj::Perl_mg_copy
-#define mg_find                        CPerlObj::Perl_mg_find
-#define mg_free                        CPerlObj::Perl_mg_free
-#define mg_get                 CPerlObj::Perl_mg_get
-#define mg_length              CPerlObj::Perl_mg_length
-#define mg_magical             CPerlObj::Perl_mg_magical
-#define mg_set                 CPerlObj::Perl_mg_set
-#define mg_size                        CPerlObj::Perl_mg_size
 #define missingterm            CPerlObj::Perl_missingterm
-#define mod                    CPerlObj::Perl_mod
 #define modkids                        CPerlObj::Perl_modkids
 #define more_he                        CPerlObj::Perl_more_he
 #define more_sv                        CPerlObj::Perl_more_sv
 #define more_xnv               CPerlObj::Perl_more_xnv
 #define more_xpv               CPerlObj::Perl_more_xpv
 #define more_xrv               CPerlObj::Perl_more_xrv
-#define moreswitches           CPerlObj::Perl_moreswitches
 #define mul128                 CPerlObj::Perl_mul128
-#define my                     CPerlObj::Perl_my
-#define my_bcopy               CPerlObj::Perl_my_bcopy
-#define my_bzero               CPerlObj::Perl_my_bzero
-#define my_chsize              CPerlObj::Perl_my_chsize
-#define my_exit                        CPerlObj::Perl_my_exit
 #define my_exit_jump           CPerlObj::Perl_my_exit_jump
-#define my_failure_exit                CPerlObj::Perl_my_failure_exit
-#define my_fflush_all          CPerlObj::Perl_my_fflush_all
-#define my_htonl               CPerlObj::Perl_my_htonl
-#define my_lstat               CPerlObj::Perl_my_lstat
-#define my_memcmp              CPerlObj::Perl_my_memcmp
-#define my_memset              CPerlObj::Perl_my_memset
-#define my_ntohl               CPerlObj::Perl_my_ntohl
-#define my_pclose              CPerlObj::Perl_my_pclose
-#define my_popen               CPerlObj::Perl_my_popen
 #define my_safemalloc          CPerlObj::Perl_my_safemalloc
-#define my_setenv              CPerlObj::Perl_my_setenv
-#define my_stat                        CPerlObj::Perl_my_stat
-#define my_swap                        CPerlObj::Perl_my_swap
-#define my_unexec              CPerlObj::Perl_my_unexec
-#define newANONHASH            CPerlObj::Perl_newANONHASH
-#define newANONLIST            CPerlObj::Perl_newANONLIST
-#define newANONSUB             CPerlObj::Perl_newANONSUB
-#define newASSIGNOP            CPerlObj::Perl_newASSIGNOP
-#define newAV                  CPerlObj::Perl_newAV
-#define newAVREF               CPerlObj::Perl_newAVREF
-#define newBINOP               CPerlObj::Perl_newBINOP
-#define newCONDOP              CPerlObj::Perl_newCONDOP
-#define newCONSTSUB            CPerlObj::Perl_newCONSTSUB
-#define newCVREF               CPerlObj::Perl_newCVREF
 #define newDEFSVOP             CPerlObj::Perl_newDEFSVOP
-#define newFORM                        CPerlObj::Perl_newFORM
-#define newFOROP               CPerlObj::Perl_newFOROP
-#define newGVOP                        CPerlObj::Perl_newGVOP
-#define newGVREF               CPerlObj::Perl_newGVREF
-#define newGVgen               CPerlObj::Perl_newGVgen
-#define newHV                  CPerlObj::Perl_newHV
-#define newHVREF               CPerlObj::Perl_newHVREF
-#define newHVhv                        CPerlObj::Perl_newHVhv
-#define newIO                  CPerlObj::Perl_newIO
-#define newLISTOP              CPerlObj::Perl_newLISTOP
-#define newLOGOP               CPerlObj::Perl_newLOGOP
-#define newLOOPEX              CPerlObj::Perl_newLOOPEX
-#define newLOOPOP              CPerlObj::Perl_newLOOPOP
-#define newNULLLIST            CPerlObj::Perl_newNULLLIST
-#define newOP                  CPerlObj::Perl_newOP
-#define newPMOP                        CPerlObj::Perl_newPMOP
-#define newPROG                        CPerlObj::Perl_newPROG
-#define newPVOP                        CPerlObj::Perl_newPVOP
-#define newRANGE               CPerlObj::Perl_newRANGE
-#define newRV                  CPerlObj::Perl_newRV
-#define newRV_noinc            CPerlObj::Perl_newRV_noinc
-#define newSLICEOP             CPerlObj::Perl_newSLICEOP
-#define newSTATEOP             CPerlObj::Perl_newSTATEOP
-#define newSUB                 CPerlObj::Perl_newSUB
-#define newSV                  CPerlObj::Perl_newSV
-#define newSVOP                        CPerlObj::Perl_newSVOP
-#define newSVREF               CPerlObj::Perl_newSVREF
-#define newSViv                        CPerlObj::Perl_newSViv
-#define newSVnv                        CPerlObj::Perl_newSVnv
-#define newSVpv                        CPerlObj::Perl_newSVpv
-#define newSVpvf               CPerlObj::Perl_newSVpvf
-#define newSVpvn               CPerlObj::Perl_newSVpvn
-#define newSVrv                        CPerlObj::Perl_newSVrv
-#define newSVsv                        CPerlObj::Perl_newSVsv
-#define newUNOP                        CPerlObj::Perl_newUNOP
-#define newWHILEOP             CPerlObj::Perl_newWHILEOP
-#define newXS                  CPerlObj::Perl_newXS
 #define new_constant           CPerlObj::Perl_new_constant
 #define new_he                 CPerlObj::Perl_new_he
 #define new_logop              CPerlObj::Perl_new_logop
-#define new_stackinfo          CPerlObj::Perl_new_stackinfo
-#define new_struct_thread      CPerlObj::Perl_new_struct_thread
 #define new_xiv                        CPerlObj::Perl_new_xiv
 #define new_xnv                        CPerlObj::Perl_new_xnv
 #define new_xpv                        CPerlObj::Perl_new_xpv
 #define new_xrv                        CPerlObj::Perl_new_xrv
-#define nextargv               CPerlObj::Perl_nextargv
 #define nextchar               CPerlObj::Perl_nextchar
-#define ninstr                 CPerlObj::Perl_ninstr
 #define no_bareword_allowed    CPerlObj::Perl_no_bareword_allowed
 #define no_fh_allowed          CPerlObj::Perl_no_fh_allowed
 #define no_op                  CPerlObj::Perl_no_op
 #define not_a_number           CPerlObj::Perl_not_a_number
 #define nuke_stacks            CPerlObj::Perl_nuke_stacks
 #define null                   CPerlObj::Perl_null
-#define oopsAV                 CPerlObj::Perl_oopsAV
-#define oopsCV                 CPerlObj::Perl_oopsCV
-#define oopsHV                 CPerlObj::Perl_oopsHV
-#define op_const_sv            CPerlObj::Perl_op_const_sv
-#define op_dump                        CPerlObj::Perl_op_dump
-#define op_free                        CPerlObj::Perl_op_free
 #define open_script            CPerlObj::Perl_open_script
-#define package                        CPerlObj::Perl_package
-#define pad_alloc              CPerlObj::Perl_pad_alloc
-#define pad_allocmy            CPerlObj::Perl_pad_allocmy
 #define pad_findlex            CPerlObj::Perl_pad_findlex
-#define pad_findmy             CPerlObj::Perl_pad_findmy
-#define pad_free               CPerlObj::Perl_pad_free
-#define pad_leavemy            CPerlObj::Perl_pad_leavemy
-#define pad_reset              CPerlObj::Perl_pad_reset
-#define pad_sv                 CPerlObj::Perl_pad_sv
-#define pad_swipe              CPerlObj::Perl_pad_swipe
-#define peep                   CPerlObj::Perl_peep
+#define perl_alloc             CPerlObj::perl_alloc
 #define perl_atexit            CPerlObj::perl_atexit
 #define perl_call_argv         CPerlObj::perl_call_argv
 #define perl_call_body         CPerlObj::perl_call_body
 #define perl_call_sv           CPerlObj::perl_call_sv
 #define perl_call_xbody                CPerlObj::perl_call_xbody
 #define perl_construct         CPerlObj::perl_construct
+#define perl_construct         CPerlObj::perl_construct
+#define perl_destruct          CPerlObj::perl_destruct
 #define perl_destruct          CPerlObj::perl_destruct
 #define perl_eval_pv           CPerlObj::perl_eval_pv
 #define perl_eval_sv           CPerlObj::perl_eval_sv
 #define perl_free              CPerlObj::perl_free
+#define perl_free              CPerlObj::perl_free
 #define perl_get_av            CPerlObj::perl_get_av
 #define perl_get_cv            CPerlObj::perl_get_cv
 #define perl_get_hv            CPerlObj::perl_get_hv
 #define perl_new_ctype         CPerlObj::perl_new_ctype
 #define perl_new_numeric       CPerlObj::perl_new_numeric
 #define perl_parse             CPerlObj::perl_parse
+#define perl_parse             CPerlObj::perl_parse
 #define perl_parse_body                CPerlObj::perl_parse_body
 #define perl_require_pv                CPerlObj::perl_require_pv
 #define perl_run               CPerlObj::perl_run
+#define perl_run               CPerlObj::perl_run
 #define perl_run_body          CPerlObj::perl_run_body
 #define perl_set_numeric_local CPerlObj::perl_set_numeric_local
 #define perl_set_numeric_standard      CPerlObj::perl_set_numeric_standard
-#define pidgone                        CPerlObj::Perl_pidgone
-#define pmflag                 CPerlObj::Perl_pmflag
-#define pmop_dump              CPerlObj::Perl_pmop_dump
-#define pmruntime              CPerlObj::Perl_pmruntime
-#define pmtrans                        CPerlObj::Perl_pmtrans
-#define pop_return             CPerlObj::Perl_pop_return
-#define pop_scope              CPerlObj::Perl_pop_scope
-#define pp_aassign             CPerlObj::Perl_pp_aassign
-#define pp_abs                 CPerlObj::Perl_pp_abs
-#define pp_accept              CPerlObj::Perl_pp_accept
-#define pp_add                 CPerlObj::Perl_pp_add
-#define pp_aelem               CPerlObj::Perl_pp_aelem
-#define pp_aelemfast           CPerlObj::Perl_pp_aelemfast
-#define pp_alarm               CPerlObj::Perl_pp_alarm
-#define pp_and                 CPerlObj::Perl_pp_and
-#define pp_andassign           CPerlObj::Perl_pp_andassign
-#define pp_anoncode            CPerlObj::Perl_pp_anoncode
-#define pp_anonhash            CPerlObj::Perl_pp_anonhash
-#define pp_anonlist            CPerlObj::Perl_pp_anonlist
-#define pp_aslice              CPerlObj::Perl_pp_aslice
-#define pp_atan2               CPerlObj::Perl_pp_atan2
-#define pp_av2arylen           CPerlObj::Perl_pp_av2arylen
-#define pp_backtick            CPerlObj::Perl_pp_backtick
-#define pp_bind                        CPerlObj::Perl_pp_bind
-#define pp_binmode             CPerlObj::Perl_pp_binmode
-#define pp_bit_and             CPerlObj::Perl_pp_bit_and
-#define pp_bit_or              CPerlObj::Perl_pp_bit_or
-#define pp_bit_xor             CPerlObj::Perl_pp_bit_xor
-#define pp_bless               CPerlObj::Perl_pp_bless
-#define pp_caller              CPerlObj::Perl_pp_caller
-#define pp_chdir               CPerlObj::Perl_pp_chdir
-#define pp_chmod               CPerlObj::Perl_pp_chmod
-#define pp_chomp               CPerlObj::Perl_pp_chomp
-#define pp_chop                        CPerlObj::Perl_pp_chop
-#define pp_chown               CPerlObj::Perl_pp_chown
-#define pp_chr                 CPerlObj::Perl_pp_chr
-#define pp_chroot              CPerlObj::Perl_pp_chroot
-#define pp_close               CPerlObj::Perl_pp_close
-#define pp_closedir            CPerlObj::Perl_pp_closedir
-#define pp_complement          CPerlObj::Perl_pp_complement
-#define pp_concat              CPerlObj::Perl_pp_concat
-#define pp_cond_expr           CPerlObj::Perl_pp_cond_expr
-#define pp_connect             CPerlObj::Perl_pp_connect
-#define pp_const               CPerlObj::Perl_pp_const
-#define pp_cos                 CPerlObj::Perl_pp_cos
-#define pp_crypt               CPerlObj::Perl_pp_crypt
-#define pp_dbmclose            CPerlObj::Perl_pp_dbmclose
-#define pp_dbmopen             CPerlObj::Perl_pp_dbmopen
-#define pp_dbstate             CPerlObj::Perl_pp_dbstate
-#define pp_defined             CPerlObj::Perl_pp_defined
-#define pp_delete              CPerlObj::Perl_pp_delete
-#define pp_die                 CPerlObj::Perl_pp_die
-#define pp_divide              CPerlObj::Perl_pp_divide
-#define pp_dofile              CPerlObj::Perl_pp_dofile
-#define pp_dump                        CPerlObj::Perl_pp_dump
-#define pp_each                        CPerlObj::Perl_pp_each
-#define pp_egrent              CPerlObj::Perl_pp_egrent
-#define pp_ehostent            CPerlObj::Perl_pp_ehostent
-#define pp_enetent             CPerlObj::Perl_pp_enetent
-#define pp_enter               CPerlObj::Perl_pp_enter
-#define pp_entereval           CPerlObj::Perl_pp_entereval
-#define pp_enteriter           CPerlObj::Perl_pp_enteriter
-#define pp_enterloop           CPerlObj::Perl_pp_enterloop
-#define pp_entersub            CPerlObj::Perl_pp_entersub
-#define pp_entertry            CPerlObj::Perl_pp_entertry
-#define pp_enterwrite          CPerlObj::Perl_pp_enterwrite
-#define pp_eof                 CPerlObj::Perl_pp_eof
-#define pp_eprotoent           CPerlObj::Perl_pp_eprotoent
-#define pp_epwent              CPerlObj::Perl_pp_epwent
-#define pp_eq                  CPerlObj::Perl_pp_eq
-#define pp_eservent            CPerlObj::Perl_pp_eservent
-#define pp_exec                        CPerlObj::Perl_pp_exec
-#define pp_exists              CPerlObj::Perl_pp_exists
-#define pp_exit                        CPerlObj::Perl_pp_exit
-#define pp_exp                 CPerlObj::Perl_pp_exp
-#define pp_fcntl               CPerlObj::Perl_pp_fcntl
-#define pp_fileno              CPerlObj::Perl_pp_fileno
-#define pp_flip                        CPerlObj::Perl_pp_flip
-#define pp_flock               CPerlObj::Perl_pp_flock
-#define pp_flop                        CPerlObj::Perl_pp_flop
-#define pp_fork                        CPerlObj::Perl_pp_fork
-#define pp_formline            CPerlObj::Perl_pp_formline
-#define pp_ftatime             CPerlObj::Perl_pp_ftatime
-#define pp_ftbinary            CPerlObj::Perl_pp_ftbinary
-#define pp_ftblk               CPerlObj::Perl_pp_ftblk
-#define pp_ftchr               CPerlObj::Perl_pp_ftchr
-#define pp_ftctime             CPerlObj::Perl_pp_ftctime
-#define pp_ftdir               CPerlObj::Perl_pp_ftdir
-#define pp_fteexec             CPerlObj::Perl_pp_fteexec
-#define pp_fteowned            CPerlObj::Perl_pp_fteowned
-#define pp_fteread             CPerlObj::Perl_pp_fteread
-#define pp_ftewrite            CPerlObj::Perl_pp_ftewrite
-#define pp_ftfile              CPerlObj::Perl_pp_ftfile
-#define pp_ftis                        CPerlObj::Perl_pp_ftis
-#define pp_ftlink              CPerlObj::Perl_pp_ftlink
-#define pp_ftmtime             CPerlObj::Perl_pp_ftmtime
-#define pp_ftpipe              CPerlObj::Perl_pp_ftpipe
-#define pp_ftrexec             CPerlObj::Perl_pp_ftrexec
-#define pp_ftrowned            CPerlObj::Perl_pp_ftrowned
-#define pp_ftrread             CPerlObj::Perl_pp_ftrread
-#define pp_ftrwrite            CPerlObj::Perl_pp_ftrwrite
-#define pp_ftsgid              CPerlObj::Perl_pp_ftsgid
-#define pp_ftsize              CPerlObj::Perl_pp_ftsize
-#define pp_ftsock              CPerlObj::Perl_pp_ftsock
-#define pp_ftsuid              CPerlObj::Perl_pp_ftsuid
-#define pp_ftsvtx              CPerlObj::Perl_pp_ftsvtx
-#define pp_fttext              CPerlObj::Perl_pp_fttext
-#define pp_fttty               CPerlObj::Perl_pp_fttty
-#define pp_ftzero              CPerlObj::Perl_pp_ftzero
-#define pp_ge                  CPerlObj::Perl_pp_ge
-#define pp_gelem               CPerlObj::Perl_pp_gelem
-#define pp_getc                        CPerlObj::Perl_pp_getc
-#define pp_getlogin            CPerlObj::Perl_pp_getlogin
-#define pp_getpeername         CPerlObj::Perl_pp_getpeername
-#define pp_getpgrp             CPerlObj::Perl_pp_getpgrp
-#define pp_getppid             CPerlObj::Perl_pp_getppid
-#define pp_getpriority         CPerlObj::Perl_pp_getpriority
-#define pp_getsockname         CPerlObj::Perl_pp_getsockname
-#define pp_ggrent              CPerlObj::Perl_pp_ggrent
-#define pp_ggrgid              CPerlObj::Perl_pp_ggrgid
-#define pp_ggrnam              CPerlObj::Perl_pp_ggrnam
-#define pp_ghbyaddr            CPerlObj::Perl_pp_ghbyaddr
-#define pp_ghbyname            CPerlObj::Perl_pp_ghbyname
-#define pp_ghostent            CPerlObj::Perl_pp_ghostent
-#define pp_glob                        CPerlObj::Perl_pp_glob
-#define pp_gmtime              CPerlObj::Perl_pp_gmtime
-#define pp_gnbyaddr            CPerlObj::Perl_pp_gnbyaddr
-#define pp_gnbyname            CPerlObj::Perl_pp_gnbyname
-#define pp_gnetent             CPerlObj::Perl_pp_gnetent
-#define pp_goto                        CPerlObj::Perl_pp_goto
-#define pp_gpbyname            CPerlObj::Perl_pp_gpbyname
-#define pp_gpbynumber          CPerlObj::Perl_pp_gpbynumber
-#define pp_gprotoent           CPerlObj::Perl_pp_gprotoent
-#define pp_gpwent              CPerlObj::Perl_pp_gpwent
-#define pp_gpwnam              CPerlObj::Perl_pp_gpwnam
-#define pp_gpwuid              CPerlObj::Perl_pp_gpwuid
-#define pp_grepstart           CPerlObj::Perl_pp_grepstart
-#define pp_grepwhile           CPerlObj::Perl_pp_grepwhile
-#define pp_gsbyname            CPerlObj::Perl_pp_gsbyname
-#define pp_gsbyport            CPerlObj::Perl_pp_gsbyport
-#define pp_gservent            CPerlObj::Perl_pp_gservent
-#define pp_gsockopt            CPerlObj::Perl_pp_gsockopt
-#define pp_gt                  CPerlObj::Perl_pp_gt
-#define pp_gv                  CPerlObj::Perl_pp_gv
-#define pp_gvsv                        CPerlObj::Perl_pp_gvsv
-#define pp_helem               CPerlObj::Perl_pp_helem
-#define pp_hex                 CPerlObj::Perl_pp_hex
-#define pp_hslice              CPerlObj::Perl_pp_hslice
-#define pp_i_add               CPerlObj::Perl_pp_i_add
-#define pp_i_divide            CPerlObj::Perl_pp_i_divide
-#define pp_i_eq                        CPerlObj::Perl_pp_i_eq
-#define pp_i_ge                        CPerlObj::Perl_pp_i_ge
-#define pp_i_gt                        CPerlObj::Perl_pp_i_gt
-#define pp_i_le                        CPerlObj::Perl_pp_i_le
-#define pp_i_lt                        CPerlObj::Perl_pp_i_lt
-#define pp_i_modulo            CPerlObj::Perl_pp_i_modulo
-#define pp_i_multiply          CPerlObj::Perl_pp_i_multiply
-#define pp_i_ncmp              CPerlObj::Perl_pp_i_ncmp
-#define pp_i_ne                        CPerlObj::Perl_pp_i_ne
-#define pp_i_negate            CPerlObj::Perl_pp_i_negate
-#define pp_i_subtract          CPerlObj::Perl_pp_i_subtract
-#define pp_index               CPerlObj::Perl_pp_index
-#define pp_int                 CPerlObj::Perl_pp_int
-#define pp_ioctl               CPerlObj::Perl_pp_ioctl
-#define pp_iter                        CPerlObj::Perl_pp_iter
-#define pp_join                        CPerlObj::Perl_pp_join
-#define pp_keys                        CPerlObj::Perl_pp_keys
-#define pp_kill                        CPerlObj::Perl_pp_kill
-#define pp_last                        CPerlObj::Perl_pp_last
-#define pp_lc                  CPerlObj::Perl_pp_lc
-#define pp_lcfirst             CPerlObj::Perl_pp_lcfirst
-#define pp_le                  CPerlObj::Perl_pp_le
-#define pp_leave               CPerlObj::Perl_pp_leave
-#define pp_leaveeval           CPerlObj::Perl_pp_leaveeval
-#define pp_leaveloop           CPerlObj::Perl_pp_leaveloop
-#define pp_leavesub            CPerlObj::Perl_pp_leavesub
-#define pp_leavetry            CPerlObj::Perl_pp_leavetry
-#define pp_leavewrite          CPerlObj::Perl_pp_leavewrite
-#define pp_left_shift          CPerlObj::Perl_pp_left_shift
-#define pp_length              CPerlObj::Perl_pp_length
-#define pp_lineseq             CPerlObj::Perl_pp_lineseq
-#define pp_link                        CPerlObj::Perl_pp_link
-#define pp_list                        CPerlObj::Perl_pp_list
-#define pp_listen              CPerlObj::Perl_pp_listen
-#define pp_localtime           CPerlObj::Perl_pp_localtime
-#define pp_lock                        CPerlObj::Perl_pp_lock
-#define pp_log                 CPerlObj::Perl_pp_log
-#define pp_lslice              CPerlObj::Perl_pp_lslice
-#define pp_lstat               CPerlObj::Perl_pp_lstat
-#define pp_lt                  CPerlObj::Perl_pp_lt
-#define pp_mapstart            CPerlObj::Perl_pp_mapstart
-#define pp_mapwhile            CPerlObj::Perl_pp_mapwhile
-#define pp_match               CPerlObj::Perl_pp_match
-#define pp_method              CPerlObj::Perl_pp_method
-#define pp_mkdir               CPerlObj::Perl_pp_mkdir
-#define pp_modulo              CPerlObj::Perl_pp_modulo
-#define pp_msgctl              CPerlObj::Perl_pp_msgctl
-#define pp_msgget              CPerlObj::Perl_pp_msgget
-#define pp_msgrcv              CPerlObj::Perl_pp_msgrcv
-#define pp_msgsnd              CPerlObj::Perl_pp_msgsnd
-#define pp_multiply            CPerlObj::Perl_pp_multiply
-#define pp_ncmp                        CPerlObj::Perl_pp_ncmp
-#define pp_ne                  CPerlObj::Perl_pp_ne
-#define pp_negate              CPerlObj::Perl_pp_negate
-#define pp_next                        CPerlObj::Perl_pp_next
-#define pp_nextstate           CPerlObj::Perl_pp_nextstate
-#define pp_not                 CPerlObj::Perl_pp_not
-#define pp_null                        CPerlObj::Perl_pp_null
-#define pp_oct                 CPerlObj::Perl_pp_oct
-#define pp_open                        CPerlObj::Perl_pp_open
-#define pp_open_dir            CPerlObj::Perl_pp_open_dir
-#define pp_or                  CPerlObj::Perl_pp_or
-#define pp_orassign            CPerlObj::Perl_pp_orassign
-#define pp_ord                 CPerlObj::Perl_pp_ord
-#define pp_pack                        CPerlObj::Perl_pp_pack
-#define pp_padany              CPerlObj::Perl_pp_padany
-#define pp_padav               CPerlObj::Perl_pp_padav
-#define pp_padhv               CPerlObj::Perl_pp_padhv
-#define pp_padsv               CPerlObj::Perl_pp_padsv
-#define pp_pipe_op             CPerlObj::Perl_pp_pipe_op
-#define pp_pop                 CPerlObj::Perl_pp_pop
-#define pp_pos                 CPerlObj::Perl_pp_pos
-#define pp_postdec             CPerlObj::Perl_pp_postdec
-#define pp_postinc             CPerlObj::Perl_pp_postinc
-#define pp_pow                 CPerlObj::Perl_pp_pow
-#define pp_predec              CPerlObj::Perl_pp_predec
-#define pp_preinc              CPerlObj::Perl_pp_preinc
-#define pp_print               CPerlObj::Perl_pp_print
-#define pp_prototype           CPerlObj::Perl_pp_prototype
-#define pp_prtf                        CPerlObj::Perl_pp_prtf
-#define pp_push                        CPerlObj::Perl_pp_push
-#define pp_pushmark            CPerlObj::Perl_pp_pushmark
-#define pp_pushre              CPerlObj::Perl_pp_pushre
-#define pp_qr                  CPerlObj::Perl_pp_qr
-#define pp_quotemeta           CPerlObj::Perl_pp_quotemeta
-#define pp_rand                        CPerlObj::Perl_pp_rand
-#define pp_range               CPerlObj::Perl_pp_range
-#define pp_rcatline            CPerlObj::Perl_pp_rcatline
-#define pp_read                        CPerlObj::Perl_pp_read
-#define pp_readdir             CPerlObj::Perl_pp_readdir
-#define pp_readline            CPerlObj::Perl_pp_readline
-#define pp_readlink            CPerlObj::Perl_pp_readlink
-#define pp_recv                        CPerlObj::Perl_pp_recv
-#define pp_redo                        CPerlObj::Perl_pp_redo
-#define pp_ref                 CPerlObj::Perl_pp_ref
-#define pp_refgen              CPerlObj::Perl_pp_refgen
-#define pp_regcmaybe           CPerlObj::Perl_pp_regcmaybe
-#define pp_regcomp             CPerlObj::Perl_pp_regcomp
-#define pp_regcreset           CPerlObj::Perl_pp_regcreset
-#define pp_rename              CPerlObj::Perl_pp_rename
-#define pp_repeat              CPerlObj::Perl_pp_repeat
-#define pp_require             CPerlObj::Perl_pp_require
-#define pp_reset               CPerlObj::Perl_pp_reset
-#define pp_return              CPerlObj::Perl_pp_return
-#define pp_reverse             CPerlObj::Perl_pp_reverse
-#define pp_rewinddir           CPerlObj::Perl_pp_rewinddir
-#define pp_right_shift         CPerlObj::Perl_pp_right_shift
-#define pp_rindex              CPerlObj::Perl_pp_rindex
-#define pp_rmdir               CPerlObj::Perl_pp_rmdir
-#define pp_rv2av               CPerlObj::Perl_pp_rv2av
-#define pp_rv2cv               CPerlObj::Perl_pp_rv2cv
-#define pp_rv2gv               CPerlObj::Perl_pp_rv2gv
-#define pp_rv2hv               CPerlObj::Perl_pp_rv2hv
-#define pp_rv2sv               CPerlObj::Perl_pp_rv2sv
-#define pp_sassign             CPerlObj::Perl_pp_sassign
-#define pp_scalar              CPerlObj::Perl_pp_scalar
-#define pp_schomp              CPerlObj::Perl_pp_schomp
-#define pp_schop               CPerlObj::Perl_pp_schop
-#define pp_scmp                        CPerlObj::Perl_pp_scmp
-#define pp_scope               CPerlObj::Perl_pp_scope
-#define pp_seek                        CPerlObj::Perl_pp_seek
-#define pp_seekdir             CPerlObj::Perl_pp_seekdir
-#define pp_select              CPerlObj::Perl_pp_select
-#define pp_semctl              CPerlObj::Perl_pp_semctl
-#define pp_semget              CPerlObj::Perl_pp_semget
-#define pp_semop               CPerlObj::Perl_pp_semop
-#define pp_send                        CPerlObj::Perl_pp_send
-#define pp_seq                 CPerlObj::Perl_pp_seq
-#define pp_setpgrp             CPerlObj::Perl_pp_setpgrp
-#define pp_setpriority         CPerlObj::Perl_pp_setpriority
-#define pp_sge                 CPerlObj::Perl_pp_sge
-#define pp_sgrent              CPerlObj::Perl_pp_sgrent
-#define pp_sgt                 CPerlObj::Perl_pp_sgt
-#define pp_shift               CPerlObj::Perl_pp_shift
-#define pp_shmctl              CPerlObj::Perl_pp_shmctl
-#define pp_shmget              CPerlObj::Perl_pp_shmget
-#define pp_shmread             CPerlObj::Perl_pp_shmread
-#define pp_shmwrite            CPerlObj::Perl_pp_shmwrite
-#define pp_shostent            CPerlObj::Perl_pp_shostent
-#define pp_shutdown            CPerlObj::Perl_pp_shutdown
-#define pp_sin                 CPerlObj::Perl_pp_sin
-#define pp_sle                 CPerlObj::Perl_pp_sle
-#define pp_sleep               CPerlObj::Perl_pp_sleep
-#define pp_slt                 CPerlObj::Perl_pp_slt
-#define pp_sne                 CPerlObj::Perl_pp_sne
-#define pp_snetent             CPerlObj::Perl_pp_snetent
-#define pp_socket              CPerlObj::Perl_pp_socket
-#define pp_sockpair            CPerlObj::Perl_pp_sockpair
-#define pp_sort                        CPerlObj::Perl_pp_sort
-#define pp_splice              CPerlObj::Perl_pp_splice
-#define pp_split               CPerlObj::Perl_pp_split
-#define pp_sprintf             CPerlObj::Perl_pp_sprintf
-#define pp_sprotoent           CPerlObj::Perl_pp_sprotoent
-#define pp_spwent              CPerlObj::Perl_pp_spwent
-#define pp_sqrt                        CPerlObj::Perl_pp_sqrt
-#define pp_srand               CPerlObj::Perl_pp_srand
-#define pp_srefgen             CPerlObj::Perl_pp_srefgen
-#define pp_sselect             CPerlObj::Perl_pp_sselect
-#define pp_sservent            CPerlObj::Perl_pp_sservent
-#define pp_ssockopt            CPerlObj::Perl_pp_ssockopt
-#define pp_stat                        CPerlObj::Perl_pp_stat
-#define pp_stringify           CPerlObj::Perl_pp_stringify
-#define pp_stub                        CPerlObj::Perl_pp_stub
-#define pp_study               CPerlObj::Perl_pp_study
-#define pp_subst               CPerlObj::Perl_pp_subst
-#define pp_substcont           CPerlObj::Perl_pp_substcont
-#define pp_substr              CPerlObj::Perl_pp_substr
-#define pp_subtract            CPerlObj::Perl_pp_subtract
-#define pp_symlink             CPerlObj::Perl_pp_symlink
-#define pp_syscall             CPerlObj::Perl_pp_syscall
-#define pp_sysopen             CPerlObj::Perl_pp_sysopen
-#define pp_sysread             CPerlObj::Perl_pp_sysread
-#define pp_sysseek             CPerlObj::Perl_pp_sysseek
-#define pp_system              CPerlObj::Perl_pp_system
-#define pp_syswrite            CPerlObj::Perl_pp_syswrite
-#define pp_tell                        CPerlObj::Perl_pp_tell
-#define pp_telldir             CPerlObj::Perl_pp_telldir
-#define pp_threadsv            CPerlObj::Perl_pp_threadsv
-#define pp_tie                 CPerlObj::Perl_pp_tie
-#define pp_tied                        CPerlObj::Perl_pp_tied
-#define pp_time                        CPerlObj::Perl_pp_time
-#define pp_tms                 CPerlObj::Perl_pp_tms
-#define pp_trans               CPerlObj::Perl_pp_trans
-#define pp_truncate            CPerlObj::Perl_pp_truncate
-#define pp_uc                  CPerlObj::Perl_pp_uc
-#define pp_ucfirst             CPerlObj::Perl_pp_ucfirst
-#define pp_umask               CPerlObj::Perl_pp_umask
-#define pp_undef               CPerlObj::Perl_pp_undef
-#define pp_unlink              CPerlObj::Perl_pp_unlink
-#define pp_unpack              CPerlObj::Perl_pp_unpack
-#define pp_unshift             CPerlObj::Perl_pp_unshift
-#define pp_unstack             CPerlObj::Perl_pp_unstack
-#define pp_untie               CPerlObj::Perl_pp_untie
-#define pp_utime               CPerlObj::Perl_pp_utime
-#define pp_values              CPerlObj::Perl_pp_values
-#define pp_vec                 CPerlObj::Perl_pp_vec
-#define pp_wait                        CPerlObj::Perl_pp_wait
-#define pp_waitpid             CPerlObj::Perl_pp_waitpid
-#define pp_wantarray           CPerlObj::Perl_pp_wantarray
-#define pp_warn                        CPerlObj::Perl_pp_warn
-#define pp_xor                 CPerlObj::Perl_pp_xor
-#define pregcomp               CPerlObj::Perl_pregcomp
-#define pregexec               CPerlObj::Perl_pregexec
-#define pregfree               CPerlObj::Perl_pregfree
-#define prepend_elem           CPerlObj::Perl_prepend_elem
-#define push_return            CPerlObj::Perl_push_return
-#define push_scope             CPerlObj::Perl_push_scope
-#define pv_display             CPerlObj::Perl_pv_display
 #define qsortsv                        CPerlObj::Perl_qsortsv
 #define re_croak2              CPerlObj::Perl_re_croak2
-#define ref                    CPerlObj::Perl_ref
-#define refkids                        CPerlObj::Perl_refkids
 #define refto                  CPerlObj::Perl_refto
 #define reg                    CPerlObj::Perl_reg
 #define reg_node               CPerlObj::Perl_reg_node
 #define regcppop               CPerlObj::Perl_regcppop
 #define regcppush              CPerlObj::Perl_regcppush
 #define regcurly               CPerlObj::Perl_regcurly
-#define regdump                        CPerlObj::Perl_regdump
-#define regexec_flags          CPerlObj::Perl_regexec_flags
 #define reghop                 CPerlObj::Perl_reghop
 #define reghopmaybe            CPerlObj::Perl_reghopmaybe
 #define reginclass             CPerlObj::Perl_reginclass
 #define reginclassutf8         CPerlObj::Perl_reginclassutf8
-#define reginitcolors          CPerlObj::Perl_reginitcolors
 #define reginsert              CPerlObj::Perl_reginsert
 #define regmatch               CPerlObj::Perl_regmatch
-#define regnext                        CPerlObj::Perl_regnext
 #define regoptail              CPerlObj::Perl_regoptail
 #define regpiece               CPerlObj::Perl_regpiece
 #define regpposixcc            CPerlObj::Perl_regpposixcc
-#define regprop                        CPerlObj::Perl_regprop
 #define regrepeat              CPerlObj::Perl_regrepeat
 #define regrepeat_hard         CPerlObj::Perl_regrepeat_hard
 #define regset                 CPerlObj::Perl_regset
 #define regtry                 CPerlObj::Perl_regtry
 #define reguni                 CPerlObj::Perl_reguni
 #define regwhite               CPerlObj::Perl_regwhite
-#define repeatcpy              CPerlObj::Perl_repeatcpy
 #define restore_expect         CPerlObj::Perl_restore_expect
 #define restore_lex_expect     CPerlObj::Perl_restore_lex_expect
 #define restore_magic          CPerlObj::Perl_restore_magic
 #define restore_pos            CPerlObj::Perl_restore_pos
 #define restore_rsfp           CPerlObj::Perl_restore_rsfp
-#define rninstr                        CPerlObj::Perl_rninstr
-#define rsignal                        CPerlObj::Perl_rsignal
-#define rsignal_restore                CPerlObj::Perl_rsignal_restore
-#define rsignal_save           CPerlObj::Perl_rsignal_save
-#define rsignal_state          CPerlObj::Perl_rsignal_state
-#define runops_debug           CPerlObj::Perl_runops_debug
-#define runops_debug           CPerlObj::Perl_runops_debug
-#define runops_standard                CPerlObj::Perl_runops_standard
-#define runops_standard                CPerlObj::Perl_runops_standard
-#define rxres_free             CPerlObj::Perl_rxres_free
-#define rxres_restore          CPerlObj::Perl_rxres_restore
-#define rxres_save             CPerlObj::Perl_rxres_save
-#define safesyscalloc          CPerlObj::Perl_safesyscalloc
-#define safesysfree            CPerlObj::Perl_safesysfree
-#define safesysmalloc          CPerlObj::Perl_safesysmalloc
-#define safesysrealloc         CPerlObj::Perl_safesysrealloc
-#define safexcalloc            CPerlObj::Perl_safexcalloc
-#define safexfree              CPerlObj::Perl_safexfree
-#define safexmalloc            CPerlObj::Perl_safexmalloc
-#define safexrealloc           CPerlObj::Perl_safexrealloc
-#define same_dirent            CPerlObj::Perl_same_dirent
-#define save_I16               CPerlObj::Perl_save_I16
-#define save_I32               CPerlObj::Perl_save_I32
-#define save_aelem             CPerlObj::Perl_save_aelem
-#define save_alloc             CPerlObj::Perl_save_alloc
-#define save_aptr              CPerlObj::Perl_save_aptr
-#define save_ary               CPerlObj::Perl_save_ary
-#define save_clearsv           CPerlObj::Perl_save_clearsv
-#define save_delete            CPerlObj::Perl_save_delete
-#define save_destructor                CPerlObj::Perl_save_destructor
-#define save_freeop            CPerlObj::Perl_save_freeop
-#define save_freepv            CPerlObj::Perl_save_freepv
-#define save_freesv            CPerlObj::Perl_save_freesv
-#define save_generic_svref     CPerlObj::Perl_save_generic_svref
-#define save_gp                        CPerlObj::Perl_save_gp
-#define save_hash              CPerlObj::Perl_save_hash
 #define save_hek               CPerlObj::Perl_save_hek
-#define save_helem             CPerlObj::Perl_save_helem
-#define save_hints             CPerlObj::Perl_save_hints
-#define save_hptr              CPerlObj::Perl_save_hptr
-#define save_int               CPerlObj::Perl_save_int
-#define save_item              CPerlObj::Perl_save_item
-#define save_iv                        CPerlObj::Perl_save_iv
 #define save_lines             CPerlObj::Perl_save_lines
-#define save_list              CPerlObj::Perl_save_list
-#define save_long              CPerlObj::Perl_save_long
 #define save_magic             CPerlObj::Perl_save_magic
-#define save_nogv              CPerlObj::Perl_save_nogv
-#define save_op                        CPerlObj::Perl_save_op
-#define save_pptr              CPerlObj::Perl_save_pptr
-#define save_re_context                CPerlObj::Perl_save_re_context
-#define save_scalar            CPerlObj::Perl_save_scalar
 #define save_scalar_at         CPerlObj::Perl_save_scalar_at
-#define save_sptr              CPerlObj::Perl_save_sptr
-#define save_svref             CPerlObj::Perl_save_svref
-#define save_threadsv          CPerlObj::Perl_save_threadsv
-#define savepv                 CPerlObj::Perl_savepv
-#define savepvn                        CPerlObj::Perl_savepvn
-#define savestack_grow         CPerlObj::Perl_savestack_grow
-#define sawparens              CPerlObj::Perl_sawparens
-#define scalar                 CPerlObj::Perl_scalar
 #define scalarboolean          CPerlObj::Perl_scalarboolean
-#define scalarkids             CPerlObj::Perl_scalarkids
-#define scalarseq              CPerlObj::Perl_scalarseq
-#define scalarvoid             CPerlObj::Perl_scalarvoid
-#define scan_bin               CPerlObj::Perl_scan_bin
 #define scan_commit            CPerlObj::Perl_scan_commit
 #define scan_const             CPerlObj::Perl_scan_const
 #define scan_formline          CPerlObj::Perl_scan_formline
 #define scan_heredoc           CPerlObj::Perl_scan_heredoc
-#define scan_hex               CPerlObj::Perl_scan_hex
 #define scan_ident             CPerlObj::Perl_scan_ident
 #define scan_inputsymbol       CPerlObj::Perl_scan_inputsymbol
-#define scan_num               CPerlObj::Perl_scan_num
-#define scan_oct               CPerlObj::Perl_scan_oct
 #define scan_pat               CPerlObj::Perl_scan_pat
 #define scan_str               CPerlObj::Perl_scan_str
 #define scan_subst             CPerlObj::Perl_scan_subst
 #define scan_trans             CPerlObj::Perl_scan_trans
 #define scan_word              CPerlObj::Perl_scan_word
-#define scope                  CPerlObj::Perl_scope
-#define screaminstr            CPerlObj::Perl_screaminstr
 #define seed                   CPerlObj::Perl_seed
 #define set_csh                        CPerlObj::Perl_set_csh
-#define setdefout              CPerlObj::Perl_setdefout
-#define setenv_getix           CPerlObj::Perl_setenv_getix
-#define share_hek              CPerlObj::Perl_share_hek
-#define sharepvn               CPerlObj::Perl_sharepvn
-#define sighandler             CPerlObj::Perl_sighandler
 #define simplify_sort          CPerlObj::Perl_simplify_sort
 #define skipspace              CPerlObj::Perl_skipspace
 #define sortcv                 CPerlObj::Perl_sortcv
-#define stack_grow             CPerlObj::Perl_stack_grow
-#define start_subparse         CPerlObj::Perl_start_subparse
 #define study_chunk            CPerlObj::Perl_study_chunk
-#define sub_crush_depth                CPerlObj::Perl_sub_crush_depth
 #define sublex_done            CPerlObj::Perl_sublex_done
 #define sublex_push            CPerlObj::Perl_sublex_push
 #define sublex_start           CPerlObj::Perl_sublex_start
-#define sv_2bool               CPerlObj::Perl_sv_2bool
-#define sv_2cv                 CPerlObj::Perl_sv_2cv
-#define sv_2io                 CPerlObj::Perl_sv_2io
-#define sv_2iv                 CPerlObj::Perl_sv_2iv
-#define sv_2mortal             CPerlObj::Perl_sv_2mortal
-#define sv_2nv                 CPerlObj::Perl_sv_2nv
-#define sv_2pv                 CPerlObj::Perl_sv_2pv
-#define sv_2pv_nolen           CPerlObj::Perl_sv_2pv_nolen
-#define sv_2uv                 CPerlObj::Perl_sv_2uv
-#define sv_add_arena           CPerlObj::Perl_sv_add_arena
 #define sv_add_backref         CPerlObj::Perl_sv_add_backref
-#define sv_backoff             CPerlObj::Perl_sv_backoff
-#define sv_bless               CPerlObj::Perl_sv_bless
-#define sv_catpv               CPerlObj::Perl_sv_catpv
-#define sv_catpv_mg            CPerlObj::Perl_sv_catpv_mg
-#define sv_catpvf              CPerlObj::Perl_sv_catpvf
-#define sv_catpvf_mg           CPerlObj::Perl_sv_catpvf_mg
-#define sv_catpvn              CPerlObj::Perl_sv_catpvn
-#define sv_catpvn_mg           CPerlObj::Perl_sv_catpvn_mg
-#define sv_catsv               CPerlObj::Perl_sv_catsv
-#define sv_catsv_mg            CPerlObj::Perl_sv_catsv_mg
-#define sv_chop                        CPerlObj::Perl_sv_chop
-#define sv_clean_all           CPerlObj::Perl_sv_clean_all
-#define sv_clean_objs          CPerlObj::Perl_sv_clean_objs
-#define sv_clear               CPerlObj::Perl_sv_clear
-#define sv_cmp                 CPerlObj::Perl_sv_cmp
-#define sv_cmp_locale          CPerlObj::Perl_sv_cmp_locale
-#define sv_collxfrm            CPerlObj::Perl_sv_collxfrm
-#define sv_compile_2op         CPerlObj::Perl_sv_compile_2op
-#define sv_dec                 CPerlObj::Perl_sv_dec
 #define sv_del_backref         CPerlObj::Perl_sv_del_backref
-#define sv_derived_from                CPerlObj::Perl_sv_derived_from
-#define sv_dump                        CPerlObj::Perl_sv_dump
-#define sv_eq                  CPerlObj::Perl_sv_eq
-#define sv_force_normal                CPerlObj::Perl_sv_force_normal
-#define sv_free                        CPerlObj::Perl_sv_free
-#define sv_free_arenas         CPerlObj::Perl_sv_free_arenas
-#define sv_gets                        CPerlObj::Perl_sv_gets
-#define sv_grow                        CPerlObj::Perl_sv_grow
 #define sv_i_ncmp              CPerlObj::Perl_sv_i_ncmp
-#define sv_inc                 CPerlObj::Perl_sv_inc
-#define sv_insert              CPerlObj::Perl_sv_insert
-#define sv_isa                 CPerlObj::Perl_sv_isa
-#define sv_isobject            CPerlObj::Perl_sv_isobject
-#define sv_iv                  CPerlObj::Perl_sv_iv
-#define sv_len                 CPerlObj::Perl_sv_len
-#define sv_len_utf8            CPerlObj::Perl_sv_len_utf8
-#define sv_magic               CPerlObj::Perl_sv_magic
-#define sv_mortalcopy          CPerlObj::Perl_sv_mortalcopy
 #define sv_ncmp                        CPerlObj::Perl_sv_ncmp
-#define sv_newmortal           CPerlObj::Perl_sv_newmortal
-#define sv_newref              CPerlObj::Perl_sv_newref
-#define sv_nv                  CPerlObj::Perl_sv_nv
-#define sv_peek                        CPerlObj::Perl_sv_peek
-#define sv_pos_b2u             CPerlObj::Perl_sv_pos_b2u
-#define sv_pos_u2b             CPerlObj::Perl_sv_pos_u2b
-#define sv_pv                  CPerlObj::Perl_sv_pv
-#define sv_pvn                 CPerlObj::Perl_sv_pvn
-#define sv_pvn_force           CPerlObj::Perl_sv_pvn_force
-#define sv_reftype             CPerlObj::Perl_sv_reftype
-#define sv_replace             CPerlObj::Perl_sv_replace
-#define sv_report_used         CPerlObj::Perl_sv_report_used
-#define sv_reset               CPerlObj::Perl_sv_reset
-#define sv_rvweaken            CPerlObj::Perl_sv_rvweaken
-#define sv_setiv               CPerlObj::Perl_sv_setiv
-#define sv_setiv_mg            CPerlObj::Perl_sv_setiv_mg
-#define sv_setnv               CPerlObj::Perl_sv_setnv
-#define sv_setnv_mg            CPerlObj::Perl_sv_setnv_mg
-#define sv_setpv               CPerlObj::Perl_sv_setpv
-#define sv_setpv_mg            CPerlObj::Perl_sv_setpv_mg
-#define sv_setpvf              CPerlObj::Perl_sv_setpvf
-#define sv_setpvf_mg           CPerlObj::Perl_sv_setpvf_mg
-#define sv_setpviv             CPerlObj::Perl_sv_setpviv
-#define sv_setpviv_mg          CPerlObj::Perl_sv_setpviv_mg
-#define sv_setpvn              CPerlObj::Perl_sv_setpvn
-#define sv_setpvn_mg           CPerlObj::Perl_sv_setpvn_mg
-#define sv_setref_iv           CPerlObj::Perl_sv_setref_iv
-#define sv_setref_nv           CPerlObj::Perl_sv_setref_nv
-#define sv_setref_pv           CPerlObj::Perl_sv_setref_pv
-#define sv_setref_pvn          CPerlObj::Perl_sv_setref_pvn
-#define sv_setsv               CPerlObj::Perl_sv_setsv
-#define sv_setsv_mg            CPerlObj::Perl_sv_setsv_mg
-#define sv_setuv               CPerlObj::Perl_sv_setuv
-#define sv_setuv_mg            CPerlObj::Perl_sv_setuv_mg
-#define sv_taint               CPerlObj::Perl_sv_taint
-#define sv_tainted             CPerlObj::Perl_sv_tainted
-#define sv_true                        CPerlObj::Perl_sv_true
 #define sv_unglob              CPerlObj::Perl_sv_unglob
-#define sv_unmagic             CPerlObj::Perl_sv_unmagic
-#define sv_unref               CPerlObj::Perl_sv_unref
-#define sv_untaint             CPerlObj::Perl_sv_untaint
-#define sv_upgrade             CPerlObj::Perl_sv_upgrade
-#define sv_usepvn              CPerlObj::Perl_sv_usepvn
-#define sv_usepvn_mg           CPerlObj::Perl_sv_usepvn_mg
-#define sv_uv                  CPerlObj::Perl_sv_uv
-#define sv_vcatpvfn            CPerlObj::Perl_sv_vcatpvfn
-#define sv_vsetpvfn            CPerlObj::Perl_sv_vsetpvfn
-#define swash_fetch            CPerlObj::Perl_swash_fetch
-#define swash_init             CPerlObj::Perl_swash_init
-#define taint_env              CPerlObj::Perl_taint_env
-#define taint_proper           CPerlObj::Perl_taint_proper
-#define tmps_grow              CPerlObj::Perl_tmps_grow
-#define to_uni_lower           CPerlObj::Perl_to_uni_lower
-#define to_uni_lower_lc                CPerlObj::Perl_to_uni_lower_lc
-#define to_uni_title           CPerlObj::Perl_to_uni_title
-#define to_uni_title_lc                CPerlObj::Perl_to_uni_title_lc
-#define to_uni_upper           CPerlObj::Perl_to_uni_upper
-#define to_uni_upper_lc                CPerlObj::Perl_to_uni_upper_lc
-#define to_utf8_lower          CPerlObj::Perl_to_utf8_lower
-#define to_utf8_title          CPerlObj::Perl_to_utf8_title
-#define to_utf8_upper          CPerlObj::Perl_to_utf8_upper
 #define tokeq                  CPerlObj::Perl_tokeq
 #define too_few_arguments      CPerlObj::Perl_too_few_arguments
 #define too_many_arguments     CPerlObj::Perl_too_many_arguments
 #define uni                    CPerlObj::Perl_uni
-#define unlnk                  CPerlObj::Perl_unlnk
-#define unlock_condpair                CPerlObj::Perl_unlock_condpair
-#define unshare_hek            CPerlObj::Perl_unshare_hek
-#define unsharepvn             CPerlObj::Perl_unsharepvn
 #define unwind_handler_stack   CPerlObj::Perl_unwind_handler_stack
 #define usage                  CPerlObj::Perl_usage
-#define utf16_to_utf8          CPerlObj::Perl_utf16_to_utf8
-#define utf16_to_utf8_reversed CPerlObj::Perl_utf16_to_utf8_reversed
-#define utf8_distance          CPerlObj::Perl_utf8_distance
-#define utf8_hop               CPerlObj::Perl_utf8_hop
-#define utf8_to_uv             CPerlObj::Perl_utf8_to_uv
-#define utilize                        CPerlObj::Perl_utilize
-#define uv_to_utf8             CPerlObj::Perl_uv_to_utf8
 #define validate_suid          CPerlObj::Perl_validate_suid
 #define visit                  CPerlObj::Perl_visit
-#define vivify_defelem         CPerlObj::Perl_vivify_defelem
-#define vivify_ref             CPerlObj::Perl_vivify_ref
-#define wait4pid               CPerlObj::Perl_wait4pid
-#define warn                   CPerlObj::Perl_warn
-#define warner                 CPerlObj::Perl_warner
-#define watch                  CPerlObj::Perl_watch
-#define whichsig               CPerlObj::Perl_whichsig
 #define win32_textfilter       CPerlObj::Perl_win32_textfilter
-#define yydestruct             CPerlObj::Perl_yydestruct
-#define yydestruct             CPerlObj::Perl_yydestruct
-#define yyerror                        CPerlObj::Perl_yyerror
-#define yylex                  CPerlObj::Perl_yylex
-#define yyparse                        CPerlObj::Perl_yyparse
-#define yywarn                 CPerlObj::Perl_yywarn
 
 #endif /* PERL_OBJECT */
 
 
 #define sv_setptrobj(rv,ptr,name)      sv_setref_iv(rv,name,(IV)ptr)
 #define sv_setptrref(rv,ptr)           sv_setref_iv(rv,Nullch,(IV)ptr)
+#define perl_atexit                    call_atexit
+#define perl_call_argv                 call_argv
+#define perl_call_pv                   call_pv
+#define perl_call_method               call_method
+#define perl_call_sv                   call_sv
+#define perl_eval_sv                   eval_sv
+#define perl_eval_pv                   eval_pv
+#define perl_require_pv                        require_pv
+#define perl_get_sv                    get_sv
+#define perl_get_av                    get_av
+#define perl_get_hv                    get_hv
+#define perl_get_cv                    get_cv
+#define perl_init_i18nl10n             init_i18nl10n
+#define perl_init_i18nl14n             init_i18nl14n
+#define perl_new_ctype                 new_ctype
+#define perl_new_collate               new_collate
+#define perl_new_numeric               new_numeric
 
index 37a0070..c877f0d 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -109,7 +109,8 @@ sub hide ($$) {
 
 sub embed ($) {
     my ($sym) = @_;
-    hide($sym, "Perl_$sym");
+    my $def = $sym;
+    hide($def, $sym) if $def =~ s/^Perl_//;
 }
 
 sub embedobj ($) {
@@ -165,6 +166,7 @@ print EM <<'END';
 END
 
 for $sym (sort keys %global) {
+    next if $sym =~ /^Perl_(malloc|calloc|realloc|mfree)$/;
     print EM embed($sym);
 }
 
@@ -402,6 +404,7 @@ my @staticfuncs = qw(
 );
 
 for $sym (sort(keys(%global),@staticfuncs)) {
+    next if $sym =~ /^Perl_(malloc|calloc|realloc|mfree)$/;
     print EM embedobj($sym);
 }
 
@@ -413,6 +416,23 @@ print EM <<'END';
 
 #define sv_setptrobj(rv,ptr,name)      sv_setref_iv(rv,name,(IV)ptr)
 #define sv_setptrref(rv,ptr)           sv_setref_iv(rv,Nullch,(IV)ptr)
+#define perl_atexit                    call_atexit
+#define perl_call_argv                 call_argv
+#define perl_call_pv                   call_pv
+#define perl_call_method               call_method
+#define perl_call_sv                   call_sv
+#define perl_eval_sv                   eval_sv
+#define perl_eval_pv                   eval_pv
+#define perl_require_pv                        require_pv
+#define perl_get_sv                    get_sv
+#define perl_get_av                    get_av
+#define perl_get_hv                    get_hv
+#define perl_get_cv                    get_cv
+#define perl_init_i18nl10n             init_i18nl10n
+#define perl_init_i18nl14n             init_i18nl14n
+#define perl_new_ctype                 new_ctype
+#define perl_new_collate               new_collate
+#define perl_new_numeric               new_numeric
 
 END
 
index b529dbf..b196963 100644 (file)
@@ -3051,7 +3051,7 @@ setlocale(category, locale = 0)
                else
 #endif
                    newctype = RETVAL;
-               perl_new_ctype(newctype);
+               new_ctype(newctype);
            }
 #endif /* USE_LOCALE_CTYPE */
 #ifdef USE_LOCALE_COLLATE
@@ -3068,7 +3068,7 @@ setlocale(category, locale = 0)
                else
 #endif
                    newcoll = RETVAL;
-               perl_new_collate(newcoll);
+               new_collate(newcoll);
            }
 #endif /* USE_LOCALE_COLLATE */
 #ifdef USE_LOCALE_NUMERIC
@@ -3085,7 +3085,7 @@ setlocale(category, locale = 0)
                else
 #endif
                    newnum = RETVAL;
-               perl_new_numeric(newnum);
+               new_numeric(newnum);
            }
 #endif /* USE_LOCALE_NUMERIC */
        }
index 35acec5..4c7f6c2 100644 (file)
-# Global function symbols that need to be hidden in embedded applications.
-
-# *** Do NOT add global variables here, add them in *var*.h ***
-
-Gv_AMupdate
-amagic_call
-append_elem
-append_list
-apply
-assertref
-av_clear
-av_extend
-av_fake
-av_fetch
-av_fill
-av_len
-av_make
-av_pop
-av_push
-av_reify
-av_shift
-av_store
-av_undef
-av_unshift
-avhv_exists_ent
-avhv_fetch_ent
-avhv_iternext
-avhv_iterval
-avhv_keys
-bind_match
-block_end
-block_gimme
-block_start
-boot_core_UNIVERSAL
-bset_obj_store
-call_list
-cando
-cast_i32
-cast_iv
-cast_ulong
-cast_uv
-condpair_magic
-convert
-croak
-cv_ckproto
-cv_clone
-cv_const_sv
-cv_undef
-cx_dump
-cxinc
-deb
-deb_growlevel
-debop
-debprofdump
-debstack
-debstackptrs
-default_protect
-delimcpy
-deprecate
-die
-die_where
-do_aexec
-do_binmode
-do_chomp
-do_chop
-do_close
-do_eof
-do_exec
-do_exec3
-do_execfree
-do_gv_dump
-do_gvgv_dump
-do_hv_dump
-do_ipcctl
-do_ipcget
-do_join
-do_kv
-do_magic_dump
-do_msgrcv
-do_msgsnd
-do_op_dump
-do_open
-do_pipe
-do_pmop_dump
-do_print
-do_readline
-do_seek
-do_semop
-do_shmio
-do_sprintf
-do_sv_dump
-do_sysseek
-do_tell
-do_trans
-do_vecset
-do_vop
-dofile
-dounwind
-dowantarray
-dump_all
-dump_eval
-dump_fds
-dump_form
-dump_indent
-dump_mstats
-dump_packsubs
-dump_sub
-fbm_compile
-fbm_instr
-filter_add
-filter_del
-filter_read
-find_script
-find_threadsv
-fold_constants
-force_list
-form
-free_tmps
-gen_constant_list
-get_no_modify
-get_op_descs
-get_op_names
-get_opargs
-get_vtbl
-getenv_len
-gp_free
-gp_ref
-gv_AVadd
-gv_HVadd
-gv_IOadd
-gv_autoload4
-gv_check
-gv_dump
-gv_efullname
-gv_efullname3
-gv_fetchfile
-gv_fetchmeth
-gv_fetchmethod
-gv_fetchmethod_autoload
-gv_fetchpv
-gv_fullname
-gv_fullname3
-gv_init
-gv_stashpv
-gv_stashpvn
-gv_stashsv
-hv_clear
-hv_delayfree_ent
-hv_delete
-hv_delete_ent
-hv_exists
-hv_exists_ent
-hv_fetch
-hv_fetch_ent
-hv_free_ent
-hv_iterinit
-hv_iterkey
-hv_iterkeysv
-hv_iternext
-hv_iternextsv
-hv_iterval
-hv_ksplit
-hv_magic
-hv_store
-hv_store_ent
-hv_undef
-ibcmp
-ibcmp_locale
-ingroup
-init_stacks
-init_thread_intern
-instr
-intro_my
-invert
-io_close
-is_uni_alnum
-is_uni_alnum_lc
-is_uni_alpha
-is_uni_alpha_lc
-is_uni_digit
-is_uni_digit_lc
-is_uni_idfirst
-is_uni_idfirst_lc
-is_uni_lower
-is_uni_lower_lc
-is_uni_print
-is_uni_print_lc
-is_uni_space
-is_uni_space_lc
-is_uni_upper
-is_uni_upper_lc
-is_utf8_alnum
-is_utf8_alpha
-is_utf8_digit
-is_utf8_idfirst
-is_utf8_lower
-is_utf8_mark
-is_utf8_print
-is_utf8_space
-is_utf8_upper
-jmaybe
-keyword
-leave_scope
-lex_end
-lex_start
-linklist
-list
-listkids
-localize
-looks_like_number
-magic_clear_all_env
-magic_clearenv
-magic_clearpack
-magic_clearsig
-magic_dump
-magic_existspack
-magic_freeregexp
-magic_get
-magic_getarylen
-magic_getdefelem
-magic_getglob
-magic_getnkeys
-magic_getpack
-magic_getpos
-magic_getsig
-magic_getsubstr
-magic_gettaint
-magic_getuvar
-magic_getvec
-magic_killbackrefs
-magic_len
-magic_mutexfree
-magic_nextpack
-magic_regdata_cnt
-magic_regdatum_get
-magic_set
-magic_set_all_env
-magic_setamagic
-magic_setarylen
-magic_setbm
-magic_setcollxfrm
-magic_setdbline
-magic_setdefelem
-magic_setenv
-magic_setfm
-magic_setglob
-magic_setisa
-magic_setmglob
-magic_setnkeys
-magic_setpack
-magic_setpos
-magic_setsig
-magic_setsubstr
-magic_settaint
-magic_setuvar
-magic_setvec
-magic_sizepack
-magic_wipepack
-magicname
-malloced_size
-markstack_grow
-mem_collxfrm
-mess
-mg_clear
-mg_copy
-mg_find
-mg_free
-mg_get
-mg_length
-mg_magical
-mg_set
-mg_size
-mod
-moreswitches
-my
-my_bcopy
-my_bzero
-my_chsize
-my_exit
-my_failure_exit
-my_fflush_all
-my_htonl
-my_lstat
-my_memcmp
-my_memset
-my_ntohl
-my_pclose
-my_popen
-my_setenv
-my_stat
-my_swap
-my_unexec
-newANONHASH
-newANONLIST
-newANONSUB
-newASSIGNOP
-newAV
-newAVREF
-newBINOP
-newCONDOP
-newCONSTSUB
-newCVREF
-newFORM
-newFOROP
-newGVOP
-newGVREF
-newGVgen
-newHV
-newHVREF
-newHVhv
-newIO
-newLISTOP
-newLOGOP
-newLOOPEX
-newLOOPOP
-newNULLLIST
-newOP
-newPMOP
-newPROG
-newPVOP
-newRANGE
-newRV
-newRV_noinc
-newSLICEOP
-newSTATEOP
-newSUB
-newSV
-newSVOP
-newSVREF
-newSViv
-newSVnv
-newSVpv
-newSVpvf
-newSVpvn
-newSVrv
-newSVsv
-newUNOP
-newWHILEOP
-newXS
-new_stackinfo
-new_struct_thread
-nextargv
-ninstr
-oopsAV
-oopsCV
-oopsHV
-op_const_sv
-op_dump
-op_free
-package
-pad_alloc
-pad_allocmy
-pad_findmy
-pad_free
-pad_leavemy
-pad_reset
-pad_sv
-pad_swipe
-peep
-pidgone
-pmflag
-pmop_dump
-pmruntime
-pmtrans
-pop_return
-pop_scope
-pregcomp
-pregexec
-pregfree
-prepend_elem
-push_return
-push_scope
-pv_display
-ref
-refkids
-regdump
-regexec_flags
-reginitcolors
-regnext
-regprop
-repeatcpy
-rninstr
-rsignal
-rsignal_restore
-rsignal_save
-rsignal_state
-runops_debug
-runops_standard
-rxres_free
-rxres_restore
-rxres_save
-safesyscalloc
-safesysfree
-safesysmalloc
-safesysrealloc
-safexcalloc
-safexfree
-safexmalloc
-safexrealloc
-same_dirent
-save_I16
-save_I32
-save_aelem
-save_alloc
-save_aptr
-save_ary
-save_clearsv
-save_delete
-save_destructor
-save_freeop
-save_freepv
-save_freesv
-save_generic_svref
-save_gp
-save_hash
-save_helem
-save_hints
-save_hptr
-save_int
-save_item
-save_iv
-save_list
-save_long
-save_nogv
-save_op
-save_pptr
-save_re_context
-save_scalar
-save_sptr
-save_svref
-save_threadsv
-savepv
-savepvn
-savestack_grow
-sawparens
-scalar
-scalarkids
-scalarseq
-scalarvoid
-scan_bin
-scan_hex
-scan_num
-scan_oct
-scope
-screaminstr
-setdefout
-setenv_getix
-share_hek
-sharepvn
-sighandler
-stack_grow
-start_subparse
-sub_crush_depth
-sv_2bool
-sv_2cv
-sv_2io
-sv_2iv
-sv_2mortal
-sv_2nv
-sv_2pv
-sv_2pv_nolen
-sv_2uv
-sv_add_arena
-sv_backoff
-sv_bless
-sv_catpv
-sv_catpv_mg
-sv_catpvf
-sv_catpvf_mg
-sv_catpvn
-sv_catpvn_mg
-sv_catsv
-sv_catsv_mg
-sv_chop
-sv_clean_all
-sv_clean_objs
-sv_clear
-sv_cmp
-sv_cmp_locale
-sv_collxfrm
-sv_compile_2op
-sv_dec
-sv_derived_from
-sv_dump
-sv_eq
-sv_force_normal
-sv_free
-sv_free_arenas
-sv_gets
-sv_grow
-sv_inc
-sv_insert
-sv_isa
-sv_isobject
-sv_iv
-sv_len
-sv_len_utf8
-sv_magic
-sv_mortalcopy
-sv_newmortal
-sv_newref
-sv_nv
-sv_peek
-sv_pos_b2u
-sv_pos_u2b
-sv_pv
-sv_pvn
-sv_pvn_force
-sv_reftype
-sv_replace
-sv_report_used
-sv_reset
-sv_rvweaken
-sv_setiv
-sv_setiv_mg
-sv_setnv
-sv_setnv_mg
-sv_setpv
-sv_setpv_mg
-sv_setpvf
-sv_setpvf_mg
-sv_setpviv
-sv_setpviv_mg
-sv_setpvn
-sv_setpvn_mg
-sv_setref_iv
-sv_setref_nv
-sv_setref_pv
-sv_setref_pvn
-sv_setsv
-sv_setsv_mg
-sv_setuv
-sv_setuv_mg
-sv_taint
-sv_tainted
-sv_true
-sv_unmagic
-sv_unref
-sv_untaint
-sv_upgrade
-sv_usepvn
-sv_usepvn_mg
-sv_uv
-sv_vcatpvfn
-sv_vsetpvfn
-swash_fetch
-swash_init
-taint_env
-taint_proper
-tmps_grow
-to_uni_lower
-to_uni_lower_lc
-to_uni_title
-to_uni_title_lc
-to_uni_upper
-to_uni_upper_lc
-to_utf8_lower
-to_utf8_title
-to_utf8_upper
-unlnk
-unlock_condpair
-unshare_hek
-unsharepvn
-utf16_to_utf8
-utf16_to_utf8_reversed
-utf8_distance
-utf8_hop
-utf8_to_uv
-utilize
-uv_to_utf8
-vivify_defelem
-vivify_ref
-wait4pid
-warn
-warner
-watch
-whichsig
-yydestruct
-yyerror
-yylex
-yyparse
-yywarn
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is autogenerated from data in proto.pl.  Edit that file
+# and run 'make regen_headers' to effect changes.
+#
+Perl_ErrorNo
+Perl_GetVars
+Perl_Gv_AMupdate
+Perl_amagic_call
+Perl_append_elem
+Perl_append_list
+Perl_apply
+Perl_assertref
+Perl_av_clear
+Perl_av_extend
+Perl_av_fake
+Perl_av_fetch
+Perl_av_fill
+Perl_av_len
+Perl_av_make
+Perl_av_pop
+Perl_av_push
+Perl_av_reify
+Perl_av_shift
+Perl_av_store
+Perl_av_undef
+Perl_av_unshift
+Perl_avhv_exists_ent
+Perl_avhv_fetch_ent
+Perl_avhv_iternext
+Perl_avhv_iterval
+Perl_avhv_keys
+Perl_bind_match
+Perl_block_end
+Perl_block_gimme
+Perl_block_start
+Perl_boot_core_UNIVERSAL
+Perl_bset_obj_store
+Perl_call_argv
+Perl_call_atexit
+Perl_call_list
+Perl_call_method
+Perl_call_pv
+Perl_call_sv
+Perl_calloc
+Perl_cando
+Perl_cast_i32
+Perl_cast_iv
+Perl_cast_ulong
+Perl_cast_uv
+Perl_condpair_magic
+Perl_convert
+Perl_croak
+Perl_cv_ckproto
+Perl_cv_clone
+Perl_cv_const_sv
+Perl_cv_undef
+Perl_cx_dump
+Perl_cxinc
+Perl_deb
+Perl_deb_growlevel
+Perl_debop
+Perl_debprofdump
+Perl_debstack
+Perl_debstackptrs
+Perl_default_protect
+Perl_delimcpy
+Perl_deprecate
+Perl_die
+Perl_die_where
+Perl_do_aexec
+Perl_do_binmode
+Perl_do_chomp
+Perl_do_chop
+Perl_do_close
+Perl_do_eof
+Perl_do_exec
+Perl_do_exec3
+Perl_do_execfree
+Perl_do_gv_dump
+Perl_do_gvgv_dump
+Perl_do_hv_dump
+Perl_do_ipcctl
+Perl_do_ipcget
+Perl_do_join
+Perl_do_kv
+Perl_do_magic_dump
+Perl_do_msgrcv
+Perl_do_msgsnd
+Perl_do_op_dump
+Perl_do_open
+Perl_do_pipe
+Perl_do_pmop_dump
+Perl_do_print
+Perl_do_readline
+Perl_do_seek
+Perl_do_semop
+Perl_do_shmio
+Perl_do_sprintf
+Perl_do_sv_dump
+Perl_do_sysseek
+Perl_do_tell
+Perl_do_trans
+Perl_do_vecset
+Perl_do_vop
+Perl_dofile
+Perl_dounwind
+Perl_dowantarray
+Perl_dump_all
+Perl_dump_eval
+Perl_dump_fds
+Perl_dump_form
+Perl_dump_indent
+Perl_dump_mstats
+Perl_dump_packsubs
+Perl_dump_sub
+Perl_eval_pv
+Perl_eval_sv
+Perl_fbm_compile
+Perl_fbm_instr
+Perl_filter_add
+Perl_filter_del
+Perl_filter_read
+Perl_find_script
+Perl_find_threadsv
+Perl_fold_constants
+Perl_force_list
+Perl_form
+Perl_free_tmps
+Perl_gen_constant_list
+Perl_get_av
+Perl_get_cv
+Perl_get_hv
+Perl_get_no_modify
+Perl_get_op_descs
+Perl_get_op_names
+Perl_get_opargs
+Perl_get_sv
+Perl_get_vtbl
+Perl_getenv_len
+Perl_gp_free
+Perl_gp_ref
+Perl_gv_AVadd
+Perl_gv_HVadd
+Perl_gv_IOadd
+Perl_gv_autoload4
+Perl_gv_check
+Perl_gv_dump
+Perl_gv_efullname
+Perl_gv_efullname3
+Perl_gv_fetchfile
+Perl_gv_fetchmeth
+Perl_gv_fetchmethod
+Perl_gv_fetchmethod_autoload
+Perl_gv_fetchpv
+Perl_gv_fullname
+Perl_gv_fullname3
+Perl_gv_init
+Perl_gv_stashpv
+Perl_gv_stashpvn
+Perl_gv_stashsv
+Perl_hv_clear
+Perl_hv_delayfree_ent
+Perl_hv_delete
+Perl_hv_delete_ent
+Perl_hv_exists
+Perl_hv_exists_ent
+Perl_hv_fetch
+Perl_hv_fetch_ent
+Perl_hv_free_ent
+Perl_hv_iterinit
+Perl_hv_iterkey
+Perl_hv_iterkeysv
+Perl_hv_iternext
+Perl_hv_iternextsv
+Perl_hv_iterval
+Perl_hv_ksplit
+Perl_hv_magic
+Perl_hv_store
+Perl_hv_store_ent
+Perl_hv_undef
+Perl_ibcmp
+Perl_ibcmp_locale
+Perl_ingroup
+Perl_init_i18nl10n
+Perl_init_i18nl14n
+Perl_init_stacks
+Perl_instr
+Perl_intro_my
+Perl_invert
+Perl_io_close
+Perl_is_uni_alnum
+Perl_is_uni_alnum_lc
+Perl_is_uni_alpha
+Perl_is_uni_alpha_lc
+Perl_is_uni_digit
+Perl_is_uni_digit_lc
+Perl_is_uni_idfirst
+Perl_is_uni_idfirst_lc
+Perl_is_uni_lower
+Perl_is_uni_lower_lc
+Perl_is_uni_print
+Perl_is_uni_print_lc
+Perl_is_uni_space
+Perl_is_uni_space_lc
+Perl_is_uni_upper
+Perl_is_uni_upper_lc
+Perl_is_utf8_alnum
+Perl_is_utf8_alpha
+Perl_is_utf8_digit
+Perl_is_utf8_idfirst
+Perl_is_utf8_lower
+Perl_is_utf8_mark
+Perl_is_utf8_print
+Perl_is_utf8_space
+Perl_is_utf8_upper
+Perl_jmaybe
+Perl_keyword
+Perl_leave_scope
+Perl_lex_end
+Perl_lex_start
+Perl_linklist
+Perl_list
+Perl_listkids
+Perl_localize
+Perl_looks_like_number
+Perl_magic_clear_all_env
+Perl_magic_clearenv
+Perl_magic_clearpack
+Perl_magic_clearsig
+Perl_magic_dump
+Perl_magic_existspack
+Perl_magic_freeregexp
+Perl_magic_get
+Perl_magic_getarylen
+Perl_magic_getdefelem
+Perl_magic_getglob
+Perl_magic_getnkeys
+Perl_magic_getpack
+Perl_magic_getpos
+Perl_magic_getsig
+Perl_magic_getsubstr
+Perl_magic_gettaint
+Perl_magic_getuvar
+Perl_magic_getvec
+Perl_magic_killbackrefs
+Perl_magic_len
+Perl_magic_mutexfree
+Perl_magic_nextpack
+Perl_magic_regdata_cnt
+Perl_magic_regdatum_get
+Perl_magic_set
+Perl_magic_set_all_env
+Perl_magic_setamagic
+Perl_magic_setarylen
+Perl_magic_setbm
+Perl_magic_setcollxfrm
+Perl_magic_setdbline
+Perl_magic_setdefelem
+Perl_magic_setenv
+Perl_magic_setfm
+Perl_magic_setglob
+Perl_magic_setisa
+Perl_magic_setmglob
+Perl_magic_setnkeys
+Perl_magic_setpack
+Perl_magic_setpos
+Perl_magic_setsig
+Perl_magic_setsubstr
+Perl_magic_settaint
+Perl_magic_setuvar
+Perl_magic_setvec
+Perl_magic_sizepack
+Perl_magic_wipepack
+Perl_magicname
+main
+Perl_malloc
+Perl_malloced_size
+Perl_markstack_grow
+Perl_mem_collxfrm
+Perl_mess
+Perl_mfree
+Perl_mg_clear
+Perl_mg_copy
+Perl_mg_find
+Perl_mg_free
+Perl_mg_get
+Perl_mg_length
+Perl_mg_magical
+Perl_mg_set
+Perl_mg_size
+Perl_mod
+Perl_moreswitches
+Perl_my
+Perl_my_bcopy
+Perl_my_bzero
+Perl_my_chsize
+Perl_my_exit
+Perl_my_failure_exit
+Perl_my_fflush_all
+Perl_my_htonl
+Perl_my_lstat
+Perl_my_memcmp
+Perl_my_memset
+Perl_my_ntohl
+Perl_my_pclose
+Perl_my_popen
+Perl_my_setenv
+Perl_my_stat
+Perl_my_swap
+Perl_my_unexec
+Perl_newANONHASH
+Perl_newANONLIST
+Perl_newANONSUB
+Perl_newASSIGNOP
+Perl_newAV
+Perl_newAVREF
+Perl_newBINOP
+Perl_newCONDOP
+Perl_newCONSTSUB
+Perl_newCVREF
+Perl_newFORM
+Perl_newFOROP
+Perl_newGVOP
+Perl_newGVREF
+Perl_newGVgen
+Perl_newHV
+Perl_newHVREF
+Perl_newHVhv
+Perl_newIO
+Perl_newLISTOP
+Perl_newLOGOP
+Perl_newLOOPEX
+Perl_newLOOPOP
+Perl_newNULLLIST
+Perl_newOP
+Perl_newPMOP
+Perl_newPROG
+Perl_newPVOP
+Perl_newRANGE
+Perl_newRV
+Perl_newRV_noinc
+Perl_newSLICEOP
+Perl_newSTATEOP
+Perl_newSUB
+Perl_newSV
+Perl_newSVOP
+Perl_newSVREF
+Perl_newSViv
+Perl_newSVnv
+Perl_newSVpv
+Perl_newSVpvf
+Perl_newSVpvn
+Perl_newSVrv
+Perl_newSVsv
+Perl_newUNOP
+Perl_newWHILEOP
+Perl_newXS
+Perl_new_collate
+Perl_new_ctype
+Perl_new_numeric
+Perl_new_stackinfo
+Perl_new_struct_thread
+Perl_nextargv
+Perl_ninstr
+Perl_oopsAV
+Perl_oopsCV
+Perl_oopsHV
+Perl_op_const_sv
+Perl_op_dump
+Perl_op_free
+Perl_package
+Perl_pad_alloc
+Perl_pad_allocmy
+Perl_pad_findmy
+Perl_pad_free
+Perl_pad_leavemy
+Perl_pad_reset
+Perl_pad_sv
+Perl_pad_swipe
+Perl_peep
+perl_alloc
+perl_construct
+perl_destruct
+perl_free
+perl_parse
+perl_run
+Perl_pidgone
+Perl_pmflag
+Perl_pmop_dump
+Perl_pmruntime
+Perl_pmtrans
+Perl_pop_return
+Perl_pop_scope
+Perl_pregcomp
+Perl_pregexec
+Perl_pregfree
+Perl_prepend_elem
+Perl_push_return
+Perl_push_scope
+Perl_pv_display
+Perl_realloc
+Perl_ref
+Perl_refkids
+Perl_regdump
+Perl_regexec_flags
+Perl_reginitcolors
+Perl_regnext
+Perl_regprop
+Perl_repeatcpy
+Perl_require_pv
+Perl_rninstr
+Perl_rsignal
+Perl_rsignal_restore
+Perl_rsignal_save
+Perl_rsignal_state
+Perl_runops_debug
+Perl_runops_standard
+Perl_rxres_free
+Perl_rxres_restore
+Perl_rxres_save
+Perl_safesyscalloc
+Perl_safesysfree
+Perl_safesysmalloc
+Perl_safesysrealloc
+Perl_safexcalloc
+Perl_safexfree
+Perl_safexmalloc
+Perl_safexrealloc
+Perl_same_dirent
+Perl_save_I16
+Perl_save_I32
+Perl_save_aelem
+Perl_save_alloc
+Perl_save_aptr
+Perl_save_ary
+Perl_save_clearsv
+Perl_save_delete
+Perl_save_destructor
+Perl_save_freeop
+Perl_save_freepv
+Perl_save_freesv
+Perl_save_generic_svref
+Perl_save_gp
+Perl_save_hash
+Perl_save_helem
+Perl_save_hints
+Perl_save_hptr
+Perl_save_int
+Perl_save_item
+Perl_save_iv
+Perl_save_list
+Perl_save_long
+Perl_save_nogv
+Perl_save_op
+Perl_save_pptr
+Perl_save_re_context
+Perl_save_scalar
+Perl_save_sptr
+Perl_save_svref
+Perl_save_threadsv
+Perl_savepv
+Perl_savepvn
+Perl_savestack_grow
+Perl_sawparens
+Perl_scalar
+Perl_scalarkids
+Perl_scalarseq
+Perl_scalarvoid
+Perl_scan_bin
+Perl_scan_hex
+Perl_scan_num
+Perl_scan_oct
+Perl_scope
+Perl_screaminstr
+Perl_set_numeric_local
+Perl_set_numeric_standard
+Perl_setdefout
+Perl_setenv_getix
+Perl_share_hek
+Perl_sharepvn
+Perl_sighandler
+Perl_stack_grow
+Perl_start_subparse
+Perl_sub_crush_depth
+Perl_sv_2bool
+Perl_sv_2cv
+Perl_sv_2io
+Perl_sv_2iv
+Perl_sv_2mortal
+Perl_sv_2nv
+Perl_sv_2pv
+Perl_sv_2pv_nolen
+Perl_sv_2uv
+Perl_sv_add_arena
+Perl_sv_backoff
+Perl_sv_bless
+Perl_sv_catpv
+Perl_sv_catpv_mg
+Perl_sv_catpvf
+Perl_sv_catpvf_mg
+Perl_sv_catpvn
+Perl_sv_catpvn_mg
+Perl_sv_catsv
+Perl_sv_catsv_mg
+Perl_sv_chop
+Perl_sv_clean_all
+Perl_sv_clean_objs
+Perl_sv_clear
+Perl_sv_cmp
+Perl_sv_cmp_locale
+Perl_sv_collxfrm
+Perl_sv_compile_2op
+Perl_sv_dec
+Perl_sv_derived_from
+Perl_sv_dump
+Perl_sv_eq
+Perl_sv_force_normal
+Perl_sv_free
+Perl_sv_free_arenas
+Perl_sv_gets
+Perl_sv_grow
+Perl_sv_inc
+Perl_sv_insert
+Perl_sv_isa
+Perl_sv_isobject
+Perl_sv_iv
+Perl_sv_len
+Perl_sv_len_utf8
+Perl_sv_magic
+Perl_sv_mortalcopy
+Perl_sv_newmortal
+Perl_sv_newref
+Perl_sv_nv
+Perl_sv_peek
+Perl_sv_pos_b2u
+Perl_sv_pos_u2b
+Perl_sv_pv
+Perl_sv_pvn
+Perl_sv_pvn_force
+Perl_sv_reftype
+Perl_sv_replace
+Perl_sv_report_used
+Perl_sv_reset
+Perl_sv_rvweaken
+Perl_sv_setiv
+Perl_sv_setiv_mg
+Perl_sv_setnv
+Perl_sv_setnv_mg
+Perl_sv_setpv
+Perl_sv_setpv_mg
+Perl_sv_setpvf
+Perl_sv_setpvf_mg
+Perl_sv_setpviv
+Perl_sv_setpviv_mg
+Perl_sv_setpvn
+Perl_sv_setpvn_mg
+Perl_sv_setref_iv
+Perl_sv_setref_nv
+Perl_sv_setref_pv
+Perl_sv_setref_pvn
+Perl_sv_setsv
+Perl_sv_setsv_mg
+Perl_sv_setuv
+Perl_sv_setuv_mg
+Perl_sv_taint
+Perl_sv_tainted
+Perl_sv_true
+Perl_sv_unmagic
+Perl_sv_unref
+Perl_sv_untaint
+Perl_sv_upgrade
+Perl_sv_usepvn
+Perl_sv_usepvn_mg
+Perl_sv_uv
+Perl_sv_vcatpvfn
+Perl_sv_vsetpvfn
+Perl_swash_fetch
+Perl_swash_init
+Perl_taint_env
+Perl_taint_proper
+Perl_tmps_grow
+Perl_to_uni_lower
+Perl_to_uni_lower_lc
+Perl_to_uni_title
+Perl_to_uni_title_lc
+Perl_to_uni_upper
+Perl_to_uni_upper_lc
+Perl_to_utf8_lower
+Perl_to_utf8_title
+Perl_to_utf8_upper
+Perl_unlnk
+Perl_unlock_condpair
+Perl_unshare_hek
+Perl_unsharepvn
+Perl_utf16_to_utf8
+Perl_utf16_to_utf8_reversed
+Perl_utf8_distance
+Perl_utf8_hop
+Perl_utf8_to_uv
+Perl_utilize
+Perl_uv_to_utf8
+Perl_vivify_defelem
+Perl_vivify_ref
+Perl_wait4pid
+Perl_warn
+Perl_warner
+Perl_watch
+Perl_whichsig
+Perl_yydestruct
+Perl_yyerror
+Perl_yylex
+Perl_yyparse
+Perl_yywarn
index b8d7c38..b31b9b1 100644 (file)
--- a/globals.c
+++ b/globals.c
@@ -1,4 +1,5 @@
 #include "INTERN.h"
+#define PERL_IN_GLOBALS_C
 #include "perl.h"
 
 #ifdef PERL_OBJECT
@@ -11,7 +12,8 @@
 #define PERLVARIC(x, y, z) PL_##x = z;
 
 CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
-                                            IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP)
+                  IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS,
+                  IPerlProc* ipP)
 {
     memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*));
 
@@ -48,23 +50,15 @@ CPerlObj::Init(void)
 {
 }
 
-int
-fprintf(PerlIO *stream, const char *format, ...)
-{
-    va_list(arglist);
-    va_start(arglist, format);
-    return PerlIO_vprintf(stream, format, arglist);
-}
-
 #ifdef WIN32           /* XXX why are these needed? */
 bool
-do_exec(char *cmd)
+Perl_do_exec(pTHX_ char *cmd)
 {
     return PerlProc_Cmd(cmd);
 }
 
 int
-do_aspawn(void *vreally, void **vmark, void **vsp)
+do_aspawn(pTHX_ void *vreally, void **vmark, void **vsp)
 {
     return PerlProc_aspawn(vreally, vmark, vsp);
 }
diff --git a/gv.c b/gv.c
index 7ab7496..5ae3cd3 100644 (file)
--- a/gv.c
+++ b/gv.c
  */
 
 #include "EXTERN.h"
+#define PERL_IN_GV_C
 #include "perl.h"
 
 GV *
-gv_AVadd(register GV *gv)
+Perl_gv_AVadd(pTHX_ register GV *gv)
 {
     if (!gv || SvTYPE((SV*)gv) != SVt_PVGV)
        croak("Bad symbol for array");
@@ -30,7 +31,7 @@ gv_AVadd(register GV *gv)
 }
 
 GV *
-gv_HVadd(register GV *gv)
+Perl_gv_HVadd(pTHX_ register GV *gv)
 {
     if (!gv || SvTYPE((SV*)gv) != SVt_PVGV)
        croak("Bad symbol for hash");
@@ -40,7 +41,7 @@ gv_HVadd(register GV *gv)
 }
 
 GV *
-gv_IOadd(register GV *gv)
+Perl_gv_IOadd(pTHX_ register GV *gv)
 {
     if (!gv || SvTYPE((SV*)gv) != SVt_PVGV)
        croak("Bad symbol for filehandle");
@@ -50,7 +51,7 @@ gv_IOadd(register GV *gv)
 }
 
 GV *
-gv_fetchfile(const char *name)
+Perl_gv_fetchfile(pTHX_ const char *name)
 {
     dTHR;
     char smallbuf[256];
@@ -80,7 +81,7 @@ gv_fetchfile(const char *name)
 }
 
 void
-gv_init(GV *gv, HV *stash, const char *name, STRLEN len, int multi)
+Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 {
     dTHR;
     register GP *gp;
@@ -136,7 +137,7 @@ gv_init(GV *gv, HV *stash, const char *name, STRLEN len, int multi)
 }
 
 STATIC void
-gv_init_sv(GV *gv, I32 sv_type)
+gv_init_sv(pTHX_ GV *gv, I32 sv_type)
 {
     switch (sv_type) {
     case SVt_PVIO:
@@ -152,7 +153,7 @@ gv_init_sv(GV *gv, I32 sv_type)
 }
 
 GV *
-gv_fetchmeth(HV *stash, const char *name, STRLEN len, I32 level)
+Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level)
 {
     AV* av;
     GV* topgv;
@@ -273,13 +274,13 @@ gv_fetchmeth(HV *stash, const char *name, STRLEN len, I32 level)
 }
 
 GV *
-gv_fetchmethod(HV *stash, const char *name)
+Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name)
 {
     return gv_fetchmethod_autoload(stash, name, TRUE);
 }
 
 GV *
-gv_fetchmethod_autoload(HV *stash, const char *name, I32 autoload)
+Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload)
 {
     dTHR;
     register const char *nend;
@@ -340,7 +341,7 @@ gv_fetchmethod_autoload(HV *stash, const char *name, I32 autoload)
 }
 
 GV*
-gv_autoload4(HV *stash, const char *name, STRLEN len, I32 method)
+Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method)
 {
     dTHR;
     static char autoload[] = "AUTOLOAD";
@@ -385,13 +386,13 @@ gv_autoload4(HV *stash, const char *name, STRLEN len, I32 method)
 }
 
 HV*
-gv_stashpv(const char *name, I32 create)
+Perl_gv_stashpv(pTHX_ const char *name, I32 create)
 {
     return gv_stashpvn(name, strlen(name), create);
 }
 
 HV*
-gv_stashpvn(const char *name, U32 namelen, I32 create)
+Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 create)
 {
     char smallbuf[256];
     char *tmpbuf;
@@ -420,7 +421,7 @@ gv_stashpvn(const char *name, U32 namelen, I32 create)
 }
 
 HV*
-gv_stashsv(SV *sv, I32 create)
+Perl_gv_stashsv(pTHX_ SV *sv, I32 create)
 {
     register char *ptr;
     STRLEN len;
@@ -430,7 +431,7 @@ gv_stashsv(SV *sv, I32 create)
 
 
 GV *
-gv_fetchpv(const char *nambeg, I32 add, I32 sv_type)
+Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 {
     dTHR;
     register const char *name = nambeg;
@@ -820,7 +821,7 @@ gv_fetchpv(const char *nambeg, I32 add, I32 sv_type)
 }
 
 void
-gv_fullname3(SV *sv, GV *gv, const char *prefix)
+Perl_gv_fullname3(pTHX_ SV *sv, GV *gv, const char *prefix)
 {
     HV *hv = GvSTASH(gv);
     if (!hv) {
@@ -834,7 +835,7 @@ gv_fullname3(SV *sv, GV *gv, const char *prefix)
 }
 
 void
-gv_efullname3(SV *sv, GV *gv, const char *prefix)
+Perl_gv_efullname3(pTHX_ SV *sv, GV *gv, const char *prefix)
 {
     GV *egv = GvEGV(gv);
     if (!egv)
@@ -844,20 +845,20 @@ gv_efullname3(SV *sv, GV *gv, const char *prefix)
 
 /* XXX compatibility with versions <= 5.003. */
 void
-gv_fullname(SV *sv, GV *gv)
+Perl_gv_fullname(pTHX_ SV *sv, GV *gv)
 {
     gv_fullname3(sv, gv, sv == (SV*)gv ? "*" : "");
 }
 
 /* XXX compatibility with versions <= 5.003. */
 void
-gv_efullname(SV *sv, GV *gv)
+Perl_gv_efullname(pTHX_ SV *sv, GV *gv)
 {
     gv_efullname3(sv, gv, sv == (SV*)gv ? "*" : "");
 }
 
 IO *
-newIO(void)
+Perl_newIO(pTHX)
 {
     dTHR;
     IO *io;
@@ -876,7 +877,7 @@ newIO(void)
 }
 
 void
-gv_check(HV *stash)
+Perl_gv_check(pTHX_ HV *stash)
 {
     dTHR;
     register HE *entry;
@@ -913,7 +914,7 @@ gv_check(HV *stash)
 }
 
 GV *
-newGVgen(char *pack)
+Perl_newGVgen(pTHX_ char *pack)
 {
     return gv_fetchpv(form("%s::_GEN_%ld", pack, (long)PL_gensym++),
                      TRUE, SVt_PVGV);
@@ -922,7 +923,7 @@ newGVgen(char *pack)
 /* hopefully this is only called on local symbol table entries */
 
 GP*
-gp_ref(GP *gp)
+Perl_gp_ref(pTHX_ GP *gp)
 {
     gp->gp_refcnt++;
     if (gp->gp_cv) {
@@ -941,7 +942,7 @@ gp_ref(GP *gp)
 }
 
 void
-gp_free(GV *gv)
+Perl_gp_free(pTHX_ GV *gv)
 {
     GP* gp;
     CV* cv;
@@ -1000,7 +1001,7 @@ register GV *gv;
 /* Updates and caches the CV's */
 
 bool
-Gv_AMupdate(HV *stash)
+Perl_Gv_AMupdate(pTHX_ HV *stash)
 {
   dTHR;  
   GV** gvp;
@@ -1158,7 +1159,7 @@ Gv_AMupdate(HV *stash)
 }
 
 SV*
-amagic_call(SV *left, SV *right, int method, int flags)
+Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
 {
   dTHR;
   MAGIC *mg; 
diff --git a/gv.h b/gv.h
index 0226513..a2b07bf 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -128,7 +128,7 @@ HV *GvHVn();
 #define DM_DELAY 0x100
 
 /*
- * symbol creation flags, for use in gv_fetchpv() and perl_get_*v()
+ * symbol creation flags, for use in gv_fetchpv() and get_*v()
  */
 #define GV_ADD         0x01    /* add, if symbol not already there */
 #define GV_ADDMULTI    0x02    /* add, pretending it has been added already */
diff --git a/hv.c b/hv.c
index 0f71f01..9a7b31f 100644 (file)
--- a/hv.c
+++ b/hv.c
  */
 
 #include "EXTERN.h"
+#define PERL_IN_HV_C
 #include "perl.h"
 
-static void hv_magic_check (HV *hv, bool *needs_copy, bool *needs_store);
-#ifndef PERL_OBJECT
-static void hsplit (HV *hv);
-static void hfreeentries (HV *hv);
-static void more_he (void);
-static HEK *save_hek (const char *str, I32 len, U32 hash);
-#endif
-
 #if defined(STRANGE_MALLOC) || defined(MYMALLOC)
 #  define ARRAY_ALLOC_BYTES(size) ( (size)*sizeof(HE*) )
 #else
@@ -32,7 +25,7 @@ static HEK *save_hek (const char *str, I32 len, U32 hash);
 #endif
 
 STATIC HE*
-new_he(void)
+new_he(pTHX)
 {
     HE* he;
     LOCK_SV_MUTEX;
@@ -45,7 +38,7 @@ new_he(void)
 }
 
 STATIC void
-del_he(HE *p)
+del_he(pTHX_ HE *p)
 {
     LOCK_SV_MUTEX;
     HeNEXT(p) = (HE*)PL_he_root;
@@ -54,7 +47,7 @@ del_he(HE *p)
 }
 
 STATIC void
-more_he(void)
+more_he(pTHX)
 {
     register HE* he;
     register HE* heend;
@@ -69,7 +62,7 @@ more_he(void)
 }
 
 STATIC HEK *
-save_hek(const char *str, I32 len, U32 hash)
+save_hek(pTHX_ const char *str, I32 len, U32 hash)
 {
     char *k;
     register HEK *hek;
@@ -84,7 +77,7 @@ save_hek(const char *str, I32 len, U32 hash)
 }
 
 void
-unshare_hek(HEK *hek)
+Perl_unshare_hek(pTHX_ HEK *hek)
 {
     unsharepvn(HEK_KEY(hek),HEK_LEN(hek),HEK_HASH(hek));
 }
@@ -93,7 +86,7 @@ unshare_hek(HEK *hek)
  * contains an SV* */
 
 SV**
-hv_fetch(HV *hv, const char *key, U32 klen, I32 lval)
+Perl_hv_fetch(pTHX_ HV *hv, const char *key, U32 klen, I32 lval)
 {
     register XPVHV* xhv;
     register U32 hash;
@@ -171,7 +164,7 @@ hv_fetch(HV *hv, const char *key, U32 klen, I32 lval)
 /* returns a HE * structure with the all fields set */
 /* note that hent_val will be a mortal sv for MAGICAL hashes */
 HE *
-hv_fetch_ent(HV *hv, SV *keysv, I32 lval, register U32 hash)
+Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash)
 {
     register XPVHV* xhv;
     register char *key;
@@ -259,8 +252,8 @@ hv_fetch_ent(HV *hv, SV *keysv, I32 lval, register U32 hash)
     return 0;
 }
 
-static void
-hv_magic_check (HV *hv, bool *needs_copy, bool *needs_store)
+STATIC void
+hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store)
 {
     MAGIC *mg = SvMAGIC(hv);
     *needs_copy = FALSE;
@@ -279,7 +272,7 @@ hv_magic_check (HV *hv, bool *needs_copy, bool *needs_store)
 }
 
 SV**
-hv_store(HV *hv, const char *key, U32 klen, SV *val, register U32 hash)
+Perl_hv_store(pTHX_ HV *hv, const char *key, U32 klen, SV *val, register U32 hash)
 {
     register XPVHV* xhv;
     register I32 i;
@@ -348,7 +341,7 @@ hv_store(HV *hv, const char *key, U32 klen, SV *val, register U32 hash)
 }
 
 HE *
-hv_store_ent(HV *hv, SV *keysv, SV *val, register U32 hash)
+Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, register U32 hash)
 {
     register XPVHV* xhv;
     register char *key;
@@ -429,7 +422,7 @@ hv_store_ent(HV *hv, SV *keysv, SV *val, register U32 hash)
 }
 
 SV *
-hv_delete(HV *hv, const char *key, U32 klen, I32 flags)
+Perl_hv_delete(pTHX_ HV *hv, const char *key, U32 klen, I32 flags)
 {
     register XPVHV* xhv;
     register I32 i;
@@ -498,7 +491,7 @@ hv_delete(HV *hv, const char *key, U32 klen, I32 flags)
 }
 
 SV *
-hv_delete_ent(HV *hv, SV *keysv, I32 flags, U32 hash)
+Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash)
 {
     register XPVHV* xhv;
     register I32 i;
@@ -572,7 +565,7 @@ hv_delete_ent(HV *hv, SV *keysv, I32 flags, U32 hash)
 }
 
 bool
-hv_exists(HV *hv, const char *key, U32 klen)
+Perl_hv_exists(pTHX_ HV *hv, const char *key, U32 klen)
 {
     register XPVHV* xhv;
     register U32 hash;
@@ -637,7 +630,7 @@ hv_exists(HV *hv, const char *key, U32 klen)
 
 
 bool
-hv_exists_ent(HV *hv, SV *keysv, U32 hash)
+Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
 {
     register XPVHV* xhv;
     register char *key;
@@ -707,7 +700,7 @@ hv_exists_ent(HV *hv, SV *keysv, U32 hash)
 }
 
 STATIC void
-hsplit(HV *hv)
+hsplit(pTHX_ HV *hv)
 {
     register XPVHV* xhv = (XPVHV*)SvANY(hv);
     I32 oldsize = (I32) xhv->xhv_max + 1; /* sic(k) */
@@ -769,7 +762,7 @@ hsplit(HV *hv)
 }
 
 void
-hv_ksplit(HV *hv, IV newmax)
+Perl_hv_ksplit(pTHX_ HV *hv, IV newmax)
 {
     register XPVHV* xhv = (XPVHV*)SvANY(hv);
     I32 oldsize = (I32) xhv->xhv_max + 1; /* sic(k) */
@@ -847,7 +840,7 @@ hv_ksplit(HV *hv, IV newmax)
 }
 
 HV *
-newHV(void)
+Perl_newHV(pTHX)
 {
     register HV *hv;
     register XPVHV* xhv;
@@ -868,7 +861,7 @@ newHV(void)
 }
 
 HV *
-newHVhv(HV *ohv)
+Perl_newHVhv(pTHX_ HV *ohv)
 {
     register HV *hv;
     STRLEN hv_max = ohv ? HvMAX(ohv) : 0;
@@ -906,7 +899,7 @@ newHVhv(HV *ohv)
 }
 
 void
-hv_free_ent(HV *hv, register HE *entry)
+Perl_hv_free_ent(pTHX_ HV *hv, register HE *entry)
 {
     SV *val;
 
@@ -928,7 +921,7 @@ hv_free_ent(HV *hv, register HE *entry)
 }
 
 void
-hv_delayfree_ent(HV *hv, register HE *entry)
+Perl_hv_delayfree_ent(pTHX_ HV *hv, register HE *entry)
 {
     if (!entry)
        return;
@@ -947,7 +940,7 @@ hv_delayfree_ent(HV *hv, register HE *entry)
 }
 
 void
-hv_clear(HV *hv)
+Perl_hv_clear(pTHX_ HV *hv)
 {
     register XPVHV* xhv;
     if (!hv)
@@ -964,7 +957,7 @@ hv_clear(HV *hv)
 }
 
 STATIC void
-hfreeentries(HV *hv)
+hfreeentries(pTHX_ HV *hv)
 {
     register HE **array;
     register HE *entry;
@@ -997,7 +990,7 @@ hfreeentries(HV *hv)
 }
 
 void
-hv_undef(HV *hv)
+Perl_hv_undef(pTHX_ HV *hv)
 {
     register XPVHV* xhv;
     if (!hv)
@@ -1019,7 +1012,7 @@ hv_undef(HV *hv)
 }
 
 I32
-hv_iterinit(HV *hv)
+Perl_hv_iterinit(pTHX_ HV *hv)
 {
     register XPVHV* xhv;
     HE *entry;
@@ -1038,7 +1031,7 @@ hv_iterinit(HV *hv)
 }
 
 HE *
-hv_iternext(HV *hv)
+Perl_hv_iternext(pTHX_ HV *hv)
 {
     register XPVHV* xhv;
     register HE *entry;
@@ -1108,7 +1101,7 @@ hv_iternext(HV *hv)
 }
 
 char *
-hv_iterkey(register HE *entry, I32 *retlen)
+Perl_hv_iterkey(pTHX_ register HE *entry, I32 *retlen)
 {
     if (HeKLEN(entry) == HEf_SVKEY) {
        STRLEN len;
@@ -1124,7 +1117,7 @@ hv_iterkey(register HE *entry, I32 *retlen)
 
 /* unlike hv_iterval(), this always returns a mortal copy of the key */
 SV *
-hv_iterkeysv(register HE *entry)
+Perl_hv_iterkeysv(pTHX_ register HE *entry)
 {
     if (HeKLEN(entry) == HEf_SVKEY)
        return sv_mortalcopy(HeKEY_sv(entry));
@@ -1134,7 +1127,7 @@ hv_iterkeysv(register HE *entry)
 }
 
 SV *
-hv_iterval(HV *hv, register HE *entry)
+Perl_hv_iterval(pTHX_ HV *hv, register HE *entry)
 {
     if (SvRMAGICAL(hv)) {
        if (mg_find((SV*)hv,'P')) {
@@ -1149,7 +1142,7 @@ hv_iterval(HV *hv, register HE *entry)
 }
 
 SV *
-hv_iternextsv(HV *hv, char **key, I32 *retlen)
+Perl_hv_iternextsv(pTHX_ HV *hv, char **key, I32 *retlen)
 {
     HE *he;
     if ( (he = hv_iternext(hv)) == NULL)
@@ -1159,13 +1152,13 @@ hv_iternextsv(HV *hv, char **key, I32 *retlen)
 }
 
 void
-hv_magic(HV *hv, GV *gv, int how)
+Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
 {
     sv_magic((SV*)hv, (SV*)gv, how, Nullch, 0);
 }
 
 char*  
-sharepvn(const char *sv, I32 len, U32 hash)
+Perl_sharepvn(pTHX_ const char *sv, I32 len, U32 hash)
 {
     return HEK_KEY(share_hek(sv, len, hash));
 }
@@ -1174,7 +1167,7 @@ sharepvn(const char *sv, I32 len, U32 hash)
  * len and hash must both be valid for str.
  */
 void
-unsharepvn(const char *str, I32 len, U32 hash)
+Perl_unsharepvn(pTHX_ const char *str, I32 len, U32 hash)
 {
     register XPVHV* xhv;
     register HE *entry;
@@ -1220,7 +1213,7 @@ unsharepvn(const char *str, I32 len, U32 hash)
  * len and hash must both be valid for str.
  */
 HEK *
-share_hek(const char *str, I32 len, register U32 hash)
+Perl_share_hek(pTHX_ const char *str, I32 len, register U32 hash)
 {
     register XPVHV* xhv;
     register HE *entry;
index 5a51413..32c669b 100644 (file)
--- a/malloc.c
+++ b/malloc.c
 
 #ifdef PERL_CORE
 #  include "EXTERN.h"
+#define PERL_IN_MALLOC_C
 #  include "perl.h"
 #else
 #  ifdef PERL_FOR_X2P
@@ -411,13 +412,6 @@ union      overhead {
 #define        ov_rmagic       ovu.ovu_rmagic
 };
 
-#ifdef DEBUGGING
-static void botch (char *diag, char *s);
-#endif
-static void morecore (int bucket);
-static int findbucket (union overhead *freep, int srchlen);
-static void add_to_chain(void *p, MEM_SIZE size, MEM_SIZE chip);
-
 #define        MAGIC           0xff            /* magic # on accounting info */
 #define RMAGIC         0x55555555      /* magic # on range info */
 #define RMAGIC_C       0x55            /* magic # on range info */
@@ -715,10 +709,9 @@ static char bucket_of[] =
 
 static char *emergency_buffer;
 static MEM_SIZE emergency_buffer_size;
-static Malloc_t emergency_sbrk(MEM_SIZE size);
 
-static Malloc_t
-emergency_sbrk(MEM_SIZE size)
+STATIC Malloc_t
+emergency_sbrk(pTHX_ MEM_SIZE size)
 {
     MEM_SIZE rsize = (((size - 1)>>LOG_OF_MIN_ARENA) + 1)<<LOG_OF_MIN_ARENA;
 
@@ -816,8 +809,8 @@ static      u_int goodsbrk;
 #ifdef DEBUGGING
 #undef ASSERT
 #define        ASSERT(p,diag)   if (!(p)) botch(diag,STRINGIFY(p));  else
-static void
-botch(char *diag, char *s)
+STATIC void
+botch(pTHX_ char *diag, char *s)
 {
        PerlIO_printf(PerlIO_stderr(), "assertion botched (%s?): %s\n", diag, s);
        PerlProc_abort();
@@ -954,8 +947,8 @@ static int n_chunks;
 static char max_bucket;
 
 /* Cutoff a piece of one of the chunks in the chain.  Prefer smaller chunk. */
-static void *
-get_from_chain(MEM_SIZE size)
+STATIC void *
+get_from_chain(pTHX_ MEM_SIZE size)
 {
     struct chunk_chain_s *elt = chunk_chain, **oldp = &chunk_chain;
     struct chunk_chain_s **oldgoodp = NULL;
@@ -992,8 +985,8 @@ get_from_chain(MEM_SIZE size)
     }
 }
 
-static void
-add_to_chain(void *p, MEM_SIZE size, MEM_SIZE chip)
+STATIC void
+add_to_chain(pTHX_ void *p, MEM_SIZE size, MEM_SIZE chip)
 {
     struct chunk_chain_s *next = chunk_chain;
     char *cp = (char*)p;
@@ -1005,8 +998,8 @@ add_to_chain(void *p, MEM_SIZE size, MEM_SIZE chip)
     n_chunks++;
 }
 
-static void *
-get_from_bigger_buckets(int bucket, MEM_SIZE size)
+STATIC void *
+get_from_bigger_buckets(pTHX_ int bucket, MEM_SIZE size)
 {
     int price = 1;
     static int bucketprice[NBUCKETS];
@@ -1035,8 +1028,8 @@ get_from_bigger_buckets(int bucket, MEM_SIZE size)
     return NULL;
 }
 
-static union overhead *
-getpages(int needed, int *nblksp, int bucket)
+STATIC union overhead *
+getpages(pTHX_ int needed, int *nblksp, int bucket)
 {
     /* Need to do (possibly expensive) system call. Try to
        optimize it for rare calling. */
@@ -1188,8 +1181,8 @@ getpages(int needed, int *nblksp, int bucket)
     return ovp;
 }
 
-static int
-getpages_adjacent(int require)
+STATIC int
+getpages_adjacent(pTHX_ int require)
 {          
     if (require <= sbrked_remains) {
        sbrked_remains -= require;
@@ -1232,8 +1225,8 @@ getpages_adjacent(int require)
 /*
  * Allocate more memory to the indicated bucket.
  */
-static void
-morecore(register int bucket)
+STATIC void
+morecore(pTHX_ register int bucket)
 {
        register union overhead *ovp;
        register int rnu;       /* 2^rnu bytes will be requested */
@@ -1613,7 +1606,7 @@ Perl_calloc(register size_t elements, register size_t size)
 }
 
 MEM_SIZE
-malloced_size(void *p)
+Perl_malloced_size(pTHX_ void *p)
 {
     union overhead *ovp = (union overhead *)
        ((caddr_t)p - sizeof (union overhead) * CHUNK_SHIFT);
@@ -1643,7 +1636,7 @@ malloced_size(void *p)
  * frees for each size category.
  */
 void
-dump_mstats(char *s)
+Perl_dump_mstats(pTHX_ char *s)
 {
 #ifdef DEBUGGING_MSTATS
        register int i, j;
diff --git a/mg.c b/mg.c
index bfd6035..fb8d4ba 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -13,6 +13,7 @@
  */
 
 #include "EXTERN.h"
+#define PERL_IN_MG_C
 #include "perl.h"
 
 /* XXX If this causes problems, set i_unistd=undef in the hint file.  */
@@ -30,8 +31,6 @@
 #  define VTBL            this->*vtbl
 #else
 #  define VTBL                 *vtbl
-static void restore_magic (void *p);
-static int magic_methcall(SV *sv, MAGIC *mg, char *meth, I32 f, int n, SV *val);
 #endif
 
 /*
@@ -46,7 +45,7 @@ struct magic_state {
 /* MGS is typedef'ed to struct magic_state in perl.h */
 
 STATIC void
-save_magic(I32 mgs_ix, SV *sv)
+save_magic(pTHX_ I32 mgs_ix, SV *sv)
 {
     dTHR;
     MGS* mgs;
@@ -65,7 +64,7 @@ save_magic(I32 mgs_ix, SV *sv)
 }
 
 STATIC void
-restore_magic(void *p)
+restore_magic(pTHX_ void *p)
 {
     dTHR;
     MGS* mgs = SSPTR((I32)p, MGS*);
@@ -107,7 +106,7 @@ restore_magic(void *p)
 }
 
 void
-mg_magical(SV *sv)
+Perl_mg_magical(pTHX_ SV *sv)
 {
     MAGIC* mg;
     for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
@@ -124,7 +123,7 @@ mg_magical(SV *sv)
 }
 
 int
-mg_get(SV *sv)
+Perl_mg_get(pTHX_ SV *sv)
 {
     dTHR;
     I32 mgs_ix;
@@ -159,7 +158,7 @@ mg_get(SV *sv)
 }
 
 int
-mg_set(SV *sv)
+Perl_mg_set(pTHX_ SV *sv)
 {
     dTHR;
     I32 mgs_ix;
@@ -185,7 +184,7 @@ mg_set(SV *sv)
 }
 
 U32
-mg_length(SV *sv)
+Perl_mg_length(pTHX_ SV *sv)
 {
     MAGIC* mg;
     char *junk;
@@ -210,7 +209,7 @@ mg_length(SV *sv)
 }
 
 I32
-mg_size(SV *sv)
+Perl_mg_size(pTHX_ SV *sv)
 {
     MAGIC* mg;
     I32 len;
@@ -243,7 +242,7 @@ mg_size(SV *sv)
 }
 
 int
-mg_clear(SV *sv)
+Perl_mg_clear(pTHX_ SV *sv)
 {
     I32 mgs_ix;
     MAGIC* mg;
@@ -264,7 +263,7 @@ mg_clear(SV *sv)
 }
 
 MAGIC*
-mg_find(SV *sv, int type)
+Perl_mg_find(pTHX_ SV *sv, int type)
 {
     MAGIC* mg;
     for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
@@ -275,7 +274,7 @@ mg_find(SV *sv, int type)
 }
 
 int
-mg_copy(SV *sv, SV *nsv, const char *key, I32 klen)
+Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen)
 {
     int count = 0;
     MAGIC* mg;
@@ -291,7 +290,7 @@ mg_copy(SV *sv, SV *nsv, const char *key, I32 klen)
 }
 
 int
-mg_free(SV *sv)
+Perl_mg_free(pTHX_ SV *sv)
 {
     MAGIC* mg;
     MAGIC* moremagic;
@@ -318,7 +317,7 @@ mg_free(SV *sv)
 #endif
 
 U32
-magic_regdata_cnt(SV *sv, MAGIC *mg)
+Perl_magic_regdata_cnt(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     register char *s;
@@ -337,7 +336,7 @@ magic_regdata_cnt(SV *sv, MAGIC *mg)
 }
 
 int
-magic_regdatum_get(SV *sv, MAGIC *mg)
+Perl_magic_regdatum_get(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     register I32 paren;
@@ -365,7 +364,7 @@ magic_regdatum_get(SV *sv, MAGIC *mg)
 }
 
 U32
-magic_len(SV *sv, MAGIC *mg)
+Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     register I32 paren;
@@ -460,7 +459,7 @@ printW(SV *sv)
 #endif
 
 int
-magic_get(SV *sv, MAGIC *mg)
+Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     register I32 paren;
@@ -764,7 +763,7 @@ magic_get(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getuvar(SV *sv, MAGIC *mg)
+Perl_magic_getuvar(pTHX_ SV *sv, MAGIC *mg)
 {
     struct ufuncs *uf = (struct ufuncs *)mg->mg_ptr;
 
@@ -774,7 +773,7 @@ magic_getuvar(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setenv(SV *sv, MAGIC *mg)
+Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
 {
     register char *s;
     char *ptr;
@@ -850,7 +849,7 @@ magic_setenv(SV *sv, MAGIC *mg)
 }
 
 int
-magic_clearenv(SV *sv, MAGIC *mg)
+Perl_magic_clearenv(pTHX_ SV *sv, MAGIC *mg)
 {
     STRLEN n_a;
     my_setenv(MgPV(mg,n_a),Nullch);
@@ -858,7 +857,7 @@ magic_clearenv(SV *sv, MAGIC *mg)
 }
 
 int
-magic_set_all_env(SV *sv, MAGIC *mg)
+Perl_magic_set_all_env(pTHX_ SV *sv, MAGIC *mg)
 {
 #if defined(VMS)
     die("Can't make list assignment to %%ENV on this system");
@@ -880,7 +879,7 @@ magic_set_all_env(SV *sv, MAGIC *mg)
 }
 
 int
-magic_clear_all_env(SV *sv, MAGIC *mg)
+Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
 {
 #if defined(VMS)
     die("Can't make list assignment to %%ENV on this system");
@@ -920,7 +919,7 @@ magic_clear_all_env(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getsig(SV *sv, MAGIC *mg)
+Perl_magic_getsig(pTHX_ SV *sv, MAGIC *mg)
 {
     I32 i;
     STRLEN n_a;
@@ -944,7 +943,7 @@ magic_getsig(SV *sv, MAGIC *mg)
     return 0;
 }
 int
-magic_clearsig(SV *sv, MAGIC *mg)
+Perl_magic_clearsig(pTHX_ SV *sv, MAGIC *mg)
 {
     I32 i;
     STRLEN n_a;
@@ -964,7 +963,7 @@ magic_clearsig(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setsig(SV *sv, MAGIC *mg)
+Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     register char *s;
@@ -1039,14 +1038,14 @@ magic_setsig(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setisa(SV *sv, MAGIC *mg)
+Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg)
 {
     PL_sub_generation++;
     return 0;
 }
 
 int
-magic_setamagic(SV *sv, MAGIC *mg)
+Perl_magic_setamagic(pTHX_ SV *sv, MAGIC *mg)
 {
     /* HV_badAMAGIC_on(Sv_STASH(sv)); */
     PL_amagic_generation++;
@@ -1055,7 +1054,7 @@ magic_setamagic(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getnkeys(SV *sv, MAGIC *mg)
+Perl_magic_getnkeys(pTHX_ SV *sv, MAGIC *mg)
 {
     HV *hv = (HV*)LvTARG(sv);
     HE *entry;
@@ -1078,7 +1077,7 @@ magic_getnkeys(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setnkeys(SV *sv, MAGIC *mg)
+Perl_magic_setnkeys(pTHX_ SV *sv, MAGIC *mg)
 {
     if (LvTARG(sv)) {
        hv_ksplit((HV*)LvTARG(sv), SvIV(sv));
@@ -1088,7 +1087,7 @@ magic_setnkeys(SV *sv, MAGIC *mg)
 
 /* caller is responsible for stack switching/cleanup */
 STATIC int
-magic_methcall(SV *sv, MAGIC *mg, char *meth, I32 flags, int n, SV *val)
+magic_methcall(pTHX_ SV *sv, MAGIC *mg, char *meth, I32 flags, int n, SV *val)
 {
     dSP;
 
@@ -1111,11 +1110,11 @@ magic_methcall(SV *sv, MAGIC *mg, char *meth, I32 flags, int n, SV *val)
     }
     PUTBACK;
 
-    return perl_call_method(meth, flags);
+    return call_method(meth, flags);
 }
 
 STATIC int
-magic_methpack(SV *sv, MAGIC *mg, char *meth)
+magic_methpack(pTHX_ SV *sv, MAGIC *mg, char *meth)
 {
     dSP;
 
@@ -1134,7 +1133,7 @@ magic_methpack(SV *sv, MAGIC *mg, char *meth)
 }
 
 int
-magic_getpack(SV *sv, MAGIC *mg)
+Perl_magic_getpack(pTHX_ SV *sv, MAGIC *mg)
 {
     magic_methpack(sv,mg,"FETCH");
     if (mg->mg_ptr)
@@ -1143,7 +1142,7 @@ magic_getpack(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setpack(SV *sv, MAGIC *mg)
+Perl_magic_setpack(pTHX_ SV *sv, MAGIC *mg)
 {
     dSP;
     ENTER;
@@ -1155,14 +1154,14 @@ magic_setpack(SV *sv, MAGIC *mg)
 }
 
 int
-magic_clearpack(SV *sv, MAGIC *mg)
+Perl_magic_clearpack(pTHX_ SV *sv, MAGIC *mg)
 {
     return magic_methpack(sv,mg,"DELETE");
 }
 
 
 U32
-magic_sizepack(SV *sv, MAGIC *mg)
+Perl_magic_sizepack(pTHX_ SV *sv, MAGIC *mg)
 {         
     dSP;
     U32 retval = 0;
@@ -1189,14 +1188,14 @@ int magic_wipepack(SV *sv, MAGIC *mg)
     PUSHMARK(SP);
     XPUSHs(SvTIED_obj(sv, mg));
     PUTBACK;
-    perl_call_method("CLEAR", G_SCALAR|G_DISCARD);
+    call_method("CLEAR", G_SCALAR|G_DISCARD);
     POPSTACK;
     LEAVE;
     return 0;
 }
 
 int
-magic_nextpack(SV *sv, MAGIC *mg, SV *key)
+Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key)
 {
     dSP;
     char *meth = SvOK(key) ? "NEXTKEY" : "FIRSTKEY";
@@ -1211,7 +1210,7 @@ magic_nextpack(SV *sv, MAGIC *mg, SV *key)
        PUSHs(key);
     PUTBACK;
 
-    if (perl_call_method(meth, G_SCALAR))
+    if (call_method(meth, G_SCALAR))
        sv_setsv(key, *PL_stack_sp--);
 
     POPSTACK;
@@ -1221,13 +1220,13 @@ magic_nextpack(SV *sv, MAGIC *mg, SV *key)
 }
 
 int
-magic_existspack(SV *sv, MAGIC *mg)
+Perl_magic_existspack(pTHX_ SV *sv, MAGIC *mg)
 {
     return magic_methpack(sv,mg,"EXISTS");
 } 
 
 int
-magic_setdbline(SV *sv, MAGIC *mg)
+Perl_magic_setdbline(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     OP *o;
@@ -1248,7 +1247,7 @@ magic_setdbline(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getarylen(SV *sv, MAGIC *mg)
+Perl_magic_getarylen(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     sv_setiv(sv, AvFILL((AV*)mg->mg_obj) + PL_curcop->cop_arybase);
@@ -1256,7 +1255,7 @@ magic_getarylen(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setarylen(SV *sv, MAGIC *mg)
+Perl_magic_setarylen(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     av_fill((AV*)mg->mg_obj, SvIV(sv) - PL_curcop->cop_arybase);
@@ -1264,7 +1263,7 @@ magic_setarylen(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getpos(SV *sv, MAGIC *mg)
+Perl_magic_getpos(pTHX_ SV *sv, MAGIC *mg)
 {
     SV* lsv = LvTARG(sv);
     
@@ -1284,7 +1283,7 @@ magic_getpos(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setpos(SV *sv, MAGIC *mg)
+Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
 {
     SV* lsv = LvTARG(sv);
     SSize_t pos;
@@ -1339,7 +1338,7 @@ magic_setpos(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getglob(SV *sv, MAGIC *mg)
+Perl_magic_getglob(pTHX_ SV *sv, MAGIC *mg)
 {
     if (SvFAKE(sv)) {                  /* FAKE globs can get coerced */
        SvFAKE_off(sv);
@@ -1352,7 +1351,7 @@ magic_getglob(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setglob(SV *sv, MAGIC *mg)
+Perl_magic_setglob(pTHX_ SV *sv, MAGIC *mg)
 {
     register char *s;
     GV* gv;
@@ -1373,7 +1372,7 @@ magic_setglob(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getsubstr(SV *sv, MAGIC *mg)
+Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg)
 {
     STRLEN len;
     SV *lsv = LvTARG(sv);
@@ -1390,7 +1389,7 @@ magic_getsubstr(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setsubstr(SV *sv, MAGIC *mg)
+Perl_magic_setsubstr(pTHX_ SV *sv, MAGIC *mg)
 {
     STRLEN len;
     char *tmps = SvPV(sv,len);
@@ -1399,7 +1398,7 @@ magic_setsubstr(SV *sv, MAGIC *mg)
 }
 
 int
-magic_gettaint(SV *sv, MAGIC *mg)
+Perl_magic_gettaint(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     TAINT_IF((mg->mg_len & 1) ||
@@ -1408,7 +1407,7 @@ magic_gettaint(SV *sv, MAGIC *mg)
 }
 
 int
-magic_settaint(SV *sv, MAGIC *mg)
+Perl_magic_settaint(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     if (PL_localizing) {
@@ -1425,7 +1424,7 @@ magic_settaint(SV *sv, MAGIC *mg)
 }
 
 int
-magic_getvec(SV *sv, MAGIC *mg)
+Perl_magic_getvec(pTHX_ SV *sv, MAGIC *mg)
 {
     SV *lsv = LvTARG(sv);
     unsigned char *s;
@@ -1491,14 +1490,14 @@ magic_getvec(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setvec(SV *sv, MAGIC *mg)
+Perl_magic_setvec(pTHX_ SV *sv, MAGIC *mg)
 {
     do_vecset(sv);     /* XXX slurp this routine */
     return 0;
 }
 
 int
-magic_getdefelem(SV *sv, MAGIC *mg)
+Perl_magic_getdefelem(pTHX_ SV *sv, MAGIC *mg)
 {
     SV *targ = Nullsv;
     if (LvTARGLEN(sv)) {
@@ -1538,7 +1537,7 @@ magic_getdefelem(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setdefelem(SV *sv, MAGIC *mg)
+Perl_magic_setdefelem(pTHX_ SV *sv, MAGIC *mg)
 {
     if (LvTARGLEN(sv))
        vivify_defelem(sv);
@@ -1550,7 +1549,7 @@ magic_setdefelem(SV *sv, MAGIC *mg)
 }
 
 void
-vivify_defelem(SV *sv)
+Perl_vivify_defelem(pTHX_ SV *sv)
 {
     dTHR;                      /* just for SvREFCNT_inc and SvREFCNT_dec*/
     MAGIC *mg;
@@ -1594,7 +1593,7 @@ vivify_defelem(SV *sv)
 }
 
 int
-magic_killbackrefs(SV *sv, MAGIC *mg)
+Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg)
 {
     AV *av = (AV*)mg->mg_obj;
     SV **svp = AvARRAY(av);
@@ -1615,7 +1614,7 @@ magic_killbackrefs(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setmglob(SV *sv, MAGIC *mg)
+Perl_magic_setmglob(pTHX_ SV *sv, MAGIC *mg)
 {
     mg->mg_len = -1;
     SvSCREAM_off(sv);
@@ -1623,7 +1622,7 @@ magic_setmglob(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setbm(SV *sv, MAGIC *mg)
+Perl_magic_setbm(pTHX_ SV *sv, MAGIC *mg)
 {
     sv_unmagic(sv, 'B');
     SvVALID_off(sv);
@@ -1631,7 +1630,7 @@ magic_setbm(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setfm(SV *sv, MAGIC *mg)
+Perl_magic_setfm(pTHX_ SV *sv, MAGIC *mg)
 {
     sv_unmagic(sv, 'f');
     SvCOMPILED_off(sv);
@@ -1639,7 +1638,7 @@ magic_setfm(SV *sv, MAGIC *mg)
 }
 
 int
-magic_setuvar(SV *sv, MAGIC *mg)
+Perl_magic_setuvar(pTHX_ SV *sv, MAGIC *mg)
 {
     struct ufuncs *uf = (struct ufuncs *)mg->mg_ptr;
 
@@ -1649,7 +1648,7 @@ magic_setuvar(SV *sv, MAGIC *mg)
 }
 
 int
-magic_freeregexp(SV *sv, MAGIC *mg)
+Perl_magic_freeregexp(pTHX_ SV *sv, MAGIC *mg)
 {
     regexp *re = (regexp *)mg->mg_obj;
     ReREFCNT_dec(re);
@@ -1658,7 +1657,7 @@ magic_freeregexp(SV *sv, MAGIC *mg)
 
 #ifdef USE_LOCALE_COLLATE
 int
-magic_setcollxfrm(SV *sv, MAGIC *mg)
+Perl_magic_setcollxfrm(pTHX_ SV *sv, MAGIC *mg)
 {
     /*
      * RenE<eacute> Descartes said "I think not."
@@ -1674,7 +1673,7 @@ magic_setcollxfrm(SV *sv, MAGIC *mg)
 #endif /* USE_LOCALE_COLLATE */
 
 int
-magic_set(SV *sv, MAGIC *mg)
+Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     register char *s;
@@ -2056,7 +2055,7 @@ magic_set(SV *sv, MAGIC *mg)
 
 #ifdef USE_THREADS
 int
-magic_mutexfree(SV *sv, MAGIC *mg)
+Perl_magic_mutexfree(pTHX_ SV *sv, MAGIC *mg)
 {
     dTHR;
     DEBUG_S(PerlIO_printf(PerlIO_stderr(), "0x%lx: magic_mutexfree 0x%lx\n",
@@ -2070,7 +2069,7 @@ magic_mutexfree(SV *sv, MAGIC *mg)
 #endif /* USE_THREADS */
 
 I32
-whichsig(char *sig)
+Perl_whichsig(pTHX_ char *sig)
 {
     register char **sigv;
 
@@ -2091,7 +2090,7 @@ whichsig(char *sig)
 static SV* sig_sv;
 
 STATIC void
-unwind_handler_stack(void *p)
+unwind_handler_stack(pTHX_ void *p)
 {
     dTHR;
     U32 flags = *(U32*)p;
@@ -2104,7 +2103,7 @@ unwind_handler_stack(void *p)
 }
 
 Signal_t
-sighandler(int sig)
+Perl_sighandler(pTHX_ int sig)
 {
     dSP;
     GV *gv = Nullgv;
@@ -2173,7 +2172,7 @@ sighandler(int sig)
     PUSHs(sv);
     PUTBACK;
 
-    perl_call_sv((SV*)cv, G_DISCARD);
+    call_sv((SV*)cv, G_DISCARD);
 
     POPSTACK;
 cleanup:
index 4a0fe67..3265bc7 100644 (file)
@@ -8,9 +8,10 @@
 
 
 #include "EXTERN.h"
+#define PERL_IN_MINIPERLMAIN_C
 #include "perl.h"
 
-static void xs_init (void);
+static void xs_init (pTHX);
 static PerlInterpreter *my_perl;
 
 #if defined (__MINT__) || defined (atarist)
@@ -36,7 +37,7 @@ main(int argc, char **argv, char **env)
 
     PERL_SYS_INIT(&argc,&argv);
 
-    perl_init_i18nl10n(1);
+    init_i18nl10n(1);
 
     if (!PL_do_undump) {
        my_perl = perl_alloc();
@@ -65,7 +66,7 @@ main(int argc, char **argv, char **env)
 /* Do not delete this line--writemain depends on it */
 
 static void
-xs_init(void)
+xs_init(pTHX)
 {
   dXSUB_SYS;
 }
index 1fbb214..161a530 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 
 /* Functions */
 
-#undef  Gv_AMupdate
-#define Gv_AMupdate            pPerl->Perl_Gv_AMupdate
+#undef  Perl_ErrorNo
+#define Perl_ErrorNo           pPerl->Perl_ErrorNo
+#undef  Perl_GetVars
+#define Perl_GetVars           pPerl->Perl_GetVars
+#undef  Perl_Gv_AMupdate
+#define Perl_Gv_AMupdate       pPerl->Perl_Gv_AMupdate
+#undef  Perl_amagic_call
+#define Perl_amagic_call       pPerl->Perl_amagic_call
+#undef  Perl_append_elem
+#define Perl_append_elem       pPerl->Perl_append_elem
+#undef  Perl_append_list
+#define Perl_append_list       pPerl->Perl_append_list
+#undef  Perl_apply
+#define Perl_apply             pPerl->Perl_apply
+#undef  Perl_assertref
+#define Perl_assertref         pPerl->Perl_assertref
+#undef  Perl_av_clear
+#define Perl_av_clear          pPerl->Perl_av_clear
+#undef  Perl_av_extend
+#define Perl_av_extend         pPerl->Perl_av_extend
+#undef  Perl_av_fake
+#define Perl_av_fake           pPerl->Perl_av_fake
+#undef  Perl_av_fetch
+#define Perl_av_fetch          pPerl->Perl_av_fetch
+#undef  Perl_av_fill
+#define Perl_av_fill           pPerl->Perl_av_fill
+#undef  Perl_av_len
+#define Perl_av_len            pPerl->Perl_av_len
+#undef  Perl_av_make
+#define Perl_av_make           pPerl->Perl_av_make
+#undef  Perl_av_pop
+#define Perl_av_pop            pPerl->Perl_av_pop
+#undef  Perl_av_push
+#define Perl_av_push           pPerl->Perl_av_push
+#undef  Perl_av_reify
+#define Perl_av_reify          pPerl->Perl_av_reify
+#undef  Perl_av_shift
+#define Perl_av_shift          pPerl->Perl_av_shift
+#undef  Perl_av_store
+#define Perl_av_store          pPerl->Perl_av_store
+#undef  Perl_av_undef
+#define Perl_av_undef          pPerl->Perl_av_undef
+#undef  Perl_av_unshift
+#define Perl_av_unshift                pPerl->Perl_av_unshift
+#undef  Perl_avhv_exists_ent
+#define Perl_avhv_exists_ent   pPerl->Perl_avhv_exists_ent
+#undef  Perl_avhv_fetch_ent
+#define Perl_avhv_fetch_ent    pPerl->Perl_avhv_fetch_ent
+#undef  Perl_avhv_iternext
+#define Perl_avhv_iternext     pPerl->Perl_avhv_iternext
+#undef  Perl_avhv_iterval
+#define Perl_avhv_iterval      pPerl->Perl_avhv_iterval
+#undef  Perl_avhv_keys
+#define Perl_avhv_keys         pPerl->Perl_avhv_keys
+#undef  Perl_bind_match
+#define Perl_bind_match                pPerl->Perl_bind_match
+#undef  Perl_block_end
+#define Perl_block_end         pPerl->Perl_block_end
+#undef  Perl_block_gimme
+#define Perl_block_gimme       pPerl->Perl_block_gimme
+#undef  Perl_block_start
+#define Perl_block_start       pPerl->Perl_block_start
+#undef  Perl_boot_core_UNIVERSAL
+#define Perl_boot_core_UNIVERSAL       pPerl->Perl_boot_core_UNIVERSAL
+#undef  Perl_bset_obj_store
+#define Perl_bset_obj_store    pPerl->Perl_bset_obj_store
+#undef  Perl_call_argv
+#define Perl_call_argv         pPerl->Perl_call_argv
+#undef  Perl_call_atexit
+#define Perl_call_atexit       pPerl->Perl_call_atexit
+#undef  Perl_call_list
+#define Perl_call_list         pPerl->Perl_call_list
+#undef  Perl_call_method
+#define Perl_call_method       pPerl->Perl_call_method
+#undef  Perl_call_pv
+#define Perl_call_pv           pPerl->Perl_call_pv
+#undef  Perl_call_sv
+#define Perl_call_sv           pPerl->Perl_call_sv
+#undef  Perl_calloc
+#define Perl_calloc            pPerl->Perl_calloc
+#undef  Perl_cando
+#define Perl_cando             pPerl->Perl_cando
+#undef  Perl_cast_i32
+#define Perl_cast_i32          pPerl->Perl_cast_i32
+#undef  Perl_cast_iv
+#define Perl_cast_iv           pPerl->Perl_cast_iv
+#undef  Perl_cast_ulong
+#define Perl_cast_ulong                pPerl->Perl_cast_ulong
+#undef  Perl_cast_uv
+#define Perl_cast_uv           pPerl->Perl_cast_uv
+#undef  Perl_ck_anoncode
+#define Perl_ck_anoncode       pPerl->Perl_ck_anoncode
+#undef  Perl_ck_bitop
+#define Perl_ck_bitop          pPerl->Perl_ck_bitop
+#undef  Perl_ck_concat
+#define Perl_ck_concat         pPerl->Perl_ck_concat
+#undef  Perl_ck_defined
+#define Perl_ck_defined                pPerl->Perl_ck_defined
+#undef  Perl_ck_delete
+#define Perl_ck_delete         pPerl->Perl_ck_delete
+#undef  Perl_ck_eof
+#define Perl_ck_eof            pPerl->Perl_ck_eof
+#undef  Perl_ck_eval
+#define Perl_ck_eval           pPerl->Perl_ck_eval
+#undef  Perl_ck_exec
+#define Perl_ck_exec           pPerl->Perl_ck_exec
+#undef  Perl_ck_exists
+#define Perl_ck_exists         pPerl->Perl_ck_exists
+#undef  Perl_ck_ftst
+#define Perl_ck_ftst           pPerl->Perl_ck_ftst
+#undef  Perl_ck_fun
+#define Perl_ck_fun            pPerl->Perl_ck_fun
+#undef  Perl_ck_fun_locale
+#define Perl_ck_fun_locale     pPerl->Perl_ck_fun_locale
+#undef  Perl_ck_glob
+#define Perl_ck_glob           pPerl->Perl_ck_glob
+#undef  Perl_ck_grep
+#define Perl_ck_grep           pPerl->Perl_ck_grep
+#undef  Perl_ck_index
+#define Perl_ck_index          pPerl->Perl_ck_index
+#undef  Perl_ck_lengthconst
+#define Perl_ck_lengthconst    pPerl->Perl_ck_lengthconst
+#undef  Perl_ck_lfun
+#define Perl_ck_lfun           pPerl->Perl_ck_lfun
+#undef  Perl_ck_listiob
+#define Perl_ck_listiob                pPerl->Perl_ck_listiob
+#undef  Perl_ck_match
+#define Perl_ck_match          pPerl->Perl_ck_match
+#undef  Perl_ck_null
+#define Perl_ck_null           pPerl->Perl_ck_null
+#undef  Perl_ck_repeat
+#define Perl_ck_repeat         pPerl->Perl_ck_repeat
+#undef  Perl_ck_require
+#define Perl_ck_require                pPerl->Perl_ck_require
+#undef  Perl_ck_rfun
+#define Perl_ck_rfun           pPerl->Perl_ck_rfun
+#undef  Perl_ck_rvconst
+#define Perl_ck_rvconst                pPerl->Perl_ck_rvconst
+#undef  Perl_ck_scmp
+#define Perl_ck_scmp           pPerl->Perl_ck_scmp
+#undef  Perl_ck_select
+#define Perl_ck_select         pPerl->Perl_ck_select
+#undef  Perl_ck_shift
+#define Perl_ck_shift          pPerl->Perl_ck_shift
+#undef  Perl_ck_sort
+#define Perl_ck_sort           pPerl->Perl_ck_sort
+#undef  Perl_ck_spair
+#define Perl_ck_spair          pPerl->Perl_ck_spair
+#undef  Perl_ck_split
+#define Perl_ck_split          pPerl->Perl_ck_split
+#undef  Perl_ck_subr
+#define Perl_ck_subr           pPerl->Perl_ck_subr
+#undef  Perl_ck_svconst
+#define Perl_ck_svconst                pPerl->Perl_ck_svconst
+#undef  Perl_ck_trunc
+#define Perl_ck_trunc          pPerl->Perl_ck_trunc
+#undef  Perl_condpair_magic
+#define Perl_condpair_magic    pPerl->Perl_condpair_magic
+#undef  Perl_convert
+#define Perl_convert           pPerl->Perl_convert
+#undef  Perl_croak
+#define Perl_croak             pPerl->Perl_croak
+#undef  Perl_cv_ckproto
+#define Perl_cv_ckproto                pPerl->Perl_cv_ckproto
+#undef  Perl_cv_clone
+#define Perl_cv_clone          pPerl->Perl_cv_clone
+#undef  Perl_cv_const_sv
+#define Perl_cv_const_sv       pPerl->Perl_cv_const_sv
+#undef  Perl_cv_undef
+#define Perl_cv_undef          pPerl->Perl_cv_undef
+#undef  Perl_cx_dump
+#define Perl_cx_dump           pPerl->Perl_cx_dump
+#undef  Perl_cxinc
+#define Perl_cxinc             pPerl->Perl_cxinc
+#undef  Perl_deb
+#define Perl_deb               pPerl->Perl_deb
+#undef  Perl_deb_growlevel
+#define Perl_deb_growlevel     pPerl->Perl_deb_growlevel
+#undef  Perl_debop
+#define Perl_debop             pPerl->Perl_debop
+#undef  Perl_debprofdump
+#define Perl_debprofdump       pPerl->Perl_debprofdump
+#undef  Perl_debstack
+#define Perl_debstack          pPerl->Perl_debstack
+#undef  Perl_debstackptrs
+#define Perl_debstackptrs      pPerl->Perl_debstackptrs
+#undef  Perl_default_protect
+#define Perl_default_protect   pPerl->Perl_default_protect
+#undef  Perl_delimcpy
+#define Perl_delimcpy          pPerl->Perl_delimcpy
+#undef  Perl_deprecate
+#define Perl_deprecate         pPerl->Perl_deprecate
+#undef  Perl_die
+#define Perl_die               pPerl->Perl_die
+#undef  Perl_die_where
+#define Perl_die_where         pPerl->Perl_die_where
+#undef  Perl_do_aexec
+#define Perl_do_aexec          pPerl->Perl_do_aexec
+#undef  Perl_do_binmode
+#define Perl_do_binmode                pPerl->Perl_do_binmode
+#undef  Perl_do_chomp
+#define Perl_do_chomp          pPerl->Perl_do_chomp
+#undef  Perl_do_chop
+#define Perl_do_chop           pPerl->Perl_do_chop
+#undef  Perl_do_close
+#define Perl_do_close          pPerl->Perl_do_close
+#undef  Perl_do_eof
+#define Perl_do_eof            pPerl->Perl_do_eof
+#undef  Perl_do_exec
+#define Perl_do_exec           pPerl->Perl_do_exec
+#undef  Perl_do_exec3
+#define Perl_do_exec3          pPerl->Perl_do_exec3
+#undef  Perl_do_execfree
+#define Perl_do_execfree       pPerl->Perl_do_execfree
+#undef  Perl_do_gv_dump
+#define Perl_do_gv_dump                pPerl->Perl_do_gv_dump
+#undef  Perl_do_gvgv_dump
+#define Perl_do_gvgv_dump      pPerl->Perl_do_gvgv_dump
+#undef  Perl_do_hv_dump
+#define Perl_do_hv_dump                pPerl->Perl_do_hv_dump
+#undef  Perl_do_ipcctl
+#define Perl_do_ipcctl         pPerl->Perl_do_ipcctl
+#undef  Perl_do_ipcget
+#define Perl_do_ipcget         pPerl->Perl_do_ipcget
+#undef  Perl_do_join
+#define Perl_do_join           pPerl->Perl_do_join
+#undef  Perl_do_kv
+#define Perl_do_kv             pPerl->Perl_do_kv
+#undef  Perl_do_magic_dump
+#define Perl_do_magic_dump     pPerl->Perl_do_magic_dump
+#undef  Perl_do_msgrcv
+#define Perl_do_msgrcv         pPerl->Perl_do_msgrcv
+#undef  Perl_do_msgsnd
+#define Perl_do_msgsnd         pPerl->Perl_do_msgsnd
+#undef  Perl_do_op_dump
+#define Perl_do_op_dump                pPerl->Perl_do_op_dump
+#undef  Perl_do_open
+#define Perl_do_open           pPerl->Perl_do_open
+#undef  Perl_do_pipe
+#define Perl_do_pipe           pPerl->Perl_do_pipe
+#undef  Perl_do_pmop_dump
+#define Perl_do_pmop_dump      pPerl->Perl_do_pmop_dump
+#undef  Perl_do_print
+#define Perl_do_print          pPerl->Perl_do_print
+#undef  Perl_do_readline
+#define Perl_do_readline       pPerl->Perl_do_readline
+#undef  Perl_do_seek
+#define Perl_do_seek           pPerl->Perl_do_seek
+#undef  Perl_do_semop
+#define Perl_do_semop          pPerl->Perl_do_semop
+#undef  Perl_do_shmio
+#define Perl_do_shmio          pPerl->Perl_do_shmio
+#undef  Perl_do_sprintf
+#define Perl_do_sprintf                pPerl->Perl_do_sprintf
+#undef  Perl_do_sv_dump
+#define Perl_do_sv_dump                pPerl->Perl_do_sv_dump
+#undef  Perl_do_sysseek
+#define Perl_do_sysseek                pPerl->Perl_do_sysseek
+#undef  Perl_do_tell
+#define Perl_do_tell           pPerl->Perl_do_tell
+#undef  Perl_do_trans
+#define Perl_do_trans          pPerl->Perl_do_trans
+#undef  Perl_do_vecset
+#define Perl_do_vecset         pPerl->Perl_do_vecset
+#undef  Perl_do_vop
+#define Perl_do_vop            pPerl->Perl_do_vop
+#undef  Perl_dofile
+#define Perl_dofile            pPerl->Perl_dofile
+#undef  Perl_dounwind
+#define Perl_dounwind          pPerl->Perl_dounwind
+#undef  Perl_dowantarray
+#define Perl_dowantarray       pPerl->Perl_dowantarray
+#undef  Perl_dump_all
+#define Perl_dump_all          pPerl->Perl_dump_all
+#undef  Perl_dump_eval
+#define Perl_dump_eval         pPerl->Perl_dump_eval
+#undef  Perl_dump_fds
+#define Perl_dump_fds          pPerl->Perl_dump_fds
+#undef  Perl_dump_form
+#define Perl_dump_form         pPerl->Perl_dump_form
+#undef  Perl_dump_indent
+#define Perl_dump_indent       pPerl->Perl_dump_indent
+#undef  Perl_dump_mstats
+#define Perl_dump_mstats       pPerl->Perl_dump_mstats
+#undef  Perl_dump_packsubs
+#define Perl_dump_packsubs     pPerl->Perl_dump_packsubs
+#undef  Perl_dump_sub
+#define Perl_dump_sub          pPerl->Perl_dump_sub
+#undef  Perl_eval_pv
+#define Perl_eval_pv           pPerl->Perl_eval_pv
+#undef  Perl_eval_sv
+#define Perl_eval_sv           pPerl->Perl_eval_sv
+#undef  Perl_fbm_compile
+#define Perl_fbm_compile       pPerl->Perl_fbm_compile
+#undef  Perl_fbm_instr
+#define Perl_fbm_instr         pPerl->Perl_fbm_instr
+#undef  Perl_filter_add
+#define Perl_filter_add                pPerl->Perl_filter_add
+#undef  Perl_filter_del
+#define Perl_filter_del                pPerl->Perl_filter_del
+#undef  Perl_filter_read
+#define Perl_filter_read       pPerl->Perl_filter_read
+#undef  Perl_find_script
+#define Perl_find_script       pPerl->Perl_find_script
+#undef  Perl_find_threadsv
+#define Perl_find_threadsv     pPerl->Perl_find_threadsv
+#undef  Perl_fold_constants
+#define Perl_fold_constants    pPerl->Perl_fold_constants
+#undef  Perl_force_list
+#define Perl_force_list                pPerl->Perl_force_list
+#undef  Perl_form
+#define Perl_form              pPerl->Perl_form
+#undef  Perl_free_tmps
+#define Perl_free_tmps         pPerl->Perl_free_tmps
+#undef  Perl_gen_constant_list
+#define Perl_gen_constant_list pPerl->Perl_gen_constant_list
+#undef  Perl_get_av
+#define Perl_get_av            pPerl->Perl_get_av
+#undef  Perl_get_cv
+#define Perl_get_cv            pPerl->Perl_get_cv
+#undef  Perl_get_hv
+#define Perl_get_hv            pPerl->Perl_get_hv
+#undef  Perl_get_no_modify
+#define Perl_get_no_modify     pPerl->Perl_get_no_modify
+#undef  Perl_get_op_descs
+#define Perl_get_op_descs      pPerl->Perl_get_op_descs
+#undef  Perl_get_op_names
+#define Perl_get_op_names      pPerl->Perl_get_op_names
+#undef  Perl_get_opargs
+#define Perl_get_opargs                pPerl->Perl_get_opargs
+#undef  Perl_get_sv
+#define Perl_get_sv            pPerl->Perl_get_sv
+#undef  Perl_get_vtbl
+#define Perl_get_vtbl          pPerl->Perl_get_vtbl
+#undef  Perl_getenv_len
+#define Perl_getenv_len                pPerl->Perl_getenv_len
+#undef  Perl_gp_free
+#define Perl_gp_free           pPerl->Perl_gp_free
+#undef  Perl_gp_ref
+#define Perl_gp_ref            pPerl->Perl_gp_ref
+#undef  Perl_gv_AVadd
+#define Perl_gv_AVadd          pPerl->Perl_gv_AVadd
+#undef  Perl_gv_HVadd
+#define Perl_gv_HVadd          pPerl->Perl_gv_HVadd
+#undef  Perl_gv_IOadd
+#define Perl_gv_IOadd          pPerl->Perl_gv_IOadd
+#undef  Perl_gv_autoload4
+#define Perl_gv_autoload4      pPerl->Perl_gv_autoload4
+#undef  Perl_gv_check
+#define Perl_gv_check          pPerl->Perl_gv_check
+#undef  Perl_gv_dump
+#define Perl_gv_dump           pPerl->Perl_gv_dump
+#undef  Perl_gv_efullname
+#define Perl_gv_efullname      pPerl->Perl_gv_efullname
+#undef  Perl_gv_efullname3
+#define Perl_gv_efullname3     pPerl->Perl_gv_efullname3
+#undef  Perl_gv_fetchfile
+#define Perl_gv_fetchfile      pPerl->Perl_gv_fetchfile
+#undef  Perl_gv_fetchmeth
+#define Perl_gv_fetchmeth      pPerl->Perl_gv_fetchmeth
+#undef  Perl_gv_fetchmethod
+#define Perl_gv_fetchmethod    pPerl->Perl_gv_fetchmethod
+#undef  Perl_gv_fetchmethod_autoload
+#define Perl_gv_fetchmethod_autoload   pPerl->Perl_gv_fetchmethod_autoload
+#undef  Perl_gv_fetchpv
+#define Perl_gv_fetchpv                pPerl->Perl_gv_fetchpv
+#undef  Perl_gv_fullname
+#define Perl_gv_fullname       pPerl->Perl_gv_fullname
+#undef  Perl_gv_fullname3
+#define Perl_gv_fullname3      pPerl->Perl_gv_fullname3
+#undef  Perl_gv_init
+#define Perl_gv_init           pPerl->Perl_gv_init
+#undef  Perl_gv_stashpv
+#define Perl_gv_stashpv                pPerl->Perl_gv_stashpv
+#undef  Perl_gv_stashpvn
+#define Perl_gv_stashpvn       pPerl->Perl_gv_stashpvn
+#undef  Perl_gv_stashsv
+#define Perl_gv_stashsv                pPerl->Perl_gv_stashsv
+#undef  Perl_hv_clear
+#define Perl_hv_clear          pPerl->Perl_hv_clear
+#undef  Perl_hv_delayfree_ent
+#define Perl_hv_delayfree_ent  pPerl->Perl_hv_delayfree_ent
+#undef  Perl_hv_delete
+#define Perl_hv_delete         pPerl->Perl_hv_delete
+#undef  Perl_hv_delete_ent
+#define Perl_hv_delete_ent     pPerl->Perl_hv_delete_ent
+#undef  Perl_hv_exists
+#define Perl_hv_exists         pPerl->Perl_hv_exists
+#undef  Perl_hv_exists_ent
+#define Perl_hv_exists_ent     pPerl->Perl_hv_exists_ent
+#undef  Perl_hv_fetch
+#define Perl_hv_fetch          pPerl->Perl_hv_fetch
+#undef  Perl_hv_fetch_ent
+#define Perl_hv_fetch_ent      pPerl->Perl_hv_fetch_ent
+#undef  Perl_hv_free_ent
+#define Perl_hv_free_ent       pPerl->Perl_hv_free_ent
+#undef  Perl_hv_iterinit
+#define Perl_hv_iterinit       pPerl->Perl_hv_iterinit
+#undef  Perl_hv_iterkey
+#define Perl_hv_iterkey                pPerl->Perl_hv_iterkey
+#undef  Perl_hv_iterkeysv
+#define Perl_hv_iterkeysv      pPerl->Perl_hv_iterkeysv
+#undef  Perl_hv_iternext
+#define Perl_hv_iternext       pPerl->Perl_hv_iternext
+#undef  Perl_hv_iternextsv
+#define Perl_hv_iternextsv     pPerl->Perl_hv_iternextsv
+#undef  Perl_hv_iterval
+#define Perl_hv_iterval                pPerl->Perl_hv_iterval
+#undef  Perl_hv_ksplit
+#define Perl_hv_ksplit         pPerl->Perl_hv_ksplit
+#undef  Perl_hv_magic
+#define Perl_hv_magic          pPerl->Perl_hv_magic
+#undef  Perl_hv_store
+#define Perl_hv_store          pPerl->Perl_hv_store
+#undef  Perl_hv_store_ent
+#define Perl_hv_store_ent      pPerl->Perl_hv_store_ent
+#undef  Perl_hv_undef
+#define Perl_hv_undef          pPerl->Perl_hv_undef
+#undef  Perl_ibcmp
+#define Perl_ibcmp             pPerl->Perl_ibcmp
+#undef  Perl_ibcmp_locale
+#define Perl_ibcmp_locale      pPerl->Perl_ibcmp_locale
+#undef  Perl_ingroup
+#define Perl_ingroup           pPerl->Perl_ingroup
+#undef  Perl_init_i18nl10n
+#define Perl_init_i18nl10n     pPerl->Perl_init_i18nl10n
+#undef  Perl_init_i18nl14n
+#define Perl_init_i18nl14n     pPerl->Perl_init_i18nl14n
+#undef  Perl_init_stacks
+#define Perl_init_stacks       pPerl->Perl_init_stacks
+#undef  Perl_instr
+#define Perl_instr             pPerl->Perl_instr
+#undef  Perl_intro_my
+#define Perl_intro_my          pPerl->Perl_intro_my
+#undef  Perl_invert
+#define Perl_invert            pPerl->Perl_invert
+#undef  Perl_io_close
+#define Perl_io_close          pPerl->Perl_io_close
+#undef  Perl_is_uni_alnum
+#define Perl_is_uni_alnum      pPerl->Perl_is_uni_alnum
+#undef  Perl_is_uni_alnum_lc
+#define Perl_is_uni_alnum_lc   pPerl->Perl_is_uni_alnum_lc
+#undef  Perl_is_uni_alpha
+#define Perl_is_uni_alpha      pPerl->Perl_is_uni_alpha
+#undef  Perl_is_uni_alpha_lc
+#define Perl_is_uni_alpha_lc   pPerl->Perl_is_uni_alpha_lc
+#undef  Perl_is_uni_digit
+#define Perl_is_uni_digit      pPerl->Perl_is_uni_digit
+#undef  Perl_is_uni_digit_lc
+#define Perl_is_uni_digit_lc   pPerl->Perl_is_uni_digit_lc
+#undef  Perl_is_uni_idfirst
+#define Perl_is_uni_idfirst    pPerl->Perl_is_uni_idfirst
+#undef  Perl_is_uni_idfirst_lc
+#define Perl_is_uni_idfirst_lc pPerl->Perl_is_uni_idfirst_lc
+#undef  Perl_is_uni_lower
+#define Perl_is_uni_lower      pPerl->Perl_is_uni_lower
+#undef  Perl_is_uni_lower_lc
+#define Perl_is_uni_lower_lc   pPerl->Perl_is_uni_lower_lc
+#undef  Perl_is_uni_print
+#define Perl_is_uni_print      pPerl->Perl_is_uni_print
+#undef  Perl_is_uni_print_lc
+#define Perl_is_uni_print_lc   pPerl->Perl_is_uni_print_lc
+#undef  Perl_is_uni_space
+#define Perl_is_uni_space      pPerl->Perl_is_uni_space
+#undef  Perl_is_uni_space_lc
+#define Perl_is_uni_space_lc   pPerl->Perl_is_uni_space_lc
+#undef  Perl_is_uni_upper
+#define Perl_is_uni_upper      pPerl->Perl_is_uni_upper
+#undef  Perl_is_uni_upper_lc
+#define Perl_is_uni_upper_lc   pPerl->Perl_is_uni_upper_lc
+#undef  Perl_is_utf8_alnum
+#define Perl_is_utf8_alnum     pPerl->Perl_is_utf8_alnum
+#undef  Perl_is_utf8_alpha
+#define Perl_is_utf8_alpha     pPerl->Perl_is_utf8_alpha
+#undef  Perl_is_utf8_digit
+#define Perl_is_utf8_digit     pPerl->Perl_is_utf8_digit
+#undef  Perl_is_utf8_idfirst
+#define Perl_is_utf8_idfirst   pPerl->Perl_is_utf8_idfirst
+#undef  Perl_is_utf8_lower
+#define Perl_is_utf8_lower     pPerl->Perl_is_utf8_lower
+#undef  Perl_is_utf8_mark
+#define Perl_is_utf8_mark      pPerl->Perl_is_utf8_mark
+#undef  Perl_is_utf8_print
+#define Perl_is_utf8_print     pPerl->Perl_is_utf8_print
+#undef  Perl_is_utf8_space
+#define Perl_is_utf8_space     pPerl->Perl_is_utf8_space
+#undef  Perl_is_utf8_upper
+#define Perl_is_utf8_upper     pPerl->Perl_is_utf8_upper
+#undef  Perl_jmaybe
+#define Perl_jmaybe            pPerl->Perl_jmaybe
+#undef  Perl_keyword
+#define Perl_keyword           pPerl->Perl_keyword
+#undef  Perl_leave_scope
+#define Perl_leave_scope       pPerl->Perl_leave_scope
+#undef  Perl_lex_end
+#define Perl_lex_end           pPerl->Perl_lex_end
+#undef  Perl_lex_start
+#define Perl_lex_start         pPerl->Perl_lex_start
+#undef  Perl_linklist
+#define Perl_linklist          pPerl->Perl_linklist
+#undef  Perl_list
+#define Perl_list              pPerl->Perl_list
+#undef  Perl_listkids
+#define Perl_listkids          pPerl->Perl_listkids
+#undef  Perl_localize
+#define Perl_localize          pPerl->Perl_localize
+#undef  Perl_looks_like_number
+#define Perl_looks_like_number pPerl->Perl_looks_like_number
+#undef  Perl_magic_clear_all_env
+#define Perl_magic_clear_all_env       pPerl->Perl_magic_clear_all_env
+#undef  Perl_magic_clearenv
+#define Perl_magic_clearenv    pPerl->Perl_magic_clearenv
+#undef  Perl_magic_clearpack
+#define Perl_magic_clearpack   pPerl->Perl_magic_clearpack
+#undef  Perl_magic_clearsig
+#define Perl_magic_clearsig    pPerl->Perl_magic_clearsig
+#undef  Perl_magic_dump
+#define Perl_magic_dump                pPerl->Perl_magic_dump
+#undef  Perl_magic_existspack
+#define Perl_magic_existspack  pPerl->Perl_magic_existspack
+#undef  Perl_magic_freeregexp
+#define Perl_magic_freeregexp  pPerl->Perl_magic_freeregexp
+#undef  Perl_magic_get
+#define Perl_magic_get         pPerl->Perl_magic_get
+#undef  Perl_magic_getarylen
+#define Perl_magic_getarylen   pPerl->Perl_magic_getarylen
+#undef  Perl_magic_getdefelem
+#define Perl_magic_getdefelem  pPerl->Perl_magic_getdefelem
+#undef  Perl_magic_getglob
+#define Perl_magic_getglob     pPerl->Perl_magic_getglob
+#undef  Perl_magic_getnkeys
+#define Perl_magic_getnkeys    pPerl->Perl_magic_getnkeys
+#undef  Perl_magic_getpack
+#define Perl_magic_getpack     pPerl->Perl_magic_getpack
+#undef  Perl_magic_getpos
+#define Perl_magic_getpos      pPerl->Perl_magic_getpos
+#undef  Perl_magic_getsig
+#define Perl_magic_getsig      pPerl->Perl_magic_getsig
+#undef  Perl_magic_getsubstr
+#define Perl_magic_getsubstr   pPerl->Perl_magic_getsubstr
+#undef  Perl_magic_gettaint
+#define Perl_magic_gettaint    pPerl->Perl_magic_gettaint
+#undef  Perl_magic_getuvar
+#define Perl_magic_getuvar     pPerl->Perl_magic_getuvar
+#undef  Perl_magic_getvec
+#define Perl_magic_getvec      pPerl->Perl_magic_getvec
+#undef  Perl_magic_killbackrefs
+#define Perl_magic_killbackrefs        pPerl->Perl_magic_killbackrefs
+#undef  Perl_magic_len
+#define Perl_magic_len         pPerl->Perl_magic_len
+#undef  Perl_magic_mutexfree
+#define Perl_magic_mutexfree   pPerl->Perl_magic_mutexfree
+#undef  Perl_magic_nextpack
+#define Perl_magic_nextpack    pPerl->Perl_magic_nextpack
+#undef  Perl_magic_regdata_cnt
+#define Perl_magic_regdata_cnt pPerl->Perl_magic_regdata_cnt
+#undef  Perl_magic_regdatum_get
+#define Perl_magic_regdatum_get        pPerl->Perl_magic_regdatum_get
+#undef  Perl_magic_set
+#define Perl_magic_set         pPerl->Perl_magic_set
+#undef  Perl_magic_set_all_env
+#define Perl_magic_set_all_env pPerl->Perl_magic_set_all_env
+#undef  Perl_magic_setamagic
+#define Perl_magic_setamagic   pPerl->Perl_magic_setamagic
+#undef  Perl_magic_setarylen
+#define Perl_magic_setarylen   pPerl->Perl_magic_setarylen
+#undef  Perl_magic_setbm
+#define Perl_magic_setbm       pPerl->Perl_magic_setbm
+#undef  Perl_magic_setcollxfrm
+#define Perl_magic_setcollxfrm pPerl->Perl_magic_setcollxfrm
+#undef  Perl_magic_setdbline
+#define Perl_magic_setdbline   pPerl->Perl_magic_setdbline
+#undef  Perl_magic_setdefelem
+#define Perl_magic_setdefelem  pPerl->Perl_magic_setdefelem
+#undef  Perl_magic_setenv
+#define Perl_magic_setenv      pPerl->Perl_magic_setenv
+#undef  Perl_magic_setfm
+#define Perl_magic_setfm       pPerl->Perl_magic_setfm
+#undef  Perl_magic_setglob
+#define Perl_magic_setglob     pPerl->Perl_magic_setglob
+#undef  Perl_magic_setisa
+#define Perl_magic_setisa      pPerl->Perl_magic_setisa
+#undef  Perl_magic_setmglob
+#define Perl_magic_setmglob    pPerl->Perl_magic_setmglob
+#undef  Perl_magic_setnkeys
+#define Perl_magic_setnkeys    pPerl->Perl_magic_setnkeys
+#undef  Perl_magic_setpack
+#define Perl_magic_setpack     pPerl->Perl_magic_setpack
+#undef  Perl_magic_setpos
+#define Perl_magic_setpos      pPerl->Perl_magic_setpos
+#undef  Perl_magic_setsig
+#define Perl_magic_setsig      pPerl->Perl_magic_setsig
+#undef  Perl_magic_setsubstr
+#define Perl_magic_setsubstr   pPerl->Perl_magic_setsubstr
+#undef  Perl_magic_settaint
+#define Perl_magic_settaint    pPerl->Perl_magic_settaint
+#undef  Perl_magic_setuvar
+#define Perl_magic_setuvar     pPerl->Perl_magic_setuvar
+#undef  Perl_magic_setvec
+#define Perl_magic_setvec      pPerl->Perl_magic_setvec
+#undef  Perl_magic_sizepack
+#define Perl_magic_sizepack    pPerl->Perl_magic_sizepack
+#undef  Perl_magic_wipepack
+#define Perl_magic_wipepack    pPerl->Perl_magic_wipepack
+#undef  Perl_magicname
+#define Perl_magicname         pPerl->Perl_magicname
+#undef  Perl_malloc
+#define Perl_malloc            pPerl->Perl_malloc
+#undef  Perl_malloced_size
+#define Perl_malloced_size     pPerl->Perl_malloced_size
+#undef  Perl_markstack_grow
+#define Perl_markstack_grow    pPerl->Perl_markstack_grow
+#undef  Perl_mem_collxfrm
+#define Perl_mem_collxfrm      pPerl->Perl_mem_collxfrm
+#undef  Perl_mess
+#define Perl_mess              pPerl->Perl_mess
+#undef  Perl_mfree
+#define Perl_mfree             pPerl->Perl_mfree
+#undef  Perl_mg_clear
+#define Perl_mg_clear          pPerl->Perl_mg_clear
+#undef  Perl_mg_copy
+#define Perl_mg_copy           pPerl->Perl_mg_copy
+#undef  Perl_mg_find
+#define Perl_mg_find           pPerl->Perl_mg_find
+#undef  Perl_mg_free
+#define Perl_mg_free           pPerl->Perl_mg_free
+#undef  Perl_mg_get
+#define Perl_mg_get            pPerl->Perl_mg_get
+#undef  Perl_mg_length
+#define Perl_mg_length         pPerl->Perl_mg_length
+#undef  Perl_mg_magical
+#define Perl_mg_magical                pPerl->Perl_mg_magical
+#undef  Perl_mg_set
+#define Perl_mg_set            pPerl->Perl_mg_set
+#undef  Perl_mg_size
+#define Perl_mg_size           pPerl->Perl_mg_size
+#undef  Perl_mod
+#define Perl_mod               pPerl->Perl_mod
+#undef  Perl_moreswitches
+#define Perl_moreswitches      pPerl->Perl_moreswitches
+#undef  Perl_my
+#define Perl_my                        pPerl->Perl_my
+#undef  Perl_my_bcopy
+#define Perl_my_bcopy          pPerl->Perl_my_bcopy
+#undef  Perl_my_bzero
+#define Perl_my_bzero          pPerl->Perl_my_bzero
+#undef  Perl_my_chsize
+#define Perl_my_chsize         pPerl->Perl_my_chsize
+#undef  Perl_my_exit
+#define Perl_my_exit           pPerl->Perl_my_exit
+#undef  Perl_my_failure_exit
+#define Perl_my_failure_exit   pPerl->Perl_my_failure_exit
+#undef  Perl_my_fflush_all
+#define Perl_my_fflush_all     pPerl->Perl_my_fflush_all
+#undef  Perl_my_htonl
+#define Perl_my_htonl          pPerl->Perl_my_htonl
+#undef  Perl_my_lstat
+#define Perl_my_lstat          pPerl->Perl_my_lstat
+#undef  Perl_my_memcmp
+#define Perl_my_memcmp         pPerl->Perl_my_memcmp
+#undef  Perl_my_memset
+#define Perl_my_memset         pPerl->Perl_my_memset
+#undef  Perl_my_ntohl
+#define Perl_my_ntohl          pPerl->Perl_my_ntohl
+#undef  Perl_my_pclose
+#define Perl_my_pclose         pPerl->Perl_my_pclose
+#undef  Perl_my_popen
+#define Perl_my_popen          pPerl->Perl_my_popen
+#undef  Perl_my_setenv
+#define Perl_my_setenv         pPerl->Perl_my_setenv
+#undef  Perl_my_stat
+#define Perl_my_stat           pPerl->Perl_my_stat
+#undef  Perl_my_swap
+#define Perl_my_swap           pPerl->Perl_my_swap
+#undef  Perl_my_unexec
+#define Perl_my_unexec         pPerl->Perl_my_unexec
+#undef  Perl_newANONHASH
+#define Perl_newANONHASH       pPerl->Perl_newANONHASH
+#undef  Perl_newANONLIST
+#define Perl_newANONLIST       pPerl->Perl_newANONLIST
+#undef  Perl_newANONSUB
+#define Perl_newANONSUB                pPerl->Perl_newANONSUB
+#undef  Perl_newASSIGNOP
+#define Perl_newASSIGNOP       pPerl->Perl_newASSIGNOP
+#undef  Perl_newAV
+#define Perl_newAV             pPerl->Perl_newAV
+#undef  Perl_newAVREF
+#define Perl_newAVREF          pPerl->Perl_newAVREF
+#undef  Perl_newBINOP
+#define Perl_newBINOP          pPerl->Perl_newBINOP
+#undef  Perl_newCONDOP
+#define Perl_newCONDOP         pPerl->Perl_newCONDOP
+#undef  Perl_newCONSTSUB
+#define Perl_newCONSTSUB       pPerl->Perl_newCONSTSUB
+#undef  Perl_newCVREF
+#define Perl_newCVREF          pPerl->Perl_newCVREF
+#undef  Perl_newFORM
+#define Perl_newFORM           pPerl->Perl_newFORM
+#undef  Perl_newFOROP
+#define Perl_newFOROP          pPerl->Perl_newFOROP
+#undef  Perl_newGVOP
+#define Perl_newGVOP           pPerl->Perl_newGVOP
+#undef  Perl_newGVREF
+#define Perl_newGVREF          pPerl->Perl_newGVREF
+#undef  Perl_newGVgen
+#define Perl_newGVgen          pPerl->Perl_newGVgen
+#undef  Perl_newHV
+#define Perl_newHV             pPerl->Perl_newHV
+#undef  Perl_newHVREF
+#define Perl_newHVREF          pPerl->Perl_newHVREF
+#undef  Perl_newHVhv
+#define Perl_newHVhv           pPerl->Perl_newHVhv
+#undef  Perl_newIO
+#define Perl_newIO             pPerl->Perl_newIO
+#undef  Perl_newLISTOP
+#define Perl_newLISTOP         pPerl->Perl_newLISTOP
+#undef  Perl_newLOGOP
+#define Perl_newLOGOP          pPerl->Perl_newLOGOP
+#undef  Perl_newLOOPEX
+#define Perl_newLOOPEX         pPerl->Perl_newLOOPEX
+#undef  Perl_newLOOPOP
+#define Perl_newLOOPOP         pPerl->Perl_newLOOPOP
+#undef  Perl_newNULLLIST
+#define Perl_newNULLLIST       pPerl->Perl_newNULLLIST
+#undef  Perl_newOP
+#define Perl_newOP             pPerl->Perl_newOP
+#undef  Perl_newPMOP
+#define Perl_newPMOP           pPerl->Perl_newPMOP
+#undef  Perl_newPROG
+#define Perl_newPROG           pPerl->Perl_newPROG
+#undef  Perl_newPVOP
+#define Perl_newPVOP           pPerl->Perl_newPVOP
+#undef  Perl_newRANGE
+#define Perl_newRANGE          pPerl->Perl_newRANGE
+#undef  Perl_newRV
+#define Perl_newRV             pPerl->Perl_newRV
+#undef  Perl_newRV_noinc
+#define Perl_newRV_noinc       pPerl->Perl_newRV_noinc
+#undef  Perl_newSLICEOP
+#define Perl_newSLICEOP                pPerl->Perl_newSLICEOP
+#undef  Perl_newSTATEOP
+#define Perl_newSTATEOP                pPerl->Perl_newSTATEOP
+#undef  Perl_newSUB
+#define Perl_newSUB            pPerl->Perl_newSUB
+#undef  Perl_newSV
+#define Perl_newSV             pPerl->Perl_newSV
+#undef  Perl_newSVOP
+#define Perl_newSVOP           pPerl->Perl_newSVOP
+#undef  Perl_newSVREF
+#define Perl_newSVREF          pPerl->Perl_newSVREF
+#undef  Perl_newSViv
+#define Perl_newSViv           pPerl->Perl_newSViv
+#undef  Perl_newSVnv
+#define Perl_newSVnv           pPerl->Perl_newSVnv
+#undef  Perl_newSVpv
+#define Perl_newSVpv           pPerl->Perl_newSVpv
+#undef  Perl_newSVpvf
+#define Perl_newSVpvf          pPerl->Perl_newSVpvf
+#undef  Perl_newSVpvn
+#define Perl_newSVpvn          pPerl->Perl_newSVpvn
+#undef  Perl_newSVrv
+#define Perl_newSVrv           pPerl->Perl_newSVrv
+#undef  Perl_newSVsv
+#define Perl_newSVsv           pPerl->Perl_newSVsv
+#undef  Perl_newUNOP
+#define Perl_newUNOP           pPerl->Perl_newUNOP
+#undef  Perl_newWHILEOP
+#define Perl_newWHILEOP                pPerl->Perl_newWHILEOP
+#undef  Perl_newXS
+#define Perl_newXS             pPerl->Perl_newXS
+#undef  Perl_new_collate
+#define Perl_new_collate       pPerl->Perl_new_collate
+#undef  Perl_new_ctype
+#define Perl_new_ctype         pPerl->Perl_new_ctype
+#undef  Perl_new_numeric
+#define Perl_new_numeric       pPerl->Perl_new_numeric
+#undef  Perl_new_stackinfo
+#define Perl_new_stackinfo     pPerl->Perl_new_stackinfo
+#undef  Perl_new_struct_thread
+#define Perl_new_struct_thread pPerl->Perl_new_struct_thread
+#undef  Perl_nextargv
+#define Perl_nextargv          pPerl->Perl_nextargv
+#undef  Perl_ninstr
+#define Perl_ninstr            pPerl->Perl_ninstr
+#undef  Perl_oopsAV
+#define Perl_oopsAV            pPerl->Perl_oopsAV
+#undef  Perl_oopsCV
+#define Perl_oopsCV            pPerl->Perl_oopsCV
+#undef  Perl_oopsHV
+#define Perl_oopsHV            pPerl->Perl_oopsHV
+#undef  Perl_op_const_sv
+#define Perl_op_const_sv       pPerl->Perl_op_const_sv
+#undef  Perl_op_dump
+#define Perl_op_dump           pPerl->Perl_op_dump
+#undef  Perl_op_free
+#define Perl_op_free           pPerl->Perl_op_free
+#undef  Perl_package
+#define Perl_package           pPerl->Perl_package
+#undef  Perl_pad_alloc
+#define Perl_pad_alloc         pPerl->Perl_pad_alloc
+#undef  Perl_pad_allocmy
+#define Perl_pad_allocmy       pPerl->Perl_pad_allocmy
+#undef  Perl_pad_findmy
+#define Perl_pad_findmy                pPerl->Perl_pad_findmy
+#undef  Perl_pad_free
+#define Perl_pad_free          pPerl->Perl_pad_free
+#undef  Perl_pad_leavemy
+#define Perl_pad_leavemy       pPerl->Perl_pad_leavemy
+#undef  Perl_pad_reset
+#define Perl_pad_reset         pPerl->Perl_pad_reset
+#undef  Perl_pad_sv
+#define Perl_pad_sv            pPerl->Perl_pad_sv
+#undef  Perl_pad_swipe
+#define Perl_pad_swipe         pPerl->Perl_pad_swipe
+#undef  Perl_peep
+#define Perl_peep              pPerl->Perl_peep
+#undef  Perl_pidgone
+#define Perl_pidgone           pPerl->Perl_pidgone
+#undef  Perl_pmflag
+#define Perl_pmflag            pPerl->Perl_pmflag
+#undef  Perl_pmop_dump
+#define Perl_pmop_dump         pPerl->Perl_pmop_dump
+#undef  Perl_pmruntime
+#define Perl_pmruntime         pPerl->Perl_pmruntime
+#undef  Perl_pmtrans
+#define Perl_pmtrans           pPerl->Perl_pmtrans
+#undef  Perl_pop_return
+#define Perl_pop_return                pPerl->Perl_pop_return
+#undef  Perl_pop_scope
+#define Perl_pop_scope         pPerl->Perl_pop_scope
+#undef  Perl_pp_aassign
+#define Perl_pp_aassign                pPerl->Perl_pp_aassign
+#undef  Perl_pp_abs
+#define Perl_pp_abs            pPerl->Perl_pp_abs
+#undef  Perl_pp_accept
+#define Perl_pp_accept         pPerl->Perl_pp_accept
+#undef  Perl_pp_add
+#define Perl_pp_add            pPerl->Perl_pp_add
+#undef  Perl_pp_aelem
+#define Perl_pp_aelem          pPerl->Perl_pp_aelem
+#undef  Perl_pp_aelemfast
+#define Perl_pp_aelemfast      pPerl->Perl_pp_aelemfast
+#undef  Perl_pp_alarm
+#define Perl_pp_alarm          pPerl->Perl_pp_alarm
+#undef  Perl_pp_and
+#define Perl_pp_and            pPerl->Perl_pp_and
+#undef  Perl_pp_andassign
+#define Perl_pp_andassign      pPerl->Perl_pp_andassign
+#undef  Perl_pp_anoncode
+#define Perl_pp_anoncode       pPerl->Perl_pp_anoncode
+#undef  Perl_pp_anonhash
+#define Perl_pp_anonhash       pPerl->Perl_pp_anonhash
+#undef  Perl_pp_anonlist
+#define Perl_pp_anonlist       pPerl->Perl_pp_anonlist
+#undef  Perl_pp_aslice
+#define Perl_pp_aslice         pPerl->Perl_pp_aslice
+#undef  Perl_pp_atan2
+#define Perl_pp_atan2          pPerl->Perl_pp_atan2
+#undef  Perl_pp_av2arylen
+#define Perl_pp_av2arylen      pPerl->Perl_pp_av2arylen
+#undef  Perl_pp_backtick
+#define Perl_pp_backtick       pPerl->Perl_pp_backtick
+#undef  Perl_pp_bind
+#define Perl_pp_bind           pPerl->Perl_pp_bind
+#undef  Perl_pp_binmode
+#define Perl_pp_binmode                pPerl->Perl_pp_binmode
+#undef  Perl_pp_bit_and
+#define Perl_pp_bit_and                pPerl->Perl_pp_bit_and
+#undef  Perl_pp_bit_or
+#define Perl_pp_bit_or         pPerl->Perl_pp_bit_or
+#undef  Perl_pp_bit_xor
+#define Perl_pp_bit_xor                pPerl->Perl_pp_bit_xor
+#undef  Perl_pp_bless
+#define Perl_pp_bless          pPerl->Perl_pp_bless
+#undef  Perl_pp_caller
+#define Perl_pp_caller         pPerl->Perl_pp_caller
+#undef  Perl_pp_chdir
+#define Perl_pp_chdir          pPerl->Perl_pp_chdir
+#undef  Perl_pp_chmod
+#define Perl_pp_chmod          pPerl->Perl_pp_chmod
+#undef  Perl_pp_chomp
+#define Perl_pp_chomp          pPerl->Perl_pp_chomp
+#undef  Perl_pp_chop
+#define Perl_pp_chop           pPerl->Perl_pp_chop
+#undef  Perl_pp_chown
+#define Perl_pp_chown          pPerl->Perl_pp_chown
+#undef  Perl_pp_chr
+#define Perl_pp_chr            pPerl->Perl_pp_chr
+#undef  Perl_pp_chroot
+#define Perl_pp_chroot         pPerl->Perl_pp_chroot
+#undef  Perl_pp_close
+#define Perl_pp_close          pPerl->Perl_pp_close
+#undef  Perl_pp_closedir
+#define Perl_pp_closedir       pPerl->Perl_pp_closedir
+#undef  Perl_pp_complement
+#define Perl_pp_complement     pPerl->Perl_pp_complement
+#undef  Perl_pp_concat
+#define Perl_pp_concat         pPerl->Perl_pp_concat
+#undef  Perl_pp_cond_expr
+#define Perl_pp_cond_expr      pPerl->Perl_pp_cond_expr
+#undef  Perl_pp_connect
+#define Perl_pp_connect                pPerl->Perl_pp_connect
+#undef  Perl_pp_const
+#define Perl_pp_const          pPerl->Perl_pp_const
+#undef  Perl_pp_cos
+#define Perl_pp_cos            pPerl->Perl_pp_cos
+#undef  Perl_pp_crypt
+#define Perl_pp_crypt          pPerl->Perl_pp_crypt
+#undef  Perl_pp_dbmclose
+#define Perl_pp_dbmclose       pPerl->Perl_pp_dbmclose
+#undef  Perl_pp_dbmopen
+#define Perl_pp_dbmopen                pPerl->Perl_pp_dbmopen
+#undef  Perl_pp_dbstate
+#define Perl_pp_dbstate                pPerl->Perl_pp_dbstate
+#undef  Perl_pp_defined
+#define Perl_pp_defined                pPerl->Perl_pp_defined
+#undef  Perl_pp_delete
+#define Perl_pp_delete         pPerl->Perl_pp_delete
+#undef  Perl_pp_die
+#define Perl_pp_die            pPerl->Perl_pp_die
+#undef  Perl_pp_divide
+#define Perl_pp_divide         pPerl->Perl_pp_divide
+#undef  Perl_pp_dofile
+#define Perl_pp_dofile         pPerl->Perl_pp_dofile
+#undef  Perl_pp_dump
+#define Perl_pp_dump           pPerl->Perl_pp_dump
+#undef  Perl_pp_each
+#define Perl_pp_each           pPerl->Perl_pp_each
+#undef  Perl_pp_egrent
+#define Perl_pp_egrent         pPerl->Perl_pp_egrent
+#undef  Perl_pp_ehostent
+#define Perl_pp_ehostent       pPerl->Perl_pp_ehostent
+#undef  Perl_pp_enetent
+#define Perl_pp_enetent                pPerl->Perl_pp_enetent
+#undef  Perl_pp_enter
+#define Perl_pp_enter          pPerl->Perl_pp_enter
+#undef  Perl_pp_entereval
+#define Perl_pp_entereval      pPerl->Perl_pp_entereval
+#undef  Perl_pp_enteriter
+#define Perl_pp_enteriter      pPerl->Perl_pp_enteriter
+#undef  Perl_pp_enterloop
+#define Perl_pp_enterloop      pPerl->Perl_pp_enterloop
+#undef  Perl_pp_entersub
+#define Perl_pp_entersub       pPerl->Perl_pp_entersub
+#undef  Perl_pp_entertry
+#define Perl_pp_entertry       pPerl->Perl_pp_entertry
+#undef  Perl_pp_enterwrite
+#define Perl_pp_enterwrite     pPerl->Perl_pp_enterwrite
+#undef  Perl_pp_eof
+#define Perl_pp_eof            pPerl->Perl_pp_eof
+#undef  Perl_pp_eprotoent
+#define Perl_pp_eprotoent      pPerl->Perl_pp_eprotoent
+#undef  Perl_pp_epwent
+#define Perl_pp_epwent         pPerl->Perl_pp_epwent
+#undef  Perl_pp_eq
+#define Perl_pp_eq             pPerl->Perl_pp_eq
+#undef  Perl_pp_eservent
+#define Perl_pp_eservent       pPerl->Perl_pp_eservent
+#undef  Perl_pp_exec
+#define Perl_pp_exec           pPerl->Perl_pp_exec
+#undef  Perl_pp_exists
+#define Perl_pp_exists         pPerl->Perl_pp_exists
+#undef  Perl_pp_exit
+#define Perl_pp_exit           pPerl->Perl_pp_exit
+#undef  Perl_pp_exp
+#define Perl_pp_exp            pPerl->Perl_pp_exp
+#undef  Perl_pp_fcntl
+#define Perl_pp_fcntl          pPerl->Perl_pp_fcntl
+#undef  Perl_pp_fileno
+#define Perl_pp_fileno         pPerl->Perl_pp_fileno
+#undef  Perl_pp_flip
+#define Perl_pp_flip           pPerl->Perl_pp_flip
+#undef  Perl_pp_flock
+#define Perl_pp_flock          pPerl->Perl_pp_flock
+#undef  Perl_pp_flop
+#define Perl_pp_flop           pPerl->Perl_pp_flop
+#undef  Perl_pp_fork
+#define Perl_pp_fork           pPerl->Perl_pp_fork
+#undef  Perl_pp_formline
+#define Perl_pp_formline       pPerl->Perl_pp_formline
+#undef  Perl_pp_ftatime
+#define Perl_pp_ftatime                pPerl->Perl_pp_ftatime
+#undef  Perl_pp_ftbinary
+#define Perl_pp_ftbinary       pPerl->Perl_pp_ftbinary
+#undef  Perl_pp_ftblk
+#define Perl_pp_ftblk          pPerl->Perl_pp_ftblk
+#undef  Perl_pp_ftchr
+#define Perl_pp_ftchr          pPerl->Perl_pp_ftchr
+#undef  Perl_pp_ftctime
+#define Perl_pp_ftctime                pPerl->Perl_pp_ftctime
+#undef  Perl_pp_ftdir
+#define Perl_pp_ftdir          pPerl->Perl_pp_ftdir
+#undef  Perl_pp_fteexec
+#define Perl_pp_fteexec                pPerl->Perl_pp_fteexec
+#undef  Perl_pp_fteowned
+#define Perl_pp_fteowned       pPerl->Perl_pp_fteowned
+#undef  Perl_pp_fteread
+#define Perl_pp_fteread                pPerl->Perl_pp_fteread
+#undef  Perl_pp_ftewrite
+#define Perl_pp_ftewrite       pPerl->Perl_pp_ftewrite
+#undef  Perl_pp_ftfile
+#define Perl_pp_ftfile         pPerl->Perl_pp_ftfile
+#undef  Perl_pp_ftis
+#define Perl_pp_ftis           pPerl->Perl_pp_ftis
+#undef  Perl_pp_ftlink
+#define Perl_pp_ftlink         pPerl->Perl_pp_ftlink
+#undef  Perl_pp_ftmtime
+#define Perl_pp_ftmtime                pPerl->Perl_pp_ftmtime
+#undef  Perl_pp_ftpipe
+#define Perl_pp_ftpipe         pPerl->Perl_pp_ftpipe
+#undef  Perl_pp_ftrexec
+#define Perl_pp_ftrexec                pPerl->Perl_pp_ftrexec
+#undef  Perl_pp_ftrowned
+#define Perl_pp_ftrowned       pPerl->Perl_pp_ftrowned
+#undef  Perl_pp_ftrread
+#define Perl_pp_ftrread                pPerl->Perl_pp_ftrread
+#undef  Perl_pp_ftrwrite
+#define Perl_pp_ftrwrite       pPerl->Perl_pp_ftrwrite
+#undef  Perl_pp_ftsgid
+#define Perl_pp_ftsgid         pPerl->Perl_pp_ftsgid
+#undef  Perl_pp_ftsize
+#define Perl_pp_ftsize         pPerl->Perl_pp_ftsize
+#undef  Perl_pp_ftsock
+#define Perl_pp_ftsock         pPerl->Perl_pp_ftsock
+#undef  Perl_pp_ftsuid
+#define Perl_pp_ftsuid         pPerl->Perl_pp_ftsuid
+#undef  Perl_pp_ftsvtx
+#define Perl_pp_ftsvtx         pPerl->Perl_pp_ftsvtx
+#undef  Perl_pp_fttext
+#define Perl_pp_fttext         pPerl->Perl_pp_fttext
+#undef  Perl_pp_fttty
+#define Perl_pp_fttty          pPerl->Perl_pp_fttty
+#undef  Perl_pp_ftzero
+#define Perl_pp_ftzero         pPerl->Perl_pp_ftzero
+#undef  Perl_pp_ge
+#define Perl_pp_ge             pPerl->Perl_pp_ge
+#undef  Perl_pp_gelem
+#define Perl_pp_gelem          pPerl->Perl_pp_gelem
+#undef  Perl_pp_getc
+#define Perl_pp_getc           pPerl->Perl_pp_getc
+#undef  Perl_pp_getlogin
+#define Perl_pp_getlogin       pPerl->Perl_pp_getlogin
+#undef  Perl_pp_getpeername
+#define Perl_pp_getpeername    pPerl->Perl_pp_getpeername
+#undef  Perl_pp_getpgrp
+#define Perl_pp_getpgrp                pPerl->Perl_pp_getpgrp
+#undef  Perl_pp_getppid
+#define Perl_pp_getppid                pPerl->Perl_pp_getppid
+#undef  Perl_pp_getpriority
+#define Perl_pp_getpriority    pPerl->Perl_pp_getpriority
+#undef  Perl_pp_getsockname
+#define Perl_pp_getsockname    pPerl->Perl_pp_getsockname
+#undef  Perl_pp_ggrent
+#define Perl_pp_ggrent         pPerl->Perl_pp_ggrent
+#undef  Perl_pp_ggrgid
+#define Perl_pp_ggrgid         pPerl->Perl_pp_ggrgid
+#undef  Perl_pp_ggrnam
+#define Perl_pp_ggrnam         pPerl->Perl_pp_ggrnam
+#undef  Perl_pp_ghbyaddr
+#define Perl_pp_ghbyaddr       pPerl->Perl_pp_ghbyaddr
+#undef  Perl_pp_ghbyname
+#define Perl_pp_ghbyname       pPerl->Perl_pp_ghbyname
+#undef  Perl_pp_ghostent
+#define Perl_pp_ghostent       pPerl->Perl_pp_ghostent
+#undef  Perl_pp_glob
+#define Perl_pp_glob           pPerl->Perl_pp_glob
+#undef  Perl_pp_gmtime
+#define Perl_pp_gmtime         pPerl->Perl_pp_gmtime
+#undef  Perl_pp_gnbyaddr
+#define Perl_pp_gnbyaddr       pPerl->Perl_pp_gnbyaddr
+#undef  Perl_pp_gnbyname
+#define Perl_pp_gnbyname       pPerl->Perl_pp_gnbyname
+#undef  Perl_pp_gnetent
+#define Perl_pp_gnetent                pPerl->Perl_pp_gnetent
+#undef  Perl_pp_goto
+#define Perl_pp_goto           pPerl->Perl_pp_goto
+#undef  Perl_pp_gpbyname
+#define Perl_pp_gpbyname       pPerl->Perl_pp_gpbyname
+#undef  Perl_pp_gpbynumber
+#define Perl_pp_gpbynumber     pPerl->Perl_pp_gpbynumber
+#undef  Perl_pp_gprotoent
+#define Perl_pp_gprotoent      pPerl->Perl_pp_gprotoent
+#undef  Perl_pp_gpwent
+#define Perl_pp_gpwent         pPerl->Perl_pp_gpwent
+#undef  Perl_pp_gpwnam
+#define Perl_pp_gpwnam         pPerl->Perl_pp_gpwnam
+#undef  Perl_pp_gpwuid
+#define Perl_pp_gpwuid         pPerl->Perl_pp_gpwuid
+#undef  Perl_pp_grepstart
+#define Perl_pp_grepstart      pPerl->Perl_pp_grepstart
+#undef  Perl_pp_grepwhile
+#define Perl_pp_grepwhile      pPerl->Perl_pp_grepwhile
+#undef  Perl_pp_gsbyname
+#define Perl_pp_gsbyname       pPerl->Perl_pp_gsbyname
+#undef  Perl_pp_gsbyport
+#define Perl_pp_gsbyport       pPerl->Perl_pp_gsbyport
+#undef  Perl_pp_gservent
+#define Perl_pp_gservent       pPerl->Perl_pp_gservent
+#undef  Perl_pp_gsockopt
+#define Perl_pp_gsockopt       pPerl->Perl_pp_gsockopt
+#undef  Perl_pp_gt
+#define Perl_pp_gt             pPerl->Perl_pp_gt
+#undef  Perl_pp_gv
+#define Perl_pp_gv             pPerl->Perl_pp_gv
+#undef  Perl_pp_gvsv
+#define Perl_pp_gvsv           pPerl->Perl_pp_gvsv
+#undef  Perl_pp_helem
+#define Perl_pp_helem          pPerl->Perl_pp_helem
+#undef  Perl_pp_hex
+#define Perl_pp_hex            pPerl->Perl_pp_hex
+#undef  Perl_pp_hslice
+#define Perl_pp_hslice         pPerl->Perl_pp_hslice
+#undef  Perl_pp_i_add
+#define Perl_pp_i_add          pPerl->Perl_pp_i_add
+#undef  Perl_pp_i_divide
+#define Perl_pp_i_divide       pPerl->Perl_pp_i_divide
+#undef  Perl_pp_i_eq
+#define Perl_pp_i_eq           pPerl->Perl_pp_i_eq
+#undef  Perl_pp_i_ge
+#define Perl_pp_i_ge           pPerl->Perl_pp_i_ge
+#undef  Perl_pp_i_gt
+#define Perl_pp_i_gt           pPerl->Perl_pp_i_gt
+#undef  Perl_pp_i_le
+#define Perl_pp_i_le           pPerl->Perl_pp_i_le
+#undef  Perl_pp_i_lt
+#define Perl_pp_i_lt           pPerl->Perl_pp_i_lt
+#undef  Perl_pp_i_modulo
+#define Perl_pp_i_modulo       pPerl->Perl_pp_i_modulo
+#undef  Perl_pp_i_multiply
+#define Perl_pp_i_multiply     pPerl->Perl_pp_i_multiply
+#undef  Perl_pp_i_ncmp
+#define Perl_pp_i_ncmp         pPerl->Perl_pp_i_ncmp
+#undef  Perl_pp_i_ne
+#define Perl_pp_i_ne           pPerl->Perl_pp_i_ne
+#undef  Perl_pp_i_negate
+#define Perl_pp_i_negate       pPerl->Perl_pp_i_negate
+#undef  Perl_pp_i_subtract
+#define Perl_pp_i_subtract     pPerl->Perl_pp_i_subtract
+#undef  Perl_pp_index
+#define Perl_pp_index          pPerl->Perl_pp_index
+#undef  Perl_pp_int
+#define Perl_pp_int            pPerl->Perl_pp_int
+#undef  Perl_pp_ioctl
+#define Perl_pp_ioctl          pPerl->Perl_pp_ioctl
+#undef  Perl_pp_iter
+#define Perl_pp_iter           pPerl->Perl_pp_iter
+#undef  Perl_pp_join
+#define Perl_pp_join           pPerl->Perl_pp_join
+#undef  Perl_pp_keys
+#define Perl_pp_keys           pPerl->Perl_pp_keys
+#undef  Perl_pp_kill
+#define Perl_pp_kill           pPerl->Perl_pp_kill
+#undef  Perl_pp_last
+#define Perl_pp_last           pPerl->Perl_pp_last
+#undef  Perl_pp_lc
+#define Perl_pp_lc             pPerl->Perl_pp_lc
+#undef  Perl_pp_lcfirst
+#define Perl_pp_lcfirst                pPerl->Perl_pp_lcfirst
+#undef  Perl_pp_le
+#define Perl_pp_le             pPerl->Perl_pp_le
+#undef  Perl_pp_leave
+#define Perl_pp_leave          pPerl->Perl_pp_leave
+#undef  Perl_pp_leaveeval
+#define Perl_pp_leaveeval      pPerl->Perl_pp_leaveeval
+#undef  Perl_pp_leaveloop
+#define Perl_pp_leaveloop      pPerl->Perl_pp_leaveloop
+#undef  Perl_pp_leavesub
+#define Perl_pp_leavesub       pPerl->Perl_pp_leavesub
+#undef  Perl_pp_leavetry
+#define Perl_pp_leavetry       pPerl->Perl_pp_leavetry
+#undef  Perl_pp_leavewrite
+#define Perl_pp_leavewrite     pPerl->Perl_pp_leavewrite
+#undef  Perl_pp_left_shift
+#define Perl_pp_left_shift     pPerl->Perl_pp_left_shift
+#undef  Perl_pp_length
+#define Perl_pp_length         pPerl->Perl_pp_length
+#undef  Perl_pp_lineseq
+#define Perl_pp_lineseq                pPerl->Perl_pp_lineseq
+#undef  Perl_pp_link
+#define Perl_pp_link           pPerl->Perl_pp_link
+#undef  Perl_pp_list
+#define Perl_pp_list           pPerl->Perl_pp_list
+#undef  Perl_pp_listen
+#define Perl_pp_listen         pPerl->Perl_pp_listen
+#undef  Perl_pp_localtime
+#define Perl_pp_localtime      pPerl->Perl_pp_localtime
+#undef  Perl_pp_lock
+#define Perl_pp_lock           pPerl->Perl_pp_lock
+#undef  Perl_pp_log
+#define Perl_pp_log            pPerl->Perl_pp_log
+#undef  Perl_pp_lslice
+#define Perl_pp_lslice         pPerl->Perl_pp_lslice
+#undef  Perl_pp_lstat
+#define Perl_pp_lstat          pPerl->Perl_pp_lstat
+#undef  Perl_pp_lt
+#define Perl_pp_lt             pPerl->Perl_pp_lt
+#undef  Perl_pp_mapstart
+#define Perl_pp_mapstart       pPerl->Perl_pp_mapstart
+#undef  Perl_pp_mapwhile
+#define Perl_pp_mapwhile       pPerl->Perl_pp_mapwhile
+#undef  Perl_pp_match
+#define Perl_pp_match          pPerl->Perl_pp_match
+#undef  Perl_pp_method
+#define Perl_pp_method         pPerl->Perl_pp_method
+#undef  Perl_pp_mkdir
+#define Perl_pp_mkdir          pPerl->Perl_pp_mkdir
+#undef  Perl_pp_modulo
+#define Perl_pp_modulo         pPerl->Perl_pp_modulo
+#undef  Perl_pp_msgctl
+#define Perl_pp_msgctl         pPerl->Perl_pp_msgctl
+#undef  Perl_pp_msgget
+#define Perl_pp_msgget         pPerl->Perl_pp_msgget
+#undef  Perl_pp_msgrcv
+#define Perl_pp_msgrcv         pPerl->Perl_pp_msgrcv
+#undef  Perl_pp_msgsnd
+#define Perl_pp_msgsnd         pPerl->Perl_pp_msgsnd
+#undef  Perl_pp_multiply
+#define Perl_pp_multiply       pPerl->Perl_pp_multiply
+#undef  Perl_pp_ncmp
+#define Perl_pp_ncmp           pPerl->Perl_pp_ncmp
+#undef  Perl_pp_ne
+#define Perl_pp_ne             pPerl->Perl_pp_ne
+#undef  Perl_pp_negate
+#define Perl_pp_negate         pPerl->Perl_pp_negate
+#undef  Perl_pp_next
+#define Perl_pp_next           pPerl->Perl_pp_next
+#undef  Perl_pp_nextstate
+#define Perl_pp_nextstate      pPerl->Perl_pp_nextstate
+#undef  Perl_pp_not
+#define Perl_pp_not            pPerl->Perl_pp_not
+#undef  Perl_pp_null
+#define Perl_pp_null           pPerl->Perl_pp_null
+#undef  Perl_pp_oct
+#define Perl_pp_oct            pPerl->Perl_pp_oct
+#undef  Perl_pp_open
+#define Perl_pp_open           pPerl->Perl_pp_open
+#undef  Perl_pp_open_dir
+#define Perl_pp_open_dir       pPerl->Perl_pp_open_dir
+#undef  Perl_pp_or
+#define Perl_pp_or             pPerl->Perl_pp_or
+#undef  Perl_pp_orassign
+#define Perl_pp_orassign       pPerl->Perl_pp_orassign
+#undef  Perl_pp_ord
+#define Perl_pp_ord            pPerl->Perl_pp_ord
+#undef  Perl_pp_pack
+#define Perl_pp_pack           pPerl->Perl_pp_pack
+#undef  Perl_pp_padany
+#define Perl_pp_padany         pPerl->Perl_pp_padany
+#undef  Perl_pp_padav
+#define Perl_pp_padav          pPerl->Perl_pp_padav
+#undef  Perl_pp_padhv
+#define Perl_pp_padhv          pPerl->Perl_pp_padhv
+#undef  Perl_pp_padsv
+#define Perl_pp_padsv          pPerl->Perl_pp_padsv
+#undef  Perl_pp_pipe_op
+#define Perl_pp_pipe_op                pPerl->Perl_pp_pipe_op
+#undef  Perl_pp_pop
+#define Perl_pp_pop            pPerl->Perl_pp_pop
+#undef  Perl_pp_pos
+#define Perl_pp_pos            pPerl->Perl_pp_pos
+#undef  Perl_pp_postdec
+#define Perl_pp_postdec                pPerl->Perl_pp_postdec
+#undef  Perl_pp_postinc
+#define Perl_pp_postinc                pPerl->Perl_pp_postinc
+#undef  Perl_pp_pow
+#define Perl_pp_pow            pPerl->Perl_pp_pow
+#undef  Perl_pp_predec
+#define Perl_pp_predec         pPerl->Perl_pp_predec
+#undef  Perl_pp_preinc
+#define Perl_pp_preinc         pPerl->Perl_pp_preinc
+#undef  Perl_pp_print
+#define Perl_pp_print          pPerl->Perl_pp_print
+#undef  Perl_pp_prototype
+#define Perl_pp_prototype      pPerl->Perl_pp_prototype
+#undef  Perl_pp_prtf
+#define Perl_pp_prtf           pPerl->Perl_pp_prtf
+#undef  Perl_pp_push
+#define Perl_pp_push           pPerl->Perl_pp_push
+#undef  Perl_pp_pushmark
+#define Perl_pp_pushmark       pPerl->Perl_pp_pushmark
+#undef  Perl_pp_pushre
+#define Perl_pp_pushre         pPerl->Perl_pp_pushre
+#undef  Perl_pp_qr
+#define Perl_pp_qr             pPerl->Perl_pp_qr
+#undef  Perl_pp_quotemeta
+#define Perl_pp_quotemeta      pPerl->Perl_pp_quotemeta
+#undef  Perl_pp_rand
+#define Perl_pp_rand           pPerl->Perl_pp_rand
+#undef  Perl_pp_range
+#define Perl_pp_range          pPerl->Perl_pp_range
+#undef  Perl_pp_rcatline
+#define Perl_pp_rcatline       pPerl->Perl_pp_rcatline
+#undef  Perl_pp_read
+#define Perl_pp_read           pPerl->Perl_pp_read
+#undef  Perl_pp_readdir
+#define Perl_pp_readdir                pPerl->Perl_pp_readdir
+#undef  Perl_pp_readline
+#define Perl_pp_readline       pPerl->Perl_pp_readline
+#undef  Perl_pp_readlink
+#define Perl_pp_readlink       pPerl->Perl_pp_readlink
+#undef  Perl_pp_recv
+#define Perl_pp_recv           pPerl->Perl_pp_recv
+#undef  Perl_pp_redo
+#define Perl_pp_redo           pPerl->Perl_pp_redo
+#undef  Perl_pp_ref
+#define Perl_pp_ref            pPerl->Perl_pp_ref
+#undef  Perl_pp_refgen
+#define Perl_pp_refgen         pPerl->Perl_pp_refgen
+#undef  Perl_pp_regcmaybe
+#define Perl_pp_regcmaybe      pPerl->Perl_pp_regcmaybe
+#undef  Perl_pp_regcomp
+#define Perl_pp_regcomp                pPerl->Perl_pp_regcomp
+#undef  Perl_pp_regcreset
+#define Perl_pp_regcreset      pPerl->Perl_pp_regcreset
+#undef  Perl_pp_rename
+#define Perl_pp_rename         pPerl->Perl_pp_rename
+#undef  Perl_pp_repeat
+#define Perl_pp_repeat         pPerl->Perl_pp_repeat
+#undef  Perl_pp_require
+#define Perl_pp_require                pPerl->Perl_pp_require
+#undef  Perl_pp_reset
+#define Perl_pp_reset          pPerl->Perl_pp_reset
+#undef  Perl_pp_return
+#define Perl_pp_return         pPerl->Perl_pp_return
+#undef  Perl_pp_reverse
+#define Perl_pp_reverse                pPerl->Perl_pp_reverse
+#undef  Perl_pp_rewinddir
+#define Perl_pp_rewinddir      pPerl->Perl_pp_rewinddir
+#undef  Perl_pp_right_shift
+#define Perl_pp_right_shift    pPerl->Perl_pp_right_shift
+#undef  Perl_pp_rindex
+#define Perl_pp_rindex         pPerl->Perl_pp_rindex
+#undef  Perl_pp_rmdir
+#define Perl_pp_rmdir          pPerl->Perl_pp_rmdir
+#undef  Perl_pp_rv2av
+#define Perl_pp_rv2av          pPerl->Perl_pp_rv2av
+#undef  Perl_pp_rv2cv
+#define Perl_pp_rv2cv          pPerl->Perl_pp_rv2cv
+#undef  Perl_pp_rv2gv
+#define Perl_pp_rv2gv          pPerl->Perl_pp_rv2gv
+#undef  Perl_pp_rv2hv
+#define Perl_pp_rv2hv          pPerl->Perl_pp_rv2hv
+#undef  Perl_pp_rv2sv
+#define Perl_pp_rv2sv          pPerl->Perl_pp_rv2sv
+#undef  Perl_pp_sassign
+#define Perl_pp_sassign                pPerl->Perl_pp_sassign
+#undef  Perl_pp_scalar
+#define Perl_pp_scalar         pPerl->Perl_pp_scalar
+#undef  Perl_pp_schomp
+#define Perl_pp_schomp         pPerl->Perl_pp_schomp
+#undef  Perl_pp_schop
+#define Perl_pp_schop          pPerl->Perl_pp_schop
+#undef  Perl_pp_scmp
+#define Perl_pp_scmp           pPerl->Perl_pp_scmp
+#undef  Perl_pp_scope
+#define Perl_pp_scope          pPerl->Perl_pp_scope
+#undef  Perl_pp_seek
+#define Perl_pp_seek           pPerl->Perl_pp_seek
+#undef  Perl_pp_seekdir
+#define Perl_pp_seekdir                pPerl->Perl_pp_seekdir
+#undef  Perl_pp_select
+#define Perl_pp_select         pPerl->Perl_pp_select
+#undef  Perl_pp_semctl
+#define Perl_pp_semctl         pPerl->Perl_pp_semctl
+#undef  Perl_pp_semget
+#define Perl_pp_semget         pPerl->Perl_pp_semget
+#undef  Perl_pp_semop
+#define Perl_pp_semop          pPerl->Perl_pp_semop
+#undef  Perl_pp_send
+#define Perl_pp_send           pPerl->Perl_pp_send
+#undef  Perl_pp_seq
+#define Perl_pp_seq            pPerl->Perl_pp_seq
+#undef  Perl_pp_setpgrp
+#define Perl_pp_setpgrp                pPerl->Perl_pp_setpgrp
+#undef  Perl_pp_setpriority
+#define Perl_pp_setpriority    pPerl->Perl_pp_setpriority
+#undef  Perl_pp_sge
+#define Perl_pp_sge            pPerl->Perl_pp_sge
+#undef  Perl_pp_sgrent
+#define Perl_pp_sgrent         pPerl->Perl_pp_sgrent
+#undef  Perl_pp_sgt
+#define Perl_pp_sgt            pPerl->Perl_pp_sgt
+#undef  Perl_pp_shift
+#define Perl_pp_shift          pPerl->Perl_pp_shift
+#undef  Perl_pp_shmctl
+#define Perl_pp_shmctl         pPerl->Perl_pp_shmctl
+#undef  Perl_pp_shmget
+#define Perl_pp_shmget         pPerl->Perl_pp_shmget
+#undef  Perl_pp_shmread
+#define Perl_pp_shmread                pPerl->Perl_pp_shmread
+#undef  Perl_pp_shmwrite
+#define Perl_pp_shmwrite       pPerl->Perl_pp_shmwrite
+#undef  Perl_pp_shostent
+#define Perl_pp_shostent       pPerl->Perl_pp_shostent
+#undef  Perl_pp_shutdown
+#define Perl_pp_shutdown       pPerl->Perl_pp_shutdown
+#undef  Perl_pp_sin
+#define Perl_pp_sin            pPerl->Perl_pp_sin
+#undef  Perl_pp_sle
+#define Perl_pp_sle            pPerl->Perl_pp_sle
+#undef  Perl_pp_sleep
+#define Perl_pp_sleep          pPerl->Perl_pp_sleep
+#undef  Perl_pp_slt
+#define Perl_pp_slt            pPerl->Perl_pp_slt
+#undef  Perl_pp_sne
+#define Perl_pp_sne            pPerl->Perl_pp_sne
+#undef  Perl_pp_snetent
+#define Perl_pp_snetent                pPerl->Perl_pp_snetent
+#undef  Perl_pp_socket
+#define Perl_pp_socket         pPerl->Perl_pp_socket
+#undef  Perl_pp_sockpair
+#define Perl_pp_sockpair       pPerl->Perl_pp_sockpair
+#undef  Perl_pp_sort
+#define Perl_pp_sort           pPerl->Perl_pp_sort
+#undef  Perl_pp_splice
+#define Perl_pp_splice         pPerl->Perl_pp_splice
+#undef  Perl_pp_split
+#define Perl_pp_split          pPerl->Perl_pp_split
+#undef  Perl_pp_sprintf
+#define Perl_pp_sprintf                pPerl->Perl_pp_sprintf
+#undef  Perl_pp_sprotoent
+#define Perl_pp_sprotoent      pPerl->Perl_pp_sprotoent
+#undef  Perl_pp_spwent
+#define Perl_pp_spwent         pPerl->Perl_pp_spwent
+#undef  Perl_pp_sqrt
+#define Perl_pp_sqrt           pPerl->Perl_pp_sqrt
+#undef  Perl_pp_srand
+#define Perl_pp_srand          pPerl->Perl_pp_srand
+#undef  Perl_pp_srefgen
+#define Perl_pp_srefgen                pPerl->Perl_pp_srefgen
+#undef  Perl_pp_sselect
+#define Perl_pp_sselect                pPerl->Perl_pp_sselect
+#undef  Perl_pp_sservent
+#define Perl_pp_sservent       pPerl->Perl_pp_sservent
+#undef  Perl_pp_ssockopt
+#define Perl_pp_ssockopt       pPerl->Perl_pp_ssockopt
+#undef  Perl_pp_stat
+#define Perl_pp_stat           pPerl->Perl_pp_stat
+#undef  Perl_pp_stringify
+#define Perl_pp_stringify      pPerl->Perl_pp_stringify
+#undef  Perl_pp_stub
+#define Perl_pp_stub           pPerl->Perl_pp_stub
+#undef  Perl_pp_study
+#define Perl_pp_study          pPerl->Perl_pp_study
+#undef  Perl_pp_subst
+#define Perl_pp_subst          pPerl->Perl_pp_subst
+#undef  Perl_pp_substcont
+#define Perl_pp_substcont      pPerl->Perl_pp_substcont
+#undef  Perl_pp_substr
+#define Perl_pp_substr         pPerl->Perl_pp_substr
+#undef  Perl_pp_subtract
+#define Perl_pp_subtract       pPerl->Perl_pp_subtract
+#undef  Perl_pp_symlink
+#define Perl_pp_symlink                pPerl->Perl_pp_symlink
+#undef  Perl_pp_syscall
+#define Perl_pp_syscall                pPerl->Perl_pp_syscall
+#undef  Perl_pp_sysopen
+#define Perl_pp_sysopen                pPerl->Perl_pp_sysopen
+#undef  Perl_pp_sysread
+#define Perl_pp_sysread                pPerl->Perl_pp_sysread
+#undef  Perl_pp_sysseek
+#define Perl_pp_sysseek                pPerl->Perl_pp_sysseek
+#undef  Perl_pp_system
+#define Perl_pp_system         pPerl->Perl_pp_system
+#undef  Perl_pp_syswrite
+#define Perl_pp_syswrite       pPerl->Perl_pp_syswrite
+#undef  Perl_pp_tell
+#define Perl_pp_tell           pPerl->Perl_pp_tell
+#undef  Perl_pp_telldir
+#define Perl_pp_telldir                pPerl->Perl_pp_telldir
+#undef  Perl_pp_threadsv
+#define Perl_pp_threadsv       pPerl->Perl_pp_threadsv
+#undef  Perl_pp_tie
+#define Perl_pp_tie            pPerl->Perl_pp_tie
+#undef  Perl_pp_tied
+#define Perl_pp_tied           pPerl->Perl_pp_tied
+#undef  Perl_pp_time
+#define Perl_pp_time           pPerl->Perl_pp_time
+#undef  Perl_pp_tms
+#define Perl_pp_tms            pPerl->Perl_pp_tms
+#undef  Perl_pp_trans
+#define Perl_pp_trans          pPerl->Perl_pp_trans
+#undef  Perl_pp_truncate
+#define Perl_pp_truncate       pPerl->Perl_pp_truncate
+#undef  Perl_pp_uc
+#define Perl_pp_uc             pPerl->Perl_pp_uc
+#undef  Perl_pp_ucfirst
+#define Perl_pp_ucfirst                pPerl->Perl_pp_ucfirst
+#undef  Perl_pp_umask
+#define Perl_pp_umask          pPerl->Perl_pp_umask
+#undef  Perl_pp_undef
+#define Perl_pp_undef          pPerl->Perl_pp_undef
+#undef  Perl_pp_unlink
+#define Perl_pp_unlink         pPerl->Perl_pp_unlink
+#undef  Perl_pp_unpack
+#define Perl_pp_unpack         pPerl->Perl_pp_unpack
+#undef  Perl_pp_unshift
+#define Perl_pp_unshift                pPerl->Perl_pp_unshift
+#undef  Perl_pp_unstack
+#define Perl_pp_unstack                pPerl->Perl_pp_unstack
+#undef  Perl_pp_untie
+#define Perl_pp_untie          pPerl->Perl_pp_untie
+#undef  Perl_pp_utime
+#define Perl_pp_utime          pPerl->Perl_pp_utime
+#undef  Perl_pp_values
+#define Perl_pp_values         pPerl->Perl_pp_values
+#undef  Perl_pp_vec
+#define Perl_pp_vec            pPerl->Perl_pp_vec
+#undef  Perl_pp_wait
+#define Perl_pp_wait           pPerl->Perl_pp_wait
+#undef  Perl_pp_waitpid
+#define Perl_pp_waitpid                pPerl->Perl_pp_waitpid
+#undef  Perl_pp_wantarray
+#define Perl_pp_wantarray      pPerl->Perl_pp_wantarray
+#undef  Perl_pp_warn
+#define Perl_pp_warn           pPerl->Perl_pp_warn
+#undef  Perl_pp_xor
+#define Perl_pp_xor            pPerl->Perl_pp_xor
+#undef  Perl_pregcomp
+#define Perl_pregcomp          pPerl->Perl_pregcomp
+#undef  Perl_pregexec
+#define Perl_pregexec          pPerl->Perl_pregexec
+#undef  Perl_pregfree
+#define Perl_pregfree          pPerl->Perl_pregfree
+#undef  Perl_prepend_elem
+#define Perl_prepend_elem      pPerl->Perl_prepend_elem
+#undef  Perl_push_return
+#define Perl_push_return       pPerl->Perl_push_return
+#undef  Perl_push_scope
+#define Perl_push_scope                pPerl->Perl_push_scope
+#undef  Perl_pv_display
+#define Perl_pv_display                pPerl->Perl_pv_display
+#undef  Perl_realloc
+#define Perl_realloc           pPerl->Perl_realloc
+#undef  Perl_ref
+#define Perl_ref               pPerl->Perl_ref
+#undef  Perl_refkids
+#define Perl_refkids           pPerl->Perl_refkids
+#undef  Perl_regdump
+#define Perl_regdump           pPerl->Perl_regdump
+#undef  Perl_regexec_flags
+#define Perl_regexec_flags     pPerl->Perl_regexec_flags
+#undef  Perl_reginitcolors
+#define Perl_reginitcolors     pPerl->Perl_reginitcolors
+#undef  Perl_regnext
+#define Perl_regnext           pPerl->Perl_regnext
+#undef  Perl_regprop
+#define Perl_regprop           pPerl->Perl_regprop
+#undef  Perl_repeatcpy
+#define Perl_repeatcpy         pPerl->Perl_repeatcpy
+#undef  Perl_require_pv
+#define Perl_require_pv                pPerl->Perl_require_pv
+#undef  Perl_rninstr
+#define Perl_rninstr           pPerl->Perl_rninstr
+#undef  Perl_rsignal
+#define Perl_rsignal           pPerl->Perl_rsignal
+#undef  Perl_rsignal_restore
+#define Perl_rsignal_restore   pPerl->Perl_rsignal_restore
+#undef  Perl_rsignal_save
+#define Perl_rsignal_save      pPerl->Perl_rsignal_save
+#undef  Perl_rsignal_state
+#define Perl_rsignal_state     pPerl->Perl_rsignal_state
+#undef  Perl_runops_debug
+#define Perl_runops_debug      pPerl->Perl_runops_debug
+#undef  Perl_runops_standard
+#define Perl_runops_standard   pPerl->Perl_runops_standard
+#undef  Perl_rxres_free
+#define Perl_rxres_free                pPerl->Perl_rxres_free
+#undef  Perl_rxres_restore
+#define Perl_rxres_restore     pPerl->Perl_rxres_restore
+#undef  Perl_rxres_save
+#define Perl_rxres_save                pPerl->Perl_rxres_save
+#undef  Perl_safesyscalloc
+#define Perl_safesyscalloc     pPerl->Perl_safesyscalloc
+#undef  Perl_safesysfree
+#define Perl_safesysfree       pPerl->Perl_safesysfree
+#undef  Perl_safesysmalloc
+#define Perl_safesysmalloc     pPerl->Perl_safesysmalloc
+#undef  Perl_safesysrealloc
+#define Perl_safesysrealloc    pPerl->Perl_safesysrealloc
+#undef  Perl_safexcalloc
+#define Perl_safexcalloc       pPerl->Perl_safexcalloc
+#undef  Perl_safexfree
+#define Perl_safexfree         pPerl->Perl_safexfree
+#undef  Perl_safexmalloc
+#define Perl_safexmalloc       pPerl->Perl_safexmalloc
+#undef  Perl_safexrealloc
+#define Perl_safexrealloc      pPerl->Perl_safexrealloc
+#undef  Perl_same_dirent
+#define Perl_same_dirent       pPerl->Perl_same_dirent
+#undef  Perl_save_I16
+#define Perl_save_I16          pPerl->Perl_save_I16
+#undef  Perl_save_I32
+#define Perl_save_I32          pPerl->Perl_save_I32
+#undef  Perl_save_aelem
+#define Perl_save_aelem                pPerl->Perl_save_aelem
+#undef  Perl_save_alloc
+#define Perl_save_alloc                pPerl->Perl_save_alloc
+#undef  Perl_save_aptr
+#define Perl_save_aptr         pPerl->Perl_save_aptr
+#undef  Perl_save_ary
+#define Perl_save_ary          pPerl->Perl_save_ary
+#undef  Perl_save_clearsv
+#define Perl_save_clearsv      pPerl->Perl_save_clearsv
+#undef  Perl_save_delete
+#define Perl_save_delete       pPerl->Perl_save_delete
+#undef  Perl_save_destructor
+#define Perl_save_destructor   pPerl->Perl_save_destructor
+#undef  Perl_save_freeop
+#define Perl_save_freeop       pPerl->Perl_save_freeop
+#undef  Perl_save_freepv
+#define Perl_save_freepv       pPerl->Perl_save_freepv
+#undef  Perl_save_freesv
+#define Perl_save_freesv       pPerl->Perl_save_freesv
+#undef  Perl_save_generic_svref
+#define Perl_save_generic_svref        pPerl->Perl_save_generic_svref
+#undef  Perl_save_gp
+#define Perl_save_gp           pPerl->Perl_save_gp
+#undef  Perl_save_hash
+#define Perl_save_hash         pPerl->Perl_save_hash
+#undef  Perl_save_helem
+#define Perl_save_helem                pPerl->Perl_save_helem
+#undef  Perl_save_hints
+#define Perl_save_hints                pPerl->Perl_save_hints
+#undef  Perl_save_hptr
+#define Perl_save_hptr         pPerl->Perl_save_hptr
+#undef  Perl_save_int
+#define Perl_save_int          pPerl->Perl_save_int
+#undef  Perl_save_item
+#define Perl_save_item         pPerl->Perl_save_item
+#undef  Perl_save_iv
+#define Perl_save_iv           pPerl->Perl_save_iv
+#undef  Perl_save_list
+#define Perl_save_list         pPerl->Perl_save_list
+#undef  Perl_save_long
+#define Perl_save_long         pPerl->Perl_save_long
+#undef  Perl_save_nogv
+#define Perl_save_nogv         pPerl->Perl_save_nogv
+#undef  Perl_save_op
+#define Perl_save_op           pPerl->Perl_save_op
+#undef  Perl_save_pptr
+#define Perl_save_pptr         pPerl->Perl_save_pptr
+#undef  Perl_save_re_context
+#define Perl_save_re_context   pPerl->Perl_save_re_context
+#undef  Perl_save_scalar
+#define Perl_save_scalar       pPerl->Perl_save_scalar
+#undef  Perl_save_sptr
+#define Perl_save_sptr         pPerl->Perl_save_sptr
+#undef  Perl_save_svref
+#define Perl_save_svref                pPerl->Perl_save_svref
+#undef  Perl_save_threadsv
+#define Perl_save_threadsv     pPerl->Perl_save_threadsv
+#undef  Perl_savepv
+#define Perl_savepv            pPerl->Perl_savepv
+#undef  Perl_savepvn
+#define Perl_savepvn           pPerl->Perl_savepvn
+#undef  Perl_savestack_grow
+#define Perl_savestack_grow    pPerl->Perl_savestack_grow
+#undef  Perl_sawparens
+#define Perl_sawparens         pPerl->Perl_sawparens
+#undef  Perl_scalar
+#define Perl_scalar            pPerl->Perl_scalar
+#undef  Perl_scalarkids
+#define Perl_scalarkids                pPerl->Perl_scalarkids
+#undef  Perl_scalarseq
+#define Perl_scalarseq         pPerl->Perl_scalarseq
+#undef  Perl_scalarvoid
+#define Perl_scalarvoid                pPerl->Perl_scalarvoid
+#undef  Perl_scan_bin
+#define Perl_scan_bin          pPerl->Perl_scan_bin
+#undef  Perl_scan_hex
+#define Perl_scan_hex          pPerl->Perl_scan_hex
+#undef  Perl_scan_num
+#define Perl_scan_num          pPerl->Perl_scan_num
+#undef  Perl_scan_oct
+#define Perl_scan_oct          pPerl->Perl_scan_oct
+#undef  Perl_scope
+#define Perl_scope             pPerl->Perl_scope
+#undef  Perl_screaminstr
+#define Perl_screaminstr       pPerl->Perl_screaminstr
+#undef  Perl_set_numeric_local
+#define Perl_set_numeric_local pPerl->Perl_set_numeric_local
+#undef  Perl_set_numeric_standard
+#define Perl_set_numeric_standard      pPerl->Perl_set_numeric_standard
+#undef  Perl_setdefout
+#define Perl_setdefout         pPerl->Perl_setdefout
+#undef  Perl_setenv_getix
+#define Perl_setenv_getix      pPerl->Perl_setenv_getix
+#undef  Perl_share_hek
+#define Perl_share_hek         pPerl->Perl_share_hek
+#undef  Perl_sharepvn
+#define Perl_sharepvn          pPerl->Perl_sharepvn
+#undef  Perl_sighandler
+#define Perl_sighandler                pPerl->Perl_sighandler
+#undef  Perl_stack_grow
+#define Perl_stack_grow                pPerl->Perl_stack_grow
+#undef  Perl_start_subparse
+#define Perl_start_subparse    pPerl->Perl_start_subparse
+#undef  Perl_sub_crush_depth
+#define Perl_sub_crush_depth   pPerl->Perl_sub_crush_depth
+#undef  Perl_sv_2bool
+#define Perl_sv_2bool          pPerl->Perl_sv_2bool
+#undef  Perl_sv_2cv
+#define Perl_sv_2cv            pPerl->Perl_sv_2cv
+#undef  Perl_sv_2io
+#define Perl_sv_2io            pPerl->Perl_sv_2io
+#undef  Perl_sv_2iv
+#define Perl_sv_2iv            pPerl->Perl_sv_2iv
+#undef  Perl_sv_2mortal
+#define Perl_sv_2mortal                pPerl->Perl_sv_2mortal
+#undef  Perl_sv_2nv
+#define Perl_sv_2nv            pPerl->Perl_sv_2nv
+#undef  Perl_sv_2pv
+#define Perl_sv_2pv            pPerl->Perl_sv_2pv
+#undef  Perl_sv_2pv_nolen
+#define Perl_sv_2pv_nolen      pPerl->Perl_sv_2pv_nolen
+#undef  Perl_sv_2uv
+#define Perl_sv_2uv            pPerl->Perl_sv_2uv
+#undef  Perl_sv_add_arena
+#define Perl_sv_add_arena      pPerl->Perl_sv_add_arena
+#undef  Perl_sv_backoff
+#define Perl_sv_backoff                pPerl->Perl_sv_backoff
+#undef  Perl_sv_bless
+#define Perl_sv_bless          pPerl->Perl_sv_bless
+#undef  Perl_sv_catpv
+#define Perl_sv_catpv          pPerl->Perl_sv_catpv
+#undef  Perl_sv_catpv_mg
+#define Perl_sv_catpv_mg       pPerl->Perl_sv_catpv_mg
+#undef  Perl_sv_catpvf
+#define Perl_sv_catpvf         pPerl->Perl_sv_catpvf
+#undef  Perl_sv_catpvf_mg
+#define Perl_sv_catpvf_mg      pPerl->Perl_sv_catpvf_mg
+#undef  Perl_sv_catpvn
+#define Perl_sv_catpvn         pPerl->Perl_sv_catpvn
+#undef  Perl_sv_catpvn_mg
+#define Perl_sv_catpvn_mg      pPerl->Perl_sv_catpvn_mg
+#undef  Perl_sv_catsv
+#define Perl_sv_catsv          pPerl->Perl_sv_catsv
+#undef  Perl_sv_catsv_mg
+#define Perl_sv_catsv_mg       pPerl->Perl_sv_catsv_mg
+#undef  Perl_sv_chop
+#define Perl_sv_chop           pPerl->Perl_sv_chop
+#undef  Perl_sv_clean_all
+#define Perl_sv_clean_all      pPerl->Perl_sv_clean_all
+#undef  Perl_sv_clean_objs
+#define Perl_sv_clean_objs     pPerl->Perl_sv_clean_objs
+#undef  Perl_sv_clear
+#define Perl_sv_clear          pPerl->Perl_sv_clear
+#undef  Perl_sv_cmp
+#define Perl_sv_cmp            pPerl->Perl_sv_cmp
+#undef  Perl_sv_cmp_locale
+#define Perl_sv_cmp_locale     pPerl->Perl_sv_cmp_locale
+#undef  Perl_sv_collxfrm
+#define Perl_sv_collxfrm       pPerl->Perl_sv_collxfrm
+#undef  Perl_sv_compile_2op
+#define Perl_sv_compile_2op    pPerl->Perl_sv_compile_2op
+#undef  Perl_sv_dec
+#define Perl_sv_dec            pPerl->Perl_sv_dec
+#undef  Perl_sv_derived_from
+#define Perl_sv_derived_from   pPerl->Perl_sv_derived_from
+#undef  Perl_sv_dump
+#define Perl_sv_dump           pPerl->Perl_sv_dump
+#undef  Perl_sv_eq
+#define Perl_sv_eq             pPerl->Perl_sv_eq
+#undef  Perl_sv_force_normal
+#define Perl_sv_force_normal   pPerl->Perl_sv_force_normal
+#undef  Perl_sv_free
+#define Perl_sv_free           pPerl->Perl_sv_free
+#undef  Perl_sv_free_arenas
+#define Perl_sv_free_arenas    pPerl->Perl_sv_free_arenas
+#undef  Perl_sv_gets
+#define Perl_sv_gets           pPerl->Perl_sv_gets
+#undef  Perl_sv_grow
+#define Perl_sv_grow           pPerl->Perl_sv_grow
+#undef  Perl_sv_inc
+#define Perl_sv_inc            pPerl->Perl_sv_inc
+#undef  Perl_sv_insert
+#define Perl_sv_insert         pPerl->Perl_sv_insert
+#undef  Perl_sv_isa
+#define Perl_sv_isa            pPerl->Perl_sv_isa
+#undef  Perl_sv_isobject
+#define Perl_sv_isobject       pPerl->Perl_sv_isobject
+#undef  Perl_sv_iv
+#define Perl_sv_iv             pPerl->Perl_sv_iv
+#undef  Perl_sv_len
+#define Perl_sv_len            pPerl->Perl_sv_len
+#undef  Perl_sv_len_utf8
+#define Perl_sv_len_utf8       pPerl->Perl_sv_len_utf8
+#undef  Perl_sv_magic
+#define Perl_sv_magic          pPerl->Perl_sv_magic
+#undef  Perl_sv_mortalcopy
+#define Perl_sv_mortalcopy     pPerl->Perl_sv_mortalcopy
+#undef  Perl_sv_newmortal
+#define Perl_sv_newmortal      pPerl->Perl_sv_newmortal
+#undef  Perl_sv_newref
+#define Perl_sv_newref         pPerl->Perl_sv_newref
+#undef  Perl_sv_nv
+#define Perl_sv_nv             pPerl->Perl_sv_nv
+#undef  Perl_sv_peek
+#define Perl_sv_peek           pPerl->Perl_sv_peek
+#undef  Perl_sv_pos_b2u
+#define Perl_sv_pos_b2u                pPerl->Perl_sv_pos_b2u
+#undef  Perl_sv_pos_u2b
+#define Perl_sv_pos_u2b                pPerl->Perl_sv_pos_u2b
+#undef  Perl_sv_pv
+#define Perl_sv_pv             pPerl->Perl_sv_pv
+#undef  Perl_sv_pvn
+#define Perl_sv_pvn            pPerl->Perl_sv_pvn
+#undef  Perl_sv_pvn_force
+#define Perl_sv_pvn_force      pPerl->Perl_sv_pvn_force
+#undef  Perl_sv_reftype
+#define Perl_sv_reftype                pPerl->Perl_sv_reftype
+#undef  Perl_sv_replace
+#define Perl_sv_replace                pPerl->Perl_sv_replace
+#undef  Perl_sv_report_used
+#define Perl_sv_report_used    pPerl->Perl_sv_report_used
+#undef  Perl_sv_reset
+#define Perl_sv_reset          pPerl->Perl_sv_reset
+#undef  Perl_sv_rvweaken
+#define Perl_sv_rvweaken       pPerl->Perl_sv_rvweaken
+#undef  Perl_sv_setiv
+#define Perl_sv_setiv          pPerl->Perl_sv_setiv
+#undef  Perl_sv_setiv_mg
+#define Perl_sv_setiv_mg       pPerl->Perl_sv_setiv_mg
+#undef  Perl_sv_setnv
+#define Perl_sv_setnv          pPerl->Perl_sv_setnv
+#undef  Perl_sv_setnv_mg
+#define Perl_sv_setnv_mg       pPerl->Perl_sv_setnv_mg
+#undef  Perl_sv_setpv
+#define Perl_sv_setpv          pPerl->Perl_sv_setpv
+#undef  Perl_sv_setpv_mg
+#define Perl_sv_setpv_mg       pPerl->Perl_sv_setpv_mg
+#undef  Perl_sv_setpvf
+#define Perl_sv_setpvf         pPerl->Perl_sv_setpvf
+#undef  Perl_sv_setpvf_mg
+#define Perl_sv_setpvf_mg      pPerl->Perl_sv_setpvf_mg
+#undef  Perl_sv_setpviv
+#define Perl_sv_setpviv                pPerl->Perl_sv_setpviv
+#undef  Perl_sv_setpviv_mg
+#define Perl_sv_setpviv_mg     pPerl->Perl_sv_setpviv_mg
+#undef  Perl_sv_setpvn
+#define Perl_sv_setpvn         pPerl->Perl_sv_setpvn
+#undef  Perl_sv_setpvn_mg
+#define Perl_sv_setpvn_mg      pPerl->Perl_sv_setpvn_mg
+#undef  Perl_sv_setref_iv
+#define Perl_sv_setref_iv      pPerl->Perl_sv_setref_iv
+#undef  Perl_sv_setref_nv
+#define Perl_sv_setref_nv      pPerl->Perl_sv_setref_nv
+#undef  Perl_sv_setref_pv
+#define Perl_sv_setref_pv      pPerl->Perl_sv_setref_pv
+#undef  Perl_sv_setref_pvn
+#define Perl_sv_setref_pvn     pPerl->Perl_sv_setref_pvn
+#undef  Perl_sv_setsv
+#define Perl_sv_setsv          pPerl->Perl_sv_setsv
+#undef  Perl_sv_setsv_mg
+#define Perl_sv_setsv_mg       pPerl->Perl_sv_setsv_mg
+#undef  Perl_sv_setuv
+#define Perl_sv_setuv          pPerl->Perl_sv_setuv
+#undef  Perl_sv_setuv_mg
+#define Perl_sv_setuv_mg       pPerl->Perl_sv_setuv_mg
+#undef  Perl_sv_taint
+#define Perl_sv_taint          pPerl->Perl_sv_taint
+#undef  Perl_sv_tainted
+#define Perl_sv_tainted                pPerl->Perl_sv_tainted
+#undef  Perl_sv_true
+#define Perl_sv_true           pPerl->Perl_sv_true
+#undef  Perl_sv_unmagic
+#define Perl_sv_unmagic                pPerl->Perl_sv_unmagic
+#undef  Perl_sv_unref
+#define Perl_sv_unref          pPerl->Perl_sv_unref
+#undef  Perl_sv_untaint
+#define Perl_sv_untaint                pPerl->Perl_sv_untaint
+#undef  Perl_sv_upgrade
+#define Perl_sv_upgrade                pPerl->Perl_sv_upgrade
+#undef  Perl_sv_usepvn
+#define Perl_sv_usepvn         pPerl->Perl_sv_usepvn
+#undef  Perl_sv_usepvn_mg
+#define Perl_sv_usepvn_mg      pPerl->Perl_sv_usepvn_mg
+#undef  Perl_sv_uv
+#define Perl_sv_uv             pPerl->Perl_sv_uv
+#undef  Perl_sv_vcatpvfn
+#define Perl_sv_vcatpvfn       pPerl->Perl_sv_vcatpvfn
+#undef  Perl_sv_vsetpvfn
+#define Perl_sv_vsetpvfn       pPerl->Perl_sv_vsetpvfn
+#undef  Perl_swash_fetch
+#define Perl_swash_fetch       pPerl->Perl_swash_fetch
+#undef  Perl_swash_init
+#define Perl_swash_init                pPerl->Perl_swash_init
+#undef  Perl_taint_env
+#define Perl_taint_env         pPerl->Perl_taint_env
+#undef  Perl_taint_proper
+#define Perl_taint_proper      pPerl->Perl_taint_proper
+#undef  Perl_tmps_grow
+#define Perl_tmps_grow         pPerl->Perl_tmps_grow
+#undef  Perl_to_uni_lower
+#define Perl_to_uni_lower      pPerl->Perl_to_uni_lower
+#undef  Perl_to_uni_lower_lc
+#define Perl_to_uni_lower_lc   pPerl->Perl_to_uni_lower_lc
+#undef  Perl_to_uni_title
+#define Perl_to_uni_title      pPerl->Perl_to_uni_title
+#undef  Perl_to_uni_title_lc
+#define Perl_to_uni_title_lc   pPerl->Perl_to_uni_title_lc
+#undef  Perl_to_uni_upper
+#define Perl_to_uni_upper      pPerl->Perl_to_uni_upper
+#undef  Perl_to_uni_upper_lc
+#define Perl_to_uni_upper_lc   pPerl->Perl_to_uni_upper_lc
+#undef  Perl_to_utf8_lower
+#define Perl_to_utf8_lower     pPerl->Perl_to_utf8_lower
+#undef  Perl_to_utf8_title
+#define Perl_to_utf8_title     pPerl->Perl_to_utf8_title
+#undef  Perl_to_utf8_upper
+#define Perl_to_utf8_upper     pPerl->Perl_to_utf8_upper
+#undef  Perl_unlnk
+#define Perl_unlnk             pPerl->Perl_unlnk
+#undef  Perl_unlock_condpair
+#define Perl_unlock_condpair   pPerl->Perl_unlock_condpair
+#undef  Perl_unshare_hek
+#define Perl_unshare_hek       pPerl->Perl_unshare_hek
+#undef  Perl_unsharepvn
+#define Perl_unsharepvn                pPerl->Perl_unsharepvn
+#undef  Perl_utf16_to_utf8
+#define Perl_utf16_to_utf8     pPerl->Perl_utf16_to_utf8
+#undef  Perl_utf16_to_utf8_reversed
+#define Perl_utf16_to_utf8_reversed    pPerl->Perl_utf16_to_utf8_reversed
+#undef  Perl_utf8_distance
+#define Perl_utf8_distance     pPerl->Perl_utf8_distance
+#undef  Perl_utf8_hop
+#define Perl_utf8_hop          pPerl->Perl_utf8_hop
+#undef  Perl_utf8_to_uv
+#define Perl_utf8_to_uv                pPerl->Perl_utf8_to_uv
+#undef  Perl_utilize
+#define Perl_utilize           pPerl->Perl_utilize
+#undef  Perl_uv_to_utf8
+#define Perl_uv_to_utf8                pPerl->Perl_uv_to_utf8
+#undef  Perl_vivify_defelem
+#define Perl_vivify_defelem    pPerl->Perl_vivify_defelem
+#undef  Perl_vivify_ref
+#define Perl_vivify_ref                pPerl->Perl_vivify_ref
+#undef  Perl_wait4pid
+#define Perl_wait4pid          pPerl->Perl_wait4pid
+#undef  Perl_warn
+#define Perl_warn              pPerl->Perl_warn
+#undef  Perl_warner
+#define Perl_warner            pPerl->Perl_warner
+#undef  Perl_watch
+#define Perl_watch             pPerl->Perl_watch
+#undef  Perl_whichsig
+#define Perl_whichsig          pPerl->Perl_whichsig
+#undef  Perl_yydestruct
+#define Perl_yydestruct                pPerl->Perl_yydestruct
+#undef  Perl_yyerror
+#define Perl_yyerror           pPerl->Perl_yyerror
+#undef  Perl_yylex
+#define Perl_yylex             pPerl->Perl_yylex
+#undef  Perl_yyparse
+#define Perl_yyparse           pPerl->Perl_yyparse
+#undef  Perl_yywarn
+#define Perl_yywarn            pPerl->Perl_yywarn
 #undef  add_data
 #define add_data               pPerl->Perl_add_data
-#undef  amagic_call
-#define amagic_call            pPerl->Perl_amagic_call
 #undef  amagic_cmp
 #define amagic_cmp             pPerl->Perl_amagic_cmp
 #undef  amagic_cmp_locale
 #define amagic_ncmp            pPerl->Perl_amagic_ncmp
 #undef  ao
 #define ao                     pPerl->Perl_ao
-#undef  append_elem
-#define append_elem            pPerl->Perl_append_elem
-#undef  append_list
-#define append_list            pPerl->Perl_append_list
-#undef  apply
-#define apply                  pPerl->Perl_apply
 #undef  asIV
 #define asIV                   pPerl->Perl_asIV
 #undef  asUV
 #define asUV                   pPerl->Perl_asUV
-#undef  assertref
-#define assertref              pPerl->Perl_assertref
-#undef  av_clear
-#define av_clear               pPerl->Perl_av_clear
-#undef  av_extend
-#define av_extend              pPerl->Perl_av_extend
-#undef  av_fake
-#define av_fake                        pPerl->Perl_av_fake
-#undef  av_fetch
-#define av_fetch               pPerl->Perl_av_fetch
-#undef  av_fill
-#define av_fill                        pPerl->Perl_av_fill
-#undef  av_len
-#define av_len                 pPerl->Perl_av_len
-#undef  av_make
-#define av_make                        pPerl->Perl_av_make
-#undef  av_pop
-#define av_pop                 pPerl->Perl_av_pop
-#undef  av_push
-#define av_push                        pPerl->Perl_av_push
-#undef  av_reify
-#define av_reify               pPerl->Perl_av_reify
-#undef  av_shift
-#define av_shift               pPerl->Perl_av_shift
-#undef  av_store
-#define av_store               pPerl->Perl_av_store
-#undef  av_undef
-#define av_undef               pPerl->Perl_av_undef
-#undef  av_unshift
-#define av_unshift             pPerl->Perl_av_unshift
-#undef  avhv_exists_ent
-#define avhv_exists_ent                pPerl->Perl_avhv_exists_ent
-#undef  avhv_fetch_ent
-#define avhv_fetch_ent         pPerl->Perl_avhv_fetch_ent
 #undef  avhv_index_sv
 #define avhv_index_sv          pPerl->Perl_avhv_index_sv
-#undef  avhv_iternext
-#define avhv_iternext          pPerl->Perl_avhv_iternext
-#undef  avhv_iterval
-#define avhv_iterval           pPerl->Perl_avhv_iterval
-#undef  avhv_keys
-#define avhv_keys              pPerl->Perl_avhv_keys
 #undef  bad_type
 #define bad_type               pPerl->Perl_bad_type
-#undef  bind_match
-#define bind_match             pPerl->Perl_bind_match
-#undef  block_end
-#define block_end              pPerl->Perl_block_end
-#undef  block_gimme
-#define block_gimme            pPerl->Perl_block_gimme
-#undef  block_start
-#define block_start            pPerl->Perl_block_start
-#undef  boot_core_UNIVERSAL
-#define boot_core_UNIVERSAL    pPerl->Perl_boot_core_UNIVERSAL
-#undef  bset_obj_store
-#define bset_obj_store         pPerl->Perl_bset_obj_store
 #undef  cache_re
 #define cache_re               pPerl->Perl_cache_re
-#undef  call_list
-#define call_list              pPerl->Perl_call_list
 #undef  call_list_body
 #define call_list_body         pPerl->Perl_call_list_body
-#undef  cando
-#define cando                  pPerl->Perl_cando
-#undef  cast_i32
-#define cast_i32               pPerl->Perl_cast_i32
-#undef  cast_iv
-#define cast_iv                        pPerl->Perl_cast_iv
-#undef  cast_ulong
-#define cast_ulong             pPerl->Perl_cast_ulong
-#undef  cast_uv
-#define cast_uv                        pPerl->Perl_cast_uv
 #undef  check_uni
 #define check_uni              pPerl->Perl_check_uni
 #undef  checkcomma
 #define checkcomma             pPerl->Perl_checkcomma
-#undef  ck_anoncode
-#define ck_anoncode            pPerl->Perl_ck_anoncode
-#undef  ck_bitop
-#define ck_bitop               pPerl->Perl_ck_bitop
-#undef  ck_concat
-#define ck_concat              pPerl->Perl_ck_concat
-#undef  ck_defined
-#define ck_defined             pPerl->Perl_ck_defined
-#undef  ck_delete
-#define ck_delete              pPerl->Perl_ck_delete
-#undef  ck_eof
-#define ck_eof                 pPerl->Perl_ck_eof
-#undef  ck_eval
-#define ck_eval                        pPerl->Perl_ck_eval
-#undef  ck_exec
-#define ck_exec                        pPerl->Perl_ck_exec
-#undef  ck_exists
-#define ck_exists              pPerl->Perl_ck_exists
-#undef  ck_ftst
-#define ck_ftst                        pPerl->Perl_ck_ftst
-#undef  ck_fun
-#define ck_fun                 pPerl->Perl_ck_fun
-#undef  ck_fun_locale
-#define ck_fun_locale          pPerl->Perl_ck_fun_locale
-#undef  ck_glob
-#define ck_glob                        pPerl->Perl_ck_glob
-#undef  ck_grep
-#define ck_grep                        pPerl->Perl_ck_grep
-#undef  ck_index
-#define ck_index               pPerl->Perl_ck_index
-#undef  ck_lengthconst
-#define ck_lengthconst         pPerl->Perl_ck_lengthconst
-#undef  ck_lfun
-#define ck_lfun                        pPerl->Perl_ck_lfun
-#undef  ck_listiob
-#define ck_listiob             pPerl->Perl_ck_listiob
-#undef  ck_match
-#define ck_match               pPerl->Perl_ck_match
-#undef  ck_null
-#define ck_null                        pPerl->Perl_ck_null
-#undef  ck_repeat
-#define ck_repeat              pPerl->Perl_ck_repeat
-#undef  ck_require
-#define ck_require             pPerl->Perl_ck_require
-#undef  ck_rfun
-#define ck_rfun                        pPerl->Perl_ck_rfun
-#undef  ck_rvconst
-#define ck_rvconst             pPerl->Perl_ck_rvconst
-#undef  ck_scmp
-#define ck_scmp                        pPerl->Perl_ck_scmp
-#undef  ck_select
-#define ck_select              pPerl->Perl_ck_select
-#undef  ck_shift
-#define ck_shift               pPerl->Perl_ck_shift
-#undef  ck_sort
-#define ck_sort                        pPerl->Perl_ck_sort
-#undef  ck_spair
-#define ck_spair               pPerl->Perl_ck_spair
-#undef  ck_split
-#define ck_split               pPerl->Perl_ck_split
-#undef  ck_subr
-#define ck_subr                        pPerl->Perl_ck_subr
-#undef  ck_svconst
-#define ck_svconst             pPerl->Perl_ck_svconst
-#undef  ck_trunc
-#define ck_trunc               pPerl->Perl_ck_trunc
 #undef  clear_re
 #define clear_re               pPerl->Perl_clear_re
-#undef  condpair_magic
-#define condpair_magic         pPerl->Perl_condpair_magic
-#undef  convert
-#define convert                        pPerl->Perl_convert
-#undef  croak
-#define croak                  pPerl->Perl_croak
-#undef  cv_ckproto
-#define cv_ckproto             pPerl->Perl_cv_ckproto
-#undef  cv_clone
-#define cv_clone               pPerl->Perl_cv_clone
 #undef  cv_clone2
 #define cv_clone2              pPerl->Perl_cv_clone2
-#undef  cv_const_sv
-#define cv_const_sv            pPerl->Perl_cv_const_sv
-#undef  cv_undef
-#define cv_undef               pPerl->Perl_cv_undef
-#undef  cx_dump
-#define cx_dump                        pPerl->Perl_cx_dump
-#undef  cxinc
-#define cxinc                  pPerl->Perl_cxinc
-#undef  deb
-#define deb                    pPerl->Perl_deb
-#undef  deb_growlevel
-#define deb_growlevel          pPerl->Perl_deb_growlevel
-#undef  debop
-#define debop                  pPerl->Perl_debop
 #undef  debprof
 #define debprof                        pPerl->Perl_debprof
-#undef  debprofdump
-#define debprofdump            pPerl->Perl_debprofdump
-#undef  debstack
-#define debstack               pPerl->Perl_debstack
-#undef  debstackptrs
-#define debstackptrs           pPerl->Perl_debstackptrs
-#undef  default_protect
-#define default_protect                pPerl->Perl_default_protect
 #undef  del_he
 #define del_he                 pPerl->Perl_del_he
 #undef  del_sv
 #define del_xpv                        pPerl->Perl_del_xpv
 #undef  del_xrv
 #define del_xrv                        pPerl->Perl_del_xrv
-#undef  delimcpy
-#define delimcpy               pPerl->Perl_delimcpy
 #undef  depcom
 #define depcom                 pPerl->Perl_depcom
-#undef  deprecate
-#define deprecate              pPerl->Perl_deprecate
-#undef  die
-#define die                    pPerl->Perl_die
-#undef  die_where
-#define die_where              pPerl->Perl_die_where
 #undef  div128
 #define div128                 pPerl->Perl_div128
-#undef  do_aexec
-#define do_aexec               pPerl->Perl_do_aexec
 #undef  do_aspawn
 #define do_aspawn              pPerl->Perl_do_aspawn
-#undef  do_binmode
-#define do_binmode             pPerl->Perl_do_binmode
-#undef  do_chomp
-#define do_chomp               pPerl->Perl_do_chomp
-#undef  do_chop
-#define do_chop                        pPerl->Perl_do_chop
 #undef  do_clean_all
 #define do_clean_all           pPerl->Perl_do_clean_all
 #undef  do_clean_named_objs
 #define do_clean_named_objs    pPerl->Perl_do_clean_named_objs
 #undef  do_clean_objs
 #define do_clean_objs          pPerl->Perl_do_clean_objs
-#undef  do_close
-#define do_close               pPerl->Perl_do_close
-#undef  do_eof
-#define do_eof                 pPerl->Perl_do_eof
-#undef  do_exec
-#define do_exec                        pPerl->Perl_do_exec
-#undef  do_exec3
-#define do_exec3               pPerl->Perl_do_exec3
-#undef  do_execfree
-#define do_execfree            pPerl->Perl_do_execfree
-#undef  do_gv_dump
-#define do_gv_dump             pPerl->Perl_do_gv_dump
-#undef  do_gvgv_dump
-#define do_gvgv_dump           pPerl->Perl_do_gvgv_dump
-#undef  do_hv_dump
-#define do_hv_dump             pPerl->Perl_do_hv_dump
-#undef  do_ipcctl
-#define do_ipcctl              pPerl->Perl_do_ipcctl
-#undef  do_ipcget
-#define do_ipcget              pPerl->Perl_do_ipcget
-#undef  do_join
-#define do_join                        pPerl->Perl_do_join
-#undef  do_kv
-#define do_kv                  pPerl->Perl_do_kv
-#undef  do_magic_dump
-#define do_magic_dump          pPerl->Perl_do_magic_dump
-#undef  do_msgrcv
-#define do_msgrcv              pPerl->Perl_do_msgrcv
-#undef  do_msgsnd
-#define do_msgsnd              pPerl->Perl_do_msgsnd
-#undef  do_op_dump
-#define do_op_dump             pPerl->Perl_do_op_dump
-#undef  do_open
-#define do_open                        pPerl->Perl_do_open
-#undef  do_pipe
-#define do_pipe                        pPerl->Perl_do_pipe
-#undef  do_pmop_dump
-#define do_pmop_dump           pPerl->Perl_do_pmop_dump
-#undef  do_print
-#define do_print               pPerl->Perl_do_print
-#undef  do_readline
-#define do_readline            pPerl->Perl_do_readline
 #undef  do_report_used
 #define do_report_used         pPerl->Perl_do_report_used
-#undef  do_seek
-#define do_seek                        pPerl->Perl_do_seek
-#undef  do_semop
-#define do_semop               pPerl->Perl_do_semop
-#undef  do_shmio
-#define do_shmio               pPerl->Perl_do_shmio
-#undef  do_sprintf
-#define do_sprintf             pPerl->Perl_do_sprintf
-#undef  do_sv_dump
-#define do_sv_dump             pPerl->Perl_do_sv_dump
-#undef  do_sysseek
-#define do_sysseek             pPerl->Perl_do_sysseek
-#undef  do_tell
-#define do_tell                        pPerl->Perl_do_tell
-#undef  do_trans
-#define do_trans               pPerl->Perl_do_trans
 #undef  do_trans_CC_complex
 #define do_trans_CC_complex    pPerl->Perl_do_trans_CC_complex
 #undef  do_trans_CC_count
 #define do_trans_UU_count      pPerl->Perl_do_trans_UU_count
 #undef  do_trans_UU_simple
 #define do_trans_UU_simple     pPerl->Perl_do_trans_UU_simple
-#undef  do_vecset
-#define do_vecset              pPerl->Perl_do_vecset
-#undef  do_vop
-#define do_vop                 pPerl->Perl_do_vop
 #undef  docatch
 #define docatch                        pPerl->Perl_docatch
 #undef  docatch_body
 #define doencodes              pPerl->Perl_doencodes
 #undef  doeval
 #define doeval                 pPerl->Perl_doeval
-#undef  dofile
-#define dofile                 pPerl->Perl_dofile
 #undef  dofindlabel
 #define dofindlabel            pPerl->Perl_dofindlabel
 #undef  doform
 #define dopoptosub             pPerl->Perl_dopoptosub
 #undef  dopoptosub_at
 #define dopoptosub_at          pPerl->Perl_dopoptosub_at
-#undef  dounwind
-#define dounwind               pPerl->Perl_dounwind
-#undef  dowantarray
-#define dowantarray            pPerl->Perl_dowantarray
 #undef  dump
 #define dump                   pPerl->Perl_dump
-#undef  dump_all
-#define dump_all               pPerl->Perl_dump_all
-#undef  dump_eval
-#define dump_eval              pPerl->Perl_dump_eval
-#undef  dump_fds
-#define dump_fds               pPerl->Perl_dump_fds
-#undef  dump_form
-#define dump_form              pPerl->Perl_dump_form
-#undef  dump_indent
-#define dump_indent            pPerl->Perl_dump_indent
-#undef  dump_mstats
-#define dump_mstats            pPerl->Perl_dump_mstats
-#undef  dump_packsubs
-#define dump_packsubs          pPerl->Perl_dump_packsubs
-#undef  dump_sub
-#define dump_sub               pPerl->Perl_dump_sub
 #undef  dumpuntil
 #define dumpuntil              pPerl->Perl_dumpuntil
 #undef  emulate_eaccess
 #define emulate_eaccess                pPerl->Perl_emulate_eaccess
-#undef  fbm_compile
-#define fbm_compile            pPerl->Perl_fbm_compile
-#undef  fbm_instr
-#define fbm_instr              pPerl->Perl_fbm_instr
-#undef  filter_add
-#define filter_add             pPerl->Perl_filter_add
-#undef  filter_del
-#define filter_del             pPerl->Perl_filter_del
 #undef  filter_gets
 #define filter_gets            pPerl->Perl_filter_gets
-#undef  filter_read
-#define filter_read            pPerl->Perl_filter_read
 #undef  find_beginning
 #define find_beginning         pPerl->Perl_find_beginning
-#undef  find_script
-#define find_script            pPerl->Perl_find_script
-#undef  find_threadsv
-#define find_threadsv          pPerl->Perl_find_threadsv
-#undef  fold_constants
-#define fold_constants         pPerl->Perl_fold_constants
 #undef  forbid_setid
 #define forbid_setid           pPerl->Perl_forbid_setid
 #undef  force_ident
 #define force_ident            pPerl->Perl_force_ident
-#undef  force_list
-#define force_list             pPerl->Perl_force_list
 #undef  force_next
 #define force_next             pPerl->Perl_force_next
 #undef  force_version
 #define force_version          pPerl->Perl_force_version
 #undef  force_word
 #define force_word             pPerl->Perl_force_word
-#undef  form
-#define form                   pPerl->Perl_form
-#undef  fprintf
-#define fprintf                        pPerl->Perl_fprintf
 #undef  free_closures
 #define free_closures          pPerl->Perl_free_closures
-#undef  free_tmps
-#define free_tmps              pPerl->Perl_free_tmps
-#undef  gen_constant_list
-#define gen_constant_list      pPerl->Perl_gen_constant_list
 #undef  get_db_sub
 #define get_db_sub             pPerl->Perl_get_db_sub
-#undef  get_no_modify
-#define get_no_modify          pPerl->Perl_get_no_modify
-#undef  get_op_descs
-#define get_op_descs           pPerl->Perl_get_op_descs
-#undef  get_op_names
-#define get_op_names           pPerl->Perl_get_op_names
-#undef  get_opargs
-#define get_opargs             pPerl->Perl_get_opargs
-#undef  get_vtbl
-#define get_vtbl               pPerl->Perl_get_vtbl
-#undef  gp_free
-#define gp_free                        pPerl->Perl_gp_free
-#undef  gp_ref
-#define gp_ref                 pPerl->Perl_gp_ref
-#undef  gv_AVadd
-#define gv_AVadd               pPerl->Perl_gv_AVadd
-#undef  gv_HVadd
-#define gv_HVadd               pPerl->Perl_gv_HVadd
-#undef  gv_IOadd
-#define gv_IOadd               pPerl->Perl_gv_IOadd
-#undef  gv_autoload4
-#define gv_autoload4           pPerl->Perl_gv_autoload4
-#undef  gv_check
-#define gv_check               pPerl->Perl_gv_check
-#undef  gv_dump
-#define gv_dump                        pPerl->Perl_gv_dump
-#undef  gv_efullname
-#define gv_efullname           pPerl->Perl_gv_efullname
-#undef  gv_efullname3
-#define gv_efullname3          pPerl->Perl_gv_efullname3
 #undef  gv_ename
 #define gv_ename               pPerl->Perl_gv_ename
-#undef  gv_fetchfile
-#define gv_fetchfile           pPerl->Perl_gv_fetchfile
-#undef  gv_fetchmeth
-#define gv_fetchmeth           pPerl->Perl_gv_fetchmeth
-#undef  gv_fetchmethod
-#define gv_fetchmethod         pPerl->Perl_gv_fetchmethod
-#undef  gv_fetchmethod_autoload
-#define gv_fetchmethod_autoload        pPerl->Perl_gv_fetchmethod_autoload
-#undef  gv_fetchpv
-#define gv_fetchpv             pPerl->Perl_gv_fetchpv
-#undef  gv_fullname
-#define gv_fullname            pPerl->Perl_gv_fullname
-#undef  gv_fullname3
-#define gv_fullname3           pPerl->Perl_gv_fullname3
-#undef  gv_init
-#define gv_init                        pPerl->Perl_gv_init
 #undef  gv_init_sv
 #define gv_init_sv             pPerl->Perl_gv_init_sv
-#undef  gv_stashpv
-#define gv_stashpv             pPerl->Perl_gv_stashpv
-#undef  gv_stashpvn
-#define gv_stashpvn            pPerl->Perl_gv_stashpvn
-#undef  gv_stashsv
-#define gv_stashsv             pPerl->Perl_gv_stashsv
 #undef  hfreeentries
 #define hfreeentries           pPerl->Perl_hfreeentries
 #undef  hsplit
 #define hsplit                 pPerl->Perl_hsplit
-#undef  hv_clear
-#define hv_clear               pPerl->Perl_hv_clear
-#undef  hv_delayfree_ent
-#define hv_delayfree_ent       pPerl->Perl_hv_delayfree_ent
-#undef  hv_delete
-#define hv_delete              pPerl->Perl_hv_delete
-#undef  hv_delete_ent
-#define hv_delete_ent          pPerl->Perl_hv_delete_ent
-#undef  hv_exists
-#define hv_exists              pPerl->Perl_hv_exists
-#undef  hv_exists_ent
-#define hv_exists_ent          pPerl->Perl_hv_exists_ent
-#undef  hv_fetch
-#define hv_fetch               pPerl->Perl_hv_fetch
-#undef  hv_fetch_ent
-#define hv_fetch_ent           pPerl->Perl_hv_fetch_ent
-#undef  hv_free_ent
-#define hv_free_ent            pPerl->Perl_hv_free_ent
-#undef  hv_iterinit
-#define hv_iterinit            pPerl->Perl_hv_iterinit
-#undef  hv_iterkey
-#define hv_iterkey             pPerl->Perl_hv_iterkey
-#undef  hv_iterkeysv
-#define hv_iterkeysv           pPerl->Perl_hv_iterkeysv
-#undef  hv_iternext
-#define hv_iternext            pPerl->Perl_hv_iternext
-#undef  hv_iternextsv
-#define hv_iternextsv          pPerl->Perl_hv_iternextsv
-#undef  hv_iterval
-#define hv_iterval             pPerl->Perl_hv_iterval
-#undef  hv_ksplit
-#define hv_ksplit              pPerl->Perl_hv_ksplit
-#undef  hv_magic
-#define hv_magic               pPerl->Perl_hv_magic
-#undef  hv_store
-#define hv_store               pPerl->Perl_hv_store
-#undef  hv_store_ent
-#define hv_store_ent           pPerl->Perl_hv_store_ent
-#undef  hv_undef
-#define hv_undef               pPerl->Perl_hv_undef
-#undef  ibcmp
-#define ibcmp                  pPerl->Perl_ibcmp
-#undef  ibcmp_locale
-#define ibcmp_locale           pPerl->Perl_ibcmp_locale
 #undef  incl_perldb
 #define incl_perldb            pPerl->Perl_incl_perldb
 #undef  incline
 #define incline                        pPerl->Perl_incline
 #undef  incpush
 #define incpush                        pPerl->Perl_incpush
-#undef  ingroup
-#define ingroup                        pPerl->Perl_ingroup
 #undef  init_debugger
 #define init_debugger          pPerl->Perl_init_debugger
 #undef  init_ids
 #define init_postdump_symbols  pPerl->Perl_init_postdump_symbols
 #undef  init_predump_symbols
 #define init_predump_symbols   pPerl->Perl_init_predump_symbols
-#undef  init_stacks
-#define init_stacks            pPerl->Perl_init_stacks
-#undef  init_thread_intern
-#define init_thread_intern     pPerl->Perl_init_thread_intern
-#undef  instr
-#define instr                  pPerl->Perl_instr
-#undef  intro_my
-#define intro_my               pPerl->Perl_intro_my
 #undef  intuit_method
 #define intuit_method          pPerl->Perl_intuit_method
 #undef  intuit_more
 #define intuit_more            pPerl->Perl_intuit_more
-#undef  invert
-#define invert                 pPerl->Perl_invert
-#undef  io_close
-#define io_close               pPerl->Perl_io_close
 #undef  is_an_int
 #define is_an_int              pPerl->Perl_is_an_int
 #undef  is_handle_constructor
 #define is_handle_constructor  pPerl->Perl_is_handle_constructor
-#undef  is_uni_alnum
-#define is_uni_alnum           pPerl->Perl_is_uni_alnum
-#undef  is_uni_alnum_lc
-#define is_uni_alnum_lc                pPerl->Perl_is_uni_alnum_lc
-#undef  is_uni_alpha
-#define is_uni_alpha           pPerl->Perl_is_uni_alpha
-#undef  is_uni_alpha_lc
-#define is_uni_alpha_lc                pPerl->Perl_is_uni_alpha_lc
-#undef  is_uni_digit
-#define is_uni_digit           pPerl->Perl_is_uni_digit
-#undef  is_uni_digit_lc
-#define is_uni_digit_lc                pPerl->Perl_is_uni_digit_lc
-#undef  is_uni_idfirst
-#define is_uni_idfirst         pPerl->Perl_is_uni_idfirst
-#undef  is_uni_idfirst_lc
-#define is_uni_idfirst_lc      pPerl->Perl_is_uni_idfirst_lc
-#undef  is_uni_lower
-#define is_uni_lower           pPerl->Perl_is_uni_lower
-#undef  is_uni_lower_lc
-#define is_uni_lower_lc                pPerl->Perl_is_uni_lower_lc
-#undef  is_uni_print
-#define is_uni_print           pPerl->Perl_is_uni_print
-#undef  is_uni_print_lc
-#define is_uni_print_lc                pPerl->Perl_is_uni_print_lc
-#undef  is_uni_space
-#define is_uni_space           pPerl->Perl_is_uni_space
-#undef  is_uni_space_lc
-#define is_uni_space_lc                pPerl->Perl_is_uni_space_lc
-#undef  is_uni_upper
-#define is_uni_upper           pPerl->Perl_is_uni_upper
-#undef  is_uni_upper_lc
-#define is_uni_upper_lc                pPerl->Perl_is_uni_upper_lc
-#undef  is_utf8_alnum
-#define is_utf8_alnum          pPerl->Perl_is_utf8_alnum
-#undef  is_utf8_alpha
-#define is_utf8_alpha          pPerl->Perl_is_utf8_alpha
-#undef  is_utf8_digit
-#define is_utf8_digit          pPerl->Perl_is_utf8_digit
-#undef  is_utf8_idfirst
-#define is_utf8_idfirst                pPerl->Perl_is_utf8_idfirst
-#undef  is_utf8_lower
-#define is_utf8_lower          pPerl->Perl_is_utf8_lower
-#undef  is_utf8_mark
-#define is_utf8_mark           pPerl->Perl_is_utf8_mark
-#undef  is_utf8_print
-#define is_utf8_print          pPerl->Perl_is_utf8_print
-#undef  is_utf8_space
-#define is_utf8_space          pPerl->Perl_is_utf8_space
-#undef  is_utf8_upper
-#define is_utf8_upper          pPerl->Perl_is_utf8_upper
 #undef  isa_lookup
 #define isa_lookup             pPerl->Perl_isa_lookup
-#undef  jmaybe
-#define jmaybe                 pPerl->Perl_jmaybe
-#undef  keyword
-#define keyword                        pPerl->Perl_keyword
-#undef  leave_scope
-#define leave_scope            pPerl->Perl_leave_scope
-#undef  lex_end
-#define lex_end                        pPerl->Perl_lex_end
-#undef  lex_start
-#define lex_start              pPerl->Perl_lex_start
-#undef  linklist
-#define linklist               pPerl->Perl_linklist
-#undef  list
-#define list                   pPerl->Perl_list
 #undef  list_assignment
 #define list_assignment                pPerl->Perl_list_assignment
-#undef  listkids
-#define listkids               pPerl->Perl_listkids
-#undef  localize
-#define localize               pPerl->Perl_localize
-#undef  looks_like_number
-#define looks_like_number      pPerl->Perl_looks_like_number
 #undef  lop
 #define lop                    pPerl->Perl_lop
-#undef  magic_clear_all_env
-#define magic_clear_all_env    pPerl->Perl_magic_clear_all_env
-#undef  magic_clearenv
-#define magic_clearenv         pPerl->Perl_magic_clearenv
-#undef  magic_clearpack
-#define magic_clearpack                pPerl->Perl_magic_clearpack
-#undef  magic_clearsig
-#define magic_clearsig         pPerl->Perl_magic_clearsig
-#undef  magic_dump
-#define magic_dump             pPerl->Perl_magic_dump
-#undef  magic_existspack
-#define magic_existspack       pPerl->Perl_magic_existspack
-#undef  magic_freeregexp
-#define magic_freeregexp       pPerl->Perl_magic_freeregexp
-#undef  magic_get
-#define magic_get              pPerl->Perl_magic_get
-#undef  magic_getarylen
-#define magic_getarylen                pPerl->Perl_magic_getarylen
-#undef  magic_getdefelem
-#define magic_getdefelem       pPerl->Perl_magic_getdefelem
-#undef  magic_getglob
-#define magic_getglob          pPerl->Perl_magic_getglob
-#undef  magic_getnkeys
-#define magic_getnkeys         pPerl->Perl_magic_getnkeys
-#undef  magic_getpack
-#define magic_getpack          pPerl->Perl_magic_getpack
-#undef  magic_getpos
-#define magic_getpos           pPerl->Perl_magic_getpos
-#undef  magic_getsig
-#define magic_getsig           pPerl->Perl_magic_getsig
-#undef  magic_getsubstr
-#define magic_getsubstr                pPerl->Perl_magic_getsubstr
-#undef  magic_gettaint
-#define magic_gettaint         pPerl->Perl_magic_gettaint
-#undef  magic_getuvar
-#define magic_getuvar          pPerl->Perl_magic_getuvar
-#undef  magic_getvec
-#define magic_getvec           pPerl->Perl_magic_getvec
-#undef  magic_killbackrefs
-#define magic_killbackrefs     pPerl->Perl_magic_killbackrefs
-#undef  magic_len
-#define magic_len              pPerl->Perl_magic_len
 #undef  magic_methcall
 #define magic_methcall         pPerl->Perl_magic_methcall
 #undef  magic_methcall
 #define magic_methcall         pPerl->Perl_magic_methcall
 #undef  magic_methpack
 #define magic_methpack         pPerl->Perl_magic_methpack
-#undef  magic_mutexfree
-#define magic_mutexfree                pPerl->Perl_magic_mutexfree
-#undef  magic_nextpack
-#define magic_nextpack         pPerl->Perl_magic_nextpack
-#undef  magic_regdata_cnt
-#define magic_regdata_cnt      pPerl->Perl_magic_regdata_cnt
-#undef  magic_regdatum_get
-#define magic_regdatum_get     pPerl->Perl_magic_regdatum_get
-#undef  magic_set
-#define magic_set              pPerl->Perl_magic_set
-#undef  magic_set_all_env
-#define magic_set_all_env      pPerl->Perl_magic_set_all_env
-#undef  magic_setamagic
-#define magic_setamagic                pPerl->Perl_magic_setamagic
-#undef  magic_setarylen
-#define magic_setarylen                pPerl->Perl_magic_setarylen
-#undef  magic_setbm
-#define magic_setbm            pPerl->Perl_magic_setbm
-#undef  magic_setcollxfrm
-#define magic_setcollxfrm      pPerl->Perl_magic_setcollxfrm
-#undef  magic_setdbline
-#define magic_setdbline                pPerl->Perl_magic_setdbline
-#undef  magic_setdefelem
-#define magic_setdefelem       pPerl->Perl_magic_setdefelem
-#undef  magic_setenv
-#define magic_setenv           pPerl->Perl_magic_setenv
-#undef  magic_setfm
-#define magic_setfm            pPerl->Perl_magic_setfm
-#undef  magic_setglob
-#define magic_setglob          pPerl->Perl_magic_setglob
-#undef  magic_setisa
-#define magic_setisa           pPerl->Perl_magic_setisa
-#undef  magic_setmglob
-#define magic_setmglob         pPerl->Perl_magic_setmglob
-#undef  magic_setnkeys
-#define magic_setnkeys         pPerl->Perl_magic_setnkeys
-#undef  magic_setpack
-#define magic_setpack          pPerl->Perl_magic_setpack
-#undef  magic_setpos
-#define magic_setpos           pPerl->Perl_magic_setpos
-#undef  magic_setsig
-#define magic_setsig           pPerl->Perl_magic_setsig
-#undef  magic_setsubstr
-#define magic_setsubstr                pPerl->Perl_magic_setsubstr
-#undef  magic_settaint
-#define magic_settaint         pPerl->Perl_magic_settaint
-#undef  magic_setuvar
-#define magic_setuvar          pPerl->Perl_magic_setuvar
-#undef  magic_setvec
-#define magic_setvec           pPerl->Perl_magic_setvec
-#undef  magic_sizepack
-#define magic_sizepack         pPerl->Perl_magic_sizepack
-#undef  magic_wipepack
-#define magic_wipepack         pPerl->Perl_magic_wipepack
-#undef  magicname
-#define magicname              pPerl->Perl_magicname
-#undef  malloced_size
-#define malloced_size          pPerl->Perl_malloced_size
-#undef  markstack_grow
-#define markstack_grow         pPerl->Perl_markstack_grow
-#undef  mem_collxfrm
-#define mem_collxfrm           pPerl->Perl_mem_collxfrm
-#undef  mess
-#define mess                   pPerl->Perl_mess
+#undef  main
+#define main                   pPerl->Perl_main
 #undef  mess_alloc
 #define mess_alloc             pPerl->Perl_mess_alloc
-#undef  mg_clear
-#define mg_clear               pPerl->Perl_mg_clear
-#undef  mg_copy
-#define mg_copy                        pPerl->Perl_mg_copy
-#undef  mg_find
-#define mg_find                        pPerl->Perl_mg_find
-#undef  mg_free
-#define mg_free                        pPerl->Perl_mg_free
-#undef  mg_get
-#define mg_get                 pPerl->Perl_mg_get
-#undef  mg_length
-#define mg_length              pPerl->Perl_mg_length
-#undef  mg_magical
-#define mg_magical             pPerl->Perl_mg_magical
-#undef  mg_set
-#define mg_set                 pPerl->Perl_mg_set
-#undef  mg_size
-#define mg_size                        pPerl->Perl_mg_size
 #undef  missingterm
 #define missingterm            pPerl->Perl_missingterm
-#undef  mod
-#define mod                    pPerl->Perl_mod
 #undef  modkids
 #define modkids                        pPerl->Perl_modkids
 #undef  more_he
 #define more_xpv               pPerl->Perl_more_xpv
 #undef  more_xrv
 #define more_xrv               pPerl->Perl_more_xrv
-#undef  moreswitches
-#define moreswitches           pPerl->Perl_moreswitches
 #undef  mul128
 #define mul128                 pPerl->Perl_mul128
-#undef  my
-#define my                     pPerl->Perl_my
-#undef  my_bcopy
-#define my_bcopy               pPerl->Perl_my_bcopy
-#undef  my_bzero
-#define my_bzero               pPerl->Perl_my_bzero
-#undef  my_chsize
-#define my_chsize              pPerl->Perl_my_chsize
-#undef  my_exit
-#define my_exit                        pPerl->Perl_my_exit
 #undef  my_exit_jump
 #define my_exit_jump           pPerl->Perl_my_exit_jump
-#undef  my_failure_exit
-#define my_failure_exit                pPerl->Perl_my_failure_exit
-#undef  my_fflush_all
-#define my_fflush_all          pPerl->Perl_my_fflush_all
-#undef  my_htonl
-#define my_htonl               pPerl->Perl_my_htonl
-#undef  my_lstat
-#define my_lstat               pPerl->Perl_my_lstat
-#undef  my_memcmp
-#define my_memcmp              pPerl->Perl_my_memcmp
-#undef  my_memset
-#define my_memset              pPerl->Perl_my_memset
-#undef  my_ntohl
-#define my_ntohl               pPerl->Perl_my_ntohl
-#undef  my_pclose
-#define my_pclose              pPerl->Perl_my_pclose
-#undef  my_popen
-#define my_popen               pPerl->Perl_my_popen
 #undef  my_safemalloc
 #define my_safemalloc          pPerl->Perl_my_safemalloc
-#undef  my_setenv
-#define my_setenv              pPerl->Perl_my_setenv
-#undef  my_stat
-#define my_stat                        pPerl->Perl_my_stat
-#undef  my_swap
-#define my_swap                        pPerl->Perl_my_swap
-#undef  my_unexec
-#define my_unexec              pPerl->Perl_my_unexec
-#undef  newANONHASH
-#define newANONHASH            pPerl->Perl_newANONHASH
-#undef  newANONLIST
-#define newANONLIST            pPerl->Perl_newANONLIST
-#undef  newANONSUB
-#define newANONSUB             pPerl->Perl_newANONSUB
-#undef  newASSIGNOP
-#define newASSIGNOP            pPerl->Perl_newASSIGNOP
-#undef  newAV
-#define newAV                  pPerl->Perl_newAV
-#undef  newAVREF
-#define newAVREF               pPerl->Perl_newAVREF
-#undef  newBINOP
-#define newBINOP               pPerl->Perl_newBINOP
-#undef  newCONDOP
-#define newCONDOP              pPerl->Perl_newCONDOP
-#undef  newCONSTSUB
-#define newCONSTSUB            pPerl->Perl_newCONSTSUB
-#undef  newCVREF
-#define newCVREF               pPerl->Perl_newCVREF
 #undef  newDEFSVOP
 #define newDEFSVOP             pPerl->Perl_newDEFSVOP
-#undef  newFORM
-#define newFORM                        pPerl->Perl_newFORM
-#undef  newFOROP
-#define newFOROP               pPerl->Perl_newFOROP
-#undef  newGVOP
-#define newGVOP                        pPerl->Perl_newGVOP
-#undef  newGVREF
-#define newGVREF               pPerl->Perl_newGVREF
-#undef  newGVgen
-#define newGVgen               pPerl->Perl_newGVgen
-#undef  newHV
-#define newHV                  pPerl->Perl_newHV
-#undef  newHVREF
-#define newHVREF               pPerl->Perl_newHVREF
-#undef  newHVhv
-#define newHVhv                        pPerl->Perl_newHVhv
-#undef  newIO
-#define newIO                  pPerl->Perl_newIO
-#undef  newLISTOP
-#define newLISTOP              pPerl->Perl_newLISTOP
-#undef  newLOGOP
-#define newLOGOP               pPerl->Perl_newLOGOP
-#undef  newLOOPEX
-#define newLOOPEX              pPerl->Perl_newLOOPEX
-#undef  newLOOPOP
-#define newLOOPOP              pPerl->Perl_newLOOPOP
-#undef  newNULLLIST
-#define newNULLLIST            pPerl->Perl_newNULLLIST
-#undef  newOP
-#define newOP                  pPerl->Perl_newOP
-#undef  newPMOP
-#define newPMOP                        pPerl->Perl_newPMOP
-#undef  newPROG
-#define newPROG                        pPerl->Perl_newPROG
-#undef  newPVOP
-#define newPVOP                        pPerl->Perl_newPVOP
-#undef  newRANGE
-#define newRANGE               pPerl->Perl_newRANGE
-#undef  newRV
-#define newRV                  pPerl->Perl_newRV
-#undef  newRV_noinc
-#define newRV_noinc            pPerl->Perl_newRV_noinc
-#undef  newSLICEOP
-#define newSLICEOP             pPerl->Perl_newSLICEOP
-#undef  newSTATEOP
-#define newSTATEOP             pPerl->Perl_newSTATEOP
-#undef  newSUB
-#define newSUB                 pPerl->Perl_newSUB
-#undef  newSV
-#define newSV                  pPerl->Perl_newSV
-#undef  newSVOP
-#define newSVOP                        pPerl->Perl_newSVOP
-#undef  newSVREF
-#define newSVREF               pPerl->Perl_newSVREF
-#undef  newSViv
-#define newSViv                        pPerl->Perl_newSViv
-#undef  newSVnv
-#define newSVnv                        pPerl->Perl_newSVnv
-#undef  newSVpv
-#define newSVpv                        pPerl->Perl_newSVpv
-#undef  newSVpvf
-#define newSVpvf               pPerl->Perl_newSVpvf
-#undef  newSVpvn
-#define newSVpvn               pPerl->Perl_newSVpvn
-#undef  newSVrv
-#define newSVrv                        pPerl->Perl_newSVrv
-#undef  newSVsv
-#define newSVsv                        pPerl->Perl_newSVsv
-#undef  newUNOP
-#define newUNOP                        pPerl->Perl_newUNOP
-#undef  newWHILEOP
-#define newWHILEOP             pPerl->Perl_newWHILEOP
-#undef  newXS
-#define newXS                  pPerl->Perl_newXS
 #undef  new_constant
 #define new_constant           pPerl->Perl_new_constant
 #undef  new_he
 #define new_he                 pPerl->Perl_new_he
 #undef  new_logop
 #define new_logop              pPerl->Perl_new_logop
-#undef  new_stackinfo
-#define new_stackinfo          pPerl->Perl_new_stackinfo
-#undef  new_struct_thread
-#define new_struct_thread      pPerl->Perl_new_struct_thread
 #undef  new_xiv
 #define new_xiv                        pPerl->Perl_new_xiv
 #undef  new_xnv
 #define new_xpv                        pPerl->Perl_new_xpv
 #undef  new_xrv
 #define new_xrv                        pPerl->Perl_new_xrv
-#undef  nextargv
-#define nextargv               pPerl->Perl_nextargv
 #undef  nextchar
 #define nextchar               pPerl->Perl_nextchar
-#undef  ninstr
-#define ninstr                 pPerl->Perl_ninstr
 #undef  no_bareword_allowed
 #define no_bareword_allowed    pPerl->Perl_no_bareword_allowed
 #undef  no_fh_allowed
 #define nuke_stacks            pPerl->Perl_nuke_stacks
 #undef  null
 #define null                   pPerl->Perl_null
-#undef  oopsAV
-#define oopsAV                 pPerl->Perl_oopsAV
-#undef  oopsCV
-#define oopsCV                 pPerl->Perl_oopsCV
-#undef  oopsHV
-#define oopsHV                 pPerl->Perl_oopsHV
-#undef  op_const_sv
-#define op_const_sv            pPerl->Perl_op_const_sv
-#undef  op_dump
-#define op_dump                        pPerl->Perl_op_dump
-#undef  op_free
-#define op_free                        pPerl->Perl_op_free
 #undef  open_script
 #define open_script            pPerl->Perl_open_script
-#undef  package
-#define package                        pPerl->Perl_package
-#undef  pad_alloc
-#define pad_alloc              pPerl->Perl_pad_alloc
-#undef  pad_allocmy
-#define pad_allocmy            pPerl->Perl_pad_allocmy
 #undef  pad_findlex
 #define pad_findlex            pPerl->Perl_pad_findlex
-#undef  pad_findmy
-#define pad_findmy             pPerl->Perl_pad_findmy
-#undef  pad_free
-#define pad_free               pPerl->Perl_pad_free
-#undef  pad_leavemy
-#define pad_leavemy            pPerl->Perl_pad_leavemy
-#undef  pad_reset
-#define pad_reset              pPerl->Perl_pad_reset
-#undef  pad_sv
-#define pad_sv                 pPerl->Perl_pad_sv
-#undef  pad_swipe
-#define pad_swipe              pPerl->Perl_pad_swipe
-#undef  peep
-#define peep                   pPerl->Perl_peep
+#undef  perl_alloc
+#define perl_alloc             pPerl->perl_alloc
 #undef  perl_atexit
 #define perl_atexit            pPerl->perl_atexit
 #undef  perl_call_argv
 #define perl_call_xbody                pPerl->perl_call_xbody
 #undef  perl_construct
 #define perl_construct         pPerl->perl_construct
+#undef  perl_construct
+#define perl_construct         pPerl->perl_construct
+#undef  perl_destruct
+#define perl_destruct          pPerl->perl_destruct
 #undef  perl_destruct
 #define perl_destruct          pPerl->perl_destruct
 #undef  perl_eval_pv
 #define perl_eval_sv           pPerl->perl_eval_sv
 #undef  perl_free
 #define perl_free              pPerl->perl_free
+#undef  perl_free
+#define perl_free              pPerl->perl_free
 #undef  perl_get_av
 #define perl_get_av            pPerl->perl_get_av
 #undef  perl_get_cv
 #define perl_new_numeric       pPerl->perl_new_numeric
 #undef  perl_parse
 #define perl_parse             pPerl->perl_parse
+#undef  perl_parse
+#define perl_parse             pPerl->perl_parse
 #undef  perl_parse_body
 #define perl_parse_body                pPerl->perl_parse_body
 #undef  perl_require_pv
 #define perl_require_pv                pPerl->perl_require_pv
 #undef  perl_run
 #define perl_run               pPerl->perl_run
+#undef  perl_run
+#define perl_run               pPerl->perl_run
 #undef  perl_run_body
 #define perl_run_body          pPerl->perl_run_body
 #undef  perl_set_numeric_local
 #define perl_set_numeric_local pPerl->perl_set_numeric_local
 #undef  perl_set_numeric_standard
 #define perl_set_numeric_standard      pPerl->perl_set_numeric_standard
-#undef  pidgone
-#define pidgone                        pPerl->Perl_pidgone
-#undef  pmflag
-#define pmflag                 pPerl->Perl_pmflag
-#undef  pmop_dump
-#define pmop_dump              pPerl->Perl_pmop_dump
-#undef  pmruntime
-#define pmruntime              pPerl->Perl_pmruntime
-#undef  pmtrans
-#define pmtrans                        pPerl->Perl_pmtrans
-#undef  pop_return
-#define pop_return             pPerl->Perl_pop_return
-#undef  pop_scope
-#define pop_scope              pPerl->Perl_pop_scope
-#undef  pp_aassign
-#define pp_aassign             pPerl->Perl_pp_aassign
-#undef  pp_abs
-#define pp_abs                 pPerl->Perl_pp_abs
-#undef  pp_accept
-#define pp_accept              pPerl->Perl_pp_accept
-#undef  pp_add
-#define pp_add                 pPerl->Perl_pp_add
-#undef  pp_aelem
-#define pp_aelem               pPerl->Perl_pp_aelem
-#undef  pp_aelemfast
-#define pp_aelemfast           pPerl->Perl_pp_aelemfast
-#undef  pp_alarm
-#define pp_alarm               pPerl->Perl_pp_alarm
-#undef  pp_and
-#define pp_and                 pPerl->Perl_pp_and
-#undef  pp_andassign
-#define pp_andassign           pPerl->Perl_pp_andassign
-#undef  pp_anoncode
-#define pp_anoncode            pPerl->Perl_pp_anoncode
-#undef  pp_anonhash
-#define pp_anonhash            pPerl->Perl_pp_anonhash
-#undef  pp_anonlist
-#define pp_anonlist            pPerl->Perl_pp_anonlist
-#undef  pp_aslice
-#define pp_aslice              pPerl->Perl_pp_aslice
-#undef  pp_atan2
-#define pp_atan2               pPerl->Perl_pp_atan2
-#undef  pp_av2arylen
-#define pp_av2arylen           pPerl->Perl_pp_av2arylen
-#undef  pp_backtick
-#define pp_backtick            pPerl->Perl_pp_backtick
-#undef  pp_bind
-#define pp_bind                        pPerl->Perl_pp_bind
-#undef  pp_binmode
-#define pp_binmode             pPerl->Perl_pp_binmode
-#undef  pp_bit_and
-#define pp_bit_and             pPerl->Perl_pp_bit_and
-#undef  pp_bit_or
-#define pp_bit_or              pPerl->Perl_pp_bit_or
-#undef  pp_bit_xor
-#define pp_bit_xor             pPerl->Perl_pp_bit_xor
-#undef  pp_bless
-#define pp_bless               pPerl->Perl_pp_bless
-#undef  pp_caller
-#define pp_caller              pPerl->Perl_pp_caller
-#undef  pp_chdir
-#define pp_chdir               pPerl->Perl_pp_chdir
-#undef  pp_chmod
-#define pp_chmod               pPerl->Perl_pp_chmod
-#undef  pp_chomp
-#define pp_chomp               pPerl->Perl_pp_chomp
-#undef  pp_chop
-#define pp_chop                        pPerl->Perl_pp_chop
-#undef  pp_chown
-#define pp_chown               pPerl->Perl_pp_chown
-#undef  pp_chr
-#define pp_chr                 pPerl->Perl_pp_chr
-#undef  pp_chroot
-#define pp_chroot              pPerl->Perl_pp_chroot
-#undef  pp_close
-#define pp_close               pPerl->Perl_pp_close
-#undef  pp_closedir
-#define pp_closedir            pPerl->Perl_pp_closedir
-#undef  pp_complement
-#define pp_complement          pPerl->Perl_pp_complement
-#undef  pp_concat
-#define pp_concat              pPerl->Perl_pp_concat
-#undef  pp_cond_expr
-#define pp_cond_expr           pPerl->Perl_pp_cond_expr
-#undef  pp_connect
-#define pp_connect             pPerl->Perl_pp_connect
-#undef  pp_const
-#define pp_const               pPerl->Perl_pp_const
-#undef  pp_cos
-#define pp_cos                 pPerl->Perl_pp_cos
-#undef  pp_crypt
-#define pp_crypt               pPerl->Perl_pp_crypt
-#undef  pp_dbmclose
-#define pp_dbmclose            pPerl->Perl_pp_dbmclose
-#undef  pp_dbmopen
-#define pp_dbmopen             pPerl->Perl_pp_dbmopen
-#undef  pp_dbstate
-#define pp_dbstate             pPerl->Perl_pp_dbstate
-#undef  pp_defined
-#define pp_defined             pPerl->Perl_pp_defined
-#undef  pp_delete
-#define pp_delete              pPerl->Perl_pp_delete
-#undef  pp_die
-#define pp_die                 pPerl->Perl_pp_die
-#undef  pp_divide
-#define pp_divide              pPerl->Perl_pp_divide
-#undef  pp_dofile
-#define pp_dofile              pPerl->Perl_pp_dofile
-#undef  pp_dump
-#define pp_dump                        pPerl->Perl_pp_dump
-#undef  pp_each
-#define pp_each                        pPerl->Perl_pp_each
-#undef  pp_egrent
-#define pp_egrent              pPerl->Perl_pp_egrent
-#undef  pp_ehostent
-#define pp_ehostent            pPerl->Perl_pp_ehostent
-#undef  pp_enetent
-#define pp_enetent             pPerl->Perl_pp_enetent
-#undef  pp_enter
-#define pp_enter               pPerl->Perl_pp_enter
-#undef  pp_entereval
-#define pp_entereval           pPerl->Perl_pp_entereval
-#undef  pp_enteriter
-#define pp_enteriter           pPerl->Perl_pp_enteriter
-#undef  pp_enterloop
-#define pp_enterloop           pPerl->Perl_pp_enterloop
-#undef  pp_entersub
-#define pp_entersub            pPerl->Perl_pp_entersub
-#undef  pp_entertry
-#define pp_entertry            pPerl->Perl_pp_entertry
-#undef  pp_enterwrite
-#define pp_enterwrite          pPerl->Perl_pp_enterwrite
-#undef  pp_eof
-#define pp_eof                 pPerl->Perl_pp_eof
-#undef  pp_eprotoent
-#define pp_eprotoent           pPerl->Perl_pp_eprotoent
-#undef  pp_epwent
-#define pp_epwent              pPerl->Perl_pp_epwent
-#undef  pp_eq
-#define pp_eq                  pPerl->Perl_pp_eq
-#undef  pp_eservent
-#define pp_eservent            pPerl->Perl_pp_eservent
-#undef  pp_exec
-#define pp_exec                        pPerl->Perl_pp_exec
-#undef  pp_exists
-#define pp_exists              pPerl->Perl_pp_exists
-#undef  pp_exit
-#define pp_exit                        pPerl->Perl_pp_exit
-#undef  pp_exp
-#define pp_exp                 pPerl->Perl_pp_exp
-#undef  pp_fcntl
-#define pp_fcntl               pPerl->Perl_pp_fcntl
-#undef  pp_fileno
-#define pp_fileno              pPerl->Perl_pp_fileno
-#undef  pp_flip
-#define pp_flip                        pPerl->Perl_pp_flip
-#undef  pp_flock
-#define pp_flock               pPerl->Perl_pp_flock
-#undef  pp_flop
-#define pp_flop                        pPerl->Perl_pp_flop
-#undef  pp_fork
-#define pp_fork                        pPerl->Perl_pp_fork
-#undef  pp_formline
-#define pp_formline            pPerl->Perl_pp_formline
-#undef  pp_ftatime
-#define pp_ftatime             pPerl->Perl_pp_ftatime
-#undef  pp_ftbinary
-#define pp_ftbinary            pPerl->Perl_pp_ftbinary
-#undef  pp_ftblk
-#define pp_ftblk               pPerl->Perl_pp_ftblk
-#undef  pp_ftchr
-#define pp_ftchr               pPerl->Perl_pp_ftchr
-#undef  pp_ftctime
-#define pp_ftctime             pPerl->Perl_pp_ftctime
-#undef  pp_ftdir
-#define pp_ftdir               pPerl->Perl_pp_ftdir
-#undef  pp_fteexec
-#define pp_fteexec             pPerl->Perl_pp_fteexec
-#undef  pp_fteowned
-#define pp_fteowned            pPerl->Perl_pp_fteowned
-#undef  pp_fteread
-#define pp_fteread             pPerl->Perl_pp_fteread
-#undef  pp_ftewrite
-#define pp_ftewrite            pPerl->Perl_pp_ftewrite
-#undef  pp_ftfile
-#define pp_ftfile              pPerl->Perl_pp_ftfile
-#undef  pp_ftis
-#define pp_ftis                        pPerl->Perl_pp_ftis
-#undef  pp_ftlink
-#define pp_ftlink              pPerl->Perl_pp_ftlink
-#undef  pp_ftmtime
-#define pp_ftmtime             pPerl->Perl_pp_ftmtime
-#undef  pp_ftpipe
-#define pp_ftpipe              pPerl->Perl_pp_ftpipe
-#undef  pp_ftrexec
-#define pp_ftrexec             pPerl->Perl_pp_ftrexec
-#undef  pp_ftrowned
-#define pp_ftrowned            pPerl->Perl_pp_ftrowned
-#undef  pp_ftrread
-#define pp_ftrread             pPerl->Perl_pp_ftrread
-#undef  pp_ftrwrite
-#define pp_ftrwrite            pPerl->Perl_pp_ftrwrite
-#undef  pp_ftsgid
-#define pp_ftsgid              pPerl->Perl_pp_ftsgid
-#undef  pp_ftsize
-#define pp_ftsize              pPerl->Perl_pp_ftsize
-#undef  pp_ftsock
-#define pp_ftsock              pPerl->Perl_pp_ftsock
-#undef  pp_ftsuid
-#define pp_ftsuid              pPerl->Perl_pp_ftsuid
-#undef  pp_ftsvtx
-#define pp_ftsvtx              pPerl->Perl_pp_ftsvtx
-#undef  pp_fttext
-#define pp_fttext              pPerl->Perl_pp_fttext
-#undef  pp_fttty
-#define pp_fttty               pPerl->Perl_pp_fttty
-#undef  pp_ftzero
-#define pp_ftzero              pPerl->Perl_pp_ftzero
-#undef  pp_ge
-#define pp_ge                  pPerl->Perl_pp_ge
-#undef  pp_gelem
-#define pp_gelem               pPerl->Perl_pp_gelem
-#undef  pp_getc
-#define pp_getc                        pPerl->Perl_pp_getc
-#undef  pp_getlogin
-#define pp_getlogin            pPerl->Perl_pp_getlogin
-#undef  pp_getpeername
-#define pp_getpeername         pPerl->Perl_pp_getpeername
-#undef  pp_getpgrp
-#define pp_getpgrp             pPerl->Perl_pp_getpgrp
-#undef  pp_getppid
-#define pp_getppid             pPerl->Perl_pp_getppid
-#undef  pp_getpriority
-#define pp_getpriority         pPerl->Perl_pp_getpriority
-#undef  pp_getsockname
-#define pp_getsockname         pPerl->Perl_pp_getsockname
-#undef  pp_ggrent
-#define pp_ggrent              pPerl->Perl_pp_ggrent
-#undef  pp_ggrgid
-#define pp_ggrgid              pPerl->Perl_pp_ggrgid
-#undef  pp_ggrnam
-#define pp_ggrnam              pPerl->Perl_pp_ggrnam
-#undef  pp_ghbyaddr
-#define pp_ghbyaddr            pPerl->Perl_pp_ghbyaddr
-#undef  pp_ghbyname
-#define pp_ghbyname            pPerl->Perl_pp_ghbyname
-#undef  pp_ghostent
-#define pp_ghostent            pPerl->Perl_pp_ghostent
-#undef  pp_glob
-#define pp_glob                        pPerl->Perl_pp_glob
-#undef  pp_gmtime
-#define pp_gmtime              pPerl->Perl_pp_gmtime
-#undef  pp_gnbyaddr
-#define pp_gnbyaddr            pPerl->Perl_pp_gnbyaddr
-#undef  pp_gnbyname
-#define pp_gnbyname            pPerl->Perl_pp_gnbyname
-#undef  pp_gnetent
-#define pp_gnetent             pPerl->Perl_pp_gnetent
-#undef  pp_goto
-#define pp_goto                        pPerl->Perl_pp_goto
-#undef  pp_gpbyname
-#define pp_gpbyname            pPerl->Perl_pp_gpbyname
-#undef  pp_gpbynumber
-#define pp_gpbynumber          pPerl->Perl_pp_gpbynumber
-#undef  pp_gprotoent
-#define pp_gprotoent           pPerl->Perl_pp_gprotoent
-#undef  pp_gpwent
-#define pp_gpwent              pPerl->Perl_pp_gpwent
-#undef  pp_gpwnam
-#define pp_gpwnam              pPerl->Perl_pp_gpwnam
-#undef  pp_gpwuid
-#define pp_gpwuid              pPerl->Perl_pp_gpwuid
-#undef  pp_grepstart
-#define pp_grepstart           pPerl->Perl_pp_grepstart
-#undef  pp_grepwhile
-#define pp_grepwhile           pPerl->Perl_pp_grepwhile
-#undef  pp_gsbyname
-#define pp_gsbyname            pPerl->Perl_pp_gsbyname
-#undef  pp_gsbyport
-#define pp_gsbyport            pPerl->Perl_pp_gsbyport
-#undef  pp_gservent
-#define pp_gservent            pPerl->Perl_pp_gservent
-#undef  pp_gsockopt
-#define pp_gsockopt            pPerl->Perl_pp_gsockopt
-#undef  pp_gt
-#define pp_gt                  pPerl->Perl_pp_gt
-#undef  pp_gv
-#define pp_gv                  pPerl->Perl_pp_gv
-#undef  pp_gvsv
-#define pp_gvsv                        pPerl->Perl_pp_gvsv
-#undef  pp_helem
-#define pp_helem               pPerl->Perl_pp_helem
-#undef  pp_hex
-#define pp_hex                 pPerl->Perl_pp_hex
-#undef  pp_hslice
-#define pp_hslice              pPerl->Perl_pp_hslice
-#undef  pp_i_add
-#define pp_i_add               pPerl->Perl_pp_i_add
-#undef  pp_i_divide
-#define pp_i_divide            pPerl->Perl_pp_i_divide
-#undef  pp_i_eq
-#define pp_i_eq                        pPerl->Perl_pp_i_eq
-#undef  pp_i_ge
-#define pp_i_ge                        pPerl->Perl_pp_i_ge
-#undef  pp_i_gt
-#define pp_i_gt                        pPerl->Perl_pp_i_gt
-#undef  pp_i_le
-#define pp_i_le                        pPerl->Perl_pp_i_le
-#undef  pp_i_lt
-#define pp_i_lt                        pPerl->Perl_pp_i_lt
-#undef  pp_i_modulo
-#define pp_i_modulo            pPerl->Perl_pp_i_modulo
-#undef  pp_i_multiply
-#define pp_i_multiply          pPerl->Perl_pp_i_multiply
-#undef  pp_i_ncmp
-#define pp_i_ncmp              pPerl->Perl_pp_i_ncmp
-#undef  pp_i_ne
-#define pp_i_ne                        pPerl->Perl_pp_i_ne
-#undef  pp_i_negate
-#define pp_i_negate            pPerl->Perl_pp_i_negate
-#undef  pp_i_subtract
-#define pp_i_subtract          pPerl->Perl_pp_i_subtract
-#undef  pp_index
-#define pp_index               pPerl->Perl_pp_index
-#undef  pp_int
-#define pp_int                 pPerl->Perl_pp_int
-#undef  pp_ioctl
-#define pp_ioctl               pPerl->Perl_pp_ioctl
-#undef  pp_iter
-#define pp_iter                        pPerl->Perl_pp_iter
-#undef  pp_join
-#define pp_join                        pPerl->Perl_pp_join
-#undef  pp_keys
-#define pp_keys                        pPerl->Perl_pp_keys
-#undef  pp_kill
-#define pp_kill                        pPerl->Perl_pp_kill
-#undef  pp_last
-#define pp_last                        pPerl->Perl_pp_last
-#undef  pp_lc
-#define pp_lc                  pPerl->Perl_pp_lc
-#undef  pp_lcfirst
-#define pp_lcfirst             pPerl->Perl_pp_lcfirst
-#undef  pp_le
-#define pp_le                  pPerl->Perl_pp_le
-#undef  pp_leave
-#define pp_leave               pPerl->Perl_pp_leave
-#undef  pp_leaveeval
-#define pp_leaveeval           pPerl->Perl_pp_leaveeval
-#undef  pp_leaveloop
-#define pp_leaveloop           pPerl->Perl_pp_leaveloop
-#undef  pp_leavesub
-#define pp_leavesub            pPerl->Perl_pp_leavesub
-#undef  pp_leavetry