X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36..51ee650079cd7ef6a0ae6b587f0db512c6cfacde:/perlapi.c diff --git a/perlapi.c b/perlapi.c index 6860b18..fc71fb3 100644 --- a/perlapi.c +++ b/perlapi.c @@ -7,7 +7,7 @@ #include "perl.h" #include "perlapi.h" -#if defined(PERL_OBJECT) +#if defined(PERL_OBJECT) || defined (MULTIPLICITY) /* accessor functions for Perl variables (provides binary compatibility) */ START_EXTERN_C @@ -16,10 +16,19 @@ START_EXTERN_C #undef PERLVARA #undef PERLVARI #undef PERLVARIC + +#if defined(PERL_OBJECT) #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \ - { return &(aTHXo->PL_##v); } + { return &(aTHXo->interp.v); } #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ - { return &(aTHXo->PL_##v); } + { return &(aTHXo->interp.v); } +#else /* MULTIPLICITY */ +#define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \ + { return &(aTHX->v); } +#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \ + { return &(aTHX->v); } +#endif + #define PERLVARI(v,t,i) PERLVAR(v,t) #define PERLVARIC(v,t,i) PERLVAR(v, const t) @@ -40,6 +49,23 @@ START_EXTERN_C #undef PERLVARIC #if defined(PERL_OBJECT) + +/* C-API layer for PERL_OBJECT */ + +#if defined(PERL_IMPLICIT_SYS) +#endif +#if defined(USE_ITHREADS) +# if defined(PERL_IMPLICIT_SYS) +# endif +#endif +#if defined(MYMALLOC) +#endif +#if defined(PERL_OBJECT) +#ifndef __BORLANDC__ +#endif +#endif +#if defined(PERL_OBJECT) +#else #endif #undef Perl_amagic_call @@ -56,25 +82,11 @@ Perl_Gv_AMupdate(pTHXo_ HV* stash) return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash); } -#undef Perl_append_elem -OP* -Perl_append_elem(pTHXo_ I32 optype, OP* head, OP* tail) -{ - return ((CPerlObj*)pPerl)->Perl_append_elem(optype, head, tail); -} - -#undef Perl_append_list -OP* -Perl_append_list(pTHXo_ I32 optype, LISTOP* first, LISTOP* last) -{ - return ((CPerlObj*)pPerl)->Perl_append_list(optype, first, last); -} - -#undef Perl_apply -I32 -Perl_apply(pTHXo_ I32 type, SV** mark, SV** sp) +#undef Perl_avhv_delete_ent +SV* +Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash) { - return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp); + return ((CPerlObj*)pPerl)->Perl_avhv_delete_ent(ar, keysv, flags, hash); } #undef Perl_avhv_exists_ent @@ -91,6 +103,13 @@ Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash) return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash); } +#undef Perl_avhv_store_ent +SV** +Perl_avhv_store_ent(pTHXo_ AV *ar, SV* keysv, SV* val, U32 hash) +{ + return ((CPerlObj*)pPerl)->Perl_avhv_store_ent(ar, keysv, val, hash); +} + #undef Perl_avhv_iternext HE* Perl_avhv_iternext(pTHXo_ AV *ar) @@ -119,6 +138,20 @@ Perl_av_clear(pTHXo_ AV* ar) ((CPerlObj*)pPerl)->Perl_av_clear(ar); } +#undef Perl_av_delete +SV* +Perl_av_delete(pTHXo_ AV* ar, I32 key, I32 flags) +{ + return ((CPerlObj*)pPerl)->Perl_av_delete(ar, key, flags); +} + +#undef Perl_av_exists +bool +Perl_av_exists(pTHXo_ AV* ar, I32 key) +{ + return ((CPerlObj*)pPerl)->Perl_av_exists(ar, key); +} + #undef Perl_av_extend void Perl_av_extend(pTHXo_ AV* ar, I32 key) @@ -210,20 +243,6 @@ Perl_av_unshift(pTHXo_ AV* ar, I32 num) ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num); } -#undef Perl_bind_match -OP* -Perl_bind_match(pTHXo_ I32 type, OP* left, OP* pat) -{ - return ((CPerlObj*)pPerl)->Perl_bind_match(type, left, pat); -} - -#undef Perl_block_end -OP* -Perl_block_end(pTHXo_ I32 floor, OP* seq) -{ - return ((CPerlObj*)pPerl)->Perl_block_end(floor, seq); -} - #undef Perl_block_gimme I32 Perl_block_gimme(pTHXo) @@ -231,20 +250,6 @@ Perl_block_gimme(pTHXo) return ((CPerlObj*)pPerl)->Perl_block_gimme(); } -#undef Perl_block_start -int -Perl_block_start(pTHXo_ int full) -{ - return ((CPerlObj*)pPerl)->Perl_block_start(full); -} - -#undef Perl_boot_core_UNIVERSAL -void -Perl_boot_core_UNIVERSAL(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL(); -} - #undef Perl_call_list void Perl_call_list(pTHXo_ I32 oldscope, AV* av_list) @@ -252,13 +257,6 @@ Perl_call_list(pTHXo_ I32 oldscope, AV* av_list) ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list); } -#undef Perl_cando -bool -Perl_cando(pTHXo_ Mode_t mode, Uid_t effective, Stat_t* statbufp) -{ - return ((CPerlObj*)pPerl)->Perl_cando(mode, effective, statbufp); -} - #undef Perl_cast_ulong U32 Perl_cast_ulong(pTHXo_ NV f) @@ -305,16 +303,9 @@ Perl_condpair_magic(pTHXo_ SV *sv) } #endif -#undef Perl_convert -OP* -Perl_convert(pTHXo_ I32 optype, I32 flags, OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_convert(optype, flags, o); -} - #undef Perl_croak void -Perl_croak(pTHXo_ const char* pat) +Perl_croak(pTHXo_ const char* pat, ...) { va_list args; va_start(args, pat); @@ -332,7 +323,7 @@ Perl_vcroak(pTHXo_ const char* pat, va_list* args) #undef Perl_croak_nocontext void -Perl_croak_nocontext(const char* pat) +Perl_croak_nocontext(const char* pat, ...) { dTHXo; va_list args; @@ -343,7 +334,7 @@ Perl_croak_nocontext(const char* pat) #undef Perl_die_nocontext OP* -Perl_die_nocontext(const char* pat) +Perl_die_nocontext(const char* pat, ...) { dTHXo; OP* retval; @@ -357,7 +348,7 @@ Perl_die_nocontext(const char* pat) #undef Perl_deb_nocontext void -Perl_deb_nocontext(const char* pat) +Perl_deb_nocontext(const char* pat, ...) { dTHXo; va_list args; @@ -368,7 +359,7 @@ Perl_deb_nocontext(const char* pat) #undef Perl_form_nocontext char* -Perl_form_nocontext(const char* pat) +Perl_form_nocontext(const char* pat, ...) { dTHXo; char* retval; @@ -380,9 +371,34 @@ Perl_form_nocontext(const char* pat) } +#undef Perl_load_module_nocontext +void +Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...) +{ + dTHXo; + va_list args; + va_start(args, ver); + ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args); + va_end(args); +} + +#undef Perl_mess_nocontext +SV* +Perl_mess_nocontext(const char* pat, ...) +{ + dTHXo; + SV* retval; + va_list args; + va_start(args, pat); + retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args); + va_end(args); + return retval; + +} + #undef Perl_warn_nocontext void -Perl_warn_nocontext(const char* pat) +Perl_warn_nocontext(const char* pat, ...) { dTHXo; va_list args; @@ -393,7 +409,7 @@ Perl_warn_nocontext(const char* pat) #undef Perl_warner_nocontext void -Perl_warner_nocontext(U32 err, const char* pat) +Perl_warner_nocontext(U32 err, const char* pat, ...) { dTHXo; va_list args; @@ -404,7 +420,7 @@ Perl_warner_nocontext(U32 err, const char* pat) #undef Perl_newSVpvf_nocontext SV* -Perl_newSVpvf_nocontext(const char* pat) +Perl_newSVpvf_nocontext(const char* pat, ...) { dTHXo; SV* retval; @@ -418,7 +434,7 @@ Perl_newSVpvf_nocontext(const char* pat) #undef Perl_sv_catpvf_nocontext void -Perl_sv_catpvf_nocontext(SV* sv, const char* pat) +Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...) { dTHXo; va_list args; @@ -429,7 +445,7 @@ Perl_sv_catpvf_nocontext(SV* sv, const char* pat) #undef Perl_sv_setpvf_nocontext void -Perl_sv_setpvf_nocontext(SV* sv, const char* pat) +Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...) { dTHXo; va_list args; @@ -440,7 +456,7 @@ Perl_sv_setpvf_nocontext(SV* sv, const char* pat) #undef Perl_sv_catpvf_mg_nocontext void -Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat) +Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...) { dTHXo; va_list args; @@ -451,7 +467,7 @@ Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat) #undef Perl_sv_setpvf_mg_nocontext void -Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat) +Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) { dTHXo; va_list args; @@ -463,20 +479,6 @@ Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat) #undef Perl_fprintf_nocontext #endif -#undef Perl_cv_ckproto -void -Perl_cv_ckproto(pTHXo_ CV* cv, GV* gv, char* p) -{ - ((CPerlObj*)pPerl)->Perl_cv_ckproto(cv, gv, p); -} - -#undef Perl_cv_clone -CV* -Perl_cv_clone(pTHXo_ CV* proto) -{ - return ((CPerlObj*)pPerl)->Perl_cv_clone(proto); -} - #undef Perl_cv_const_sv SV* Perl_cv_const_sv(pTHXo_ CV* cv) @@ -484,13 +486,6 @@ Perl_cv_const_sv(pTHXo_ CV* cv) return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv); } -#undef Perl_op_const_sv -SV* -Perl_op_const_sv(pTHXo_ OP* o, CV* cv) -{ - return ((CPerlObj*)pPerl)->Perl_op_const_sv(o, cv); -} - #undef Perl_cv_undef void Perl_cv_undef(pTHXo_ CV* cv) @@ -540,20 +535,6 @@ Perl_get_op_names(pTHXo) return ((CPerlObj*)pPerl)->Perl_get_op_names(); } -#undef Perl_get_no_modify -char* -Perl_get_no_modify(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_get_no_modify(); -} - -#undef Perl_get_opargs -U32* -Perl_get_opargs(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_get_opargs(); -} - #undef Perl_get_ppaddr PPADDR_t* Perl_get_ppaddr(pTHXo) @@ -561,16 +542,9 @@ Perl_get_ppaddr(pTHXo) return ((CPerlObj*)pPerl)->Perl_get_ppaddr(); } -#undef Perl_cxinc -I32 -Perl_cxinc(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_cxinc(); -} - #undef Perl_deb void -Perl_deb(pTHXo_ const char* pat) +Perl_deb(pTHXo_ const char* pat, ...) { va_list args; va_start(args, pat); @@ -585,13 +559,6 @@ Perl_vdeb(pTHXo_ const char* pat, va_list* args) ((CPerlObj*)pPerl)->Perl_vdeb(pat, args); } -#undef Perl_deb_growlevel -void -Perl_deb_growlevel(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_deb_growlevel(); -} - #undef Perl_debprofdump void Perl_debprofdump(pTHXo) @@ -627,16 +594,9 @@ Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen); } -#undef Perl_deprecate -void -Perl_deprecate(pTHXo_ char* s) -{ - ((CPerlObj*)pPerl)->Perl_deprecate(s); -} - #undef Perl_die OP* -Perl_die(pTHXo_ const char* pat) +Perl_die(pTHXo_ const char* pat, ...) { OP* retval; va_list args; @@ -647,20 +607,6 @@ Perl_die(pTHXo_ const char* pat) } -#undef Perl_vdie -OP* -Perl_vdie(pTHXo_ const char* pat, va_list* args) -{ - return ((CPerlObj*)pPerl)->Perl_vdie(pat, args); -} - -#undef Perl_die_where -OP* -Perl_die_where(pTHXo_ char* message, STRLEN msglen) -{ - return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen); -} - #undef Perl_dounwind void Perl_dounwind(pTHXo_ I32 cxix) @@ -668,32 +614,11 @@ Perl_dounwind(pTHXo_ I32 cxix) ((CPerlObj*)pPerl)->Perl_dounwind(cxix); } -#undef Perl_do_aexec -bool -Perl_do_aexec(pTHXo_ SV* really, SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp); -} - -#undef Perl_do_aexec5 -bool -Perl_do_aexec5(pTHXo_ SV* really, SV** mark, SV** sp, int fd, int flag) -{ - return ((CPerlObj*)pPerl)->Perl_do_aexec5(really, mark, sp, fd, flag); -} - #undef Perl_do_binmode int -Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag) +Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int mode) { - return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag); -} - -#undef Perl_do_chop -void -Perl_do_chop(pTHXo_ SV* asv, SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv); + return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, mode); } #undef Perl_do_close @@ -702,79 +627,9 @@ Perl_do_close(pTHXo_ GV* gv, bool not_implicit) { return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit); } - -#undef Perl_do_eof -bool -Perl_do_eof(pTHXo_ GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_do_eof(gv); -} - -#undef Perl_do_exec -bool -Perl_do_exec(pTHXo_ char* cmd) -{ - return ((CPerlObj*)pPerl)->Perl_do_exec(cmd); -} #if !defined(WIN32) - -#undef Perl_do_exec3 -bool -Perl_do_exec3(pTHXo_ char* cmd, int fd, int flag) -{ - return ((CPerlObj*)pPerl)->Perl_do_exec3(cmd, fd, flag); -} #endif - -#undef Perl_do_execfree -void -Perl_do_execfree(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_do_execfree(); -} #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) - -#undef Perl_do_ipcctl -I32 -Perl_do_ipcctl(pTHXo_ I32 optype, SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_ipcctl(optype, mark, sp); -} - -#undef Perl_do_ipcget -I32 -Perl_do_ipcget(pTHXo_ I32 optype, SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_ipcget(optype, mark, sp); -} - -#undef Perl_do_msgrcv -I32 -Perl_do_msgrcv(pTHXo_ SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_msgrcv(mark, sp); -} - -#undef Perl_do_msgsnd -I32 -Perl_do_msgsnd(pTHXo_ SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_msgsnd(mark, sp); -} - -#undef Perl_do_semop -I32 -Perl_do_semop(pTHXo_ SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_semop(mark, sp); -} - -#undef Perl_do_shmio -I32 -Perl_do_shmio(pTHXo_ I32 optype, SV** mark, SV** sp) -{ - return ((CPerlObj*)pPerl)->Perl_do_shmio(optype, mark, sp); -} #endif #undef Perl_do_join @@ -784,13 +639,6 @@ Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp) ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp); } -#undef Perl_do_kv -OP* -Perl_do_kv(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_do_kv(); -} - #undef Perl_do_open bool Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp) @@ -805,97 +653,6 @@ Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int r return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num); } -#undef Perl_do_pipe -void -Perl_do_pipe(pTHXo_ SV* sv, GV* rgv, GV* wgv) -{ - ((CPerlObj*)pPerl)->Perl_do_pipe(sv, rgv, wgv); -} - -#undef Perl_do_print -bool -Perl_do_print(pTHXo_ SV* sv, PerlIO* fp) -{ - return ((CPerlObj*)pPerl)->Perl_do_print(sv, fp); -} - -#undef Perl_do_readline -OP* -Perl_do_readline(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_do_readline(); -} - -#undef Perl_do_chomp -I32 -Perl_do_chomp(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_do_chomp(sv); -} - -#undef Perl_do_seek -bool -Perl_do_seek(pTHXo_ GV* gv, Off_t pos, int whence) -{ - return ((CPerlObj*)pPerl)->Perl_do_seek(gv, pos, whence); -} - -#undef Perl_do_sprintf -void -Perl_do_sprintf(pTHXo_ SV* sv, I32 len, SV** sarg) -{ - ((CPerlObj*)pPerl)->Perl_do_sprintf(sv, len, sarg); -} - -#undef Perl_do_sysseek -Off_t -Perl_do_sysseek(pTHXo_ GV* gv, Off_t pos, int whence) -{ - return ((CPerlObj*)pPerl)->Perl_do_sysseek(gv, pos, whence); -} - -#undef Perl_do_tell -Off_t -Perl_do_tell(pTHXo_ GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_do_tell(gv); -} - -#undef Perl_do_trans -I32 -Perl_do_trans(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_do_trans(sv); -} - -#undef Perl_do_vecget -UV -Perl_do_vecget(pTHXo_ SV* sv, I32 offset, I32 size) -{ - return ((CPerlObj*)pPerl)->Perl_do_vecget(sv, offset, size); -} - -#undef Perl_do_vecset -void -Perl_do_vecset(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_do_vecset(sv); -} - -#undef Perl_do_vop -void -Perl_do_vop(pTHXo_ I32 optype, SV* sv, SV* left, SV* right) -{ - ((CPerlObj*)pPerl)->Perl_do_vop(optype, sv, left, right); -} - -#undef Perl_dofile -OP* -Perl_dofile(pTHXo_ OP* term) -{ - return ((CPerlObj*)pPerl)->Perl_dofile(term); -} - #undef Perl_dowantarray I32 Perl_dowantarray(pTHXo) @@ -981,40 +738,12 @@ Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U { return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags); } - -#undef Perl_find_script -char* -Perl_find_script(pTHXo_ char *scriptname, bool dosearch, char **search_ext, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_find_script(scriptname, dosearch, search_ext, flags); -} #if defined(USE_THREADS) - -#undef Perl_find_threadsv -PADOFFSET -Perl_find_threadsv(pTHXo_ const char *name) -{ - return ((CPerlObj*)pPerl)->Perl_find_threadsv(name); -} #endif -#undef Perl_force_list -OP* -Perl_force_list(pTHXo_ OP* arg) -{ - return ((CPerlObj*)pPerl)->Perl_force_list(arg); -} - -#undef Perl_fold_constants -OP* -Perl_fold_constants(pTHXo_ OP* arg) -{ - return ((CPerlObj*)pPerl)->Perl_fold_constants(arg); -} - #undef Perl_form char* -Perl_form(pTHXo_ const char* pat) +Perl_form(pTHXo_ const char* pat, ...) { char* retval; va_list args; @@ -1038,21 +767,7 @@ Perl_free_tmps(pTHXo) { ((CPerlObj*)pPerl)->Perl_free_tmps(); } - -#undef Perl_gen_constant_list -OP* -Perl_gen_constant_list(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_gen_constant_list(o); -} #if !defined(HAS_GETENV_LEN) - -#undef Perl_getenv_len -char* -Perl_getenv_len(pTHXo_ char* key, unsigned long *len) -{ - return ((CPerlObj*)pPerl)->Perl_getenv_len(key, len); -} #endif #undef Perl_gp_free @@ -1349,32 +1064,11 @@ Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len) return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len); } -#undef Perl_ingroup -bool -Perl_ingroup(pTHXo_ Gid_t testgid, Uid_t effective) -{ - return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective); -} - -#undef Perl_init_debugger +#undef Perl_init_stacks void -Perl_init_debugger(pTHXo) +Perl_init_stacks(pTHXo) { - ((CPerlObj*)pPerl)->Perl_init_debugger(); -} - -#undef Perl_init_stacks -void -Perl_init_stacks(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_init_stacks(); -} - -#undef Perl_intro_my -U32 -Perl_intro_my(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_intro_my(); + ((CPerlObj*)pPerl)->Perl_init_stacks(); } #undef Perl_instr @@ -1384,20 +1078,6 @@ Perl_instr(pTHXo_ const char* big, const char* little) return ((CPerlObj*)pPerl)->Perl_instr(big, little); } -#undef Perl_io_close -bool -Perl_io_close(pTHXo_ IO* io, bool not_implicit) -{ - return ((CPerlObj*)pPerl)->Perl_io_close(io, not_implicit); -} - -#undef Perl_invert -OP* -Perl_invert(pTHXo_ OP* cmd) -{ - return ((CPerlObj*)pPerl)->Perl_invert(cmd); -} - #undef Perl_is_uni_alnum bool Perl_is_uni_alnum(pTHXo_ U32 c) @@ -1636,6 +1316,13 @@ Perl_to_uni_lower_lc(pTHXo_ U32 c) return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c); } +#undef Perl_is_utf8_char +int +Perl_is_utf8_char(pTHXo_ U8 *p) +{ + return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p); +} + #undef Perl_is_utf8_alnum bool Perl_is_utf8_alnum(pTHXo_ U8 *p) @@ -1741,20 +1428,6 @@ Perl_is_utf8_mark(pTHXo_ U8 *p) return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p); } -#undef Perl_jmaybe -OP* -Perl_jmaybe(pTHXo_ OP* arg) -{ - return ((CPerlObj*)pPerl)->Perl_jmaybe(arg); -} - -#undef Perl_keyword -I32 -Perl_keyword(pTHXo_ char* d, I32 len) -{ - return ((CPerlObj*)pPerl)->Perl_keyword(d, len); -} - #undef Perl_leave_scope void Perl_leave_scope(pTHXo_ I32 base) @@ -1762,46 +1435,21 @@ Perl_leave_scope(pTHXo_ I32 base) ((CPerlObj*)pPerl)->Perl_leave_scope(base); } -#undef Perl_lex_end +#undef Perl_load_module void -Perl_lex_end(pTHXo) +Perl_load_module(pTHXo_ U32 flags, SV* name, SV* ver, ...) { - ((CPerlObj*)pPerl)->Perl_lex_end(); + va_list args; + va_start(args, ver); + ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args); + va_end(args); } -#undef Perl_lex_start +#undef Perl_vload_module void -Perl_lex_start(pTHXo_ SV* line) -{ - ((CPerlObj*)pPerl)->Perl_lex_start(line); -} - -#undef Perl_linklist -OP* -Perl_linklist(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_linklist(o); -} - -#undef Perl_list -OP* -Perl_list(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_list(o); -} - -#undef Perl_listkids -OP* -Perl_listkids(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_listkids(o); -} - -#undef Perl_localize -OP* -Perl_localize(pTHXo_ OP* arg, I32 lexical) +Perl_vload_module(pTHXo_ U32 flags, SV* name, SV* ver, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical); + ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, args); } #undef Perl_looks_like_number @@ -1810,5745 +1458,2556 @@ Perl_looks_like_number(pTHXo_ SV* sv) { return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv); } +#if defined(USE_THREADS) +#endif +#if defined(USE_LOCALE_COLLATE) +#endif -#undef Perl_magic_clearenv -int -Perl_magic_clearenv(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_markstack_grow +void +Perl_markstack_grow(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_magic_clearenv(sv, mg); + ((CPerlObj*)pPerl)->Perl_markstack_grow(); } +#if defined(USE_LOCALE_COLLATE) +#endif -#undef Perl_magic_clear_all_env -int -Perl_magic_clear_all_env(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_mess +SV* +Perl_mess(pTHXo_ const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_magic_clear_all_env(sv, mg); + SV* retval; + va_list args; + va_start(args, pat); + retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args); + va_end(args); + return retval; + } -#undef Perl_magic_clearpack -int -Perl_magic_clearpack(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_vmess +SV* +Perl_vmess(pTHXo_ const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_magic_clearpack(sv, mg); + return ((CPerlObj*)pPerl)->Perl_vmess(pat, args); } -#undef Perl_magic_clearsig +#undef Perl_mg_clear int -Perl_magic_clearsig(pTHXo_ SV* sv, MAGIC* mg) +Perl_mg_clear(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_clearsig(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_clear(sv); } -#undef Perl_magic_existspack +#undef Perl_mg_copy int -Perl_magic_existspack(pTHXo_ SV* sv, MAGIC* mg) +Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen) { - return ((CPerlObj*)pPerl)->Perl_magic_existspack(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen); } -#undef Perl_magic_freeregexp -int -Perl_magic_freeregexp(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_mg_find +MAGIC* +Perl_mg_find(pTHXo_ SV* sv, int type) { - return ((CPerlObj*)pPerl)->Perl_magic_freeregexp(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type); } -#undef Perl_magic_get +#undef Perl_mg_free int -Perl_magic_get(pTHXo_ SV* sv, MAGIC* mg) +Perl_mg_free(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_get(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_free(sv); } -#undef Perl_magic_getarylen +#undef Perl_mg_get int -Perl_magic_getarylen(pTHXo_ SV* sv, MAGIC* mg) +Perl_mg_get(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_getarylen(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_get(sv); } -#undef Perl_magic_getdefelem -int -Perl_magic_getdefelem(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_mg_length +U32 +Perl_mg_length(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_getdefelem(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_length(sv); } -#undef Perl_magic_getglob -int -Perl_magic_getglob(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_mg_magical +void +Perl_mg_magical(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_getglob(sv, mg); + ((CPerlObj*)pPerl)->Perl_mg_magical(sv); } -#undef Perl_magic_getnkeys +#undef Perl_mg_set int -Perl_magic_getnkeys(pTHXo_ SV* sv, MAGIC* mg) +Perl_mg_set(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_getnkeys(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_set(sv); } -#undef Perl_magic_getpack -int -Perl_magic_getpack(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_mg_size +I32 +Perl_mg_size(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_getpack(sv, mg); + return ((CPerlObj*)pPerl)->Perl_mg_size(sv); } -#undef Perl_magic_getpos -int -Perl_magic_getpos(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_moreswitches +char* +Perl_moreswitches(pTHXo_ char* s) { - return ((CPerlObj*)pPerl)->Perl_magic_getpos(sv, mg); + return ((CPerlObj*)pPerl)->Perl_moreswitches(s); } -#undef Perl_magic_getsig -int -Perl_magic_getsig(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_atof +NV +Perl_my_atof(pTHXo_ const char *s) { - return ((CPerlObj*)pPerl)->Perl_magic_getsig(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_atof(s); } +#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY) -#undef Perl_magic_getsubstr -int -Perl_magic_getsubstr(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_bcopy +char* +Perl_my_bcopy(const char* from, char* to, I32 len) { - return ((CPerlObj*)pPerl)->Perl_magic_getsubstr(sv, mg); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len); } +#endif +#if !defined(HAS_BZERO) && !defined(HAS_MEMSET) -#undef Perl_magic_gettaint -int -Perl_magic_gettaint(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_bzero +char* +Perl_my_bzero(char* loc, I32 len) { - return ((CPerlObj*)pPerl)->Perl_magic_gettaint(sv, mg); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len); } +#endif -#undef Perl_magic_getuvar -int -Perl_magic_getuvar(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_exit +void +Perl_my_exit(pTHXo_ U32 status) { - return ((CPerlObj*)pPerl)->Perl_magic_getuvar(sv, mg); + ((CPerlObj*)pPerl)->Perl_my_exit(status); } -#undef Perl_magic_getvec -int -Perl_magic_getvec(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_failure_exit +void +Perl_my_failure_exit(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_magic_getvec(sv, mg); + ((CPerlObj*)pPerl)->Perl_my_failure_exit(); } -#undef Perl_magic_len -U32 -Perl_magic_len(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_fflush_all +I32 +Perl_my_fflush_all(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_magic_len(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_fflush_all(); } -#if defined(USE_THREADS) -#undef Perl_magic_mutexfree -int -Perl_magic_mutexfree(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_lstat +I32 +Perl_my_lstat(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_magic_mutexfree(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_lstat(); } -#endif +#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) -#undef Perl_magic_nextpack -int -Perl_magic_nextpack(pTHXo_ SV* sv, MAGIC* mg, SV* key) +#undef Perl_my_memcmp +I32 +Perl_my_memcmp(const char* s1, const char* s2, I32 len) { - return ((CPerlObj*)pPerl)->Perl_magic_nextpack(sv, mg, key); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len); } +#endif +#if !defined(HAS_MEMSET) -#undef Perl_magic_regdata_cnt -U32 -Perl_magic_regdata_cnt(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_memset +void* +Perl_my_memset(char* loc, I32 ch, I32 len) { - return ((CPerlObj*)pPerl)->Perl_magic_regdata_cnt(sv, mg); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len); } +#endif +#if !defined(PERL_OBJECT) -#undef Perl_magic_regdatum_get -int -Perl_magic_regdatum_get(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_pclose +I32 +Perl_my_pclose(pTHXo_ PerlIO* ptr) { - return ((CPerlObj*)pPerl)->Perl_magic_regdatum_get(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr); } -#undef Perl_magic_set -int -Perl_magic_set(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_popen +PerlIO* +Perl_my_popen(pTHXo_ char* cmd, char* mode) { - return ((CPerlObj*)pPerl)->Perl_magic_set(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode); } +#endif -#undef Perl_magic_setamagic -int -Perl_magic_setamagic(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_setenv +void +Perl_my_setenv(pTHXo_ char* nam, char* val) { - return ((CPerlObj*)pPerl)->Perl_magic_setamagic(sv, mg); + ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val); } -#undef Perl_magic_setarylen -int -Perl_magic_setarylen(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_stat +I32 +Perl_my_stat(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_magic_setarylen(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_stat(); } +#if defined(MYSWAP) -#undef Perl_magic_setbm -int -Perl_magic_setbm(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_swap +short +Perl_my_swap(pTHXo_ short s) { - return ((CPerlObj*)pPerl)->Perl_magic_setbm(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_swap(s); } -#undef Perl_magic_setdbline -int -Perl_magic_setdbline(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_htonl +long +Perl_my_htonl(pTHXo_ long l) { - return ((CPerlObj*)pPerl)->Perl_magic_setdbline(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_htonl(l); } -#if defined(USE_LOCALE_COLLATE) -#undef Perl_magic_setcollxfrm -int -Perl_magic_setcollxfrm(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_my_ntohl +long +Perl_my_ntohl(pTHXo_ long l) { - return ((CPerlObj*)pPerl)->Perl_magic_setcollxfrm(sv, mg); + return ((CPerlObj*)pPerl)->Perl_my_ntohl(l); } #endif -#undef Perl_magic_setdefelem -int -Perl_magic_setdefelem(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newANONLIST +OP* +Perl_newANONLIST(pTHXo_ OP* o) { - return ((CPerlObj*)pPerl)->Perl_magic_setdefelem(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newANONLIST(o); } -#undef Perl_magic_setenv -int -Perl_magic_setenv(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newANONHASH +OP* +Perl_newANONHASH(pTHXo_ OP* o) { - return ((CPerlObj*)pPerl)->Perl_magic_setenv(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newANONHASH(o); } -#undef Perl_magic_setfm -int -Perl_magic_setfm(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newANONSUB +OP* +Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block) { - return ((CPerlObj*)pPerl)->Perl_magic_setfm(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block); } -#undef Perl_magic_setisa -int -Perl_magic_setisa(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newASSIGNOP +OP* +Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right) { - return ((CPerlObj*)pPerl)->Perl_magic_setisa(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right); } -#undef Perl_magic_setglob -int -Perl_magic_setglob(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newCONDOP +OP* +Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop) { - return ((CPerlObj*)pPerl)->Perl_magic_setglob(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop); } -#undef Perl_magic_setmglob -int -Perl_magic_setmglob(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newCONSTSUB +void +Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv) { - return ((CPerlObj*)pPerl)->Perl_magic_setmglob(sv, mg); + ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv); } -#undef Perl_magic_setnkeys -int -Perl_magic_setnkeys(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newFORM +void +Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block) { - return ((CPerlObj*)pPerl)->Perl_magic_setnkeys(sv, mg); + ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block); } -#undef Perl_magic_setpack -int -Perl_magic_setpack(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newFOROP +OP* +Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont) { - return ((CPerlObj*)pPerl)->Perl_magic_setpack(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont); } -#undef Perl_magic_setpos -int -Perl_magic_setpos(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newLOGOP +OP* +Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right) { - return ((CPerlObj*)pPerl)->Perl_magic_setpos(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right); } -#undef Perl_magic_setsig -int -Perl_magic_setsig(pTHXo_ SV* sv, MAGIC* mg) +#undef Perl_newLOOPEX +OP* +Perl_newLOOPEX(pTHXo_ I32 type, OP* label) { - return ((CPerlObj*)pPerl)->Perl_magic_setsig(sv, mg); + return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label); } -#undef Perl_magic_setsubstr -int -Perl_magic_setsubstr(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_setsubstr(sv, mg); -} - -#undef Perl_magic_settaint -int -Perl_magic_settaint(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_settaint(sv, mg); -} - -#undef Perl_magic_setuvar -int -Perl_magic_setuvar(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_setuvar(sv, mg); -} - -#undef Perl_magic_setvec -int -Perl_magic_setvec(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_setvec(sv, mg); -} - -#undef Perl_magic_set_all_env -int -Perl_magic_set_all_env(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_set_all_env(sv, mg); -} - -#undef Perl_magic_sizepack -U32 -Perl_magic_sizepack(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_sizepack(sv, mg); -} - -#undef Perl_magic_wipepack -int -Perl_magic_wipepack(pTHXo_ SV* sv, MAGIC* mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg); -} - -#undef Perl_magicname -void -Perl_magicname(pTHXo_ char* sym, char* name, I32 namlen) -{ - ((CPerlObj*)pPerl)->Perl_magicname(sym, name, namlen); -} -#if defined(MYMALLOC) - -#undef Perl_malloced_size -MEM_SIZE -Perl_malloced_size(void *p) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_malloced_size(p); -} -#endif - -#undef Perl_markstack_grow -void -Perl_markstack_grow(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_markstack_grow(); -} -#if defined(USE_LOCALE_COLLATE) - -#undef Perl_mem_collxfrm -char* -Perl_mem_collxfrm(pTHXo_ const char* s, STRLEN len, STRLEN* xlen) -{ - return ((CPerlObj*)pPerl)->Perl_mem_collxfrm(s, len, xlen); -} -#endif - -#undef Perl_mess -SV* -Perl_mess(pTHXo_ const char* pat, va_list* args) -{ - return ((CPerlObj*)pPerl)->Perl_mess(pat, args); -} - -#undef Perl_mg_clear -int -Perl_mg_clear(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_mg_clear(sv); -} - -#undef Perl_mg_copy -int -Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen) -{ - return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen); -} - -#undef Perl_mg_find -MAGIC* -Perl_mg_find(pTHXo_ SV* sv, int type) -{ - return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type); -} - -#undef Perl_mg_free -int -Perl_mg_free(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_mg_free(sv); -} - -#undef Perl_mg_get -int -Perl_mg_get(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_mg_get(sv); -} - -#undef Perl_mg_length -U32 -Perl_mg_length(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_mg_length(sv); -} - -#undef Perl_mg_magical -void -Perl_mg_magical(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_mg_magical(sv); -} - -#undef Perl_mg_set -int -Perl_mg_set(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_mg_set(sv); -} - -#undef Perl_mg_size -I32 -Perl_mg_size(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_mg_size(sv); -} - -#undef Perl_mod -OP* -Perl_mod(pTHXo_ OP* o, I32 type) -{ - return ((CPerlObj*)pPerl)->Perl_mod(o, type); -} - -#undef Perl_moreswitches -char* -Perl_moreswitches(pTHXo_ char* s) -{ - return ((CPerlObj*)pPerl)->Perl_moreswitches(s); -} - -#undef Perl_my -OP* -Perl_my(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_my(o); -} - -#undef Perl_my_atof -NV -Perl_my_atof(pTHXo_ const char *s) -{ - return ((CPerlObj*)pPerl)->Perl_my_atof(s); -} -#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY) - -#undef Perl_my_bcopy -char* -Perl_my_bcopy(pTHXo_ const char* from, char* to, I32 len) -{ - return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len); -} -#endif -#if !defined(HAS_BZERO) && !defined(HAS_MEMSET) - -#undef Perl_my_bzero -char* -Perl_my_bzero(pTHXo_ char* loc, I32 len) -{ - return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len); -} -#endif - -#undef Perl_my_exit -void -Perl_my_exit(pTHXo_ U32 status) -{ - ((CPerlObj*)pPerl)->Perl_my_exit(status); -} - -#undef Perl_my_failure_exit -void -Perl_my_failure_exit(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_my_failure_exit(); -} - -#undef Perl_my_fflush_all -I32 -Perl_my_fflush_all(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_my_fflush_all(); -} - -#undef Perl_my_lstat -I32 -Perl_my_lstat(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_my_lstat(); -} -#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) - -#undef Perl_my_memcmp -I32 -Perl_my_memcmp(pTHXo_ const char* s1, const char* s2, I32 len) -{ - return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len); -} -#endif -#if !defined(HAS_MEMSET) - -#undef Perl_my_memset -void* -Perl_my_memset(pTHXo_ char* loc, I32 ch, I32 len) -{ - return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len); -} -#endif -#if !defined(PERL_OBJECT) - -#undef Perl_my_pclose -I32 -Perl_my_pclose(pTHXo_ PerlIO* ptr) -{ - return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr); -} - -#undef Perl_my_popen -PerlIO* -Perl_my_popen(pTHXo_ char* cmd, char* mode) -{ - return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode); -} -#endif - -#undef Perl_my_setenv -void -Perl_my_setenv(pTHXo_ char* nam, char* val) -{ - ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val); -} - -#undef Perl_my_stat -I32 -Perl_my_stat(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_my_stat(); -} -#if defined(MYSWAP) - -#undef Perl_my_swap -short -Perl_my_swap(pTHXo_ short s) -{ - return ((CPerlObj*)pPerl)->Perl_my_swap(s); -} - -#undef Perl_my_htonl -long -Perl_my_htonl(pTHXo_ long l) -{ - return ((CPerlObj*)pPerl)->Perl_my_htonl(l); -} - -#undef Perl_my_ntohl -long -Perl_my_ntohl(pTHXo_ long l) -{ - return ((CPerlObj*)pPerl)->Perl_my_ntohl(l); -} -#endif - -#undef Perl_my_unexec -void -Perl_my_unexec(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_my_unexec(); -} - -#undef Perl_newANONLIST -OP* -Perl_newANONLIST(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newANONLIST(o); -} - -#undef Perl_newANONHASH -OP* -Perl_newANONHASH(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newANONHASH(o); -} - -#undef Perl_newANONSUB -OP* -Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block) -{ - return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block); -} - -#undef Perl_newASSIGNOP -OP* -Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right) -{ - return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right); -} - -#undef Perl_newCONDOP -OP* -Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop) -{ - return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop); -} - -#undef Perl_newCONSTSUB -void -Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv); -} - -#undef Perl_newFORM -void -Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block) -{ - ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block); -} - -#undef Perl_newFOROP -OP* -Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont) -{ - return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont); -} - -#undef Perl_newLOGOP -OP* -Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right) -{ - return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right); -} - -#undef Perl_newLOOPEX -OP* -Perl_newLOOPEX(pTHXo_ I32 type, OP* label) -{ - return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label); -} - -#undef Perl_newLOOPOP -OP* -Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block) -{ - return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block); -} - -#undef Perl_newNULLLIST -OP* -Perl_newNULLLIST(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_newNULLLIST(); -} - -#undef Perl_newOP -OP* -Perl_newOP(pTHXo_ I32 optype, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags); -} - -#undef Perl_newPROG -void -Perl_newPROG(pTHXo_ OP* o) -{ - ((CPerlObj*)pPerl)->Perl_newPROG(o); -} - -#undef Perl_newRANGE -OP* -Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right) -{ - return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right); -} - -#undef Perl_newSLICEOP -OP* -Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop) -{ - return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop); -} - -#undef Perl_newSTATEOP -OP* -Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o); -} - -#undef Perl_newSUB -CV* -Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block) -{ - return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block); -} - -#undef Perl_newXS -CV* -Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename) -{ - return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename); -} - -#undef Perl_newAV -AV* -Perl_newAV(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_newAV(); -} - -#undef Perl_newAVREF -OP* -Perl_newAVREF(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newAVREF(o); -} - -#undef Perl_newBINOP -OP* -Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) -{ - return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last); -} - -#undef Perl_newCVREF -OP* -Perl_newCVREF(pTHXo_ I32 flags, OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o); -} - -#undef Perl_newGVOP -OP* -Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv); -} - -#undef Perl_newGVgen -GV* -Perl_newGVgen(pTHXo_ char* pack) -{ - return ((CPerlObj*)pPerl)->Perl_newGVgen(pack); -} - -#undef Perl_newGVREF -OP* -Perl_newGVREF(pTHXo_ I32 type, OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o); -} - -#undef Perl_newHVREF -OP* -Perl_newHVREF(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newHVREF(o); -} - -#undef Perl_newHV -HV* -Perl_newHV(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_newHV(); -} - -#undef Perl_newHVhv -HV* -Perl_newHVhv(pTHXo_ HV* hv) -{ - return ((CPerlObj*)pPerl)->Perl_newHVhv(hv); -} - -#undef Perl_newIO -IO* -Perl_newIO(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_newIO(); -} - -#undef Perl_newLISTOP -OP* -Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) -{ - return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last); -} - -#undef Perl_newPMOP -OP* -Perl_newPMOP(pTHXo_ I32 type, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags); -} - -#undef Perl_newPVOP -OP* -Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv) -{ - return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv); -} - -#undef Perl_newRV -SV* -Perl_newRV(pTHXo_ SV* pref) -{ - return ((CPerlObj*)pPerl)->Perl_newRV(pref); -} - -#undef Perl_newRV_noinc -SV* -Perl_newRV_noinc(pTHXo_ SV *sv) -{ - return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv); -} - -#undef Perl_newSV -SV* -Perl_newSV(pTHXo_ STRLEN len) -{ - return ((CPerlObj*)pPerl)->Perl_newSV(len); -} - -#undef Perl_newSVREF -OP* -Perl_newSVREF(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_newSVREF(o); -} - -#undef Perl_newSVOP -OP* -Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv); -} - -#undef Perl_newSViv -SV* -Perl_newSViv(pTHXo_ IV i) -{ - return ((CPerlObj*)pPerl)->Perl_newSViv(i); -} - -#undef Perl_newSVnv -SV* -Perl_newSVnv(pTHXo_ NV n) -{ - return ((CPerlObj*)pPerl)->Perl_newSVnv(n); -} - -#undef Perl_newSVpv -SV* -Perl_newSVpv(pTHXo_ const char* s, STRLEN len) -{ - return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len); -} - -#undef Perl_newSVpvn -SV* -Perl_newSVpvn(pTHXo_ const char* s, STRLEN len) -{ - return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len); -} - -#undef Perl_newSVpvf -SV* -Perl_newSVpvf(pTHXo_ const char* pat) -{ - SV* retval; - va_list args; - va_start(args, pat); - retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args); - va_end(args); - return retval; - -} - -#undef Perl_vnewSVpvf -SV* -Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args) -{ - return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args); -} - -#undef Perl_newSVrv -SV* -Perl_newSVrv(pTHXo_ SV* rv, const char* classname) -{ - return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname); -} - -#undef Perl_newSVsv -SV* -Perl_newSVsv(pTHXo_ SV* old) -{ - return ((CPerlObj*)pPerl)->Perl_newSVsv(old); -} - -#undef Perl_newUNOP -OP* -Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first) -{ - return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first); -} - -#undef Perl_newWHILEOP -OP* -Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont) -{ - return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont); -} - -#undef Perl_new_stackinfo -PERL_SI* -Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems) -{ - return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems); -} - -#undef Perl_nextargv -PerlIO* -Perl_nextargv(pTHXo_ GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_nextargv(gv); -} - -#undef Perl_ninstr -char* -Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) -{ - return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend); -} - -#undef Perl_oopsCV -OP* -Perl_oopsCV(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_oopsCV(o); -} - -#undef Perl_op_free -void -Perl_op_free(pTHXo_ OP* arg) -{ - ((CPerlObj*)pPerl)->Perl_op_free(arg); -} - -#undef Perl_package -void -Perl_package(pTHXo_ OP* o) -{ - ((CPerlObj*)pPerl)->Perl_package(o); -} - -#undef Perl_pad_alloc -PADOFFSET -Perl_pad_alloc(pTHXo_ I32 optype, U32 tmptype) -{ - return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype); -} - -#undef Perl_pad_allocmy -PADOFFSET -Perl_pad_allocmy(pTHXo_ char* name) -{ - return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name); -} - -#undef Perl_pad_findmy -PADOFFSET -Perl_pad_findmy(pTHXo_ char* name) -{ - return ((CPerlObj*)pPerl)->Perl_pad_findmy(name); -} - -#undef Perl_oopsAV -OP* -Perl_oopsAV(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_oopsAV(o); -} - -#undef Perl_oopsHV -OP* -Perl_oopsHV(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_oopsHV(o); -} - -#undef Perl_pad_leavemy -void -Perl_pad_leavemy(pTHXo_ I32 fill) -{ - ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill); -} - -#undef Perl_pad_sv -SV* -Perl_pad_sv(pTHXo_ PADOFFSET po) -{ - return ((CPerlObj*)pPerl)->Perl_pad_sv(po); -} - -#undef Perl_pad_free -void -Perl_pad_free(pTHXo_ PADOFFSET po) -{ - ((CPerlObj*)pPerl)->Perl_pad_free(po); -} - -#undef Perl_pad_reset -void -Perl_pad_reset(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_pad_reset(); -} - -#undef Perl_pad_swipe -void -Perl_pad_swipe(pTHXo_ PADOFFSET po) -{ - ((CPerlObj*)pPerl)->Perl_pad_swipe(po); -} - -#undef Perl_peep -void -Perl_peep(pTHXo_ OP* o) -{ - ((CPerlObj*)pPerl)->Perl_peep(o); -} -#if defined(PERL_OBJECT) -#else - -#undef perl_alloc -PerlInterpreter* -perl_alloc() -{ - dTHXo; - return ((CPerlObj*)pPerl)->perl_alloc(); -} -#if defined(USE_THREADS) - -#undef Perl_new_struct_thread -struct perl_thread* -Perl_new_struct_thread(pTHXo_ struct perl_thread *t) -{ - return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t); -} -#endif -#endif - -#undef Perl_call_atexit -void -Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr) -{ - ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr); -} - -#undef Perl_call_argv -I32 -Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv) -{ - return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv); -} - -#undef Perl_call_method -I32 -Perl_call_method(pTHXo_ const char* methname, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags); -} - -#undef Perl_call_pv -I32 -Perl_call_pv(pTHXo_ const char* sub_name, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags); -} - -#undef Perl_call_sv -I32 -Perl_call_sv(pTHXo_ SV* sv, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags); -} - -#undef Perl_eval_pv -SV* -Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error) -{ - return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error); -} - -#undef Perl_eval_sv -I32 -Perl_eval_sv(pTHXo_ SV* sv, I32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags); -} - -#undef Perl_get_sv -SV* -Perl_get_sv(pTHXo_ const char* name, I32 create) -{ - return ((CPerlObj*)pPerl)->Perl_get_sv(name, create); -} - -#undef Perl_get_av -AV* -Perl_get_av(pTHXo_ const char* name, I32 create) -{ - return ((CPerlObj*)pPerl)->Perl_get_av(name, create); -} - -#undef Perl_get_hv -HV* -Perl_get_hv(pTHXo_ const char* name, I32 create) -{ - return ((CPerlObj*)pPerl)->Perl_get_hv(name, create); -} - -#undef Perl_get_cv -CV* -Perl_get_cv(pTHXo_ const char* name, I32 create) -{ - return ((CPerlObj*)pPerl)->Perl_get_cv(name, create); -} - -#undef Perl_init_i18nl10n -int -Perl_init_i18nl10n(pTHXo_ int printwarn) -{ - return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn); -} - -#undef Perl_init_i18nl14n -int -Perl_init_i18nl14n(pTHXo_ int printwarn) -{ - return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn); -} - -#undef Perl_new_collate -void -Perl_new_collate(pTHXo_ const char* newcoll) -{ - ((CPerlObj*)pPerl)->Perl_new_collate(newcoll); -} - -#undef Perl_new_ctype -void -Perl_new_ctype(pTHXo_ const char* newctype) -{ - ((CPerlObj*)pPerl)->Perl_new_ctype(newctype); -} - -#undef Perl_new_numeric -void -Perl_new_numeric(pTHXo_ const char* newcoll) -{ - ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll); -} - -#undef Perl_set_numeric_local -void -Perl_set_numeric_local(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_set_numeric_local(); -} - -#undef Perl_set_numeric_radix -void -Perl_set_numeric_radix(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_set_numeric_radix(); -} - -#undef Perl_set_numeric_standard -void -Perl_set_numeric_standard(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_set_numeric_standard(); -} - -#undef Perl_require_pv -void -Perl_require_pv(pTHXo_ const char* pv) -{ - ((CPerlObj*)pPerl)->Perl_require_pv(pv); -} - -#undef Perl_pidgone -void -Perl_pidgone(pTHXo_ Pid_t pid, int status) -{ - ((CPerlObj*)pPerl)->Perl_pidgone(pid, status); -} - -#undef Perl_pmflag -void -Perl_pmflag(pTHXo_ U16* pmfl, int ch) -{ - ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch); -} - -#undef Perl_pmruntime -OP* -Perl_pmruntime(pTHXo_ OP* pm, OP* expr, OP* repl) -{ - return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl); -} - -#undef Perl_pmtrans -OP* -Perl_pmtrans(pTHXo_ OP* o, OP* expr, OP* repl) -{ - return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl); -} - -#undef Perl_pop_return -OP* -Perl_pop_return(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pop_return(); -} - -#undef Perl_pop_scope -void -Perl_pop_scope(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_pop_scope(); -} - -#undef Perl_prepend_elem -OP* -Perl_prepend_elem(pTHXo_ I32 optype, OP* head, OP* tail) -{ - return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail); -} - -#undef Perl_push_return -void -Perl_push_return(pTHXo_ OP* o) -{ - ((CPerlObj*)pPerl)->Perl_push_return(o); -} - -#undef Perl_push_scope -void -Perl_push_scope(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_push_scope(); -} - -#undef Perl_ref -OP* -Perl_ref(pTHXo_ OP* o, I32 type) -{ - return ((CPerlObj*)pPerl)->Perl_ref(o, type); -} - -#undef Perl_refkids -OP* -Perl_refkids(pTHXo_ OP* o, I32 type) -{ - return ((CPerlObj*)pPerl)->Perl_refkids(o, type); -} - -#undef Perl_regdump -void -Perl_regdump(pTHXo_ regexp* r) -{ - ((CPerlObj*)pPerl)->Perl_regdump(r); -} - -#undef Perl_pregexec -I32 -Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) -{ - return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave); -} - -#undef Perl_pregfree -void -Perl_pregfree(pTHXo_ struct regexp* r) -{ - ((CPerlObj*)pPerl)->Perl_pregfree(r); -} - -#undef Perl_pregcomp -regexp* -Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm) -{ - return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm); -} - -#undef Perl_re_intuit_start -char* -Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data) -{ - return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data); -} - -#undef Perl_re_intuit_string -SV* -Perl_re_intuit_string(pTHXo_ regexp* prog) -{ - return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog); -} - -#undef Perl_regexec_flags -I32 -Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags); -} - -#undef Perl_regnext -regnode* -Perl_regnext(pTHXo_ regnode* p) -{ - return ((CPerlObj*)pPerl)->Perl_regnext(p); -} - -#undef Perl_regprop -void -Perl_regprop(pTHXo_ SV* sv, regnode* o) -{ - ((CPerlObj*)pPerl)->Perl_regprop(sv, o); -} - -#undef Perl_repeatcpy -void -Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count) -{ - ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count); -} - -#undef Perl_rninstr -char* -Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) -{ - return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend); -} - -#undef Perl_rsignal -Sighandler_t -Perl_rsignal(pTHXo_ int i, Sighandler_t t) -{ - return ((CPerlObj*)pPerl)->Perl_rsignal(i, t); -} - -#undef Perl_rsignal_restore -int -Perl_rsignal_restore(pTHXo_ int i, Sigsave_t* t) -{ - return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t); -} - -#undef Perl_rsignal_save -int -Perl_rsignal_save(pTHXo_ int i, Sighandler_t t1, Sigsave_t* t2) -{ - return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2); -} - -#undef Perl_rsignal_state -Sighandler_t -Perl_rsignal_state(pTHXo_ int i) -{ - return ((CPerlObj*)pPerl)->Perl_rsignal_state(i); -} - -#undef Perl_rxres_free -void -Perl_rxres_free(pTHXo_ void** rsp) -{ - ((CPerlObj*)pPerl)->Perl_rxres_free(rsp); -} - -#undef Perl_rxres_restore -void -Perl_rxres_restore(pTHXo_ void** rsp, REGEXP* prx) -{ - ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx); -} - -#undef Perl_rxres_save -void -Perl_rxres_save(pTHXo_ void** rsp, REGEXP* prx) -{ - ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx); -} -#if !defined(HAS_RENAME) - -#undef Perl_same_dirent -I32 -Perl_same_dirent(pTHXo_ char* a, char* b) -{ - return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b); -} -#endif - -#undef Perl_savepv -char* -Perl_savepv(pTHXo_ const char* sv) -{ - return ((CPerlObj*)pPerl)->Perl_savepv(sv); -} - -#undef Perl_savepvn -char* -Perl_savepvn(pTHXo_ const char* sv, I32 len) -{ - return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len); -} - -#undef Perl_savestack_grow -void -Perl_savestack_grow(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_savestack_grow(); -} - -#undef Perl_save_aelem -void -Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr) -{ - ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr); -} - -#undef Perl_save_alloc -I32 -Perl_save_alloc(pTHXo_ I32 size, I32 pad) -{ - return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad); -} - -#undef Perl_save_aptr -void -Perl_save_aptr(pTHXo_ AV** aptr) -{ - ((CPerlObj*)pPerl)->Perl_save_aptr(aptr); -} - -#undef Perl_save_ary -AV* -Perl_save_ary(pTHXo_ GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_save_ary(gv); -} - -#undef Perl_save_clearsv -void -Perl_save_clearsv(pTHXo_ SV** svp) -{ - ((CPerlObj*)pPerl)->Perl_save_clearsv(svp); -} - -#undef Perl_save_delete -void -Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen) -{ - ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen); -} - -#undef Perl_save_destructor -void -Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_t f, void* p) -{ - ((CPerlObj*)pPerl)->Perl_save_destructor(f, p); -} - -#undef Perl_save_freesv -void -Perl_save_freesv(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_save_freesv(sv); -} - -#undef Perl_save_freeop -void -Perl_save_freeop(pTHXo_ OP* o) -{ - ((CPerlObj*)pPerl)->Perl_save_freeop(o); -} - -#undef Perl_save_freepv -void -Perl_save_freepv(pTHXo_ char* pv) -{ - ((CPerlObj*)pPerl)->Perl_save_freepv(pv); -} - -#undef Perl_save_generic_svref -void -Perl_save_generic_svref(pTHXo_ SV** sptr) -{ - ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr); -} - -#undef Perl_save_gp -void -Perl_save_gp(pTHXo_ GV* gv, I32 empty) -{ - ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty); -} - -#undef Perl_save_hash -HV* -Perl_save_hash(pTHXo_ GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_save_hash(gv); -} - -#undef Perl_save_helem -void -Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr) -{ - ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr); -} - -#undef Perl_save_hints -void -Perl_save_hints(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_save_hints(); -} - -#undef Perl_save_hptr -void -Perl_save_hptr(pTHXo_ HV** hptr) -{ - ((CPerlObj*)pPerl)->Perl_save_hptr(hptr); -} - -#undef Perl_save_I16 -void -Perl_save_I16(pTHXo_ I16* intp) -{ - ((CPerlObj*)pPerl)->Perl_save_I16(intp); -} - -#undef Perl_save_I32 -void -Perl_save_I32(pTHXo_ I32* intp) -{ - ((CPerlObj*)pPerl)->Perl_save_I32(intp); -} - -#undef Perl_save_int -void -Perl_save_int(pTHXo_ int* intp) -{ - ((CPerlObj*)pPerl)->Perl_save_int(intp); -} - -#undef Perl_save_item -void -Perl_save_item(pTHXo_ SV* item) -{ - ((CPerlObj*)pPerl)->Perl_save_item(item); -} - -#undef Perl_save_iv -void -Perl_save_iv(pTHXo_ IV* iv) -{ - ((CPerlObj*)pPerl)->Perl_save_iv(iv); -} - -#undef Perl_save_list -void -Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg) -{ - ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg); -} - -#undef Perl_save_long -void -Perl_save_long(pTHXo_ long* longp) -{ - ((CPerlObj*)pPerl)->Perl_save_long(longp); -} - -#undef Perl_save_nogv -void -Perl_save_nogv(pTHXo_ GV* gv) -{ - ((CPerlObj*)pPerl)->Perl_save_nogv(gv); -} - -#undef Perl_save_op -void -Perl_save_op(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_save_op(); -} - -#undef Perl_save_scalar -SV* -Perl_save_scalar(pTHXo_ GV* gv) -{ - return ((CPerlObj*)pPerl)->Perl_save_scalar(gv); -} - -#undef Perl_save_pptr -void -Perl_save_pptr(pTHXo_ char** pptr) -{ - ((CPerlObj*)pPerl)->Perl_save_pptr(pptr); -} - -#undef Perl_save_re_context -void -Perl_save_re_context(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_save_re_context(); -} - -#undef Perl_save_sptr -void -Perl_save_sptr(pTHXo_ SV** sptr) -{ - ((CPerlObj*)pPerl)->Perl_save_sptr(sptr); -} - -#undef Perl_save_svref -SV* -Perl_save_svref(pTHXo_ SV** sptr) -{ - return ((CPerlObj*)pPerl)->Perl_save_svref(sptr); -} - -#undef Perl_save_threadsv -SV** -Perl_save_threadsv(pTHXo_ PADOFFSET i) -{ - return ((CPerlObj*)pPerl)->Perl_save_threadsv(i); -} - -#undef Perl_sawparens -OP* -Perl_sawparens(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_sawparens(o); -} - -#undef Perl_scalar -OP* -Perl_scalar(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_scalar(o); -} - -#undef Perl_scalarkids -OP* -Perl_scalarkids(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_scalarkids(o); -} - -#undef Perl_scalarseq -OP* -Perl_scalarseq(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_scalarseq(o); -} - -#undef Perl_scalarvoid -OP* -Perl_scalarvoid(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_scalarvoid(o); -} - -#undef Perl_scan_bin -NV -Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen) -{ - return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen); -} - -#undef Perl_scan_hex -NV -Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen) -{ - return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen); -} - -#undef Perl_scan_num -char* -Perl_scan_num(pTHXo_ char* s) -{ - return ((CPerlObj*)pPerl)->Perl_scan_num(s); -} - -#undef Perl_scan_oct -NV -Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen) -{ - return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen); -} - -#undef Perl_scope -OP* -Perl_scope(pTHXo_ OP* o) -{ - return ((CPerlObj*)pPerl)->Perl_scope(o); -} - -#undef Perl_screaminstr -char* -Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last) -{ - return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last); -} -#if !defined(VMS) - -#undef Perl_setenv_getix -I32 -Perl_setenv_getix(pTHXo_ char* nam) -{ - return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam); -} -#endif - -#undef Perl_setdefout -void -Perl_setdefout(pTHXo_ GV* gv) -{ - ((CPerlObj*)pPerl)->Perl_setdefout(gv); -} - -#undef Perl_sharepvn -char* -Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash) -{ - return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash); -} - -#undef Perl_share_hek -HEK* -Perl_share_hek(pTHXo_ const char* sv, I32 len, U32 hash) -{ - return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash); -} - -#undef Perl_sighandler -Signal_t -Perl_sighandler(int sig) -{ - dTHXo; - ((CPerlObj*)pPerl)->Perl_sighandler(sig); -} - -#undef Perl_stack_grow -SV** -Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n) -{ - return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n); -} - -#undef Perl_start_subparse -I32 -Perl_start_subparse(pTHXo_ I32 is_format, U32 flags) -{ - return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags); -} - -#undef Perl_sub_crush_depth -void -Perl_sub_crush_depth(pTHXo_ CV* cv) -{ - ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv); -} - -#undef Perl_sv_2bool -bool -Perl_sv_2bool(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv); -} - -#undef Perl_sv_2cv -CV* -Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref); -} - -#undef Perl_sv_2io -IO* -Perl_sv_2io(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2io(sv); -} - -#undef Perl_sv_2iv -IV -Perl_sv_2iv(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv); -} - -#undef Perl_sv_2mortal -SV* -Perl_sv_2mortal(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv); -} - -#undef Perl_sv_2nv -NV -Perl_sv_2nv(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv); -} - -#undef Perl_sv_2pv -char* -Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp); -} - -#undef Perl_sv_2uv -UV -Perl_sv_2uv(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv); -} - -#undef Perl_sv_iv -IV -Perl_sv_iv(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_iv(sv); -} - -#undef Perl_sv_uv -UV -Perl_sv_uv(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_uv(sv); -} - -#undef Perl_sv_nv -NV -Perl_sv_nv(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_nv(sv); -} - -#undef Perl_sv_pvn -char* -Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len) -{ - return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len); -} - -#undef Perl_sv_true -I32 -Perl_sv_true(pTHXo_ SV *sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_true(sv); -} - -#undef Perl_sv_add_arena -void -Perl_sv_add_arena(pTHXo_ char* ptr, U32 size, U32 flags) -{ - ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags); -} - -#undef Perl_sv_backoff -int -Perl_sv_backoff(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv); -} - -#undef Perl_sv_bless -SV* -Perl_sv_bless(pTHXo_ SV* sv, HV* stash) -{ - return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash); -} - -#undef Perl_sv_catpvf -void -Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args); - va_end(args); -} - -#undef Perl_sv_vcatpvf -void -Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args) -{ - ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args); -} - -#undef Perl_sv_catpv -void -Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr) -{ - ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr); -} - -#undef Perl_sv_catpvn -void -Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) -{ - ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len); -} - -#undef Perl_sv_catsv -void -Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv) -{ - ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv); -} - -#undef Perl_sv_chop -void -Perl_sv_chop(pTHXo_ SV* sv, char* ptr) -{ - ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr); -} - -#undef Perl_sv_clean_all -void -Perl_sv_clean_all(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_sv_clean_all(); -} - -#undef Perl_sv_clean_objs -void -Perl_sv_clean_objs(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_sv_clean_objs(); -} - -#undef Perl_sv_clear -void -Perl_sv_clear(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_clear(sv); -} - -#undef Perl_sv_cmp -I32 -Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2) -{ - return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2); -} - -#undef Perl_sv_cmp_locale -I32 -Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2) -{ - return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2); -} -#if defined(USE_LOCALE_COLLATE) - -#undef Perl_sv_collxfrm -char* -Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp) -{ - return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp); -} -#endif - -#undef Perl_sv_compile_2op -OP* -Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp) -{ - return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp); -} - -#undef Perl_sv_dec -void -Perl_sv_dec(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_dec(sv); -} - -#undef Perl_sv_dump -void -Perl_sv_dump(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_dump(sv); -} - -#undef Perl_sv_derived_from -bool -Perl_sv_derived_from(pTHXo_ SV* sv, const char* name) -{ - return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name); -} - -#undef Perl_sv_eq -I32 -Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2) -{ - return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2); -} - -#undef Perl_sv_free -void -Perl_sv_free(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_free(sv); -} - -#undef Perl_sv_free_arenas -void -Perl_sv_free_arenas(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_sv_free_arenas(); -} - -#undef Perl_sv_gets -char* -Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append) -{ - return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append); -} - -#undef Perl_sv_grow -char* -Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen) -{ - return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen); -} - -#undef Perl_sv_inc -void -Perl_sv_inc(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_inc(sv); -} - -#undef Perl_sv_insert -void -Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen) -{ - ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen); -} - -#undef Perl_sv_isa -int -Perl_sv_isa(pTHXo_ SV* sv, const char* name) -{ - return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name); -} - -#undef Perl_sv_isobject -int -Perl_sv_isobject(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv); -} - -#undef Perl_sv_len -STRLEN -Perl_sv_len(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_len(sv); -} - -#undef Perl_sv_len_utf8 -STRLEN -Perl_sv_len_utf8(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv); -} - -#undef Perl_sv_magic -void -Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen) -{ - ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen); -} - -#undef Perl_sv_mortalcopy -SV* -Perl_sv_mortalcopy(pTHXo_ SV* oldsv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv); -} - -#undef Perl_sv_newmortal -SV* -Perl_sv_newmortal(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_sv_newmortal(); -} - -#undef Perl_sv_newref -SV* -Perl_sv_newref(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_newref(sv); -} - -#undef Perl_sv_peek -char* -Perl_sv_peek(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_peek(sv); -} - -#undef Perl_sv_pos_u2b -void -Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp) -{ - ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp); -} - -#undef Perl_sv_pos_b2u -void -Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp) -{ - ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp); -} - -#undef Perl_sv_pvn_force -char* -Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp) -{ - return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp); -} - -#undef Perl_sv_reftype -char* -Perl_sv_reftype(pTHXo_ SV* sv, int ob) -{ - return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob); -} - -#undef Perl_sv_replace -void -Perl_sv_replace(pTHXo_ SV* sv, SV* nsv) -{ - ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv); -} - -#undef Perl_sv_report_used -void -Perl_sv_report_used(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_sv_report_used(); -} - -#undef Perl_sv_reset -void -Perl_sv_reset(pTHXo_ char* s, HV* stash) -{ - ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash); -} - -#undef Perl_sv_setpvf -void -Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args); - va_end(args); -} - -#undef Perl_sv_vsetpvf -void -Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args) -{ - ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args); -} - -#undef Perl_sv_setiv -void -Perl_sv_setiv(pTHXo_ SV* sv, IV num) -{ - ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num); -} - -#undef Perl_sv_setpviv -void -Perl_sv_setpviv(pTHXo_ SV* sv, IV num) -{ - ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num); -} - -#undef Perl_sv_setuv -void -Perl_sv_setuv(pTHXo_ SV* sv, UV num) -{ - ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num); -} - -#undef Perl_sv_setnv -void -Perl_sv_setnv(pTHXo_ SV* sv, NV num) -{ - ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num); -} - -#undef Perl_sv_setref_iv -SV* -Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv); -} - -#undef Perl_sv_setref_nv -SV* -Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv); -} - -#undef Perl_sv_setref_pv -SV* -Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv); -} - -#undef Perl_sv_setref_pvn -SV* -Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n) -{ - return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n); -} - -#undef Perl_sv_setpv -void -Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr) -{ - ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr); -} - -#undef Perl_sv_setpvn -void -Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) -{ - ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len); -} - -#undef Perl_sv_setsv -void -Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv) -{ - ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv); -} - -#undef Perl_sv_taint -void -Perl_sv_taint(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_taint(sv); -} - -#undef Perl_sv_tainted -bool -Perl_sv_tainted(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv); -} - -#undef Perl_sv_unmagic -int -Perl_sv_unmagic(pTHXo_ SV* sv, int type) -{ - return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type); -} - -#undef Perl_sv_unref -void -Perl_sv_unref(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_unref(sv); -} - -#undef Perl_sv_untaint -void -Perl_sv_untaint(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_untaint(sv); -} - -#undef Perl_sv_upgrade -bool -Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt) -{ - return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt); -} - -#undef Perl_sv_usepvn -void -Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len) -{ - ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len); -} - -#undef Perl_sv_vcatpvfn -void -Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale) -{ - ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, used_locale); -} - -#undef Perl_sv_vsetpvfn -void -Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale) -{ - ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, used_locale); -} - -#undef Perl_swash_init -SV* -Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none) -{ - return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none); -} - -#undef Perl_swash_fetch -UV -Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr) -{ - return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr); -} - -#undef Perl_taint_env -void -Perl_taint_env(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_taint_env(); -} - -#undef Perl_taint_proper -void -Perl_taint_proper(pTHXo_ const char* f, char* s) -{ - ((CPerlObj*)pPerl)->Perl_taint_proper(f, s); -} - -#undef Perl_to_utf8_lower -UV -Perl_to_utf8_lower(pTHXo_ U8 *p) -{ - return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p); -} - -#undef Perl_to_utf8_upper -UV -Perl_to_utf8_upper(pTHXo_ U8 *p) -{ - return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p); -} - -#undef Perl_to_utf8_title -UV -Perl_to_utf8_title(pTHXo_ U8 *p) -{ - return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p); -} -#if defined(UNLINK_ALL_VERSIONS) - -#undef Perl_unlnk -I32 -Perl_unlnk(pTHXo_ char* f) -{ - return ((CPerlObj*)pPerl)->Perl_unlnk(f); -} -#endif -#if defined(USE_THREADS) - -#undef Perl_unlock_condpair -void -Perl_unlock_condpair(pTHXo_ void* svv) -{ - ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv); -} -#endif - -#undef Perl_unsharepvn -void -Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash) -{ - ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash); -} - -#undef Perl_unshare_hek -void -Perl_unshare_hek(pTHXo_ HEK* hek) -{ - ((CPerlObj*)pPerl)->Perl_unshare_hek(hek); -} - -#undef Perl_utilize -void -Perl_utilize(pTHXo_ int aver, I32 floor, OP* version, OP* id, OP* arg) -{ - ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg); -} - -#undef Perl_utf16_to_utf8 -U8* -Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen) -{ - return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen); -} - -#undef Perl_utf16_to_utf8_reversed -U8* -Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen) -{ - return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen); -} - -#undef Perl_utf8_distance -I32 -Perl_utf8_distance(pTHXo_ U8 *a, U8 *b) -{ - return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b); -} - -#undef Perl_utf8_hop -U8* -Perl_utf8_hop(pTHXo_ U8 *s, I32 off) -{ - return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off); -} - -#undef Perl_utf8_to_uv -UV -Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen) -{ - return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen); -} - -#undef Perl_uv_to_utf8 -U8* -Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv) -{ - return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv); -} - -#undef Perl_vivify_defelem -void -Perl_vivify_defelem(pTHXo_ SV* sv) -{ - ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv); -} - -#undef Perl_vivify_ref -void -Perl_vivify_ref(pTHXo_ SV* sv, U32 to_what) -{ - ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what); -} - -#undef Perl_wait4pid -I32 -Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags) -{ - return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags); -} - -#undef Perl_warn -void -Perl_warn(pTHXo_ const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args); - va_end(args); -} - -#undef Perl_vwarn -void -Perl_vwarn(pTHXo_ const char* pat, va_list* args) -{ - ((CPerlObj*)pPerl)->Perl_vwarn(pat, args); -} - -#undef Perl_warner -void -Perl_warner(pTHXo_ U32 err, const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args); - va_end(args); -} - -#undef Perl_vwarner -void -Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args) -{ - ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args); -} - -#undef Perl_watch -void -Perl_watch(pTHXo_ char** addr) -{ - ((CPerlObj*)pPerl)->Perl_watch(addr); -} - -#undef Perl_whichsig -I32 -Perl_whichsig(pTHXo_ char* sig) -{ - return ((CPerlObj*)pPerl)->Perl_whichsig(sig); -} - -#undef Perl_yyerror -int -Perl_yyerror(pTHXo_ char* s) -{ - return ((CPerlObj*)pPerl)->Perl_yyerror(s); -} -#if defined(USE_PURE_BISON) - -#undef Perl_yylex -int -Perl_yylex(pTHXo_ YYSTYPE *lvalp, int *lcharp) -{ - return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp); -} -#else - -#undef Perl_yylex -int -Perl_yylex(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_yylex(); -} -#endif - -#undef Perl_yyparse -int -Perl_yyparse(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_yyparse(); -} - -#undef Perl_yywarn -int -Perl_yywarn(pTHXo_ char* s) -{ - return ((CPerlObj*)pPerl)->Perl_yywarn(s); -} -#if defined(MYMALLOC) - -#undef Perl_dump_mstats -void -Perl_dump_mstats(pTHXo_ char* s) -{ - ((CPerlObj*)pPerl)->Perl_dump_mstats(s); -} - -#undef Perl_malloc -Malloc_t -Perl_malloc(MEM_SIZE nbytes) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_malloc(nbytes); -} - -#undef Perl_calloc -Malloc_t -Perl_calloc(MEM_SIZE elements, MEM_SIZE size) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_calloc(elements, size); -} - -#undef Perl_realloc -Malloc_t -Perl_realloc(Malloc_t where, MEM_SIZE nbytes) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_realloc(where, nbytes); -} - -#undef Perl_mfree -Free_t -Perl_mfree(Malloc_t where) -{ - dTHXo; - ((CPerlObj*)pPerl)->Perl_mfree(where); -} -#endif - -#undef Perl_safesysmalloc -Malloc_t -Perl_safesysmalloc(MEM_SIZE nbytes) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes); -} - -#undef Perl_safesyscalloc -Malloc_t -Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size); -} - -#undef Perl_safesysrealloc -Malloc_t -Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes); -} - -#undef Perl_safesysfree -Free_t -Perl_safesysfree(Malloc_t where) -{ - dTHXo; - ((CPerlObj*)pPerl)->Perl_safesysfree(where); -} -#if defined(LEAKTEST) - -#undef Perl_safexmalloc -Malloc_t -Perl_safexmalloc(I32 x, MEM_SIZE size) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size); -} - -#undef Perl_safexcalloc -Malloc_t -Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size); -} - -#undef Perl_safexrealloc -Malloc_t -Perl_safexrealloc(Malloc_t where, MEM_SIZE size) -{ - dTHXo; - return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size); -} - -#undef Perl_safexfree -void -Perl_safexfree(Malloc_t where) -{ - dTHXo; - ((CPerlObj*)pPerl)->Perl_safexfree(where); -} -#endif -#if defined(PERL_GLOBAL_STRUCT) - -#undef Perl_GetVars -struct perl_vars * -Perl_GetVars(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_GetVars(); -} -#endif - -#undef Perl_runops_standard -int -Perl_runops_standard(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_runops_standard(); -} - -#undef Perl_runops_debug -int -Perl_runops_debug(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_runops_debug(); -} - -#undef Perl_sv_catpvf_mg -void -Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args); - va_end(args); -} - -#undef Perl_sv_vcatpvf_mg -void -Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) -{ - ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args); -} - -#undef Perl_sv_catpv_mg -void -Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr) -{ - ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr); -} - -#undef Perl_sv_catpvn_mg -void -Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) -{ - ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len); -} - -#undef Perl_sv_catsv_mg -void -Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr) -{ - ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr); -} - -#undef Perl_sv_setpvf_mg -void -Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args); - va_end(args); -} - -#undef Perl_sv_vsetpvf_mg -void -Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) -{ - ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args); -} - -#undef Perl_sv_setiv_mg -void -Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i) -{ - ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i); -} - -#undef Perl_sv_setpviv_mg -void -Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv) -{ - ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv); -} - -#undef Perl_sv_setuv_mg -void -Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u) -{ - ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u); -} - -#undef Perl_sv_setnv_mg -void -Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num) -{ - ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num); -} - -#undef Perl_sv_setpv_mg -void -Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr) -{ - ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr); -} - -#undef Perl_sv_setpvn_mg -void -Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) -{ - ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len); -} - -#undef Perl_sv_setsv_mg -void -Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr) -{ - ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr); -} - -#undef Perl_sv_usepvn_mg -void -Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len) -{ - ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len); -} - -#undef Perl_get_vtbl -MGVTBL* -Perl_get_vtbl(pTHXo_ int vtbl_id) -{ - return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id); -} - -#undef Perl_pv_display -char* -Perl_pv_display(pTHXo_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim) -{ - return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim); -} - -#undef Perl_dump_indent -void -Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat) -{ - va_list args; - va_start(args, pat); - ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args); - va_end(args); -} - -#undef Perl_dump_vindent -void -Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args) -{ - ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args); -} - -#undef Perl_do_gv_dump -void -Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) -{ - ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv); -} - -#undef Perl_do_gvgv_dump -void -Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) -{ - ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv); -} - -#undef Perl_do_hv_dump -void -Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv) -{ - ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv); -} - -#undef Perl_do_magic_dump -void -Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) -{ - ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim); -} - -#undef Perl_do_op_dump -void -Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o) -{ - ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o); -} - -#undef Perl_do_pmop_dump -void -Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm) -{ - ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm); -} - -#undef Perl_do_sv_dump -void -Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) -{ - ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim); -} - -#undef Perl_magic_dump -void -Perl_magic_dump(pTHXo_ MAGIC *mg) -{ - ((CPerlObj*)pPerl)->Perl_magic_dump(mg); -} - -#undef Perl_default_protect -void* -Perl_default_protect(pTHXo_ int *excpt, protect_body_t body) -{ - void* retval; - va_list args; - va_start(args, body); - retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(excpt, body, &args); - va_end(args); - return retval; - -} - -#undef Perl_vdefault_protect -void* -Perl_vdefault_protect(pTHXo_ int *excpt, protect_body_t body, va_list *args) -{ - return ((CPerlObj*)pPerl)->Perl_vdefault_protect(excpt, body, args); -} - -#undef Perl_reginitcolors -void -Perl_reginitcolors(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_reginitcolors(); -} - -#undef Perl_sv_2pv_nolen -char* -Perl_sv_2pv_nolen(pTHXo_ SV* sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv); -} - -#undef Perl_sv_pv -char* -Perl_sv_pv(pTHXo_ SV *sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_pv(sv); -} - -#undef Perl_sv_force_normal -void -Perl_sv_force_normal(pTHXo_ SV *sv) -{ - ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv); -} - -#undef Perl_tmps_grow -void -Perl_tmps_grow(pTHXo_ I32 n) -{ - ((CPerlObj*)pPerl)->Perl_tmps_grow(n); -} - -#undef Perl_sv_rvweaken -SV* -Perl_sv_rvweaken(pTHXo_ SV *sv) -{ - return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv); -} - -#undef Perl_magic_killbackrefs -int -Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg) -{ - return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg); -} - -#undef Perl_newANONATTRSUB -OP* -Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block) -{ - return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block); -} - -#undef Perl_newATTRSUB -CV* -Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) -{ - return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block); -} - -#undef Perl_newMYSUB -void -Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) -{ - ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block); -} - -#undef Perl_my_attrs -OP * -Perl_my_attrs(pTHXo_ OP *o, OP *attrs) -{ - return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs); -} - -#undef Perl_boot_core_xsutils -void -Perl_boot_core_xsutils(pTHXo) -{ - ((CPerlObj*)pPerl)->Perl_boot_core_xsutils(); -} -#if defined(PERL_OBJECT) -#endif -#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) -# if defined(PL_OP_SLAB_ALLOC) -# endif -#endif -#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) -# if defined(IAMSUID) -# endif -# if defined(USE_THREADS) -# endif -#endif -#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) -# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) -# endif -#endif -#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -# if defined(PURIFY) -# else -# endif -# if defined(DEBUGGING) -# endif -#endif -#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) -# if defined(CRIPPLED_CC) -# endif -# if defined(WIN32) -# endif -#endif -#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_XSUTILS_C) || defined(PERL_DECL_PROT) -#endif -#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) -# if defined(LEAKTEST) -# endif -#endif - -#undef Perl_ck_anoncode -OP * -Perl_ck_anoncode(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o); -} - -#undef Perl_ck_bitop -OP * -Perl_ck_bitop(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_bitop(o); -} - -#undef Perl_ck_concat -OP * -Perl_ck_concat(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_concat(o); -} - -#undef Perl_ck_defined -OP * -Perl_ck_defined(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_defined(o); -} - -#undef Perl_ck_delete -OP * -Perl_ck_delete(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_delete(o); -} - -#undef Perl_ck_eof -OP * -Perl_ck_eof(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_eof(o); -} - -#undef Perl_ck_eval -OP * -Perl_ck_eval(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_eval(o); -} - -#undef Perl_ck_exec -OP * -Perl_ck_exec(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_exec(o); -} - -#undef Perl_ck_exists -OP * -Perl_ck_exists(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_exists(o); -} - -#undef Perl_ck_ftst -OP * -Perl_ck_ftst(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_ftst(o); -} - -#undef Perl_ck_fun -OP * -Perl_ck_fun(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_fun(o); -} - -#undef Perl_ck_fun_locale -OP * -Perl_ck_fun_locale(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o); -} - -#undef Perl_ck_glob -OP * -Perl_ck_glob(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_glob(o); -} - -#undef Perl_ck_grep -OP * -Perl_ck_grep(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_grep(o); -} - -#undef Perl_ck_index -OP * -Perl_ck_index(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_index(o); -} - -#undef Perl_ck_lengthconst -OP * -Perl_ck_lengthconst(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o); -} - -#undef Perl_ck_lfun -OP * -Perl_ck_lfun(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_lfun(o); -} - -#undef Perl_ck_listiob -OP * -Perl_ck_listiob(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_listiob(o); -} - -#undef Perl_ck_match -OP * -Perl_ck_match(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_match(o); -} - -#undef Perl_ck_method -OP * -Perl_ck_method(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_method(o); -} - -#undef Perl_ck_null -OP * -Perl_ck_null(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_null(o); -} - -#undef Perl_ck_repeat -OP * -Perl_ck_repeat(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_repeat(o); -} - -#undef Perl_ck_require -OP * -Perl_ck_require(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_require(o); -} - -#undef Perl_ck_rfun -OP * -Perl_ck_rfun(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_rfun(o); -} - -#undef Perl_ck_rvconst -OP * -Perl_ck_rvconst(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o); -} - -#undef Perl_ck_sassign -OP * -Perl_ck_sassign(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_sassign(o); -} - -#undef Perl_ck_scmp -OP * -Perl_ck_scmp(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_scmp(o); -} - -#undef Perl_ck_select -OP * -Perl_ck_select(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_select(o); -} - -#undef Perl_ck_shift -OP * -Perl_ck_shift(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_shift(o); -} - -#undef Perl_ck_sort -OP * -Perl_ck_sort(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_sort(o); -} - -#undef Perl_ck_spair -OP * -Perl_ck_spair(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_spair(o); -} - -#undef Perl_ck_split -OP * -Perl_ck_split(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_split(o); -} - -#undef Perl_ck_subr -OP * -Perl_ck_subr(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_subr(o); -} - -#undef Perl_ck_svconst -OP * -Perl_ck_svconst(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_svconst(o); -} - -#undef Perl_ck_trunc -OP * -Perl_ck_trunc(pTHXo_ OP *o) -{ - return ((CPerlObj*)pPerl)->Perl_ck_trunc(o); -} - -#undef Perl_pp_aassign -OP * -Perl_pp_aassign(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_aassign(); -} - -#undef Perl_pp_abs -OP * -Perl_pp_abs(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_abs(); -} - -#undef Perl_pp_accept -OP * -Perl_pp_accept(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_accept(); -} - -#undef Perl_pp_add -OP * -Perl_pp_add(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_add(); -} - -#undef Perl_pp_aelem -OP * -Perl_pp_aelem(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_aelem(); -} - -#undef Perl_pp_aelemfast -OP * -Perl_pp_aelemfast(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_aelemfast(); -} - -#undef Perl_pp_alarm -OP * -Perl_pp_alarm(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_alarm(); -} - -#undef Perl_pp_and -OP * -Perl_pp_and(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_and(); -} - -#undef Perl_pp_andassign -OP * -Perl_pp_andassign(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_andassign(); -} - -#undef Perl_pp_anoncode -OP * -Perl_pp_anoncode(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_anoncode(); -} - -#undef Perl_pp_anonhash -OP * -Perl_pp_anonhash(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_anonhash(); -} - -#undef Perl_pp_anonlist -OP * -Perl_pp_anonlist(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_anonlist(); -} - -#undef Perl_pp_aslice -OP * -Perl_pp_aslice(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_aslice(); -} - -#undef Perl_pp_atan2 -OP * -Perl_pp_atan2(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_atan2(); -} - -#undef Perl_pp_av2arylen -OP * -Perl_pp_av2arylen(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_av2arylen(); -} - -#undef Perl_pp_backtick -OP * -Perl_pp_backtick(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_backtick(); -} - -#undef Perl_pp_bind -OP * -Perl_pp_bind(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_bind(); -} - -#undef Perl_pp_binmode -OP * -Perl_pp_binmode(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_binmode(); -} - -#undef Perl_pp_bit_and -OP * -Perl_pp_bit_and(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_bit_and(); -} - -#undef Perl_pp_bit_or -OP * -Perl_pp_bit_or(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_bit_or(); -} - -#undef Perl_pp_bit_xor -OP * -Perl_pp_bit_xor(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_bit_xor(); -} - -#undef Perl_pp_bless -OP * -Perl_pp_bless(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_bless(); -} - -#undef Perl_pp_caller -OP * -Perl_pp_caller(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_caller(); -} - -#undef Perl_pp_chdir -OP * -Perl_pp_chdir(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chdir(); -} - -#undef Perl_pp_chmod -OP * -Perl_pp_chmod(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chmod(); -} - -#undef Perl_pp_chomp -OP * -Perl_pp_chomp(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chomp(); -} - -#undef Perl_pp_chop -OP * -Perl_pp_chop(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chop(); -} - -#undef Perl_pp_chown -OP * -Perl_pp_chown(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chown(); -} - -#undef Perl_pp_chr -OP * -Perl_pp_chr(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chr(); -} - -#undef Perl_pp_chroot -OP * -Perl_pp_chroot(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_chroot(); -} - -#undef Perl_pp_close -OP * -Perl_pp_close(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_close(); -} - -#undef Perl_pp_closedir -OP * -Perl_pp_closedir(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_closedir(); -} - -#undef Perl_pp_complement -OP * -Perl_pp_complement(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_complement(); -} - -#undef Perl_pp_concat -OP * -Perl_pp_concat(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_concat(); -} - -#undef Perl_pp_cond_expr -OP * -Perl_pp_cond_expr(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_cond_expr(); -} - -#undef Perl_pp_connect -OP * -Perl_pp_connect(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_connect(); -} - -#undef Perl_pp_const -OP * -Perl_pp_const(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_const(); -} - -#undef Perl_pp_cos -OP * -Perl_pp_cos(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_cos(); -} - -#undef Perl_pp_crypt -OP * -Perl_pp_crypt(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_crypt(); -} - -#undef Perl_pp_dbmclose -OP * -Perl_pp_dbmclose(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_dbmclose(); -} - -#undef Perl_pp_dbmopen -OP * -Perl_pp_dbmopen(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_dbmopen(); -} - -#undef Perl_pp_dbstate -OP * -Perl_pp_dbstate(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_dbstate(); -} - -#undef Perl_pp_defined -OP * -Perl_pp_defined(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_defined(); -} - -#undef Perl_pp_delete -OP * -Perl_pp_delete(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_delete(); -} - -#undef Perl_pp_die -OP * -Perl_pp_die(pTHXo) +#undef Perl_newLOOPOP +OP* +Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block) { - return ((CPerlObj*)pPerl)->Perl_pp_die(); + return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block); } -#undef Perl_pp_divide -OP * -Perl_pp_divide(pTHXo) +#undef Perl_newNULLLIST +OP* +Perl_newNULLLIST(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_divide(); + return ((CPerlObj*)pPerl)->Perl_newNULLLIST(); } -#undef Perl_pp_dofile -OP * -Perl_pp_dofile(pTHXo) +#undef Perl_newOP +OP* +Perl_newOP(pTHXo_ I32 optype, I32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_dofile(); + return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags); } -#undef Perl_pp_dump -OP * -Perl_pp_dump(pTHXo) +#undef Perl_newPROG +void +Perl_newPROG(pTHXo_ OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_dump(); + ((CPerlObj*)pPerl)->Perl_newPROG(o); } -#undef Perl_pp_each -OP * -Perl_pp_each(pTHXo) +#undef Perl_newRANGE +OP* +Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right) { - return ((CPerlObj*)pPerl)->Perl_pp_each(); + return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right); } -#undef Perl_pp_egrent -OP * -Perl_pp_egrent(pTHXo) +#undef Perl_newSLICEOP +OP* +Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop) { - return ((CPerlObj*)pPerl)->Perl_pp_egrent(); + return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop); } -#undef Perl_pp_ehostent -OP * -Perl_pp_ehostent(pTHXo) +#undef Perl_newSTATEOP +OP* +Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_ehostent(); + return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o); } -#undef Perl_pp_enetent -OP * -Perl_pp_enetent(pTHXo) +#undef Perl_newSUB +CV* +Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block) { - return ((CPerlObj*)pPerl)->Perl_pp_enetent(); + return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block); } -#undef Perl_pp_enter -OP * -Perl_pp_enter(pTHXo) +#undef Perl_newXS +CV* +Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename) { - return ((CPerlObj*)pPerl)->Perl_pp_enter(); + return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename); } -#undef Perl_pp_entereval -OP * -Perl_pp_entereval(pTHXo) +#undef Perl_newAV +AV* +Perl_newAV(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_entereval(); + return ((CPerlObj*)pPerl)->Perl_newAV(); } -#undef Perl_pp_enteriter -OP * -Perl_pp_enteriter(pTHXo) +#undef Perl_newAVREF +OP* +Perl_newAVREF(pTHXo_ OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_enteriter(); + return ((CPerlObj*)pPerl)->Perl_newAVREF(o); } -#undef Perl_pp_enterloop -OP * -Perl_pp_enterloop(pTHXo) +#undef Perl_newBINOP +OP* +Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) { - return ((CPerlObj*)pPerl)->Perl_pp_enterloop(); + return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last); } -#undef Perl_pp_entersub -OP * -Perl_pp_entersub(pTHXo) +#undef Perl_newCVREF +OP* +Perl_newCVREF(pTHXo_ I32 flags, OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_entersub(); + return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o); } -#undef Perl_pp_entertry -OP * -Perl_pp_entertry(pTHXo) +#undef Perl_newGVOP +OP* +Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv) { - return ((CPerlObj*)pPerl)->Perl_pp_entertry(); + return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv); } -#undef Perl_pp_enterwrite -OP * -Perl_pp_enterwrite(pTHXo) +#undef Perl_newGVgen +GV* +Perl_newGVgen(pTHXo_ char* pack) { - return ((CPerlObj*)pPerl)->Perl_pp_enterwrite(); + return ((CPerlObj*)pPerl)->Perl_newGVgen(pack); } -#undef Perl_pp_eof -OP * -Perl_pp_eof(pTHXo) +#undef Perl_newGVREF +OP* +Perl_newGVREF(pTHXo_ I32 type, OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_eof(); + return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o); } -#undef Perl_pp_eprotoent -OP * -Perl_pp_eprotoent(pTHXo) +#undef Perl_newHVREF +OP* +Perl_newHVREF(pTHXo_ OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_eprotoent(); + return ((CPerlObj*)pPerl)->Perl_newHVREF(o); } -#undef Perl_pp_epwent -OP * -Perl_pp_epwent(pTHXo) +#undef Perl_newHV +HV* +Perl_newHV(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_epwent(); + return ((CPerlObj*)pPerl)->Perl_newHV(); } -#undef Perl_pp_eq -OP * -Perl_pp_eq(pTHXo) +#undef Perl_newHVhv +HV* +Perl_newHVhv(pTHXo_ HV* hv) { - return ((CPerlObj*)pPerl)->Perl_pp_eq(); + return ((CPerlObj*)pPerl)->Perl_newHVhv(hv); } -#undef Perl_pp_eservent -OP * -Perl_pp_eservent(pTHXo) +#undef Perl_newIO +IO* +Perl_newIO(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_eservent(); + return ((CPerlObj*)pPerl)->Perl_newIO(); } -#undef Perl_pp_exec -OP * -Perl_pp_exec(pTHXo) +#undef Perl_newLISTOP +OP* +Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) { - return ((CPerlObj*)pPerl)->Perl_pp_exec(); + return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last); } -#undef Perl_pp_exists -OP * -Perl_pp_exists(pTHXo) +#undef Perl_newPADOP +OP* +Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_exists(); + return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv); } -#undef Perl_pp_exit -OP * -Perl_pp_exit(pTHXo) +#undef Perl_newPMOP +OP* +Perl_newPMOP(pTHXo_ I32 type, I32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_exit(); + return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags); } -#undef Perl_pp_exp -OP * -Perl_pp_exp(pTHXo) +#undef Perl_newPVOP +OP* +Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv) { - return ((CPerlObj*)pPerl)->Perl_pp_exp(); + return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv); } -#undef Perl_pp_fcntl -OP * -Perl_pp_fcntl(pTHXo) +#undef Perl_newRV +SV* +Perl_newRV(pTHXo_ SV* pref) { - return ((CPerlObj*)pPerl)->Perl_pp_fcntl(); + return ((CPerlObj*)pPerl)->Perl_newRV(pref); } -#undef Perl_pp_fileno -OP * -Perl_pp_fileno(pTHXo) +#undef Perl_newRV_noinc +SV* +Perl_newRV_noinc(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_fileno(); + return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv); } -#undef Perl_pp_flip -OP * -Perl_pp_flip(pTHXo) +#undef Perl_newSV +SV* +Perl_newSV(pTHXo_ STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_flip(); + return ((CPerlObj*)pPerl)->Perl_newSV(len); } -#undef Perl_pp_flock -OP * -Perl_pp_flock(pTHXo) +#undef Perl_newSVREF +OP* +Perl_newSVREF(pTHXo_ OP* o) { - return ((CPerlObj*)pPerl)->Perl_pp_flock(); + return ((CPerlObj*)pPerl)->Perl_newSVREF(o); } -#undef Perl_pp_flop -OP * -Perl_pp_flop(pTHXo) +#undef Perl_newSVOP +OP* +Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_flop(); + return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv); } -#undef Perl_pp_fork -OP * -Perl_pp_fork(pTHXo) +#undef Perl_newSViv +SV* +Perl_newSViv(pTHXo_ IV i) { - return ((CPerlObj*)pPerl)->Perl_pp_fork(); + return ((CPerlObj*)pPerl)->Perl_newSViv(i); } -#undef Perl_pp_formline -OP * -Perl_pp_formline(pTHXo) +#undef Perl_newSVuv +SV* +Perl_newSVuv(pTHXo_ UV u) { - return ((CPerlObj*)pPerl)->Perl_pp_formline(); + return ((CPerlObj*)pPerl)->Perl_newSVuv(u); } -#undef Perl_pp_ftatime -OP * -Perl_pp_ftatime(pTHXo) +#undef Perl_newSVnv +SV* +Perl_newSVnv(pTHXo_ NV n) { - return ((CPerlObj*)pPerl)->Perl_pp_ftatime(); + return ((CPerlObj*)pPerl)->Perl_newSVnv(n); } -#undef Perl_pp_ftbinary -OP * -Perl_pp_ftbinary(pTHXo) +#undef Perl_newSVpv +SV* +Perl_newSVpv(pTHXo_ const char* s, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_ftbinary(); + return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len); } -#undef Perl_pp_ftblk -OP * -Perl_pp_ftblk(pTHXo) +#undef Perl_newSVpvn +SV* +Perl_newSVpvn(pTHXo_ const char* s, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_ftblk(); + return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len); } -#undef Perl_pp_ftchr -OP * -Perl_pp_ftchr(pTHXo) +#undef Perl_newSVpvf +SV* +Perl_newSVpvf(pTHXo_ const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_ftchr(); -} + SV* retval; + va_list args; + va_start(args, pat); + retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args); + va_end(args); + return retval; -#undef Perl_pp_ftctime -OP * -Perl_pp_ftctime(pTHXo) -{ - return ((CPerlObj*)pPerl)->Perl_pp_ftctime(); } -#undef Perl_pp_ftdir -OP * -Perl_pp_ftdir(pTHXo) +#undef Perl_vnewSVpvf +SV* +Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_ftdir(); + return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args); } -#undef Perl_pp_fteexec -OP * -Perl_pp_fteexec(pTHXo) +#undef Perl_newSVrv +SV* +Perl_newSVrv(pTHXo_ SV* rv, const char* classname) { - return ((CPerlObj*)pPerl)->Perl_pp_fteexec(); + return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname); } -#undef Perl_pp_fteowned -OP * -Perl_pp_fteowned(pTHXo) +#undef Perl_newSVsv +SV* +Perl_newSVsv(pTHXo_ SV* old) { - return ((CPerlObj*)pPerl)->Perl_pp_fteowned(); + return ((CPerlObj*)pPerl)->Perl_newSVsv(old); } -#undef Perl_pp_fteread -OP * -Perl_pp_fteread(pTHXo) +#undef Perl_newUNOP +OP* +Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first) { - return ((CPerlObj*)pPerl)->Perl_pp_fteread(); + return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first); } -#undef Perl_pp_ftewrite -OP * -Perl_pp_ftewrite(pTHXo) +#undef Perl_newWHILEOP +OP* +Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont) { - return ((CPerlObj*)pPerl)->Perl_pp_ftewrite(); + return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont); } -#undef Perl_pp_ftfile -OP * -Perl_pp_ftfile(pTHXo) +#undef Perl_new_stackinfo +PERL_SI* +Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems) { - return ((CPerlObj*)pPerl)->Perl_pp_ftfile(); + return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems); } -#undef Perl_pp_ftis -OP * -Perl_pp_ftis(pTHXo) +#undef Perl_ninstr +char* +Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) { - return ((CPerlObj*)pPerl)->Perl_pp_ftis(); + return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend); } -#undef Perl_pp_ftlink -OP * -Perl_pp_ftlink(pTHXo) +#undef Perl_op_free +void +Perl_op_free(pTHXo_ OP* arg) { - return ((CPerlObj*)pPerl)->Perl_pp_ftlink(); + ((CPerlObj*)pPerl)->Perl_op_free(arg); } -#undef Perl_pp_ftmtime -OP * -Perl_pp_ftmtime(pTHXo) +#undef Perl_pad_sv +SV* +Perl_pad_sv(pTHXo_ PADOFFSET po) { - return ((CPerlObj*)pPerl)->Perl_pp_ftmtime(); + return ((CPerlObj*)pPerl)->Perl_pad_sv(po); } +#if defined(PERL_OBJECT) -#undef Perl_pp_ftpipe -OP * -Perl_pp_ftpipe(pTHXo) +#undef Perl_construct +void +Perl_construct(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ftpipe(); + ((CPerlObj*)pPerl)->Perl_construct(); } -#undef Perl_pp_ftrexec -OP * -Perl_pp_ftrexec(pTHXo) +#undef Perl_destruct +void +Perl_destruct(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ftrexec(); + ((CPerlObj*)pPerl)->Perl_destruct(); } -#undef Perl_pp_ftrowned -OP * -Perl_pp_ftrowned(pTHXo) +#undef Perl_free +void +Perl_free(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ftrowned(); + ((CPerlObj*)pPerl)->Perl_free(); } -#undef Perl_pp_ftrread -OP * -Perl_pp_ftrread(pTHXo) +#undef Perl_run +int +Perl_run(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ftrread(); + return ((CPerlObj*)pPerl)->Perl_run(); } -#undef Perl_pp_ftrwrite -OP * -Perl_pp_ftrwrite(pTHXo) +#undef Perl_parse +int +Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env) { - return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite(); + return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env); } +#endif +#if defined(USE_THREADS) -#undef Perl_pp_ftsgid -OP * -Perl_pp_ftsgid(pTHXo) +#undef Perl_new_struct_thread +struct perl_thread* +Perl_new_struct_thread(pTHXo_ struct perl_thread *t) { - return ((CPerlObj*)pPerl)->Perl_pp_ftsgid(); + return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t); } +#endif -#undef Perl_pp_ftsize -OP * -Perl_pp_ftsize(pTHXo) +#undef Perl_call_atexit +void +Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_ftsize(); + ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr); } -#undef Perl_pp_ftsock -OP * -Perl_pp_ftsock(pTHXo) +#undef Perl_call_argv +I32 +Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv) { - return ((CPerlObj*)pPerl)->Perl_pp_ftsock(); + return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv); } -#undef Perl_pp_ftsuid -OP * -Perl_pp_ftsuid(pTHXo) +#undef Perl_call_method +I32 +Perl_call_method(pTHXo_ const char* methname, I32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_ftsuid(); + return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags); } -#undef Perl_pp_ftsvtx -OP * -Perl_pp_ftsvtx(pTHXo) +#undef Perl_call_pv +I32 +Perl_call_pv(pTHXo_ const char* sub_name, I32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx(); + return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags); } -#undef Perl_pp_fttext -OP * -Perl_pp_fttext(pTHXo) +#undef Perl_call_sv +I32 +Perl_call_sv(pTHXo_ SV* sv, I32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_fttext(); + return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags); } -#undef Perl_pp_fttty -OP * -Perl_pp_fttty(pTHXo) +#undef Perl_eval_pv +SV* +Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error) { - return ((CPerlObj*)pPerl)->Perl_pp_fttty(); + return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error); } -#undef Perl_pp_ftzero -OP * -Perl_pp_ftzero(pTHXo) +#undef Perl_eval_sv +I32 +Perl_eval_sv(pTHXo_ SV* sv, I32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_ftzero(); + return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags); } -#undef Perl_pp_ge -OP * -Perl_pp_ge(pTHXo) +#undef Perl_get_sv +SV* +Perl_get_sv(pTHXo_ const char* name, I32 create) { - return ((CPerlObj*)pPerl)->Perl_pp_ge(); + return ((CPerlObj*)pPerl)->Perl_get_sv(name, create); } -#undef Perl_pp_gelem -OP * -Perl_pp_gelem(pTHXo) +#undef Perl_get_av +AV* +Perl_get_av(pTHXo_ const char* name, I32 create) { - return ((CPerlObj*)pPerl)->Perl_pp_gelem(); + return ((CPerlObj*)pPerl)->Perl_get_av(name, create); } -#undef Perl_pp_getc -OP * -Perl_pp_getc(pTHXo) +#undef Perl_get_hv +HV* +Perl_get_hv(pTHXo_ const char* name, I32 create) { - return ((CPerlObj*)pPerl)->Perl_pp_getc(); + return ((CPerlObj*)pPerl)->Perl_get_hv(name, create); } -#undef Perl_pp_getlogin -OP * -Perl_pp_getlogin(pTHXo) +#undef Perl_get_cv +CV* +Perl_get_cv(pTHXo_ const char* name, I32 create) { - return ((CPerlObj*)pPerl)->Perl_pp_getlogin(); + return ((CPerlObj*)pPerl)->Perl_get_cv(name, create); } -#undef Perl_pp_getpeername -OP * -Perl_pp_getpeername(pTHXo) +#undef Perl_init_i18nl10n +int +Perl_init_i18nl10n(pTHXo_ int printwarn) { - return ((CPerlObj*)pPerl)->Perl_pp_getpeername(); + return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn); } -#undef Perl_pp_getpgrp -OP * -Perl_pp_getpgrp(pTHXo) +#undef Perl_init_i18nl14n +int +Perl_init_i18nl14n(pTHXo_ int printwarn) { - return ((CPerlObj*)pPerl)->Perl_pp_getpgrp(); + return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn); } -#undef Perl_pp_getppid -OP * -Perl_pp_getppid(pTHXo) +#undef Perl_new_collate +void +Perl_new_collate(pTHXo_ const char* newcoll) { - return ((CPerlObj*)pPerl)->Perl_pp_getppid(); + ((CPerlObj*)pPerl)->Perl_new_collate(newcoll); } -#undef Perl_pp_getpriority -OP * -Perl_pp_getpriority(pTHXo) +#undef Perl_new_ctype +void +Perl_new_ctype(pTHXo_ const char* newctype) { - return ((CPerlObj*)pPerl)->Perl_pp_getpriority(); + ((CPerlObj*)pPerl)->Perl_new_ctype(newctype); } -#undef Perl_pp_getsockname -OP * -Perl_pp_getsockname(pTHXo) +#undef Perl_new_numeric +void +Perl_new_numeric(pTHXo_ const char* newcoll) { - return ((CPerlObj*)pPerl)->Perl_pp_getsockname(); + ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll); } -#undef Perl_pp_ggrent -OP * -Perl_pp_ggrent(pTHXo) +#undef Perl_set_numeric_local +void +Perl_set_numeric_local(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ggrent(); + ((CPerlObj*)pPerl)->Perl_set_numeric_local(); } -#undef Perl_pp_ggrgid -OP * -Perl_pp_ggrgid(pTHXo) +#undef Perl_set_numeric_radix +void +Perl_set_numeric_radix(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ggrgid(); + ((CPerlObj*)pPerl)->Perl_set_numeric_radix(); } -#undef Perl_pp_ggrnam -OP * -Perl_pp_ggrnam(pTHXo) +#undef Perl_set_numeric_standard +void +Perl_set_numeric_standard(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ggrnam(); + ((CPerlObj*)pPerl)->Perl_set_numeric_standard(); } -#undef Perl_pp_ghbyaddr -OP * -Perl_pp_ghbyaddr(pTHXo) +#undef Perl_require_pv +void +Perl_require_pv(pTHXo_ const char* pv) { - return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr(); + ((CPerlObj*)pPerl)->Perl_require_pv(pv); } -#undef Perl_pp_ghbyname -OP * -Perl_pp_ghbyname(pTHXo) +#undef Perl_pmflag +void +Perl_pmflag(pTHXo_ U16* pmfl, int ch) { - return ((CPerlObj*)pPerl)->Perl_pp_ghbyname(); + ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch); } -#undef Perl_pp_ghostent -OP * -Perl_pp_ghostent(pTHXo) +#undef Perl_pop_scope +void +Perl_pop_scope(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_ghostent(); + ((CPerlObj*)pPerl)->Perl_pop_scope(); } -#undef Perl_pp_glob -OP * -Perl_pp_glob(pTHXo) +#undef Perl_push_scope +void +Perl_push_scope(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_glob(); + ((CPerlObj*)pPerl)->Perl_push_scope(); } -#undef Perl_pp_gmtime -OP * -Perl_pp_gmtime(pTHXo) +#undef Perl_regdump +void +Perl_regdump(pTHXo_ regexp* r) { - return ((CPerlObj*)pPerl)->Perl_pp_gmtime(); + ((CPerlObj*)pPerl)->Perl_regdump(r); } -#undef Perl_pp_gnbyaddr -OP * -Perl_pp_gnbyaddr(pTHXo) +#undef Perl_pregexec +I32 +Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) { - return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr(); + return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave); } -#undef Perl_pp_gnbyname -OP * -Perl_pp_gnbyname(pTHXo) +#undef Perl_pregfree +void +Perl_pregfree(pTHXo_ struct regexp* r) { - return ((CPerlObj*)pPerl)->Perl_pp_gnbyname(); + ((CPerlObj*)pPerl)->Perl_pregfree(r); } -#undef Perl_pp_gnetent -OP * -Perl_pp_gnetent(pTHXo) +#undef Perl_pregcomp +regexp* +Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm) { - return ((CPerlObj*)pPerl)->Perl_pp_gnetent(); + return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm); } -#undef Perl_pp_goto -OP * -Perl_pp_goto(pTHXo) +#undef Perl_re_intuit_start +char* +Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data) { - return ((CPerlObj*)pPerl)->Perl_pp_goto(); + return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data); } -#undef Perl_pp_gpbyname -OP * -Perl_pp_gpbyname(pTHXo) +#undef Perl_re_intuit_string +SV* +Perl_re_intuit_string(pTHXo_ regexp* prog) { - return ((CPerlObj*)pPerl)->Perl_pp_gpbyname(); + return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog); } -#undef Perl_pp_gpbynumber -OP * -Perl_pp_gpbynumber(pTHXo) +#undef Perl_regexec_flags +I32 +Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber(); + return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags); } -#undef Perl_pp_gprotoent -OP * -Perl_pp_gprotoent(pTHXo) +#undef Perl_regnext +regnode* +Perl_regnext(pTHXo_ regnode* p) { - return ((CPerlObj*)pPerl)->Perl_pp_gprotoent(); + return ((CPerlObj*)pPerl)->Perl_regnext(p); } -#undef Perl_pp_gpwent -OP * -Perl_pp_gpwent(pTHXo) +#undef Perl_repeatcpy +void +Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count) { - return ((CPerlObj*)pPerl)->Perl_pp_gpwent(); + ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count); } -#undef Perl_pp_gpwnam -OP * -Perl_pp_gpwnam(pTHXo) +#undef Perl_rninstr +char* +Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) { - return ((CPerlObj*)pPerl)->Perl_pp_gpwnam(); + return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend); } -#undef Perl_pp_gpwuid -OP * -Perl_pp_gpwuid(pTHXo) +#undef Perl_rsignal +Sighandler_t +Perl_rsignal(pTHXo_ int i, Sighandler_t t) { - return ((CPerlObj*)pPerl)->Perl_pp_gpwuid(); + return ((CPerlObj*)pPerl)->Perl_rsignal(i, t); } +#if !defined(HAS_RENAME) +#endif -#undef Perl_pp_grepstart -OP * -Perl_pp_grepstart(pTHXo) +#undef Perl_savepv +char* +Perl_savepv(pTHXo_ const char* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_grepstart(); + return ((CPerlObj*)pPerl)->Perl_savepv(sv); } -#undef Perl_pp_grepwhile -OP * -Perl_pp_grepwhile(pTHXo) +#undef Perl_savepvn +char* +Perl_savepvn(pTHXo_ const char* sv, I32 len) { - return ((CPerlObj*)pPerl)->Perl_pp_grepwhile(); + return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len); } -#undef Perl_pp_gsbyname -OP * -Perl_pp_gsbyname(pTHXo) +#undef Perl_savestack_grow +void +Perl_savestack_grow(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_gsbyname(); + ((CPerlObj*)pPerl)->Perl_savestack_grow(); } -#undef Perl_pp_gsbyport -OP * -Perl_pp_gsbyport(pTHXo) +#undef Perl_save_aelem +void +Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr) { - return ((CPerlObj*)pPerl)->Perl_pp_gsbyport(); + ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr); } -#undef Perl_pp_gservent -OP * -Perl_pp_gservent(pTHXo) +#undef Perl_save_alloc +I32 +Perl_save_alloc(pTHXo_ I32 size, I32 pad) { - return ((CPerlObj*)pPerl)->Perl_pp_gservent(); + return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad); } -#undef Perl_pp_gsockopt -OP * -Perl_pp_gsockopt(pTHXo) +#undef Perl_save_aptr +void +Perl_save_aptr(pTHXo_ AV** aptr) { - return ((CPerlObj*)pPerl)->Perl_pp_gsockopt(); + ((CPerlObj*)pPerl)->Perl_save_aptr(aptr); } -#undef Perl_pp_gt -OP * -Perl_pp_gt(pTHXo) +#undef Perl_save_ary +AV* +Perl_save_ary(pTHXo_ GV* gv) { - return ((CPerlObj*)pPerl)->Perl_pp_gt(); + return ((CPerlObj*)pPerl)->Perl_save_ary(gv); } -#undef Perl_pp_gv -OP * -Perl_pp_gv(pTHXo) +#undef Perl_save_clearsv +void +Perl_save_clearsv(pTHXo_ SV** svp) { - return ((CPerlObj*)pPerl)->Perl_pp_gv(); + ((CPerlObj*)pPerl)->Perl_save_clearsv(svp); } -#undef Perl_pp_gvsv -OP * -Perl_pp_gvsv(pTHXo) +#undef Perl_save_delete +void +Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen) { - return ((CPerlObj*)pPerl)->Perl_pp_gvsv(); + ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen); } -#undef Perl_pp_helem -OP * -Perl_pp_helem(pTHXo) +#undef Perl_save_destructor +void +Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p) { - return ((CPerlObj*)pPerl)->Perl_pp_helem(); + ((CPerlObj*)pPerl)->Perl_save_destructor(f, p); } -#undef Perl_pp_hex -OP * -Perl_pp_hex(pTHXo) +#undef Perl_save_destructor_x +void +Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p) { - return ((CPerlObj*)pPerl)->Perl_pp_hex(); + ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p); } -#undef Perl_pp_hslice -OP * -Perl_pp_hslice(pTHXo) +#undef Perl_save_freesv +void +Perl_save_freesv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_hslice(); + ((CPerlObj*)pPerl)->Perl_save_freesv(sv); } -#undef Perl_pp_i_add -OP * -Perl_pp_i_add(pTHXo) +#undef Perl_save_freepv +void +Perl_save_freepv(pTHXo_ char* pv) { - return ((CPerlObj*)pPerl)->Perl_pp_i_add(); + ((CPerlObj*)pPerl)->Perl_save_freepv(pv); } -#undef Perl_pp_i_divide -OP * -Perl_pp_i_divide(pTHXo) +#undef Perl_save_generic_svref +void +Perl_save_generic_svref(pTHXo_ SV** sptr) { - return ((CPerlObj*)pPerl)->Perl_pp_i_divide(); + ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr); } -#undef Perl_pp_i_eq -OP * -Perl_pp_i_eq(pTHXo) +#undef Perl_save_gp +void +Perl_save_gp(pTHXo_ GV* gv, I32 empty) { - return ((CPerlObj*)pPerl)->Perl_pp_i_eq(); + ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty); } -#undef Perl_pp_i_ge -OP * -Perl_pp_i_ge(pTHXo) +#undef Perl_save_hash +HV* +Perl_save_hash(pTHXo_ GV* gv) { - return ((CPerlObj*)pPerl)->Perl_pp_i_ge(); + return ((CPerlObj*)pPerl)->Perl_save_hash(gv); } -#undef Perl_pp_i_gt -OP * -Perl_pp_i_gt(pTHXo) +#undef Perl_save_helem +void +Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr) { - return ((CPerlObj*)pPerl)->Perl_pp_i_gt(); + ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr); } -#undef Perl_pp_i_le -OP * -Perl_pp_i_le(pTHXo) +#undef Perl_save_hints +void +Perl_save_hints(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_i_le(); + ((CPerlObj*)pPerl)->Perl_save_hints(); } -#undef Perl_pp_i_lt -OP * -Perl_pp_i_lt(pTHXo) +#undef Perl_save_hptr +void +Perl_save_hptr(pTHXo_ HV** hptr) { - return ((CPerlObj*)pPerl)->Perl_pp_i_lt(); + ((CPerlObj*)pPerl)->Perl_save_hptr(hptr); } -#undef Perl_pp_i_modulo -OP * -Perl_pp_i_modulo(pTHXo) +#undef Perl_save_I16 +void +Perl_save_I16(pTHXo_ I16* intp) { - return ((CPerlObj*)pPerl)->Perl_pp_i_modulo(); + ((CPerlObj*)pPerl)->Perl_save_I16(intp); } -#undef Perl_pp_i_multiply -OP * -Perl_pp_i_multiply(pTHXo) +#undef Perl_save_I32 +void +Perl_save_I32(pTHXo_ I32* intp) { - return ((CPerlObj*)pPerl)->Perl_pp_i_multiply(); + ((CPerlObj*)pPerl)->Perl_save_I32(intp); } -#undef Perl_pp_i_ncmp -OP * -Perl_pp_i_ncmp(pTHXo) +#undef Perl_save_I8 +void +Perl_save_I8(pTHXo_ I8* bytep) { - return ((CPerlObj*)pPerl)->Perl_pp_i_ncmp(); + ((CPerlObj*)pPerl)->Perl_save_I8(bytep); } -#undef Perl_pp_i_ne -OP * -Perl_pp_i_ne(pTHXo) +#undef Perl_save_int +void +Perl_save_int(pTHXo_ int* intp) { - return ((CPerlObj*)pPerl)->Perl_pp_i_ne(); + ((CPerlObj*)pPerl)->Perl_save_int(intp); } -#undef Perl_pp_i_negate -OP * -Perl_pp_i_negate(pTHXo) +#undef Perl_save_item +void +Perl_save_item(pTHXo_ SV* item) { - return ((CPerlObj*)pPerl)->Perl_pp_i_negate(); + ((CPerlObj*)pPerl)->Perl_save_item(item); } -#undef Perl_pp_i_subtract -OP * -Perl_pp_i_subtract(pTHXo) +#undef Perl_save_iv +void +Perl_save_iv(pTHXo_ IV* iv) { - return ((CPerlObj*)pPerl)->Perl_pp_i_subtract(); + ((CPerlObj*)pPerl)->Perl_save_iv(iv); } -#undef Perl_pp_index -OP * -Perl_pp_index(pTHXo) +#undef Perl_save_list +void +Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg) { - return ((CPerlObj*)pPerl)->Perl_pp_index(); + ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg); } -#undef Perl_pp_int -OP * -Perl_pp_int(pTHXo) +#undef Perl_save_long +void +Perl_save_long(pTHXo_ long* longp) { - return ((CPerlObj*)pPerl)->Perl_pp_int(); + ((CPerlObj*)pPerl)->Perl_save_long(longp); } -#undef Perl_pp_ioctl -OP * -Perl_pp_ioctl(pTHXo) +#undef Perl_save_nogv +void +Perl_save_nogv(pTHXo_ GV* gv) { - return ((CPerlObj*)pPerl)->Perl_pp_ioctl(); + ((CPerlObj*)pPerl)->Perl_save_nogv(gv); } -#undef Perl_pp_iter -OP * -Perl_pp_iter(pTHXo) +#undef Perl_save_scalar +SV* +Perl_save_scalar(pTHXo_ GV* gv) { - return ((CPerlObj*)pPerl)->Perl_pp_iter(); + return ((CPerlObj*)pPerl)->Perl_save_scalar(gv); } -#undef Perl_pp_join -OP * -Perl_pp_join(pTHXo) +#undef Perl_save_pptr +void +Perl_save_pptr(pTHXo_ char** pptr) { - return ((CPerlObj*)pPerl)->Perl_pp_join(); + ((CPerlObj*)pPerl)->Perl_save_pptr(pptr); } -#undef Perl_pp_keys -OP * -Perl_pp_keys(pTHXo) +#undef Perl_save_vptr +void +Perl_save_vptr(pTHXo_ void* pptr) { - return ((CPerlObj*)pPerl)->Perl_pp_keys(); + ((CPerlObj*)pPerl)->Perl_save_vptr(pptr); } -#undef Perl_pp_kill -OP * -Perl_pp_kill(pTHXo) +#undef Perl_save_re_context +void +Perl_save_re_context(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_kill(); + ((CPerlObj*)pPerl)->Perl_save_re_context(); } -#undef Perl_pp_last -OP * -Perl_pp_last(pTHXo) +#undef Perl_save_sptr +void +Perl_save_sptr(pTHXo_ SV** sptr) { - return ((CPerlObj*)pPerl)->Perl_pp_last(); + ((CPerlObj*)pPerl)->Perl_save_sptr(sptr); } -#undef Perl_pp_lc -OP * -Perl_pp_lc(pTHXo) +#undef Perl_save_svref +SV* +Perl_save_svref(pTHXo_ SV** sptr) { - return ((CPerlObj*)pPerl)->Perl_pp_lc(); + return ((CPerlObj*)pPerl)->Perl_save_svref(sptr); } -#undef Perl_pp_lcfirst -OP * -Perl_pp_lcfirst(pTHXo) +#undef Perl_save_threadsv +SV** +Perl_save_threadsv(pTHXo_ PADOFFSET i) { - return ((CPerlObj*)pPerl)->Perl_pp_lcfirst(); + return ((CPerlObj*)pPerl)->Perl_save_threadsv(i); } -#undef Perl_pp_le -OP * -Perl_pp_le(pTHXo) +#undef Perl_scan_bin +NV +Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen) { - return ((CPerlObj*)pPerl)->Perl_pp_le(); + return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen); } -#undef Perl_pp_leave -OP * -Perl_pp_leave(pTHXo) +#undef Perl_scan_hex +NV +Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen) { - return ((CPerlObj*)pPerl)->Perl_pp_leave(); + return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen); } -#undef Perl_pp_leaveeval -OP * -Perl_pp_leaveeval(pTHXo) +#undef Perl_scan_num +char* +Perl_scan_num(pTHXo_ char* s) { - return ((CPerlObj*)pPerl)->Perl_pp_leaveeval(); + return ((CPerlObj*)pPerl)->Perl_scan_num(s); } -#undef Perl_pp_leaveloop -OP * -Perl_pp_leaveloop(pTHXo) +#undef Perl_scan_oct +NV +Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen) { - return ((CPerlObj*)pPerl)->Perl_pp_leaveloop(); + return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen); } -#undef Perl_pp_leavesub -OP * -Perl_pp_leavesub(pTHXo) +#undef Perl_screaminstr +char* +Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last) { - return ((CPerlObj*)pPerl)->Perl_pp_leavesub(); + return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last); } +#if !defined(VMS) +#endif -#undef Perl_pp_leavesublv -OP * -Perl_pp_leavesublv(pTHXo) +#undef Perl_sharepvn +char* +Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash) { - return ((CPerlObj*)pPerl)->Perl_pp_leavesublv(); + return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash); } -#undef Perl_pp_leavetry -OP * -Perl_pp_leavetry(pTHXo) +#undef Perl_stack_grow +SV** +Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n) { - return ((CPerlObj*)pPerl)->Perl_pp_leavetry(); + return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n); } -#undef Perl_pp_leavewrite -OP * -Perl_pp_leavewrite(pTHXo) +#undef Perl_start_subparse +I32 +Perl_start_subparse(pTHXo_ I32 is_format, U32 flags) { - return ((CPerlObj*)pPerl)->Perl_pp_leavewrite(); + return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags); } -#undef Perl_pp_left_shift -OP * -Perl_pp_left_shift(pTHXo) +#undef Perl_sv_2bool +bool +Perl_sv_2bool(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_left_shift(); + return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv); } -#undef Perl_pp_length -OP * -Perl_pp_length(pTHXo) +#undef Perl_sv_2cv +CV* +Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref) { - return ((CPerlObj*)pPerl)->Perl_pp_length(); + return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref); } -#undef Perl_pp_lineseq -OP * -Perl_pp_lineseq(pTHXo) +#undef Perl_sv_2io +IO* +Perl_sv_2io(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_lineseq(); + return ((CPerlObj*)pPerl)->Perl_sv_2io(sv); } -#undef Perl_pp_link -OP * -Perl_pp_link(pTHXo) +#undef Perl_sv_2iv +IV +Perl_sv_2iv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_link(); + return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv); } -#undef Perl_pp_list -OP * -Perl_pp_list(pTHXo) +#undef Perl_sv_2mortal +SV* +Perl_sv_2mortal(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_list(); + return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv); } -#undef Perl_pp_listen -OP * -Perl_pp_listen(pTHXo) +#undef Perl_sv_2nv +NV +Perl_sv_2nv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_listen(); + return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv); } -#undef Perl_pp_localtime -OP * -Perl_pp_localtime(pTHXo) +#undef Perl_sv_2pv +char* +Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp) { - return ((CPerlObj*)pPerl)->Perl_pp_localtime(); + return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp); } -#undef Perl_pp_lock -OP * -Perl_pp_lock(pTHXo) +#undef Perl_sv_2pvutf8 +char* +Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp) { - return ((CPerlObj*)pPerl)->Perl_pp_lock(); + return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp); } -#undef Perl_pp_log -OP * -Perl_pp_log(pTHXo) +#undef Perl_sv_2pvbyte +char* +Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp) { - return ((CPerlObj*)pPerl)->Perl_pp_log(); + return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp); } -#undef Perl_pp_lslice -OP * -Perl_pp_lslice(pTHXo) +#undef Perl_sv_2uv +UV +Perl_sv_2uv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_lslice(); + return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv); } -#undef Perl_pp_lstat -OP * -Perl_pp_lstat(pTHXo) +#undef Perl_sv_iv +IV +Perl_sv_iv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_lstat(); + return ((CPerlObj*)pPerl)->Perl_sv_iv(sv); } -#undef Perl_pp_lt -OP * -Perl_pp_lt(pTHXo) +#undef Perl_sv_uv +UV +Perl_sv_uv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_lt(); + return ((CPerlObj*)pPerl)->Perl_sv_uv(sv); } -#undef Perl_pp_mapstart -OP * -Perl_pp_mapstart(pTHXo) +#undef Perl_sv_nv +NV +Perl_sv_nv(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_mapstart(); + return ((CPerlObj*)pPerl)->Perl_sv_nv(sv); } -#undef Perl_pp_mapwhile -OP * -Perl_pp_mapwhile(pTHXo) +#undef Perl_sv_pvn +char* +Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len) { - return ((CPerlObj*)pPerl)->Perl_pp_mapwhile(); + return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len); } -#undef Perl_pp_match -OP * -Perl_pp_match(pTHXo) +#undef Perl_sv_pvutf8n +char* +Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len) { - return ((CPerlObj*)pPerl)->Perl_pp_match(); + return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len); } -#undef Perl_pp_method -OP * -Perl_pp_method(pTHXo) +#undef Perl_sv_pvbyten +char* +Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len) { - return ((CPerlObj*)pPerl)->Perl_pp_method(); + return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len); } -#undef Perl_pp_method_named -OP * -Perl_pp_method_named(pTHXo) +#undef Perl_sv_true +I32 +Perl_sv_true(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_method_named(); + return ((CPerlObj*)pPerl)->Perl_sv_true(sv); } -#undef Perl_pp_mkdir -OP * -Perl_pp_mkdir(pTHXo) +#undef Perl_sv_backoff +int +Perl_sv_backoff(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_mkdir(); + return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv); } -#undef Perl_pp_modulo -OP * -Perl_pp_modulo(pTHXo) +#undef Perl_sv_bless +SV* +Perl_sv_bless(pTHXo_ SV* sv, HV* stash) { - return ((CPerlObj*)pPerl)->Perl_pp_modulo(); + return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash); } -#undef Perl_pp_msgctl -OP * -Perl_pp_msgctl(pTHXo) +#undef Perl_sv_catpvf +void +Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_msgctl(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args); + va_end(args); } -#undef Perl_pp_msgget -OP * -Perl_pp_msgget(pTHXo) +#undef Perl_sv_vcatpvf +void +Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_msgget(); + ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args); } -#undef Perl_pp_msgrcv -OP * -Perl_pp_msgrcv(pTHXo) +#undef Perl_sv_catpv +void +Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_msgrcv(); + ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr); } -#undef Perl_pp_msgsnd -OP * -Perl_pp_msgsnd(pTHXo) +#undef Perl_sv_catpvn +void +Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_msgsnd(); + ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len); } -#undef Perl_pp_multiply -OP * -Perl_pp_multiply(pTHXo) +#undef Perl_sv_catsv +void +Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv) { - return ((CPerlObj*)pPerl)->Perl_pp_multiply(); + ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv); } -#undef Perl_pp_ncmp -OP * -Perl_pp_ncmp(pTHXo) +#undef Perl_sv_chop +void +Perl_sv_chop(pTHXo_ SV* sv, char* ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_ncmp(); + ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr); } -#undef Perl_pp_ne -OP * -Perl_pp_ne(pTHXo) +#undef Perl_sv_clear +void +Perl_sv_clear(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_ne(); + ((CPerlObj*)pPerl)->Perl_sv_clear(sv); } -#undef Perl_pp_negate -OP * -Perl_pp_negate(pTHXo) +#undef Perl_sv_cmp +I32 +Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2) { - return ((CPerlObj*)pPerl)->Perl_pp_negate(); + return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2); } -#undef Perl_pp_next -OP * -Perl_pp_next(pTHXo) +#undef Perl_sv_cmp_locale +I32 +Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2) { - return ((CPerlObj*)pPerl)->Perl_pp_next(); + return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2); } +#if defined(USE_LOCALE_COLLATE) -#undef Perl_pp_nextstate -OP * -Perl_pp_nextstate(pTHXo) +#undef Perl_sv_collxfrm +char* +Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp) { - return ((CPerlObj*)pPerl)->Perl_pp_nextstate(); + return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp); } +#endif -#undef Perl_pp_not -OP * -Perl_pp_not(pTHXo) +#undef Perl_sv_compile_2op +OP* +Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp) { - return ((CPerlObj*)pPerl)->Perl_pp_not(); + return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp); } -#undef Perl_pp_null -OP * -Perl_pp_null(pTHXo) +#undef Perl_sv_dec +void +Perl_sv_dec(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_null(); + ((CPerlObj*)pPerl)->Perl_sv_dec(sv); } -#undef Perl_pp_oct -OP * -Perl_pp_oct(pTHXo) +#undef Perl_sv_dump +void +Perl_sv_dump(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_oct(); + ((CPerlObj*)pPerl)->Perl_sv_dump(sv); } -#undef Perl_pp_open -OP * -Perl_pp_open(pTHXo) +#undef Perl_sv_derived_from +bool +Perl_sv_derived_from(pTHXo_ SV* sv, const char* name) { - return ((CPerlObj*)pPerl)->Perl_pp_open(); + return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name); } -#undef Perl_pp_open_dir -OP * -Perl_pp_open_dir(pTHXo) +#undef Perl_sv_eq +I32 +Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2) { - return ((CPerlObj*)pPerl)->Perl_pp_open_dir(); + return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2); } -#undef Perl_pp_or -OP * -Perl_pp_or(pTHXo) +#undef Perl_sv_free +void +Perl_sv_free(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_or(); + ((CPerlObj*)pPerl)->Perl_sv_free(sv); } -#undef Perl_pp_orassign -OP * -Perl_pp_orassign(pTHXo) +#undef Perl_sv_gets +char* +Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append) { - return ((CPerlObj*)pPerl)->Perl_pp_orassign(); + return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append); } -#undef Perl_pp_ord -OP * -Perl_pp_ord(pTHXo) +#undef Perl_sv_grow +char* +Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen) { - return ((CPerlObj*)pPerl)->Perl_pp_ord(); + return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen); } -#undef Perl_pp_pack -OP * -Perl_pp_pack(pTHXo) +#undef Perl_sv_inc +void +Perl_sv_inc(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_pack(); + ((CPerlObj*)pPerl)->Perl_sv_inc(sv); } -#undef Perl_pp_padany -OP * -Perl_pp_padany(pTHXo) +#undef Perl_sv_insert +void +Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen) { - return ((CPerlObj*)pPerl)->Perl_pp_padany(); + ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen); } -#undef Perl_pp_padav -OP * -Perl_pp_padav(pTHXo) +#undef Perl_sv_isa +int +Perl_sv_isa(pTHXo_ SV* sv, const char* name) { - return ((CPerlObj*)pPerl)->Perl_pp_padav(); + return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name); } -#undef Perl_pp_padhv -OP * -Perl_pp_padhv(pTHXo) +#undef Perl_sv_isobject +int +Perl_sv_isobject(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_padhv(); + return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv); } -#undef Perl_pp_padsv -OP * -Perl_pp_padsv(pTHXo) +#undef Perl_sv_len +STRLEN +Perl_sv_len(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_padsv(); + return ((CPerlObj*)pPerl)->Perl_sv_len(sv); } -#undef Perl_pp_pipe_op -OP * -Perl_pp_pipe_op(pTHXo) +#undef Perl_sv_len_utf8 +STRLEN +Perl_sv_len_utf8(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_pipe_op(); + return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv); } -#undef Perl_pp_pop -OP * -Perl_pp_pop(pTHXo) +#undef Perl_sv_magic +void +Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen) { - return ((CPerlObj*)pPerl)->Perl_pp_pop(); + ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen); } -#undef Perl_pp_pos -OP * -Perl_pp_pos(pTHXo) +#undef Perl_sv_mortalcopy +SV* +Perl_sv_mortalcopy(pTHXo_ SV* oldsv) { - return ((CPerlObj*)pPerl)->Perl_pp_pos(); + return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv); } -#undef Perl_pp_postdec -OP * -Perl_pp_postdec(pTHXo) +#undef Perl_sv_newmortal +SV* +Perl_sv_newmortal(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_postdec(); + return ((CPerlObj*)pPerl)->Perl_sv_newmortal(); } -#undef Perl_pp_postinc -OP * -Perl_pp_postinc(pTHXo) +#undef Perl_sv_newref +SV* +Perl_sv_newref(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_postinc(); + return ((CPerlObj*)pPerl)->Perl_sv_newref(sv); } -#undef Perl_pp_pow -OP * -Perl_pp_pow(pTHXo) +#undef Perl_sv_peek +char* +Perl_sv_peek(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_pow(); + return ((CPerlObj*)pPerl)->Perl_sv_peek(sv); } -#undef Perl_pp_predec -OP * -Perl_pp_predec(pTHXo) +#undef Perl_sv_pos_u2b +void +Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp) { - return ((CPerlObj*)pPerl)->Perl_pp_predec(); + ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp); } -#undef Perl_pp_preinc -OP * -Perl_pp_preinc(pTHXo) +#undef Perl_sv_pos_b2u +void +Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp) { - return ((CPerlObj*)pPerl)->Perl_pp_preinc(); + ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp); } -#undef Perl_pp_print -OP * -Perl_pp_print(pTHXo) +#undef Perl_sv_pvn_force +char* +Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp) { - return ((CPerlObj*)pPerl)->Perl_pp_print(); + return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp); } -#undef Perl_pp_prototype -OP * -Perl_pp_prototype(pTHXo) +#undef Perl_sv_pvutf8n_force +char* +Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp) { - return ((CPerlObj*)pPerl)->Perl_pp_prototype(); + return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp); } -#undef Perl_pp_prtf -OP * -Perl_pp_prtf(pTHXo) +#undef Perl_sv_pvbyten_force +char* +Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp) { - return ((CPerlObj*)pPerl)->Perl_pp_prtf(); + return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp); } -#undef Perl_pp_push -OP * -Perl_pp_push(pTHXo) +#undef Perl_sv_reftype +char* +Perl_sv_reftype(pTHXo_ SV* sv, int ob) { - return ((CPerlObj*)pPerl)->Perl_pp_push(); + return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob); } -#undef Perl_pp_pushmark -OP * -Perl_pp_pushmark(pTHXo) +#undef Perl_sv_replace +void +Perl_sv_replace(pTHXo_ SV* sv, SV* nsv) { - return ((CPerlObj*)pPerl)->Perl_pp_pushmark(); + ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv); } -#undef Perl_pp_pushre -OP * -Perl_pp_pushre(pTHXo) +#undef Perl_sv_report_used +void +Perl_sv_report_used(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_pushre(); + ((CPerlObj*)pPerl)->Perl_sv_report_used(); } -#undef Perl_pp_qr -OP * -Perl_pp_qr(pTHXo) +#undef Perl_sv_reset +void +Perl_sv_reset(pTHXo_ char* s, HV* stash) { - return ((CPerlObj*)pPerl)->Perl_pp_qr(); + ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash); } -#undef Perl_pp_quotemeta -OP * -Perl_pp_quotemeta(pTHXo) +#undef Perl_sv_setpvf +void +Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_quotemeta(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args); + va_end(args); } -#undef Perl_pp_rand -OP * -Perl_pp_rand(pTHXo) +#undef Perl_sv_vsetpvf +void +Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_rand(); + ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args); } -#undef Perl_pp_range -OP * -Perl_pp_range(pTHXo) +#undef Perl_sv_setiv +void +Perl_sv_setiv(pTHXo_ SV* sv, IV num) { - return ((CPerlObj*)pPerl)->Perl_pp_range(); + ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num); } -#undef Perl_pp_rcatline -OP * -Perl_pp_rcatline(pTHXo) +#undef Perl_sv_setpviv +void +Perl_sv_setpviv(pTHXo_ SV* sv, IV num) { - return ((CPerlObj*)pPerl)->Perl_pp_rcatline(); + ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num); } -#undef Perl_pp_read -OP * -Perl_pp_read(pTHXo) +#undef Perl_sv_setuv +void +Perl_sv_setuv(pTHXo_ SV* sv, UV num) { - return ((CPerlObj*)pPerl)->Perl_pp_read(); + ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num); } -#undef Perl_pp_readdir -OP * -Perl_pp_readdir(pTHXo) +#undef Perl_sv_setnv +void +Perl_sv_setnv(pTHXo_ SV* sv, NV num) { - return ((CPerlObj*)pPerl)->Perl_pp_readdir(); + ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num); } -#undef Perl_pp_readline -OP * -Perl_pp_readline(pTHXo) +#undef Perl_sv_setref_iv +SV* +Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv) { - return ((CPerlObj*)pPerl)->Perl_pp_readline(); + return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv); } -#undef Perl_pp_readlink -OP * -Perl_pp_readlink(pTHXo) +#undef Perl_sv_setref_nv +SV* +Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv) { - return ((CPerlObj*)pPerl)->Perl_pp_readlink(); + return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv); } -#undef Perl_pp_recv -OP * -Perl_pp_recv(pTHXo) +#undef Perl_sv_setref_pv +SV* +Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv) { - return ((CPerlObj*)pPerl)->Perl_pp_recv(); + return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv); } -#undef Perl_pp_redo -OP * -Perl_pp_redo(pTHXo) +#undef Perl_sv_setref_pvn +SV* +Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n) { - return ((CPerlObj*)pPerl)->Perl_pp_redo(); + return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n); } -#undef Perl_pp_ref -OP * -Perl_pp_ref(pTHXo) +#undef Perl_sv_setpv +void +Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_ref(); + ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr); } -#undef Perl_pp_refgen -OP * -Perl_pp_refgen(pTHXo) +#undef Perl_sv_setpvn +void +Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_refgen(); + ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len); } -#undef Perl_pp_regcmaybe -OP * -Perl_pp_regcmaybe(pTHXo) +#undef Perl_sv_setsv +void +Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv) { - return ((CPerlObj*)pPerl)->Perl_pp_regcmaybe(); + ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv); } -#undef Perl_pp_regcomp -OP * -Perl_pp_regcomp(pTHXo) +#undef Perl_sv_taint +void +Perl_sv_taint(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_regcomp(); + ((CPerlObj*)pPerl)->Perl_sv_taint(sv); } -#undef Perl_pp_regcreset -OP * -Perl_pp_regcreset(pTHXo) +#undef Perl_sv_tainted +bool +Perl_sv_tainted(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_regcreset(); + return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv); } -#undef Perl_pp_rename -OP * -Perl_pp_rename(pTHXo) +#undef Perl_sv_unmagic +int +Perl_sv_unmagic(pTHXo_ SV* sv, int type) { - return ((CPerlObj*)pPerl)->Perl_pp_rename(); + return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type); } -#undef Perl_pp_repeat -OP * -Perl_pp_repeat(pTHXo) +#undef Perl_sv_unref +void +Perl_sv_unref(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_repeat(); + ((CPerlObj*)pPerl)->Perl_sv_unref(sv); } -#undef Perl_pp_require -OP * -Perl_pp_require(pTHXo) +#undef Perl_sv_untaint +void +Perl_sv_untaint(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_require(); + ((CPerlObj*)pPerl)->Perl_sv_untaint(sv); } -#undef Perl_pp_reset -OP * -Perl_pp_reset(pTHXo) +#undef Perl_sv_upgrade +bool +Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt) { - return ((CPerlObj*)pPerl)->Perl_pp_reset(); + return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt); } -#undef Perl_pp_return -OP * -Perl_pp_return(pTHXo) +#undef Perl_sv_usepvn +void +Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_return(); + ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len); } -#undef Perl_pp_reverse -OP * -Perl_pp_reverse(pTHXo) +#undef Perl_sv_vcatpvfn +void +Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) { - return ((CPerlObj*)pPerl)->Perl_pp_reverse(); + ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); } -#undef Perl_pp_rewinddir -OP * -Perl_pp_rewinddir(pTHXo) +#undef Perl_sv_vsetpvfn +void +Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) { - return ((CPerlObj*)pPerl)->Perl_pp_rewinddir(); + ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); } -#undef Perl_pp_right_shift -OP * -Perl_pp_right_shift(pTHXo) +#undef Perl_str_to_version +NV +Perl_str_to_version(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_right_shift(); + return ((CPerlObj*)pPerl)->Perl_str_to_version(sv); } -#undef Perl_pp_rindex -OP * -Perl_pp_rindex(pTHXo) +#undef Perl_swash_init +SV* +Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none) { - return ((CPerlObj*)pPerl)->Perl_pp_rindex(); + return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none); } -#undef Perl_pp_rmdir -OP * -Perl_pp_rmdir(pTHXo) +#undef Perl_swash_fetch +UV +Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_rmdir(); + return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr); } -#undef Perl_pp_rv2av -OP * -Perl_pp_rv2av(pTHXo) +#undef Perl_taint_env +void +Perl_taint_env(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_rv2av(); + ((CPerlObj*)pPerl)->Perl_taint_env(); } -#undef Perl_pp_rv2cv -OP * -Perl_pp_rv2cv(pTHXo) +#undef Perl_taint_proper +void +Perl_taint_proper(pTHXo_ const char* f, const char* s) { - return ((CPerlObj*)pPerl)->Perl_pp_rv2cv(); + ((CPerlObj*)pPerl)->Perl_taint_proper(f, s); } -#undef Perl_pp_rv2gv -OP * -Perl_pp_rv2gv(pTHXo) +#undef Perl_to_utf8_lower +UV +Perl_to_utf8_lower(pTHXo_ U8 *p) { - return ((CPerlObj*)pPerl)->Perl_pp_rv2gv(); + return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p); } -#undef Perl_pp_rv2hv -OP * -Perl_pp_rv2hv(pTHXo) +#undef Perl_to_utf8_upper +UV +Perl_to_utf8_upper(pTHXo_ U8 *p) { - return ((CPerlObj*)pPerl)->Perl_pp_rv2hv(); + return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p); } -#undef Perl_pp_rv2sv -OP * -Perl_pp_rv2sv(pTHXo) +#undef Perl_to_utf8_title +UV +Perl_to_utf8_title(pTHXo_ U8 *p) { - return ((CPerlObj*)pPerl)->Perl_pp_rv2sv(); + return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p); } +#if defined(UNLINK_ALL_VERSIONS) -#undef Perl_pp_sassign -OP * -Perl_pp_sassign(pTHXo) +#undef Perl_unlnk +I32 +Perl_unlnk(pTHXo_ char* f) { - return ((CPerlObj*)pPerl)->Perl_pp_sassign(); + return ((CPerlObj*)pPerl)->Perl_unlnk(f); } +#endif +#if defined(USE_THREADS) -#undef Perl_pp_scalar -OP * -Perl_pp_scalar(pTHXo) +#undef Perl_unlock_condpair +void +Perl_unlock_condpair(pTHXo_ void* svv) { - return ((CPerlObj*)pPerl)->Perl_pp_scalar(); + ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv); } +#endif -#undef Perl_pp_schomp -OP * -Perl_pp_schomp(pTHXo) +#undef Perl_unsharepvn +void +Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash) { - return ((CPerlObj*)pPerl)->Perl_pp_schomp(); + ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash); } -#undef Perl_pp_schop -OP * -Perl_pp_schop(pTHXo) +#undef Perl_utf16_to_utf8 +U8* +Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen) { - return ((CPerlObj*)pPerl)->Perl_pp_schop(); + return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen); } -#undef Perl_pp_scmp -OP * -Perl_pp_scmp(pTHXo) +#undef Perl_utf16_to_utf8_reversed +U8* +Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen) { - return ((CPerlObj*)pPerl)->Perl_pp_scmp(); + return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen); } -#undef Perl_pp_scope -OP * -Perl_pp_scope(pTHXo) +#undef Perl_utf8_distance +I32 +Perl_utf8_distance(pTHXo_ U8 *a, U8 *b) { - return ((CPerlObj*)pPerl)->Perl_pp_scope(); + return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b); } -#undef Perl_pp_seek -OP * -Perl_pp_seek(pTHXo) +#undef Perl_utf8_hop +U8* +Perl_utf8_hop(pTHXo_ U8 *s, I32 off) { - return ((CPerlObj*)pPerl)->Perl_pp_seek(); + return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off); } -#undef Perl_pp_seekdir -OP * -Perl_pp_seekdir(pTHXo) +#undef Perl_utf8_to_uv +UV +Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen) { - return ((CPerlObj*)pPerl)->Perl_pp_seekdir(); + return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen); } -#undef Perl_pp_select -OP * -Perl_pp_select(pTHXo) +#undef Perl_uv_to_utf8 +U8* +Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv) { - return ((CPerlObj*)pPerl)->Perl_pp_select(); + return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv); } -#undef Perl_pp_semctl -OP * -Perl_pp_semctl(pTHXo) +#undef Perl_warn +void +Perl_warn(pTHXo_ const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_semctl(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args); + va_end(args); } -#undef Perl_pp_semget -OP * -Perl_pp_semget(pTHXo) +#undef Perl_vwarn +void +Perl_vwarn(pTHXo_ const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_semget(); + ((CPerlObj*)pPerl)->Perl_vwarn(pat, args); } -#undef Perl_pp_semop -OP * -Perl_pp_semop(pTHXo) +#undef Perl_warner +void +Perl_warner(pTHXo_ U32 err, const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_semop(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args); + va_end(args); } -#undef Perl_pp_send -OP * -Perl_pp_send(pTHXo) +#undef Perl_vwarner +void +Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_send(); + ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args); } -#undef Perl_pp_seq -OP * -Perl_pp_seq(pTHXo) +#undef Perl_whichsig +I32 +Perl_whichsig(pTHXo_ char* sig) { - return ((CPerlObj*)pPerl)->Perl_pp_seq(); + return ((CPerlObj*)pPerl)->Perl_whichsig(sig); } +#if defined(USE_PURE_BISON) +#else +#endif +#if defined(MYMALLOC) -#undef Perl_pp_setpgrp -OP * -Perl_pp_setpgrp(pTHXo) +#undef Perl_dump_mstats +void +Perl_dump_mstats(pTHXo_ char* s) { - return ((CPerlObj*)pPerl)->Perl_pp_setpgrp(); + ((CPerlObj*)pPerl)->Perl_dump_mstats(s); } -#undef Perl_pp_setpriority -OP * -Perl_pp_setpriority(pTHXo) +#undef Perl_get_mstats +int +Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level) { - return ((CPerlObj*)pPerl)->Perl_pp_setpriority(); + return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level); } +#endif -#undef Perl_pp_setstate -OP * -Perl_pp_setstate(pTHXo) +#undef Perl_safesysmalloc +Malloc_t +Perl_safesysmalloc(MEM_SIZE nbytes) { - return ((CPerlObj*)pPerl)->Perl_pp_setstate(); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes); } -#undef Perl_pp_sge -OP * -Perl_pp_sge(pTHXo) +#undef Perl_safesyscalloc +Malloc_t +Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size) { - return ((CPerlObj*)pPerl)->Perl_pp_sge(); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size); } -#undef Perl_pp_sgrent -OP * -Perl_pp_sgrent(pTHXo) +#undef Perl_safesysrealloc +Malloc_t +Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes) { - return ((CPerlObj*)pPerl)->Perl_pp_sgrent(); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes); } -#undef Perl_pp_sgt -OP * -Perl_pp_sgt(pTHXo) +#undef Perl_safesysfree +Free_t +Perl_safesysfree(Malloc_t where) { - return ((CPerlObj*)pPerl)->Perl_pp_sgt(); + dTHXo; + ((CPerlObj*)pPerl)->Perl_safesysfree(where); } +#if defined(LEAKTEST) -#undef Perl_pp_shift -OP * -Perl_pp_shift(pTHXo) +#undef Perl_safexmalloc +Malloc_t +Perl_safexmalloc(I32 x, MEM_SIZE size) { - return ((CPerlObj*)pPerl)->Perl_pp_shift(); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size); } -#undef Perl_pp_shmctl -OP * -Perl_pp_shmctl(pTHXo) +#undef Perl_safexcalloc +Malloc_t +Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size) { - return ((CPerlObj*)pPerl)->Perl_pp_shmctl(); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size); } -#undef Perl_pp_shmget -OP * -Perl_pp_shmget(pTHXo) +#undef Perl_safexrealloc +Malloc_t +Perl_safexrealloc(Malloc_t where, MEM_SIZE size) { - return ((CPerlObj*)pPerl)->Perl_pp_shmget(); + dTHXo; + return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size); } -#undef Perl_pp_shmread -OP * -Perl_pp_shmread(pTHXo) +#undef Perl_safexfree +void +Perl_safexfree(Malloc_t where) { - return ((CPerlObj*)pPerl)->Perl_pp_shmread(); + dTHXo; + ((CPerlObj*)pPerl)->Perl_safexfree(where); } +#endif +#if defined(PERL_GLOBAL_STRUCT) -#undef Perl_pp_shmwrite -OP * -Perl_pp_shmwrite(pTHXo) +#undef Perl_GetVars +struct perl_vars * +Perl_GetVars(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_shmwrite(); + return ((CPerlObj*)pPerl)->Perl_GetVars(); } +#endif -#undef Perl_pp_shostent -OP * -Perl_pp_shostent(pTHXo) +#undef Perl_runops_standard +int +Perl_runops_standard(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_shostent(); + return ((CPerlObj*)pPerl)->Perl_runops_standard(); } -#undef Perl_pp_shutdown -OP * -Perl_pp_shutdown(pTHXo) +#undef Perl_runops_debug +int +Perl_runops_debug(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_shutdown(); + return ((CPerlObj*)pPerl)->Perl_runops_debug(); } -#undef Perl_pp_sin -OP * -Perl_pp_sin(pTHXo) +#undef Perl_sv_catpvf_mg +void +Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_sin(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args); + va_end(args); } -#undef Perl_pp_sle -OP * -Perl_pp_sle(pTHXo) +#undef Perl_sv_vcatpvf_mg +void +Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_sle(); + ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args); } -#undef Perl_pp_sleep -OP * -Perl_pp_sleep(pTHXo) +#undef Perl_sv_catpv_mg +void +Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_sleep(); + ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr); } -#undef Perl_pp_slt -OP * -Perl_pp_slt(pTHXo) +#undef Perl_sv_catpvn_mg +void +Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_slt(); + ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len); } -#undef Perl_pp_sne -OP * -Perl_pp_sne(pTHXo) +#undef Perl_sv_catsv_mg +void +Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr) { - return ((CPerlObj*)pPerl)->Perl_pp_sne(); + ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr); } -#undef Perl_pp_snetent -OP * -Perl_pp_snetent(pTHXo) +#undef Perl_sv_setpvf_mg +void +Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_snetent(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args); + va_end(args); } -#undef Perl_pp_socket -OP * -Perl_pp_socket(pTHXo) +#undef Perl_sv_vsetpvf_mg +void +Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) { - return ((CPerlObj*)pPerl)->Perl_pp_socket(); + ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args); } -#undef Perl_pp_sockpair -OP * -Perl_pp_sockpair(pTHXo) +#undef Perl_sv_setiv_mg +void +Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i) { - return ((CPerlObj*)pPerl)->Perl_pp_sockpair(); + ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i); } -#undef Perl_pp_sort -OP * -Perl_pp_sort(pTHXo) +#undef Perl_sv_setpviv_mg +void +Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv) { - return ((CPerlObj*)pPerl)->Perl_pp_sort(); + ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv); } -#undef Perl_pp_splice -OP * -Perl_pp_splice(pTHXo) +#undef Perl_sv_setuv_mg +void +Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u) { - return ((CPerlObj*)pPerl)->Perl_pp_splice(); + ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u); } -#undef Perl_pp_split -OP * -Perl_pp_split(pTHXo) +#undef Perl_sv_setnv_mg +void +Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num) { - return ((CPerlObj*)pPerl)->Perl_pp_split(); + ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num); } -#undef Perl_pp_sprintf -OP * -Perl_pp_sprintf(pTHXo) +#undef Perl_sv_setpv_mg +void +Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr) { - return ((CPerlObj*)pPerl)->Perl_pp_sprintf(); + ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr); } -#undef Perl_pp_sprotoent -OP * -Perl_pp_sprotoent(pTHXo) +#undef Perl_sv_setpvn_mg +void +Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_sprotoent(); + ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len); } -#undef Perl_pp_spwent -OP * -Perl_pp_spwent(pTHXo) +#undef Perl_sv_setsv_mg +void +Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr) { - return ((CPerlObj*)pPerl)->Perl_pp_spwent(); + ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr); } -#undef Perl_pp_sqrt -OP * -Perl_pp_sqrt(pTHXo) +#undef Perl_sv_usepvn_mg +void +Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len) { - return ((CPerlObj*)pPerl)->Perl_pp_sqrt(); + ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len); } -#undef Perl_pp_srand -OP * -Perl_pp_srand(pTHXo) +#undef Perl_get_vtbl +MGVTBL* +Perl_get_vtbl(pTHXo_ int vtbl_id) { - return ((CPerlObj*)pPerl)->Perl_pp_srand(); + return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id); } -#undef Perl_pp_srefgen -OP * -Perl_pp_srefgen(pTHXo) +#undef Perl_dump_indent +void +Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_srefgen(); + va_list args; + va_start(args, pat); + ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args); + va_end(args); } -#undef Perl_pp_sselect -OP * -Perl_pp_sselect(pTHXo) +#undef Perl_dump_vindent +void +Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args) { - return ((CPerlObj*)pPerl)->Perl_pp_sselect(); + ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args); } -#undef Perl_pp_sservent -OP * -Perl_pp_sservent(pTHXo) +#undef Perl_do_gv_dump +void +Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_sservent(); + ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv); } -#undef Perl_pp_ssockopt -OP * -Perl_pp_ssockopt(pTHXo) +#undef Perl_do_gvgv_dump +void +Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_ssockopt(); + ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv); } -#undef Perl_pp_stat -OP * -Perl_pp_stat(pTHXo) +#undef Perl_do_hv_dump +void +Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_stat(); + ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv); } -#undef Perl_pp_stringify -OP * -Perl_pp_stringify(pTHXo) +#undef Perl_do_magic_dump +void +Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) { - return ((CPerlObj*)pPerl)->Perl_pp_stringify(); + ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim); } -#undef Perl_pp_stub -OP * -Perl_pp_stub(pTHXo) +#undef Perl_do_op_dump +void +Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o) { - return ((CPerlObj*)pPerl)->Perl_pp_stub(); + ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o); } -#undef Perl_pp_study -OP * -Perl_pp_study(pTHXo) +#undef Perl_do_pmop_dump +void +Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm) { - return ((CPerlObj*)pPerl)->Perl_pp_study(); + ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm); } -#undef Perl_pp_subst -OP * -Perl_pp_subst(pTHXo) +#undef Perl_do_sv_dump +void +Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) { - return ((CPerlObj*)pPerl)->Perl_pp_subst(); + ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim); } -#undef Perl_pp_substcont -OP * -Perl_pp_substcont(pTHXo) +#undef Perl_magic_dump +void +Perl_magic_dump(pTHXo_ MAGIC *mg) { - return ((CPerlObj*)pPerl)->Perl_pp_substcont(); + ((CPerlObj*)pPerl)->Perl_magic_dump(mg); } +#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#undef Perl_pp_substr -OP * -Perl_pp_substr(pTHXo) +#undef Perl_default_protect +void* +Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...) { - return ((CPerlObj*)pPerl)->Perl_pp_substr(); + void* retval; + va_list args; + va_start(args, body); + retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args); + va_end(args); + return retval; + } -#undef Perl_pp_subtract -OP * -Perl_pp_subtract(pTHXo) +#undef Perl_vdefault_protect +void* +Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args) { - return ((CPerlObj*)pPerl)->Perl_pp_subtract(); + return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args); } +#endif -#undef Perl_pp_symlink -OP * -Perl_pp_symlink(pTHXo) +#undef Perl_reginitcolors +void +Perl_reginitcolors(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_symlink(); + ((CPerlObj*)pPerl)->Perl_reginitcolors(); } -#undef Perl_pp_syscall -OP * -Perl_pp_syscall(pTHXo) +#undef Perl_sv_2pv_nolen +char* +Perl_sv_2pv_nolen(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_syscall(); + return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv); } -#undef Perl_pp_sysopen -OP * -Perl_pp_sysopen(pTHXo) +#undef Perl_sv_2pvutf8_nolen +char* +Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_sysopen(); + return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv); } -#undef Perl_pp_sysread -OP * -Perl_pp_sysread(pTHXo) +#undef Perl_sv_2pvbyte_nolen +char* +Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv) { - return ((CPerlObj*)pPerl)->Perl_pp_sysread(); + return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv); } -#undef Perl_pp_sysseek -OP * -Perl_pp_sysseek(pTHXo) +#undef Perl_sv_pv +char* +Perl_sv_pv(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_sysseek(); + return ((CPerlObj*)pPerl)->Perl_sv_pv(sv); } -#undef Perl_pp_system -OP * -Perl_pp_system(pTHXo) +#undef Perl_sv_pvutf8 +char* +Perl_sv_pvutf8(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_system(); + return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv); } -#undef Perl_pp_syswrite -OP * -Perl_pp_syswrite(pTHXo) +#undef Perl_sv_pvbyte +char* +Perl_sv_pvbyte(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_syswrite(); + return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv); } -#undef Perl_pp_tell -OP * -Perl_pp_tell(pTHXo) +#undef Perl_sv_utf8_upgrade +void +Perl_sv_utf8_upgrade(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_tell(); + ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv); } -#undef Perl_pp_telldir -OP * -Perl_pp_telldir(pTHXo) +#undef Perl_sv_utf8_downgrade +bool +Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok) { - return ((CPerlObj*)pPerl)->Perl_pp_telldir(); + return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok); } -#undef Perl_pp_threadsv -OP * -Perl_pp_threadsv(pTHXo) +#undef Perl_sv_utf8_encode +void +Perl_sv_utf8_encode(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_threadsv(); + ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv); } -#undef Perl_pp_tie -OP * -Perl_pp_tie(pTHXo) +#undef Perl_sv_utf8_decode +bool +Perl_sv_utf8_decode(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_tie(); + return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv); } -#undef Perl_pp_tied -OP * -Perl_pp_tied(pTHXo) +#undef Perl_sv_force_normal +void +Perl_sv_force_normal(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_tied(); + ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv); } -#undef Perl_pp_time -OP * -Perl_pp_time(pTHXo) +#undef Perl_tmps_grow +void +Perl_tmps_grow(pTHXo_ I32 n) { - return ((CPerlObj*)pPerl)->Perl_pp_time(); + ((CPerlObj*)pPerl)->Perl_tmps_grow(n); } -#undef Perl_pp_tms -OP * -Perl_pp_tms(pTHXo) +#undef Perl_sv_rvweaken +SV* +Perl_sv_rvweaken(pTHXo_ SV *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_tms(); + return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv); } -#undef Perl_pp_trans -OP * -Perl_pp_trans(pTHXo) +#undef Perl_newANONATTRSUB +OP* +Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block) { - return ((CPerlObj*)pPerl)->Perl_pp_trans(); + return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block); } -#undef Perl_pp_truncate -OP * -Perl_pp_truncate(pTHXo) +#undef Perl_newATTRSUB +CV* +Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) { - return ((CPerlObj*)pPerl)->Perl_pp_truncate(); + return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block); } -#undef Perl_pp_uc -OP * -Perl_pp_uc(pTHXo) +#undef Perl_newMYSUB +void +Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) { - return ((CPerlObj*)pPerl)->Perl_pp_uc(); + ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block); } +#if defined(USE_ITHREADS) -#undef Perl_pp_ucfirst -OP * -Perl_pp_ucfirst(pTHXo) +#undef Perl_cx_dup +PERL_CONTEXT* +Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max) { - return ((CPerlObj*)pPerl)->Perl_pp_ucfirst(); + return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max); } -#undef Perl_pp_umask -OP * -Perl_pp_umask(pTHXo) +#undef Perl_si_dup +PERL_SI* +Perl_si_dup(pTHXo_ PERL_SI* si) { - return ((CPerlObj*)pPerl)->Perl_pp_umask(); + return ((CPerlObj*)pPerl)->Perl_si_dup(si); } -#undef Perl_pp_undef -OP * -Perl_pp_undef(pTHXo) +#undef Perl_ss_dup +ANY* +Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl) { - return ((CPerlObj*)pPerl)->Perl_pp_undef(); + return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl); } -#undef Perl_pp_unlink -OP * -Perl_pp_unlink(pTHXo) +#undef Perl_any_dup +void* +Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl) { - return ((CPerlObj*)pPerl)->Perl_pp_unlink(); + return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl); } -#undef Perl_pp_unpack -OP * -Perl_pp_unpack(pTHXo) +#undef Perl_he_dup +HE* +Perl_he_dup(pTHXo_ HE* e, bool shared) { - return ((CPerlObj*)pPerl)->Perl_pp_unpack(); + return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared); } -#undef Perl_pp_unshift -OP * -Perl_pp_unshift(pTHXo) +#undef Perl_re_dup +REGEXP* +Perl_re_dup(pTHXo_ REGEXP* r) { - return ((CPerlObj*)pPerl)->Perl_pp_unshift(); + return ((CPerlObj*)pPerl)->Perl_re_dup(r); } -#undef Perl_pp_unstack -OP * -Perl_pp_unstack(pTHXo) +#undef Perl_fp_dup +PerlIO* +Perl_fp_dup(pTHXo_ PerlIO* fp, char type) { - return ((CPerlObj*)pPerl)->Perl_pp_unstack(); + return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type); } -#undef Perl_pp_untie -OP * -Perl_pp_untie(pTHXo) +#undef Perl_dirp_dup +DIR* +Perl_dirp_dup(pTHXo_ DIR* dp) { - return ((CPerlObj*)pPerl)->Perl_pp_untie(); + return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp); } -#undef Perl_pp_utime -OP * -Perl_pp_utime(pTHXo) +#undef Perl_gp_dup +GP* +Perl_gp_dup(pTHXo_ GP* gp) { - return ((CPerlObj*)pPerl)->Perl_pp_utime(); + return ((CPerlObj*)pPerl)->Perl_gp_dup(gp); } -#undef Perl_pp_values -OP * -Perl_pp_values(pTHXo) +#undef Perl_mg_dup +MAGIC* +Perl_mg_dup(pTHXo_ MAGIC* mg) { - return ((CPerlObj*)pPerl)->Perl_pp_values(); + return ((CPerlObj*)pPerl)->Perl_mg_dup(mg); } -#undef Perl_pp_vec -OP * -Perl_pp_vec(pTHXo) +#undef Perl_sv_dup +SV* +Perl_sv_dup(pTHXo_ SV* sstr) { - return ((CPerlObj*)pPerl)->Perl_pp_vec(); + return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr); } +#if defined(HAVE_INTERP_INTERN) -#undef Perl_pp_wait -OP * -Perl_pp_wait(pTHXo) +#undef Perl_sys_intern_dup +void +Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst) { - return ((CPerlObj*)pPerl)->Perl_pp_wait(); + ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst); } +#endif -#undef Perl_pp_waitpid -OP * -Perl_pp_waitpid(pTHXo) +#undef Perl_ptr_table_new +PTR_TBL_t* +Perl_ptr_table_new(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_pp_waitpid(); + return ((CPerlObj*)pPerl)->Perl_ptr_table_new(); } -#undef Perl_pp_wantarray -OP * -Perl_pp_wantarray(pTHXo) +#undef Perl_ptr_table_fetch +void* +Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv) { - return ((CPerlObj*)pPerl)->Perl_pp_wantarray(); + return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv); } -#undef Perl_pp_warn -OP * -Perl_pp_warn(pTHXo) +#undef Perl_ptr_table_store +void +Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv) { - return ((CPerlObj*)pPerl)->Perl_pp_warn(); + ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv); } -#undef Perl_pp_xor -OP * -Perl_pp_xor(pTHXo) +#undef Perl_ptr_table_split +void +Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) { - return ((CPerlObj*)pPerl)->Perl_pp_xor(); + ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl); } +#endif +#if defined(PERL_OBJECT) +#else +#endif +#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) +# if defined(PL_OP_SLAB_ALLOC) +# endif +#endif +#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) +# if defined(IAMSUID) +# endif +#if defined(PERL_FLEXIBLE_EXCEPTIONS) +#endif +# if defined(USE_THREADS) +# endif +#endif +#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) +#if defined(PERL_FLEXIBLE_EXCEPTIONS) +#endif +#endif +#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) +# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) +# endif +#endif +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) +# if defined(DEBUGGING) +# endif +#endif +#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +#if 0 +#endif +# if defined(CRIPPLED_CC) +# endif +# if defined(PERL_CR_FILTER) +# endif +#endif +#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) +#endif +#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) +# if defined(LEAKTEST) +# endif +#endif +#if defined(PERL_OBJECT) +#endif #undef Perl_fprintf_nocontext int @@ -7557,9 +4016,10 @@ Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) dTHXo; va_list(arglist); va_start(arglist, format); - return (*pPerl->PL_StdIO->pVprintf)(pPerl->PL_StdIO, stream, format, arglist); + return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist); } END_EXTERN_C #endif /* PERL_OBJECT */ +#endif /* PERL_OBJECT || MULTIPLICITY */