1 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
3 perlvars.h and thrdvar.h. Any changes made here will be lost!
10 #if defined(PERL_OBJECT)
12 /* accessor functions for Perl variables (provides binary compatibility) */
19 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \
20 { return &(aTHXo->interp.v); }
21 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
22 { return &(aTHXo->interp.v); }
23 #define PERLVARI(v,t,i) PERLVAR(v,t)
24 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
31 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \
33 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
42 #if defined(PERL_IMPLICIT_SYS)
45 #if defined(USE_ITHREADS)
49 #if defined(PERL_OBJECT)
51 #if defined(PERL_OBJECT)
55 #undef Perl_amagic_call
57 Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
59 return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
62 #undef Perl_Gv_AMupdate
64 Perl_Gv_AMupdate(pTHXo_ HV* stash)
66 return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
69 #undef Perl_append_elem
71 Perl_append_elem(pTHXo_ I32 optype, OP* head, OP* tail)
73 return ((CPerlObj*)pPerl)->Perl_append_elem(optype, head, tail);
76 #undef Perl_append_list
78 Perl_append_list(pTHXo_ I32 optype, LISTOP* first, LISTOP* last)
80 return ((CPerlObj*)pPerl)->Perl_append_list(optype, first, last);
85 Perl_apply(pTHXo_ I32 type, SV** mark, SV** sp)
87 return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
90 #undef Perl_avhv_exists_ent
92 Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)
94 return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
97 #undef Perl_avhv_fetch_ent
99 Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash)
101 return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
104 #undef Perl_avhv_iternext
106 Perl_avhv_iternext(pTHXo_ AV *ar)
108 return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
111 #undef Perl_avhv_iterval
113 Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry)
115 return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
118 #undef Perl_avhv_keys
120 Perl_avhv_keys(pTHXo_ AV *ar)
122 return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
127 Perl_av_clear(pTHXo_ AV* ar)
129 ((CPerlObj*)pPerl)->Perl_av_clear(ar);
132 #undef Perl_av_extend
134 Perl_av_extend(pTHXo_ AV* ar, I32 key)
136 ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
141 Perl_av_fake(pTHXo_ I32 size, SV** svp)
143 return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
148 Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
150 return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
155 Perl_av_fill(pTHXo_ AV* ar, I32 fill)
157 ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
162 Perl_av_len(pTHXo_ AV* ar)
164 return ((CPerlObj*)pPerl)->Perl_av_len(ar);
169 Perl_av_make(pTHXo_ I32 size, SV** svp)
171 return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
176 Perl_av_pop(pTHXo_ AV* ar)
178 return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
183 Perl_av_push(pTHXo_ AV* ar, SV* val)
185 ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
190 Perl_av_reify(pTHXo_ AV* ar)
192 ((CPerlObj*)pPerl)->Perl_av_reify(ar);
197 Perl_av_shift(pTHXo_ AV* ar)
199 return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
204 Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val)
206 return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
211 Perl_av_undef(pTHXo_ AV* ar)
213 ((CPerlObj*)pPerl)->Perl_av_undef(ar);
216 #undef Perl_av_unshift
218 Perl_av_unshift(pTHXo_ AV* ar, I32 num)
220 ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
223 #undef Perl_bind_match
225 Perl_bind_match(pTHXo_ I32 type, OP* left, OP* pat)
227 return ((CPerlObj*)pPerl)->Perl_bind_match(type, left, pat);
230 #undef Perl_block_end
232 Perl_block_end(pTHXo_ I32 floor, OP* seq)
234 return ((CPerlObj*)pPerl)->Perl_block_end(floor, seq);
237 #undef Perl_block_gimme
239 Perl_block_gimme(pTHXo)
241 return ((CPerlObj*)pPerl)->Perl_block_gimme();
244 #undef Perl_block_start
246 Perl_block_start(pTHXo_ int full)
248 return ((CPerlObj*)pPerl)->Perl_block_start(full);
251 #undef Perl_boot_core_UNIVERSAL
253 Perl_boot_core_UNIVERSAL(pTHXo)
255 ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL();
258 #undef Perl_call_list
260 Perl_call_list(pTHXo_ I32 oldscope, AV* av_list)
262 ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
267 Perl_cando(pTHXo_ Mode_t mode, Uid_t effective, Stat_t* statbufp)
269 return ((CPerlObj*)pPerl)->Perl_cando(mode, effective, statbufp);
272 #undef Perl_cast_ulong
274 Perl_cast_ulong(pTHXo_ NV f)
276 return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
281 Perl_cast_i32(pTHXo_ NV f)
283 return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
288 Perl_cast_iv(pTHXo_ NV f)
290 return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
295 Perl_cast_uv(pTHXo_ NV f)
297 return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
299 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
301 #undef Perl_my_chsize
303 Perl_my_chsize(pTHXo_ int fd, Off_t length)
305 return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
308 #if defined(USE_THREADS)
310 #undef Perl_condpair_magic
312 Perl_condpair_magic(pTHXo_ SV *sv)
314 return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
320 Perl_convert(pTHXo_ I32 optype, I32 flags, OP* o)
322 return ((CPerlObj*)pPerl)->Perl_convert(optype, flags, o);
327 Perl_croak(pTHXo_ const char* pat, ...)
331 ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
337 Perl_vcroak(pTHXo_ const char* pat, va_list* args)
339 ((CPerlObj*)pPerl)->Perl_vcroak(pat, args);
341 #if defined(PERL_IMPLICIT_CONTEXT)
343 #undef Perl_croak_nocontext
345 Perl_croak_nocontext(const char* pat, ...)
350 ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
354 #undef Perl_die_nocontext
356 Perl_die_nocontext(const char* pat, ...)
362 retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
368 #undef Perl_deb_nocontext
370 Perl_deb_nocontext(const char* pat, ...)
375 ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
379 #undef Perl_form_nocontext
381 Perl_form_nocontext(const char* pat, ...)
387 retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
393 #undef Perl_mess_nocontext
395 Perl_mess_nocontext(const char* pat, ...)
401 retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
407 #undef Perl_warn_nocontext
409 Perl_warn_nocontext(const char* pat, ...)
414 ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
418 #undef Perl_warner_nocontext
420 Perl_warner_nocontext(U32 err, const char* pat, ...)
425 ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
429 #undef Perl_newSVpvf_nocontext
431 Perl_newSVpvf_nocontext(const char* pat, ...)
437 retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
443 #undef Perl_sv_catpvf_nocontext
445 Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
450 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
454 #undef Perl_sv_setpvf_nocontext
456 Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
461 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
465 #undef Perl_sv_catpvf_mg_nocontext
467 Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
472 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
476 #undef Perl_sv_setpvf_mg_nocontext
478 Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
483 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
487 #undef Perl_fprintf_nocontext
490 #undef Perl_cv_ckproto
492 Perl_cv_ckproto(pTHXo_ CV* cv, GV* gv, char* p)
494 ((CPerlObj*)pPerl)->Perl_cv_ckproto(cv, gv, p);
499 Perl_cv_clone(pTHXo_ CV* proto)
501 return ((CPerlObj*)pPerl)->Perl_cv_clone(proto);
504 #undef Perl_cv_const_sv
506 Perl_cv_const_sv(pTHXo_ CV* cv)
508 return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
511 #undef Perl_op_const_sv
513 Perl_op_const_sv(pTHXo_ OP* o, CV* cv)
515 return ((CPerlObj*)pPerl)->Perl_op_const_sv(o, cv);
520 Perl_cv_undef(pTHXo_ CV* cv)
522 ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
527 Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
529 ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
532 #undef Perl_filter_add
534 Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv)
536 return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
539 #undef Perl_filter_del
541 Perl_filter_del(pTHXo_ filter_t funcp)
543 ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
546 #undef Perl_filter_read
548 Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen)
550 return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
553 #undef Perl_get_op_descs
555 Perl_get_op_descs(pTHXo)
557 return ((CPerlObj*)pPerl)->Perl_get_op_descs();
560 #undef Perl_get_op_names
562 Perl_get_op_names(pTHXo)
564 return ((CPerlObj*)pPerl)->Perl_get_op_names();
567 #undef Perl_get_no_modify
569 Perl_get_no_modify(pTHXo)
571 return ((CPerlObj*)pPerl)->Perl_get_no_modify();
574 #undef Perl_get_opargs
576 Perl_get_opargs(pTHXo)
578 return ((CPerlObj*)pPerl)->Perl_get_opargs();
581 #undef Perl_get_ppaddr
583 Perl_get_ppaddr(pTHXo)
585 return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
592 return ((CPerlObj*)pPerl)->Perl_cxinc();
597 Perl_deb(pTHXo_ const char* pat, ...)
601 ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
607 Perl_vdeb(pTHXo_ const char* pat, va_list* args)
609 ((CPerlObj*)pPerl)->Perl_vdeb(pat, args);
612 #undef Perl_debprofdump
614 Perl_debprofdump(pTHXo)
616 ((CPerlObj*)pPerl)->Perl_debprofdump();
621 Perl_debop(pTHXo_ OP* o)
623 return ((CPerlObj*)pPerl)->Perl_debop(o);
630 return ((CPerlObj*)pPerl)->Perl_debstack();
633 #undef Perl_debstackptrs
635 Perl_debstackptrs(pTHXo)
637 return ((CPerlObj*)pPerl)->Perl_debstackptrs();
642 Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
644 return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
647 #undef Perl_deprecate
649 Perl_deprecate(pTHXo_ char* s)
651 ((CPerlObj*)pPerl)->Perl_deprecate(s);
656 Perl_die(pTHXo_ const char* pat, ...)
661 retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
669 Perl_vdie(pTHXo_ const char* pat, va_list* args)
671 return ((CPerlObj*)pPerl)->Perl_vdie(pat, args);
674 #undef Perl_die_where
676 Perl_die_where(pTHXo_ char* message, STRLEN msglen)
678 return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen);
683 Perl_dounwind(pTHXo_ I32 cxix)
685 ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
690 Perl_do_aexec(pTHXo_ SV* really, SV** mark, SV** sp)
692 return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
695 #undef Perl_do_aexec5
697 Perl_do_aexec5(pTHXo_ SV* really, SV** mark, SV** sp, int fd, int flag)
699 return ((CPerlObj*)pPerl)->Perl_do_aexec5(really, mark, sp, fd, flag);
702 #undef Perl_do_binmode
704 Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
706 return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
711 Perl_do_chop(pTHXo_ SV* asv, SV* sv)
713 ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv);
718 Perl_do_close(pTHXo_ GV* gv, bool not_implicit)
720 return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
725 Perl_do_eof(pTHXo_ GV* gv)
727 return ((CPerlObj*)pPerl)->Perl_do_eof(gv);
732 Perl_do_exec(pTHXo_ char* cmd)
734 return ((CPerlObj*)pPerl)->Perl_do_exec(cmd);
740 Perl_do_exec3(pTHXo_ char* cmd, int fd, int flag)
742 return ((CPerlObj*)pPerl)->Perl_do_exec3(cmd, fd, flag);
746 #undef Perl_do_execfree
748 Perl_do_execfree(pTHXo)
750 ((CPerlObj*)pPerl)->Perl_do_execfree();
752 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
754 #undef Perl_do_ipcctl
756 Perl_do_ipcctl(pTHXo_ I32 optype, SV** mark, SV** sp)
758 return ((CPerlObj*)pPerl)->Perl_do_ipcctl(optype, mark, sp);
761 #undef Perl_do_ipcget
763 Perl_do_ipcget(pTHXo_ I32 optype, SV** mark, SV** sp)
765 return ((CPerlObj*)pPerl)->Perl_do_ipcget(optype, mark, sp);
768 #undef Perl_do_msgrcv
770 Perl_do_msgrcv(pTHXo_ SV** mark, SV** sp)
772 return ((CPerlObj*)pPerl)->Perl_do_msgrcv(mark, sp);
775 #undef Perl_do_msgsnd
777 Perl_do_msgsnd(pTHXo_ SV** mark, SV** sp)
779 return ((CPerlObj*)pPerl)->Perl_do_msgsnd(mark, sp);
784 Perl_do_semop(pTHXo_ SV** mark, SV** sp)
786 return ((CPerlObj*)pPerl)->Perl_do_semop(mark, sp);
791 Perl_do_shmio(pTHXo_ I32 optype, SV** mark, SV** sp)
793 return ((CPerlObj*)pPerl)->Perl_do_shmio(optype, mark, sp);
799 Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp)
801 ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
808 return ((CPerlObj*)pPerl)->Perl_do_kv();
813 Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
815 return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
820 Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
822 return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
827 Perl_do_pipe(pTHXo_ SV* sv, GV* rgv, GV* wgv)
829 ((CPerlObj*)pPerl)->Perl_do_pipe(sv, rgv, wgv);
834 Perl_do_print(pTHXo_ SV* sv, PerlIO* fp)
836 return ((CPerlObj*)pPerl)->Perl_do_print(sv, fp);
839 #undef Perl_do_readline
841 Perl_do_readline(pTHXo)
843 return ((CPerlObj*)pPerl)->Perl_do_readline();
848 Perl_do_chomp(pTHXo_ SV* sv)
850 return ((CPerlObj*)pPerl)->Perl_do_chomp(sv);
855 Perl_do_seek(pTHXo_ GV* gv, Off_t pos, int whence)
857 return ((CPerlObj*)pPerl)->Perl_do_seek(gv, pos, whence);
860 #undef Perl_do_sprintf
862 Perl_do_sprintf(pTHXo_ SV* sv, I32 len, SV** sarg)
864 ((CPerlObj*)pPerl)->Perl_do_sprintf(sv, len, sarg);
867 #undef Perl_do_sysseek
869 Perl_do_sysseek(pTHXo_ GV* gv, Off_t pos, int whence)
871 return ((CPerlObj*)pPerl)->Perl_do_sysseek(gv, pos, whence);
876 Perl_do_tell(pTHXo_ GV* gv)
878 return ((CPerlObj*)pPerl)->Perl_do_tell(gv);
883 Perl_do_trans(pTHXo_ SV* sv)
885 return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
888 #undef Perl_do_vecget
890 Perl_do_vecget(pTHXo_ SV* sv, I32 offset, I32 size)
892 return ((CPerlObj*)pPerl)->Perl_do_vecget(sv, offset, size);
895 #undef Perl_do_vecset
897 Perl_do_vecset(pTHXo_ SV* sv)
899 ((CPerlObj*)pPerl)->Perl_do_vecset(sv);
904 Perl_do_vop(pTHXo_ I32 optype, SV* sv, SV* left, SV* right)
906 ((CPerlObj*)pPerl)->Perl_do_vop(optype, sv, left, right);
911 Perl_dofile(pTHXo_ OP* term)
913 return ((CPerlObj*)pPerl)->Perl_dofile(term);
916 #undef Perl_dowantarray
918 Perl_dowantarray(pTHXo)
920 return ((CPerlObj*)pPerl)->Perl_dowantarray();
927 ((CPerlObj*)pPerl)->Perl_dump_all();
930 #undef Perl_dump_eval
932 Perl_dump_eval(pTHXo)
934 ((CPerlObj*)pPerl)->Perl_dump_eval();
936 #if defined(DUMP_FDS)
940 Perl_dump_fds(pTHXo_ char* s)
942 ((CPerlObj*)pPerl)->Perl_dump_fds(s);
946 #undef Perl_dump_form
948 Perl_dump_form(pTHXo_ GV* gv)
950 ((CPerlObj*)pPerl)->Perl_dump_form(gv);
955 Perl_gv_dump(pTHXo_ GV* gv)
957 ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
962 Perl_op_dump(pTHXo_ OP* arg)
964 ((CPerlObj*)pPerl)->Perl_op_dump(arg);
967 #undef Perl_pmop_dump
969 Perl_pmop_dump(pTHXo_ PMOP* pm)
971 ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
974 #undef Perl_dump_packsubs
976 Perl_dump_packsubs(pTHXo_ HV* stash)
978 ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
983 Perl_dump_sub(pTHXo_ GV* gv)
985 ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
988 #undef Perl_fbm_compile
990 Perl_fbm_compile(pTHXo_ SV* sv, U32 flags)
992 ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
995 #undef Perl_fbm_instr
997 Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
999 return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
1002 #undef Perl_find_script
1004 Perl_find_script(pTHXo_ char *scriptname, bool dosearch, char **search_ext, I32 flags)
1006 return ((CPerlObj*)pPerl)->Perl_find_script(scriptname, dosearch, search_ext, flags);
1008 #if defined(USE_THREADS)
1010 #undef Perl_find_threadsv
1012 Perl_find_threadsv(pTHXo_ const char *name)
1014 return ((CPerlObj*)pPerl)->Perl_find_threadsv(name);
1018 #undef Perl_force_list
1020 Perl_force_list(pTHXo_ OP* arg)
1022 return ((CPerlObj*)pPerl)->Perl_force_list(arg);
1025 #undef Perl_fold_constants
1027 Perl_fold_constants(pTHXo_ OP* arg)
1029 return ((CPerlObj*)pPerl)->Perl_fold_constants(arg);
1034 Perl_form(pTHXo_ const char* pat, ...)
1038 va_start(args, pat);
1039 retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
1047 Perl_vform(pTHXo_ const char* pat, va_list* args)
1049 return ((CPerlObj*)pPerl)->Perl_vform(pat, args);
1052 #undef Perl_free_tmps
1054 Perl_free_tmps(pTHXo)
1056 ((CPerlObj*)pPerl)->Perl_free_tmps();
1059 #undef Perl_gen_constant_list
1061 Perl_gen_constant_list(pTHXo_ OP* o)
1063 return ((CPerlObj*)pPerl)->Perl_gen_constant_list(o);
1065 #if !defined(HAS_GETENV_LEN)
1067 #undef Perl_getenv_len
1069 Perl_getenv_len(pTHXo_ char* key, unsigned long *len)
1071 return ((CPerlObj*)pPerl)->Perl_getenv_len(key, len);
1077 Perl_gp_free(pTHXo_ GV* gv)
1079 ((CPerlObj*)pPerl)->Perl_gp_free(gv);
1084 Perl_gp_ref(pTHXo_ GP* gp)
1086 return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
1089 #undef Perl_gv_AVadd
1091 Perl_gv_AVadd(pTHXo_ GV* gv)
1093 return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
1096 #undef Perl_gv_HVadd
1098 Perl_gv_HVadd(pTHXo_ GV* gv)
1100 return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
1103 #undef Perl_gv_IOadd
1105 Perl_gv_IOadd(pTHXo_ GV* gv)
1107 return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
1110 #undef Perl_gv_autoload4
1112 Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method)
1114 return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
1117 #undef Perl_gv_check
1119 Perl_gv_check(pTHXo_ HV* stash)
1121 ((CPerlObj*)pPerl)->Perl_gv_check(stash);
1124 #undef Perl_gv_efullname
1126 Perl_gv_efullname(pTHXo_ SV* sv, GV* gv)
1128 ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
1131 #undef Perl_gv_efullname3
1133 Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
1135 ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
1138 #undef Perl_gv_fetchfile
1140 Perl_gv_fetchfile(pTHXo_ const char* name)
1142 return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
1145 #undef Perl_gv_fetchmeth
1147 Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level)
1149 return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
1152 #undef Perl_gv_fetchmethod
1154 Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name)
1156 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
1159 #undef Perl_gv_fetchmethod_autoload
1161 Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload)
1163 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
1166 #undef Perl_gv_fetchpv
1168 Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type)
1170 return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
1173 #undef Perl_gv_fullname
1175 Perl_gv_fullname(pTHXo_ SV* sv, GV* gv)
1177 ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
1180 #undef Perl_gv_fullname3
1182 Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
1184 ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
1189 Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
1191 ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
1194 #undef Perl_gv_stashpv
1196 Perl_gv_stashpv(pTHXo_ const char* name, I32 create)
1198 return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
1201 #undef Perl_gv_stashpvn
1203 Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create)
1205 return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
1208 #undef Perl_gv_stashsv
1210 Perl_gv_stashsv(pTHXo_ SV* sv, I32 create)
1212 return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
1215 #undef Perl_hv_clear
1217 Perl_hv_clear(pTHXo_ HV* tb)
1219 ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
1222 #undef Perl_hv_delayfree_ent
1224 Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
1226 ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
1229 #undef Perl_hv_delete
1231 Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags)
1233 return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
1236 #undef Perl_hv_delete_ent
1238 Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
1240 return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
1243 #undef Perl_hv_exists
1245 Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen)
1247 return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
1250 #undef Perl_hv_exists_ent
1252 Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
1254 return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
1257 #undef Perl_hv_fetch
1259 Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval)
1261 return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
1264 #undef Perl_hv_fetch_ent
1266 Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash)
1268 return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
1271 #undef Perl_hv_free_ent
1273 Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry)
1275 ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
1278 #undef Perl_hv_iterinit
1280 Perl_hv_iterinit(pTHXo_ HV* tb)
1282 return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
1285 #undef Perl_hv_iterkey
1287 Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen)
1289 return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
1292 #undef Perl_hv_iterkeysv
1294 Perl_hv_iterkeysv(pTHXo_ HE* entry)
1296 return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
1299 #undef Perl_hv_iternext
1301 Perl_hv_iternext(pTHXo_ HV* tb)
1303 return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
1306 #undef Perl_hv_iternextsv
1308 Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen)
1310 return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
1313 #undef Perl_hv_iterval
1315 Perl_hv_iterval(pTHXo_ HV* tb, HE* entry)
1317 return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
1320 #undef Perl_hv_ksplit
1322 Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax)
1324 ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1327 #undef Perl_hv_magic
1329 Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
1331 ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
1334 #undef Perl_hv_store
1336 Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash)
1338 return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
1341 #undef Perl_hv_store_ent
1343 Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash)
1345 return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1348 #undef Perl_hv_undef
1350 Perl_hv_undef(pTHXo_ HV* tb)
1352 ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1357 Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len)
1359 return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1362 #undef Perl_ibcmp_locale
1364 Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len)
1366 return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1371 Perl_ingroup(pTHXo_ Gid_t testgid, Uid_t effective)
1373 return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
1376 #undef Perl_init_debugger
1378 Perl_init_debugger(pTHXo)
1380 ((CPerlObj*)pPerl)->Perl_init_debugger();
1383 #undef Perl_init_stacks
1385 Perl_init_stacks(pTHXo)
1387 ((CPerlObj*)pPerl)->Perl_init_stacks();
1390 #undef Perl_intro_my
1392 Perl_intro_my(pTHXo)
1394 return ((CPerlObj*)pPerl)->Perl_intro_my();
1399 Perl_instr(pTHXo_ const char* big, const char* little)
1401 return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1404 #undef Perl_io_close
1406 Perl_io_close(pTHXo_ IO* io, bool not_implicit)
1408 return ((CPerlObj*)pPerl)->Perl_io_close(io, not_implicit);
1413 Perl_invert(pTHXo_ OP* cmd)
1415 return ((CPerlObj*)pPerl)->Perl_invert(cmd);
1418 #undef Perl_is_uni_alnum
1420 Perl_is_uni_alnum(pTHXo_ U32 c)
1422 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1425 #undef Perl_is_uni_alnumc
1427 Perl_is_uni_alnumc(pTHXo_ U32 c)
1429 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1432 #undef Perl_is_uni_idfirst
1434 Perl_is_uni_idfirst(pTHXo_ U32 c)
1436 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1439 #undef Perl_is_uni_alpha
1441 Perl_is_uni_alpha(pTHXo_ U32 c)
1443 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1446 #undef Perl_is_uni_ascii
1448 Perl_is_uni_ascii(pTHXo_ U32 c)
1450 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1453 #undef Perl_is_uni_space
1455 Perl_is_uni_space(pTHXo_ U32 c)
1457 return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1460 #undef Perl_is_uni_cntrl
1462 Perl_is_uni_cntrl(pTHXo_ U32 c)
1464 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1467 #undef Perl_is_uni_graph
1469 Perl_is_uni_graph(pTHXo_ U32 c)
1471 return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1474 #undef Perl_is_uni_digit
1476 Perl_is_uni_digit(pTHXo_ U32 c)
1478 return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1481 #undef Perl_is_uni_upper
1483 Perl_is_uni_upper(pTHXo_ U32 c)
1485 return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1488 #undef Perl_is_uni_lower
1490 Perl_is_uni_lower(pTHXo_ U32 c)
1492 return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1495 #undef Perl_is_uni_print
1497 Perl_is_uni_print(pTHXo_ U32 c)
1499 return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1502 #undef Perl_is_uni_punct
1504 Perl_is_uni_punct(pTHXo_ U32 c)
1506 return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1509 #undef Perl_is_uni_xdigit
1511 Perl_is_uni_xdigit(pTHXo_ U32 c)
1513 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1516 #undef Perl_to_uni_upper
1518 Perl_to_uni_upper(pTHXo_ U32 c)
1520 return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1523 #undef Perl_to_uni_title
1525 Perl_to_uni_title(pTHXo_ U32 c)
1527 return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1530 #undef Perl_to_uni_lower
1532 Perl_to_uni_lower(pTHXo_ U32 c)
1534 return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1537 #undef Perl_is_uni_alnum_lc
1539 Perl_is_uni_alnum_lc(pTHXo_ U32 c)
1541 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1544 #undef Perl_is_uni_alnumc_lc
1546 Perl_is_uni_alnumc_lc(pTHXo_ U32 c)
1548 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1551 #undef Perl_is_uni_idfirst_lc
1553 Perl_is_uni_idfirst_lc(pTHXo_ U32 c)
1555 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1558 #undef Perl_is_uni_alpha_lc
1560 Perl_is_uni_alpha_lc(pTHXo_ U32 c)
1562 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1565 #undef Perl_is_uni_ascii_lc
1567 Perl_is_uni_ascii_lc(pTHXo_ U32 c)
1569 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1572 #undef Perl_is_uni_space_lc
1574 Perl_is_uni_space_lc(pTHXo_ U32 c)
1576 return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1579 #undef Perl_is_uni_cntrl_lc
1581 Perl_is_uni_cntrl_lc(pTHXo_ U32 c)
1583 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1586 #undef Perl_is_uni_graph_lc
1588 Perl_is_uni_graph_lc(pTHXo_ U32 c)
1590 return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1593 #undef Perl_is_uni_digit_lc
1595 Perl_is_uni_digit_lc(pTHXo_ U32 c)
1597 return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1600 #undef Perl_is_uni_upper_lc
1602 Perl_is_uni_upper_lc(pTHXo_ U32 c)
1604 return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1607 #undef Perl_is_uni_lower_lc
1609 Perl_is_uni_lower_lc(pTHXo_ U32 c)
1611 return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1614 #undef Perl_is_uni_print_lc
1616 Perl_is_uni_print_lc(pTHXo_ U32 c)
1618 return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1621 #undef Perl_is_uni_punct_lc
1623 Perl_is_uni_punct_lc(pTHXo_ U32 c)
1625 return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1628 #undef Perl_is_uni_xdigit_lc
1630 Perl_is_uni_xdigit_lc(pTHXo_ U32 c)
1632 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1635 #undef Perl_to_uni_upper_lc
1637 Perl_to_uni_upper_lc(pTHXo_ U32 c)
1639 return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1642 #undef Perl_to_uni_title_lc
1644 Perl_to_uni_title_lc(pTHXo_ U32 c)
1646 return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1649 #undef Perl_to_uni_lower_lc
1651 Perl_to_uni_lower_lc(pTHXo_ U32 c)
1653 return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1656 #undef Perl_is_utf8_alnum
1658 Perl_is_utf8_alnum(pTHXo_ U8 *p)
1660 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1663 #undef Perl_is_utf8_alnumc
1665 Perl_is_utf8_alnumc(pTHXo_ U8 *p)
1667 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1670 #undef Perl_is_utf8_idfirst
1672 Perl_is_utf8_idfirst(pTHXo_ U8 *p)
1674 return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1677 #undef Perl_is_utf8_alpha
1679 Perl_is_utf8_alpha(pTHXo_ U8 *p)
1681 return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1684 #undef Perl_is_utf8_ascii
1686 Perl_is_utf8_ascii(pTHXo_ U8 *p)
1688 return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1691 #undef Perl_is_utf8_space
1693 Perl_is_utf8_space(pTHXo_ U8 *p)
1695 return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1698 #undef Perl_is_utf8_cntrl
1700 Perl_is_utf8_cntrl(pTHXo_ U8 *p)
1702 return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1705 #undef Perl_is_utf8_digit
1707 Perl_is_utf8_digit(pTHXo_ U8 *p)
1709 return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1712 #undef Perl_is_utf8_graph
1714 Perl_is_utf8_graph(pTHXo_ U8 *p)
1716 return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1719 #undef Perl_is_utf8_upper
1721 Perl_is_utf8_upper(pTHXo_ U8 *p)
1723 return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1726 #undef Perl_is_utf8_lower
1728 Perl_is_utf8_lower(pTHXo_ U8 *p)
1730 return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1733 #undef Perl_is_utf8_print
1735 Perl_is_utf8_print(pTHXo_ U8 *p)
1737 return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1740 #undef Perl_is_utf8_punct
1742 Perl_is_utf8_punct(pTHXo_ U8 *p)
1744 return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1747 #undef Perl_is_utf8_xdigit
1749 Perl_is_utf8_xdigit(pTHXo_ U8 *p)
1751 return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1754 #undef Perl_is_utf8_mark
1756 Perl_is_utf8_mark(pTHXo_ U8 *p)
1758 return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1763 Perl_jmaybe(pTHXo_ OP* arg)
1765 return ((CPerlObj*)pPerl)->Perl_jmaybe(arg);
1770 Perl_keyword(pTHXo_ char* d, I32 len)
1772 return ((CPerlObj*)pPerl)->Perl_keyword(d, len);
1775 #undef Perl_leave_scope
1777 Perl_leave_scope(pTHXo_ I32 base)
1779 ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1786 ((CPerlObj*)pPerl)->Perl_lex_end();
1789 #undef Perl_lex_start
1791 Perl_lex_start(pTHXo_ SV* line)
1793 ((CPerlObj*)pPerl)->Perl_lex_start(line);
1796 #undef Perl_linklist
1798 Perl_linklist(pTHXo_ OP* o)
1800 return ((CPerlObj*)pPerl)->Perl_linklist(o);
1805 Perl_list(pTHXo_ OP* o)
1807 return ((CPerlObj*)pPerl)->Perl_list(o);
1810 #undef Perl_listkids
1812 Perl_listkids(pTHXo_ OP* o)
1814 return ((CPerlObj*)pPerl)->Perl_listkids(o);
1817 #undef Perl_localize
1819 Perl_localize(pTHXo_ OP* arg, I32 lexical)
1821 return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical);
1824 #undef Perl_looks_like_number
1826 Perl_looks_like_number(pTHXo_ SV* sv)
1828 return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1831 #undef Perl_magic_clearenv
1833 Perl_magic_clearenv(pTHXo_ SV* sv, MAGIC* mg)
1835 return ((CPerlObj*)pPerl)->Perl_magic_clearenv(sv, mg);
1838 #undef Perl_magic_clear_all_env
1840 Perl_magic_clear_all_env(pTHXo_ SV* sv, MAGIC* mg)
1842 return ((CPerlObj*)pPerl)->Perl_magic_clear_all_env(sv, mg);
1845 #undef Perl_magic_clearpack
1847 Perl_magic_clearpack(pTHXo_ SV* sv, MAGIC* mg)
1849 return ((CPerlObj*)pPerl)->Perl_magic_clearpack(sv, mg);
1852 #undef Perl_magic_clearsig
1854 Perl_magic_clearsig(pTHXo_ SV* sv, MAGIC* mg)
1856 return ((CPerlObj*)pPerl)->Perl_magic_clearsig(sv, mg);
1859 #undef Perl_magic_existspack
1861 Perl_magic_existspack(pTHXo_ SV* sv, MAGIC* mg)
1863 return ((CPerlObj*)pPerl)->Perl_magic_existspack(sv, mg);
1866 #undef Perl_magic_freeregexp
1868 Perl_magic_freeregexp(pTHXo_ SV* sv, MAGIC* mg)
1870 return ((CPerlObj*)pPerl)->Perl_magic_freeregexp(sv, mg);
1873 #undef Perl_magic_get
1875 Perl_magic_get(pTHXo_ SV* sv, MAGIC* mg)
1877 return ((CPerlObj*)pPerl)->Perl_magic_get(sv, mg);
1880 #undef Perl_magic_getarylen
1882 Perl_magic_getarylen(pTHXo_ SV* sv, MAGIC* mg)
1884 return ((CPerlObj*)pPerl)->Perl_magic_getarylen(sv, mg);
1887 #undef Perl_magic_getdefelem
1889 Perl_magic_getdefelem(pTHXo_ SV* sv, MAGIC* mg)
1891 return ((CPerlObj*)pPerl)->Perl_magic_getdefelem(sv, mg);
1894 #undef Perl_magic_getglob
1896 Perl_magic_getglob(pTHXo_ SV* sv, MAGIC* mg)
1898 return ((CPerlObj*)pPerl)->Perl_magic_getglob(sv, mg);
1901 #undef Perl_magic_getnkeys
1903 Perl_magic_getnkeys(pTHXo_ SV* sv, MAGIC* mg)
1905 return ((CPerlObj*)pPerl)->Perl_magic_getnkeys(sv, mg);
1908 #undef Perl_magic_getpack
1910 Perl_magic_getpack(pTHXo_ SV* sv, MAGIC* mg)
1912 return ((CPerlObj*)pPerl)->Perl_magic_getpack(sv, mg);
1915 #undef Perl_magic_getpos
1917 Perl_magic_getpos(pTHXo_ SV* sv, MAGIC* mg)
1919 return ((CPerlObj*)pPerl)->Perl_magic_getpos(sv, mg);
1922 #undef Perl_magic_getsig
1924 Perl_magic_getsig(pTHXo_ SV* sv, MAGIC* mg)
1926 return ((CPerlObj*)pPerl)->Perl_magic_getsig(sv, mg);
1929 #undef Perl_magic_getsubstr
1931 Perl_magic_getsubstr(pTHXo_ SV* sv, MAGIC* mg)
1933 return ((CPerlObj*)pPerl)->Perl_magic_getsubstr(sv, mg);
1936 #undef Perl_magic_gettaint
1938 Perl_magic_gettaint(pTHXo_ SV* sv, MAGIC* mg)
1940 return ((CPerlObj*)pPerl)->Perl_magic_gettaint(sv, mg);
1943 #undef Perl_magic_getuvar
1945 Perl_magic_getuvar(pTHXo_ SV* sv, MAGIC* mg)
1947 return ((CPerlObj*)pPerl)->Perl_magic_getuvar(sv, mg);
1950 #undef Perl_magic_getvec
1952 Perl_magic_getvec(pTHXo_ SV* sv, MAGIC* mg)
1954 return ((CPerlObj*)pPerl)->Perl_magic_getvec(sv, mg);
1957 #undef Perl_magic_len
1959 Perl_magic_len(pTHXo_ SV* sv, MAGIC* mg)
1961 return ((CPerlObj*)pPerl)->Perl_magic_len(sv, mg);
1963 #if defined(USE_THREADS)
1965 #undef Perl_magic_mutexfree
1967 Perl_magic_mutexfree(pTHXo_ SV* sv, MAGIC* mg)
1969 return ((CPerlObj*)pPerl)->Perl_magic_mutexfree(sv, mg);
1973 #undef Perl_magic_nextpack
1975 Perl_magic_nextpack(pTHXo_ SV* sv, MAGIC* mg, SV* key)
1977 return ((CPerlObj*)pPerl)->Perl_magic_nextpack(sv, mg, key);
1980 #undef Perl_magic_regdata_cnt
1982 Perl_magic_regdata_cnt(pTHXo_ SV* sv, MAGIC* mg)
1984 return ((CPerlObj*)pPerl)->Perl_magic_regdata_cnt(sv, mg);
1987 #undef Perl_magic_regdatum_get
1989 Perl_magic_regdatum_get(pTHXo_ SV* sv, MAGIC* mg)
1991 return ((CPerlObj*)pPerl)->Perl_magic_regdatum_get(sv, mg);
1994 #undef Perl_magic_set
1996 Perl_magic_set(pTHXo_ SV* sv, MAGIC* mg)
1998 return ((CPerlObj*)pPerl)->Perl_magic_set(sv, mg);
2001 #undef Perl_magic_setamagic
2003 Perl_magic_setamagic(pTHXo_ SV* sv, MAGIC* mg)
2005 return ((CPerlObj*)pPerl)->Perl_magic_setamagic(sv, mg);
2008 #undef Perl_magic_setarylen
2010 Perl_magic_setarylen(pTHXo_ SV* sv, MAGIC* mg)
2012 return ((CPerlObj*)pPerl)->Perl_magic_setarylen(sv, mg);
2015 #undef Perl_magic_setbm
2017 Perl_magic_setbm(pTHXo_ SV* sv, MAGIC* mg)
2019 return ((CPerlObj*)pPerl)->Perl_magic_setbm(sv, mg);
2022 #undef Perl_magic_setdbline
2024 Perl_magic_setdbline(pTHXo_ SV* sv, MAGIC* mg)
2026 return ((CPerlObj*)pPerl)->Perl_magic_setdbline(sv, mg);
2028 #if defined(USE_LOCALE_COLLATE)
2030 #undef Perl_magic_setcollxfrm
2032 Perl_magic_setcollxfrm(pTHXo_ SV* sv, MAGIC* mg)
2034 return ((CPerlObj*)pPerl)->Perl_magic_setcollxfrm(sv, mg);
2038 #undef Perl_magic_setdefelem
2040 Perl_magic_setdefelem(pTHXo_ SV* sv, MAGIC* mg)
2042 return ((CPerlObj*)pPerl)->Perl_magic_setdefelem(sv, mg);
2045 #undef Perl_magic_setenv
2047 Perl_magic_setenv(pTHXo_ SV* sv, MAGIC* mg)
2049 return ((CPerlObj*)pPerl)->Perl_magic_setenv(sv, mg);
2052 #undef Perl_magic_setfm
2054 Perl_magic_setfm(pTHXo_ SV* sv, MAGIC* mg)
2056 return ((CPerlObj*)pPerl)->Perl_magic_setfm(sv, mg);
2059 #undef Perl_magic_setisa
2061 Perl_magic_setisa(pTHXo_ SV* sv, MAGIC* mg)
2063 return ((CPerlObj*)pPerl)->Perl_magic_setisa(sv, mg);
2066 #undef Perl_magic_setglob
2068 Perl_magic_setglob(pTHXo_ SV* sv, MAGIC* mg)
2070 return ((CPerlObj*)pPerl)->Perl_magic_setglob(sv, mg);
2073 #undef Perl_magic_setmglob
2075 Perl_magic_setmglob(pTHXo_ SV* sv, MAGIC* mg)
2077 return ((CPerlObj*)pPerl)->Perl_magic_setmglob(sv, mg);
2080 #undef Perl_magic_setnkeys
2082 Perl_magic_setnkeys(pTHXo_ SV* sv, MAGIC* mg)
2084 return ((CPerlObj*)pPerl)->Perl_magic_setnkeys(sv, mg);
2087 #undef Perl_magic_setpack
2089 Perl_magic_setpack(pTHXo_ SV* sv, MAGIC* mg)
2091 return ((CPerlObj*)pPerl)->Perl_magic_setpack(sv, mg);
2094 #undef Perl_magic_setpos
2096 Perl_magic_setpos(pTHXo_ SV* sv, MAGIC* mg)
2098 return ((CPerlObj*)pPerl)->Perl_magic_setpos(sv, mg);
2101 #undef Perl_magic_setsig
2103 Perl_magic_setsig(pTHXo_ SV* sv, MAGIC* mg)
2105 return ((CPerlObj*)pPerl)->Perl_magic_setsig(sv, mg);
2108 #undef Perl_magic_setsubstr
2110 Perl_magic_setsubstr(pTHXo_ SV* sv, MAGIC* mg)
2112 return ((CPerlObj*)pPerl)->Perl_magic_setsubstr(sv, mg);
2115 #undef Perl_magic_settaint
2117 Perl_magic_settaint(pTHXo_ SV* sv, MAGIC* mg)
2119 return ((CPerlObj*)pPerl)->Perl_magic_settaint(sv, mg);
2122 #undef Perl_magic_setuvar
2124 Perl_magic_setuvar(pTHXo_ SV* sv, MAGIC* mg)
2126 return ((CPerlObj*)pPerl)->Perl_magic_setuvar(sv, mg);
2129 #undef Perl_magic_setvec
2131 Perl_magic_setvec(pTHXo_ SV* sv, MAGIC* mg)
2133 return ((CPerlObj*)pPerl)->Perl_magic_setvec(sv, mg);
2136 #undef Perl_magic_set_all_env
2138 Perl_magic_set_all_env(pTHXo_ SV* sv, MAGIC* mg)
2140 return ((CPerlObj*)pPerl)->Perl_magic_set_all_env(sv, mg);
2143 #undef Perl_magic_sizepack
2145 Perl_magic_sizepack(pTHXo_ SV* sv, MAGIC* mg)
2147 return ((CPerlObj*)pPerl)->Perl_magic_sizepack(sv, mg);
2150 #undef Perl_magic_wipepack
2152 Perl_magic_wipepack(pTHXo_ SV* sv, MAGIC* mg)
2154 return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg);
2157 #undef Perl_magicname
2159 Perl_magicname(pTHXo_ char* sym, char* name, I32 namlen)
2161 ((CPerlObj*)pPerl)->Perl_magicname(sym, name, namlen);
2164 #undef Perl_markstack_grow
2166 Perl_markstack_grow(pTHXo)
2168 ((CPerlObj*)pPerl)->Perl_markstack_grow();
2170 #if defined(USE_LOCALE_COLLATE)
2172 #undef Perl_mem_collxfrm
2174 Perl_mem_collxfrm(pTHXo_ const char* s, STRLEN len, STRLEN* xlen)
2176 return ((CPerlObj*)pPerl)->Perl_mem_collxfrm(s, len, xlen);
2182 Perl_mess(pTHXo_ const char* pat, ...)
2186 va_start(args, pat);
2187 retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
2195 Perl_vmess(pTHXo_ const char* pat, va_list* args)
2197 return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
2202 Perl_qerror(pTHXo_ SV* err)
2204 ((CPerlObj*)pPerl)->Perl_qerror(err);
2207 #undef Perl_mg_clear
2209 Perl_mg_clear(pTHXo_ SV* sv)
2211 return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
2216 Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen)
2218 return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
2223 Perl_mg_find(pTHXo_ SV* sv, int type)
2225 return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
2230 Perl_mg_free(pTHXo_ SV* sv)
2232 return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
2237 Perl_mg_get(pTHXo_ SV* sv)
2239 return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
2242 #undef Perl_mg_length
2244 Perl_mg_length(pTHXo_ SV* sv)
2246 return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
2249 #undef Perl_mg_magical
2251 Perl_mg_magical(pTHXo_ SV* sv)
2253 ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
2258 Perl_mg_set(pTHXo_ SV* sv)
2260 return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
2265 Perl_mg_size(pTHXo_ SV* sv)
2267 return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
2272 Perl_mod(pTHXo_ OP* o, I32 type)
2274 return ((CPerlObj*)pPerl)->Perl_mod(o, type);
2277 #undef Perl_moreswitches
2279 Perl_moreswitches(pTHXo_ char* s)
2281 return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
2286 Perl_my(pTHXo_ OP* o)
2288 return ((CPerlObj*)pPerl)->Perl_my(o);
2293 Perl_my_atof(pTHXo_ const char *s)
2295 return ((CPerlObj*)pPerl)->Perl_my_atof(s);
2297 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
2299 #undef Perl_my_bcopy
2301 Perl_my_bcopy(pTHXo_ const char* from, char* to, I32 len)
2303 return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
2306 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
2308 #undef Perl_my_bzero
2310 Perl_my_bzero(pTHXo_ char* loc, I32 len)
2312 return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
2318 Perl_my_exit(pTHXo_ U32 status)
2320 ((CPerlObj*)pPerl)->Perl_my_exit(status);
2323 #undef Perl_my_failure_exit
2325 Perl_my_failure_exit(pTHXo)
2327 ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2330 #undef Perl_my_fflush_all
2332 Perl_my_fflush_all(pTHXo)
2334 return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2337 #undef Perl_my_lstat
2339 Perl_my_lstat(pTHXo)
2341 return ((CPerlObj*)pPerl)->Perl_my_lstat();
2343 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
2345 #undef Perl_my_memcmp
2347 Perl_my_memcmp(pTHXo_ const char* s1, const char* s2, I32 len)
2349 return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
2352 #if !defined(HAS_MEMSET)
2354 #undef Perl_my_memset
2356 Perl_my_memset(pTHXo_ char* loc, I32 ch, I32 len)
2358 return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
2361 #if !defined(PERL_OBJECT)
2363 #undef Perl_my_pclose
2365 Perl_my_pclose(pTHXo_ PerlIO* ptr)
2367 return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2370 #undef Perl_my_popen
2372 Perl_my_popen(pTHXo_ char* cmd, char* mode)
2374 return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
2378 #undef Perl_my_setenv
2380 Perl_my_setenv(pTHXo_ char* nam, char* val)
2382 ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2389 return ((CPerlObj*)pPerl)->Perl_my_stat();
2395 Perl_my_swap(pTHXo_ short s)
2397 return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2400 #undef Perl_my_htonl
2402 Perl_my_htonl(pTHXo_ long l)
2404 return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2407 #undef Perl_my_ntohl
2409 Perl_my_ntohl(pTHXo_ long l)
2411 return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2415 #undef Perl_my_unexec
2417 Perl_my_unexec(pTHXo)
2419 ((CPerlObj*)pPerl)->Perl_my_unexec();
2422 #undef Perl_newANONLIST
2424 Perl_newANONLIST(pTHXo_ OP* o)
2426 return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2429 #undef Perl_newANONHASH
2431 Perl_newANONHASH(pTHXo_ OP* o)
2433 return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2436 #undef Perl_newANONSUB
2438 Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
2440 return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
2443 #undef Perl_newASSIGNOP
2445 Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
2447 return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
2450 #undef Perl_newCONDOP
2452 Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
2454 return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
2457 #undef Perl_newCONSTSUB
2459 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
2461 ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2466 Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
2468 ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2471 #undef Perl_newFOROP
2473 Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
2475 return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
2478 #undef Perl_newLOGOP
2480 Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
2482 return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
2485 #undef Perl_newLOOPEX
2487 Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
2489 return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2492 #undef Perl_newLOOPOP
2494 Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
2496 return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
2499 #undef Perl_newNULLLIST
2501 Perl_newNULLLIST(pTHXo)
2503 return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2508 Perl_newOP(pTHXo_ I32 optype, I32 flags)
2510 return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2515 Perl_newPROG(pTHXo_ OP* o)
2517 ((CPerlObj*)pPerl)->Perl_newPROG(o);
2520 #undef Perl_newRANGE
2522 Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
2524 return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
2527 #undef Perl_newSLICEOP
2529 Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
2531 return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
2534 #undef Perl_newSTATEOP
2536 Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
2538 return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
2543 Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
2545 return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
2550 Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
2552 return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
2559 return ((CPerlObj*)pPerl)->Perl_newAV();
2562 #undef Perl_newAVREF
2564 Perl_newAVREF(pTHXo_ OP* o)
2566 return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2569 #undef Perl_newBINOP
2571 Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2573 return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
2576 #undef Perl_newCVREF
2578 Perl_newCVREF(pTHXo_ I32 flags, OP* o)
2580 return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2585 Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
2587 return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
2590 #undef Perl_newGVgen
2592 Perl_newGVgen(pTHXo_ char* pack)
2594 return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2597 #undef Perl_newGVREF
2599 Perl_newGVREF(pTHXo_ I32 type, OP* o)
2601 return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2604 #undef Perl_newHVREF
2606 Perl_newHVREF(pTHXo_ OP* o)
2608 return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2615 return ((CPerlObj*)pPerl)->Perl_newHV();
2620 Perl_newHVhv(pTHXo_ HV* hv)
2622 return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2629 return ((CPerlObj*)pPerl)->Perl_newIO();
2632 #undef Perl_newLISTOP
2634 Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2636 return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
2639 #undef Perl_newPADOP
2641 Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
2643 return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
2648 Perl_newPMOP(pTHXo_ I32 type, I32 flags)
2650 return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2655 Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
2657 return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
2662 Perl_newRV(pTHXo_ SV* pref)
2664 return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2667 #undef Perl_newRV_noinc
2669 Perl_newRV_noinc(pTHXo_ SV *sv)
2671 return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2676 Perl_newSV(pTHXo_ STRLEN len)
2678 return ((CPerlObj*)pPerl)->Perl_newSV(len);
2681 #undef Perl_newSVREF
2683 Perl_newSVREF(pTHXo_ OP* o)
2685 return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2690 Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
2692 return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
2697 Perl_newSViv(pTHXo_ IV i)
2699 return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2704 Perl_newSVnv(pTHXo_ NV n)
2706 return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2711 Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
2713 return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2716 #undef Perl_newSVpvn
2718 Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
2720 return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2723 #undef Perl_newSVpvf
2725 Perl_newSVpvf(pTHXo_ const char* pat, ...)
2729 va_start(args, pat);
2730 retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
2736 #undef Perl_vnewSVpvf
2738 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
2740 return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
2745 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
2747 return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2752 Perl_newSVsv(pTHXo_ SV* old)
2754 return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2759 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
2761 return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2764 #undef Perl_newWHILEOP
2766 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2768 return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2771 #undef Perl_new_stackinfo
2773 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
2775 return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2778 #undef Perl_nextargv
2780 Perl_nextargv(pTHXo_ GV* gv)
2782 return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2787 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2789 return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2794 Perl_oopsCV(pTHXo_ OP* o)
2796 return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2801 Perl_op_free(pTHXo_ OP* arg)
2803 ((CPerlObj*)pPerl)->Perl_op_free(arg);
2808 Perl_package(pTHXo_ OP* o)
2810 ((CPerlObj*)pPerl)->Perl_package(o);
2813 #undef Perl_pad_alloc
2815 Perl_pad_alloc(pTHXo_ I32 optype, U32 tmptype)
2817 return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype);
2820 #undef Perl_pad_allocmy
2822 Perl_pad_allocmy(pTHXo_ char* name)
2824 return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2827 #undef Perl_pad_findmy
2829 Perl_pad_findmy(pTHXo_ char* name)
2831 return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2836 Perl_oopsAV(pTHXo_ OP* o)
2838 return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2843 Perl_oopsHV(pTHXo_ OP* o)
2845 return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2848 #undef Perl_pad_leavemy
2850 Perl_pad_leavemy(pTHXo_ I32 fill)
2852 ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2857 Perl_pad_sv(pTHXo_ PADOFFSET po)
2859 return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2862 #undef Perl_pad_free
2864 Perl_pad_free(pTHXo_ PADOFFSET po)
2866 ((CPerlObj*)pPerl)->Perl_pad_free(po);
2869 #undef Perl_pad_reset
2871 Perl_pad_reset(pTHXo)
2873 ((CPerlObj*)pPerl)->Perl_pad_reset();
2876 #undef Perl_pad_swipe
2878 Perl_pad_swipe(pTHXo_ PADOFFSET po)
2880 ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2885 Perl_peep(pTHXo_ OP* o)
2887 ((CPerlObj*)pPerl)->Perl_peep(o);
2889 #if defined(PERL_OBJECT)
2891 #undef Perl_construct
2893 Perl_construct(pTHXo)
2895 ((CPerlObj*)pPerl)->Perl_construct();
2898 #undef Perl_destruct
2900 Perl_destruct(pTHXo)
2902 ((CPerlObj*)pPerl)->Perl_destruct();
2909 ((CPerlObj*)pPerl)->Perl_free();
2916 return ((CPerlObj*)pPerl)->Perl_run();
2921 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2923 return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2926 #if defined(USE_THREADS)
2928 #undef Perl_new_struct_thread
2930 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2932 return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2936 #undef Perl_call_atexit
2938 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2940 ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2943 #undef Perl_call_argv
2945 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2947 return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2950 #undef Perl_call_method
2952 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2954 return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2959 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2961 return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2966 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2968 return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2973 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2975 return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2980 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2982 return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2987 Perl_get_sv(pTHXo_ const char* name, I32 create)
2989 return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2994 Perl_get_av(pTHXo_ const char* name, I32 create)
2996 return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
3001 Perl_get_hv(pTHXo_ const char* name, I32 create)
3003 return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
3008 Perl_get_cv(pTHXo_ const char* name, I32 create)
3010 return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
3013 #undef Perl_init_i18nl10n
3015 Perl_init_i18nl10n(pTHXo_ int printwarn)
3017 return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
3020 #undef Perl_init_i18nl14n
3022 Perl_init_i18nl14n(pTHXo_ int printwarn)
3024 return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
3027 #undef Perl_new_collate
3029 Perl_new_collate(pTHXo_ const char* newcoll)
3031 ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
3034 #undef Perl_new_ctype
3036 Perl_new_ctype(pTHXo_ const char* newctype)
3038 ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
3041 #undef Perl_new_numeric
3043 Perl_new_numeric(pTHXo_ const char* newcoll)
3045 ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
3048 #undef Perl_set_numeric_local
3050 Perl_set_numeric_local(pTHXo)
3052 ((CPerlObj*)pPerl)->Perl_set_numeric_local();
3055 #undef Perl_set_numeric_radix
3057 Perl_set_numeric_radix(pTHXo)
3059 ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
3062 #undef Perl_set_numeric_standard
3064 Perl_set_numeric_standard(pTHXo)
3066 ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
3069 #undef Perl_require_pv
3071 Perl_require_pv(pTHXo_ const char* pv)
3073 ((CPerlObj*)pPerl)->Perl_require_pv(pv);
3078 Perl_pidgone(pTHXo_ Pid_t pid, int status)
3080 ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
3085 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
3087 ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
3090 #undef Perl_pmruntime
3092 Perl_pmruntime(pTHXo_ OP* pm, OP* expr, OP* repl)
3094 return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl);
3099 Perl_pmtrans(pTHXo_ OP* o, OP* expr, OP* repl)
3101 return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl);
3104 #undef Perl_pop_return
3106 Perl_pop_return(pTHXo)
3108 return ((CPerlObj*)pPerl)->Perl_pop_return();
3111 #undef Perl_pop_scope
3113 Perl_pop_scope(pTHXo)
3115 ((CPerlObj*)pPerl)->Perl_pop_scope();
3118 #undef Perl_prepend_elem
3120 Perl_prepend_elem(pTHXo_ I32 optype, OP* head, OP* tail)
3122 return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail);
3125 #undef Perl_push_return
3127 Perl_push_return(pTHXo_ OP* o)
3129 ((CPerlObj*)pPerl)->Perl_push_return(o);
3132 #undef Perl_push_scope
3134 Perl_push_scope(pTHXo)
3136 ((CPerlObj*)pPerl)->Perl_push_scope();
3141 Perl_ref(pTHXo_ OP* o, I32 type)
3143 return ((CPerlObj*)pPerl)->Perl_ref(o, type);
3148 Perl_refkids(pTHXo_ OP* o, I32 type)
3150 return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
3155 Perl_regdump(pTHXo_ regexp* r)
3157 ((CPerlObj*)pPerl)->Perl_regdump(r);
3160 #undef Perl_pregexec
3162 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
3164 return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
3167 #undef Perl_pregfree
3169 Perl_pregfree(pTHXo_ struct regexp* r)
3171 ((CPerlObj*)pPerl)->Perl_pregfree(r);
3174 #undef Perl_pregcomp
3176 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
3178 return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
3181 #undef Perl_re_intuit_start
3183 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
3185 return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
3188 #undef Perl_re_intuit_string
3190 Perl_re_intuit_string(pTHXo_ regexp* prog)
3192 return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
3195 #undef Perl_regexec_flags
3197 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
3199 return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
3204 Perl_regnext(pTHXo_ regnode* p)
3206 return ((CPerlObj*)pPerl)->Perl_regnext(p);
3211 Perl_regprop(pTHXo_ SV* sv, regnode* o)
3213 ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
3216 #undef Perl_repeatcpy
3218 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
3220 ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
3225 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
3227 return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
3232 Perl_rsignal(pTHXo_ int i, Sighandler_t t)
3234 return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
3237 #undef Perl_rsignal_restore
3239 Perl_rsignal_restore(pTHXo_ int i, Sigsave_t* t)
3241 return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t);
3244 #undef Perl_rsignal_save
3246 Perl_rsignal_save(pTHXo_ int i, Sighandler_t t1, Sigsave_t* t2)
3248 return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2);
3251 #undef Perl_rsignal_state
3253 Perl_rsignal_state(pTHXo_ int i)
3255 return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
3258 #undef Perl_rxres_free
3260 Perl_rxres_free(pTHXo_ void** rsp)
3262 ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
3265 #undef Perl_rxres_restore
3267 Perl_rxres_restore(pTHXo_ void** rsp, REGEXP* prx)
3269 ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
3272 #undef Perl_rxres_save
3274 Perl_rxres_save(pTHXo_ void** rsp, REGEXP* prx)
3276 ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx);
3278 #if !defined(HAS_RENAME)
3280 #undef Perl_same_dirent
3282 Perl_same_dirent(pTHXo_ char* a, char* b)
3284 return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b);
3290 Perl_savepv(pTHXo_ const char* sv)
3292 return ((CPerlObj*)pPerl)->Perl_savepv(sv);
3297 Perl_savepvn(pTHXo_ const char* sv, I32 len)
3299 return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
3302 #undef Perl_savestack_grow
3304 Perl_savestack_grow(pTHXo)
3306 ((CPerlObj*)pPerl)->Perl_savestack_grow();
3309 #undef Perl_save_aelem
3311 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
3313 ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
3316 #undef Perl_save_alloc
3318 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
3320 return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
3323 #undef Perl_save_aptr
3325 Perl_save_aptr(pTHXo_ AV** aptr)
3327 ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3330 #undef Perl_save_ary
3332 Perl_save_ary(pTHXo_ GV* gv)
3334 return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3337 #undef Perl_save_clearsv
3339 Perl_save_clearsv(pTHXo_ SV** svp)
3341 ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3344 #undef Perl_save_delete
3346 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
3348 ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
3351 #undef Perl_save_destructor
3353 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
3355 ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
3358 #undef Perl_save_destructor_x
3360 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
3362 ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
3365 #undef Perl_save_freesv
3367 Perl_save_freesv(pTHXo_ SV* sv)
3369 ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3372 #undef Perl_save_freeop
3374 Perl_save_freeop(pTHXo_ OP* o)
3376 ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3379 #undef Perl_save_freepv
3381 Perl_save_freepv(pTHXo_ char* pv)
3383 ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3386 #undef Perl_save_generic_svref
3388 Perl_save_generic_svref(pTHXo_ SV** sptr)
3390 ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3395 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
3397 ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3400 #undef Perl_save_hash
3402 Perl_save_hash(pTHXo_ GV* gv)
3404 return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3407 #undef Perl_save_helem
3409 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
3411 ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
3414 #undef Perl_save_hints
3416 Perl_save_hints(pTHXo)
3418 ((CPerlObj*)pPerl)->Perl_save_hints();
3421 #undef Perl_save_hptr
3423 Perl_save_hptr(pTHXo_ HV** hptr)
3425 ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3428 #undef Perl_save_I16
3430 Perl_save_I16(pTHXo_ I16* intp)
3432 ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3435 #undef Perl_save_I32
3437 Perl_save_I32(pTHXo_ I32* intp)
3439 ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3442 #undef Perl_save_int
3444 Perl_save_int(pTHXo_ int* intp)
3446 ((CPerlObj*)pPerl)->Perl_save_int(intp);
3449 #undef Perl_save_item
3451 Perl_save_item(pTHXo_ SV* item)
3453 ((CPerlObj*)pPerl)->Perl_save_item(item);
3458 Perl_save_iv(pTHXo_ IV* iv)
3460 ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3463 #undef Perl_save_list
3465 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
3467 ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3470 #undef Perl_save_long
3472 Perl_save_long(pTHXo_ long* longp)
3474 ((CPerlObj*)pPerl)->Perl_save_long(longp);
3477 #undef Perl_save_nogv
3479 Perl_save_nogv(pTHXo_ GV* gv)
3481 ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3488 ((CPerlObj*)pPerl)->Perl_save_op();
3491 #undef Perl_save_scalar
3493 Perl_save_scalar(pTHXo_ GV* gv)
3495 return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3498 #undef Perl_save_pptr
3500 Perl_save_pptr(pTHXo_ char** pptr)
3502 ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3505 #undef Perl_save_vptr
3507 Perl_save_vptr(pTHXo_ void* pptr)
3509 ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
3512 #undef Perl_save_re_context
3514 Perl_save_re_context(pTHXo)
3516 ((CPerlObj*)pPerl)->Perl_save_re_context();
3519 #undef Perl_save_sptr
3521 Perl_save_sptr(pTHXo_ SV** sptr)
3523 ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3526 #undef Perl_save_svref
3528 Perl_save_svref(pTHXo_ SV** sptr)
3530 return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3533 #undef Perl_save_threadsv
3535 Perl_save_threadsv(pTHXo_ PADOFFSET i)
3537 return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3540 #undef Perl_sawparens
3542 Perl_sawparens(pTHXo_ OP* o)
3544 return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3549 Perl_scalar(pTHXo_ OP* o)
3551 return ((CPerlObj*)pPerl)->Perl_scalar(o);
3554 #undef Perl_scalarkids
3556 Perl_scalarkids(pTHXo_ OP* o)
3558 return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3561 #undef Perl_scalarseq
3563 Perl_scalarseq(pTHXo_ OP* o)
3565 return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3568 #undef Perl_scalarvoid
3570 Perl_scalarvoid(pTHXo_ OP* o)
3572 return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3575 #undef Perl_scan_bin
3577 Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
3579 return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
3582 #undef Perl_scan_hex
3584 Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
3586 return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
3589 #undef Perl_scan_num
3591 Perl_scan_num(pTHXo_ char* s)
3593 return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3596 #undef Perl_scan_oct
3598 Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
3600 return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
3605 Perl_scope(pTHXo_ OP* o)
3607 return ((CPerlObj*)pPerl)->Perl_scope(o);
3610 #undef Perl_screaminstr
3612 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
3614 return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
3618 #undef Perl_setenv_getix
3620 Perl_setenv_getix(pTHXo_ char* nam)
3622 return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3626 #undef Perl_setdefout
3628 Perl_setdefout(pTHXo_ GV* gv)
3630 ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3633 #undef Perl_sharepvn
3635 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3637 return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
3640 #undef Perl_share_hek
3642 Perl_share_hek(pTHXo_ const char* sv, I32 len, U32 hash)
3644 return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash);
3647 #undef Perl_sighandler
3649 Perl_sighandler(int sig)
3652 ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3655 #undef Perl_stack_grow
3657 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
3659 return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
3662 #undef Perl_start_subparse
3664 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
3666 return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
3669 #undef Perl_sub_crush_depth
3671 Perl_sub_crush_depth(pTHXo_ CV* cv)
3673 ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3676 #undef Perl_sv_2bool
3678 Perl_sv_2bool(pTHXo_ SV* sv)
3680 return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3685 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
3687 return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
3692 Perl_sv_2io(pTHXo_ SV* sv)
3694 return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3699 Perl_sv_2iv(pTHXo_ SV* sv)
3701 return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3704 #undef Perl_sv_2mortal
3706 Perl_sv_2mortal(pTHXo_ SV* sv)
3708 return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3713 Perl_sv_2nv(pTHXo_ SV* sv)
3715 return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3720 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
3722 return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
3727 Perl_sv_2uv(pTHXo_ SV* sv)
3729 return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3734 Perl_sv_iv(pTHXo_ SV* sv)
3736 return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3741 Perl_sv_uv(pTHXo_ SV* sv)
3743 return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3748 Perl_sv_nv(pTHXo_ SV* sv)
3750 return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3755 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
3757 return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
3762 Perl_sv_true(pTHXo_ SV *sv)
3764 return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3767 #undef Perl_sv_add_arena
3769 Perl_sv_add_arena(pTHXo_ char* ptr, U32 size, U32 flags)
3771 ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags);
3774 #undef Perl_sv_backoff
3776 Perl_sv_backoff(pTHXo_ SV* sv)
3778 return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3781 #undef Perl_sv_bless
3783 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
3785 return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
3788 #undef Perl_sv_catpvf
3790 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
3793 va_start(args, pat);
3794 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
3798 #undef Perl_sv_vcatpvf
3800 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3802 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
3805 #undef Perl_sv_catpv
3807 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
3809 ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
3812 #undef Perl_sv_catpvn
3814 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3816 ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
3819 #undef Perl_sv_catsv
3821 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
3823 ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3828 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
3830 ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
3833 #undef Perl_sv_clean_all
3835 Perl_sv_clean_all(pTHXo)
3837 ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3840 #undef Perl_sv_clean_objs
3842 Perl_sv_clean_objs(pTHXo)
3844 ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3847 #undef Perl_sv_clear
3849 Perl_sv_clear(pTHXo_ SV* sv)
3851 ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3856 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
3858 return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
3861 #undef Perl_sv_cmp_locale
3863 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
3865 return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
3867 #if defined(USE_LOCALE_COLLATE)
3869 #undef Perl_sv_collxfrm
3871 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
3873 return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
3877 #undef Perl_sv_compile_2op
3879 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
3881 return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
3886 Perl_sv_dec(pTHXo_ SV* sv)
3888 ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3893 Perl_sv_dump(pTHXo_ SV* sv)
3895 ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3898 #undef Perl_sv_derived_from
3900 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
3902 return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
3907 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
3909 return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
3914 Perl_sv_free(pTHXo_ SV* sv)
3916 ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3919 #undef Perl_sv_free_arenas
3921 Perl_sv_free_arenas(pTHXo)
3923 ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3928 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
3930 return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
3935 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
3937 return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
3942 Perl_sv_inc(pTHXo_ SV* sv)
3944 ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3947 #undef Perl_sv_insert
3949 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
3951 ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
3956 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
3958 return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
3961 #undef Perl_sv_isobject
3963 Perl_sv_isobject(pTHXo_ SV* sv)
3965 return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
3970 Perl_sv_len(pTHXo_ SV* sv)
3972 return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
3975 #undef Perl_sv_len_utf8
3977 Perl_sv_len_utf8(pTHXo_ SV* sv)
3979 return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
3982 #undef Perl_sv_magic
3984 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
3986 ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
3989 #undef Perl_sv_mortalcopy
3991 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
3993 return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
3996 #undef Perl_sv_newmortal
3998 Perl_sv_newmortal(pTHXo)
4000 return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
4003 #undef Perl_sv_newref
4005 Perl_sv_newref(pTHXo_ SV* sv)
4007 return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
4012 Perl_sv_peek(pTHXo_ SV* sv)
4014 return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
4017 #undef Perl_sv_pos_u2b
4019 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
4021 ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
4024 #undef Perl_sv_pos_b2u
4026 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
4028 ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
4031 #undef Perl_sv_pvn_force
4033 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
4035 return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
4038 #undef Perl_sv_reftype
4040 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
4042 return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
4045 #undef Perl_sv_replace
4047 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
4049 ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
4052 #undef Perl_sv_report_used
4054 Perl_sv_report_used(pTHXo)
4056 ((CPerlObj*)pPerl)->Perl_sv_report_used();
4059 #undef Perl_sv_reset
4061 Perl_sv_reset(pTHXo_ char* s, HV* stash)
4063 ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
4066 #undef Perl_sv_setpvf
4068 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
4071 va_start(args, pat);
4072 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
4076 #undef Perl_sv_vsetpvf
4078 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
4080 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
4083 #undef Perl_sv_setiv
4085 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
4087 ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
4090 #undef Perl_sv_setpviv
4092 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
4094 ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
4097 #undef Perl_sv_setuv
4099 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
4101 ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
4104 #undef Perl_sv_setnv
4106 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
4108 ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
4111 #undef Perl_sv_setref_iv
4113 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
4115 return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
4118 #undef Perl_sv_setref_nv
4120 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
4122 return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
4125 #undef Perl_sv_setref_pv
4127 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
4129 return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
4132 #undef Perl_sv_setref_pvn
4134 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
4136 return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
4139 #undef Perl_sv_setpv
4141 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
4143 ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
4146 #undef Perl_sv_setpvn
4148 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
4150 ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
4153 #undef Perl_sv_setsv
4155 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
4157 ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
4160 #undef Perl_sv_taint
4162 Perl_sv_taint(pTHXo_ SV* sv)
4164 ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
4167 #undef Perl_sv_tainted
4169 Perl_sv_tainted(pTHXo_ SV* sv)
4171 return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
4174 #undef Perl_sv_unmagic
4176 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
4178 return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
4181 #undef Perl_sv_unref
4183 Perl_sv_unref(pTHXo_ SV* sv)
4185 ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
4188 #undef Perl_sv_untaint
4190 Perl_sv_untaint(pTHXo_ SV* sv)
4192 ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
4195 #undef Perl_sv_upgrade
4197 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
4199 return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
4202 #undef Perl_sv_usepvn
4204 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
4206 ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
4209 #undef Perl_sv_vcatpvfn
4211 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4213 ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4216 #undef Perl_sv_vsetpvfn
4218 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4220 ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4223 #undef Perl_swash_init
4225 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
4227 return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
4230 #undef Perl_swash_fetch
4232 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
4234 return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
4237 #undef Perl_taint_env
4239 Perl_taint_env(pTHXo)
4241 ((CPerlObj*)pPerl)->Perl_taint_env();
4244 #undef Perl_taint_proper
4246 Perl_taint_proper(pTHXo_ const char* f, const char* s)
4248 ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
4251 #undef Perl_to_utf8_lower
4253 Perl_to_utf8_lower(pTHXo_ U8 *p)
4255 return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
4258 #undef Perl_to_utf8_upper
4260 Perl_to_utf8_upper(pTHXo_ U8 *p)
4262 return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
4265 #undef Perl_to_utf8_title
4267 Perl_to_utf8_title(pTHXo_ U8 *p)
4269 return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
4271 #if defined(UNLINK_ALL_VERSIONS)
4275 Perl_unlnk(pTHXo_ char* f)
4277 return ((CPerlObj*)pPerl)->Perl_unlnk(f);
4280 #if defined(USE_THREADS)
4282 #undef Perl_unlock_condpair
4284 Perl_unlock_condpair(pTHXo_ void* svv)
4286 ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
4290 #undef Perl_unsharepvn
4292 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
4294 ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
4297 #undef Perl_unshare_hek
4299 Perl_unshare_hek(pTHXo_ HEK* hek)
4301 ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
4306 Perl_utilize(pTHXo_ int aver, I32 floor, OP* version, OP* id, OP* arg)
4308 ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg);
4311 #undef Perl_utf16_to_utf8
4313 Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
4315 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
4318 #undef Perl_utf16_to_utf8_reversed
4320 Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
4322 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
4325 #undef Perl_utf8_distance
4327 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
4329 return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
4332 #undef Perl_utf8_hop
4334 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
4336 return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
4339 #undef Perl_utf8_to_uv
4341 Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
4343 return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
4346 #undef Perl_uv_to_utf8
4348 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
4350 return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
4353 #undef Perl_vivify_defelem
4355 Perl_vivify_defelem(pTHXo_ SV* sv)
4357 ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
4360 #undef Perl_vivify_ref
4362 Perl_vivify_ref(pTHXo_ SV* sv, U32 to_what)
4364 ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what);
4367 #undef Perl_wait4pid
4369 Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
4371 return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
4376 Perl_warn(pTHXo_ const char* pat, ...)
4379 va_start(args, pat);
4380 ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
4386 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
4388 ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
4393 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
4396 va_start(args, pat);
4397 ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
4403 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
4405 ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
4410 Perl_watch(pTHXo_ char** addr)
4412 ((CPerlObj*)pPerl)->Perl_watch(addr);
4415 #undef Perl_whichsig
4417 Perl_whichsig(pTHXo_ char* sig)
4419 return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4424 Perl_yyerror(pTHXo_ char* s)
4426 return ((CPerlObj*)pPerl)->Perl_yyerror(s);
4428 #if defined(USE_PURE_BISON)
4432 Perl_yylex(pTHXo_ YYSTYPE *lvalp, int *lcharp)
4434 return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4442 return ((CPerlObj*)pPerl)->Perl_yylex();
4450 return ((CPerlObj*)pPerl)->Perl_yyparse();
4455 Perl_yywarn(pTHXo_ char* s)
4457 return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4459 #if defined(MYMALLOC)
4461 #undef Perl_dump_mstats
4463 Perl_dump_mstats(pTHXo_ char* s)
4465 ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4469 #undef Perl_safesysmalloc
4471 Perl_safesysmalloc(MEM_SIZE nbytes)
4474 return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4477 #undef Perl_safesyscalloc
4479 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
4482 return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4485 #undef Perl_safesysrealloc
4487 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
4490 return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4493 #undef Perl_safesysfree
4495 Perl_safesysfree(Malloc_t where)
4498 ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4500 #if defined(LEAKTEST)
4502 #undef Perl_safexmalloc
4504 Perl_safexmalloc(I32 x, MEM_SIZE size)
4507 return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4510 #undef Perl_safexcalloc
4512 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
4515 return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
4518 #undef Perl_safexrealloc
4520 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
4523 return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4526 #undef Perl_safexfree
4528 Perl_safexfree(Malloc_t where)
4531 ((CPerlObj*)pPerl)->Perl_safexfree(where);
4534 #if defined(PERL_GLOBAL_STRUCT)
4540 return ((CPerlObj*)pPerl)->Perl_GetVars();
4544 #undef Perl_runops_standard
4546 Perl_runops_standard(pTHXo)
4548 return ((CPerlObj*)pPerl)->Perl_runops_standard();
4551 #undef Perl_runops_debug
4553 Perl_runops_debug(pTHXo)
4555 return ((CPerlObj*)pPerl)->Perl_runops_debug();
4558 #undef Perl_sv_catpvf_mg
4560 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4563 va_start(args, pat);
4564 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
4568 #undef Perl_sv_vcatpvf_mg
4570 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4572 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
4575 #undef Perl_sv_catpv_mg
4577 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
4579 ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
4582 #undef Perl_sv_catpvn_mg
4584 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4586 ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
4589 #undef Perl_sv_catsv_mg
4591 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
4593 ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
4596 #undef Perl_sv_setpvf_mg
4598 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4601 va_start(args, pat);
4602 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
4606 #undef Perl_sv_vsetpvf_mg
4608 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4610 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
4613 #undef Perl_sv_setiv_mg
4615 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
4617 ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
4620 #undef Perl_sv_setpviv_mg
4622 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
4624 ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
4627 #undef Perl_sv_setuv_mg
4629 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
4631 ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
4634 #undef Perl_sv_setnv_mg
4636 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
4638 ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
4641 #undef Perl_sv_setpv_mg
4643 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
4645 ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
4648 #undef Perl_sv_setpvn_mg
4650 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4652 ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
4655 #undef Perl_sv_setsv_mg
4657 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
4659 ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
4662 #undef Perl_sv_usepvn_mg
4664 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
4666 ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
4669 #undef Perl_get_vtbl
4671 Perl_get_vtbl(pTHXo_ int vtbl_id)
4673 return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4676 #undef Perl_pv_display
4678 Perl_pv_display(pTHXo_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4680 return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim);
4683 #undef Perl_dump_indent
4685 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
4688 va_start(args, pat);
4689 ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
4693 #undef Perl_dump_vindent
4695 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
4697 ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
4700 #undef Perl_do_gv_dump
4702 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4704 ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
4707 #undef Perl_do_gvgv_dump
4709 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4711 ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
4714 #undef Perl_do_hv_dump
4716 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
4718 ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
4721 #undef Perl_do_magic_dump
4723 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4725 ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
4728 #undef Perl_do_op_dump
4730 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
4732 ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
4735 #undef Perl_do_pmop_dump
4737 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
4739 ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
4742 #undef Perl_do_sv_dump
4744 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4746 ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
4749 #undef Perl_magic_dump
4751 Perl_magic_dump(pTHXo_ MAGIC *mg)
4753 ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4756 #undef Perl_default_protect
4758 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
4762 va_start(args, body);
4763 retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
4769 #undef Perl_vdefault_protect
4771 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
4773 return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
4776 #undef Perl_reginitcolors
4778 Perl_reginitcolors(pTHXo)
4780 ((CPerlObj*)pPerl)->Perl_reginitcolors();
4783 #undef Perl_sv_2pv_nolen
4785 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
4787 return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4792 Perl_sv_pv(pTHXo_ SV *sv)
4794 return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4797 #undef Perl_sv_force_normal
4799 Perl_sv_force_normal(pTHXo_ SV *sv)
4801 ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4804 #undef Perl_tmps_grow
4806 Perl_tmps_grow(pTHXo_ I32 n)
4808 ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4811 #undef Perl_sv_rvweaken
4813 Perl_sv_rvweaken(pTHXo_ SV *sv)
4815 return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4818 #undef Perl_magic_killbackrefs
4820 Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg)
4822 return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
4825 #undef Perl_newANONATTRSUB
4827 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
4829 return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
4832 #undef Perl_newATTRSUB
4834 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4836 return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
4839 #undef Perl_newMYSUB
4841 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4843 ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
4846 #undef Perl_my_attrs
4848 Perl_my_attrs(pTHXo_ OP *o, OP *attrs)
4850 return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs);
4853 #undef Perl_boot_core_xsutils
4855 Perl_boot_core_xsutils(pTHXo)
4857 ((CPerlObj*)pPerl)->Perl_boot_core_xsutils();
4859 #if defined(USE_ITHREADS)
4863 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
4865 return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
4870 Perl_si_dup(pTHXo_ PERL_SI* si)
4872 return ((CPerlObj*)pPerl)->Perl_si_dup(si);
4877 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
4879 return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
4884 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
4886 return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
4891 Perl_he_dup(pTHXo_ HE* e, bool shared)
4893 return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
4898 Perl_re_dup(pTHXo_ REGEXP* r)
4900 return ((CPerlObj*)pPerl)->Perl_re_dup(r);
4905 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
4907 return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
4910 #undef Perl_dirp_dup
4912 Perl_dirp_dup(pTHXo_ DIR* dp)
4914 return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
4919 Perl_gp_dup(pTHXo_ GP* gp)
4921 return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
4926 Perl_mg_dup(pTHXo_ MAGIC* mg)
4928 return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
4933 Perl_sv_dup(pTHXo_ SV* sstr)
4935 return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
4937 #if defined(HAVE_INTERP_INTERN)
4939 #undef Perl_sys_intern_dup
4941 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
4943 ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
4947 #undef Perl_ptr_table_new
4949 Perl_ptr_table_new(pTHXo)
4951 return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
4954 #undef Perl_ptr_table_fetch
4956 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
4958 return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
4961 #undef Perl_ptr_table_store
4963 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
4965 ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
4968 #undef Perl_ptr_table_split
4970 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
4972 ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
4975 #if defined(PERL_OBJECT)
4978 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
4980 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
4982 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
4984 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
4986 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
4988 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
4989 # if defined(PL_OP_SLAB_ALLOC)
4992 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
4993 # if defined(IAMSUID)
4995 # if defined(USE_THREADS)
4998 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
5000 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
5002 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
5004 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
5005 # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
5008 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
5010 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
5012 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
5014 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
5016 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
5017 # if defined(PURIFY)
5020 # if defined(DEBUGGING)
5023 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
5024 # if defined(CRIPPLED_CC)
5029 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
5031 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
5032 # if defined(LEAKTEST)
5035 #if defined(PERL_OBJECT)
5038 #undef Perl_ck_anoncode
5040 Perl_ck_anoncode(pTHXo_ OP *o)
5042 return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
5045 #undef Perl_ck_bitop
5047 Perl_ck_bitop(pTHXo_ OP *o)
5049 return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
5052 #undef Perl_ck_concat
5054 Perl_ck_concat(pTHXo_ OP *o)
5056 return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
5059 #undef Perl_ck_defined
5061 Perl_ck_defined(pTHXo_ OP *o)
5063 return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
5066 #undef Perl_ck_delete
5068 Perl_ck_delete(pTHXo_ OP *o)
5070 return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
5075 Perl_ck_eof(pTHXo_ OP *o)
5077 return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
5082 Perl_ck_eval(pTHXo_ OP *o)
5084 return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
5089 Perl_ck_exec(pTHXo_ OP *o)
5091 return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
5094 #undef Perl_ck_exists
5096 Perl_ck_exists(pTHXo_ OP *o)
5098 return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
5103 Perl_ck_ftst(pTHXo_ OP *o)
5105 return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
5110 Perl_ck_fun(pTHXo_ OP *o)
5112 return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
5115 #undef Perl_ck_fun_locale
5117 Perl_ck_fun_locale(pTHXo_ OP *o)
5119 return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
5124 Perl_ck_glob(pTHXo_ OP *o)
5126 return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
5131 Perl_ck_grep(pTHXo_ OP *o)
5133 return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
5136 #undef Perl_ck_index
5138 Perl_ck_index(pTHXo_ OP *o)
5140 return ((CPerlObj*)pPerl)->Perl_ck_index(o);
5145 Perl_ck_join(pTHXo_ OP *o)
5147 return ((CPerlObj*)pPerl)->Perl_ck_join(o);
5150 #undef Perl_ck_lengthconst
5152 Perl_ck_lengthconst(pTHXo_ OP *o)
5154 return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
5159 Perl_ck_lfun(pTHXo_ OP *o)
5161 return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
5164 #undef Perl_ck_listiob
5166 Perl_ck_listiob(pTHXo_ OP *o)
5168 return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
5171 #undef Perl_ck_match
5173 Perl_ck_match(pTHXo_ OP *o)
5175 return ((CPerlObj*)pPerl)->Perl_ck_match(o);
5178 #undef Perl_ck_method
5180 Perl_ck_method(pTHXo_ OP *o)
5182 return ((CPerlObj*)pPerl)->Perl_ck_method(o);
5187 Perl_ck_null(pTHXo_ OP *o)
5189 return ((CPerlObj*)pPerl)->Perl_ck_null(o);
5192 #undef Perl_ck_repeat
5194 Perl_ck_repeat(pTHXo_ OP *o)
5196 return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
5199 #undef Perl_ck_require
5201 Perl_ck_require(pTHXo_ OP *o)
5203 return ((CPerlObj*)pPerl)->Perl_ck_require(o);
5208 Perl_ck_rfun(pTHXo_ OP *o)
5210 return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
5213 #undef Perl_ck_rvconst
5215 Perl_ck_rvconst(pTHXo_ OP *o)
5217 return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
5220 #undef Perl_ck_sassign
5222 Perl_ck_sassign(pTHXo_ OP *o)
5224 return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
5229 Perl_ck_scmp(pTHXo_ OP *o)
5231 return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
5234 #undef Perl_ck_select
5236 Perl_ck_select(pTHXo_ OP *o)
5238 return ((CPerlObj*)pPerl)->Perl_ck_select(o);
5241 #undef Perl_ck_shift
5243 Perl_ck_shift(pTHXo_ OP *o)
5245 return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
5250 Perl_ck_sort(pTHXo_ OP *o)
5252 return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
5255 #undef Perl_ck_spair
5257 Perl_ck_spair(pTHXo_ OP *o)
5259 return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
5262 #undef Perl_ck_split
5264 Perl_ck_split(pTHXo_ OP *o)
5266 return ((CPerlObj*)pPerl)->Perl_ck_split(o);
5271 Perl_ck_subr(pTHXo_ OP *o)
5273 return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
5276 #undef Perl_ck_svconst
5278 Perl_ck_svconst(pTHXo_ OP *o)
5280 return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
5283 #undef Perl_ck_trunc
5285 Perl_ck_trunc(pTHXo_ OP *o)
5287 return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
5290 #undef Perl_pp_aassign
5292 Perl_pp_aassign(pTHXo)
5294 return ((CPerlObj*)pPerl)->Perl_pp_aassign();
5301 return ((CPerlObj*)pPerl)->Perl_pp_abs();
5304 #undef Perl_pp_accept
5306 Perl_pp_accept(pTHXo)
5308 return ((CPerlObj*)pPerl)->Perl_pp_accept();
5315 return ((CPerlObj*)pPerl)->Perl_pp_add();
5318 #undef Perl_pp_aelem
5320 Perl_pp_aelem(pTHXo)
5322 return ((CPerlObj*)pPerl)->Perl_pp_aelem();
5325 #undef Perl_pp_aelemfast
5327 Perl_pp_aelemfast(pTHXo)
5329 return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
5332 #undef Perl_pp_alarm
5334 Perl_pp_alarm(pTHXo)
5336 return ((CPerlObj*)pPerl)->Perl_pp_alarm();
5343 return ((CPerlObj*)pPerl)->Perl_pp_and();
5346 #undef Perl_pp_andassign
5348 Perl_pp_andassign(pTHXo)
5350 return ((CPerlObj*)pPerl)->Perl_pp_andassign();
5353 #undef Perl_pp_anoncode
5355 Perl_pp_anoncode(pTHXo)
5357 return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
5360 #undef Perl_pp_anonhash
5362 Perl_pp_anonhash(pTHXo)
5364 return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
5367 #undef Perl_pp_anonlist
5369 Perl_pp_anonlist(pTHXo)
5371 return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
5374 #undef Perl_pp_aslice
5376 Perl_pp_aslice(pTHXo)
5378 return ((CPerlObj*)pPerl)->Perl_pp_aslice();
5381 #undef Perl_pp_atan2
5383 Perl_pp_atan2(pTHXo)
5385 return ((CPerlObj*)pPerl)->Perl_pp_atan2();
5388 #undef Perl_pp_av2arylen
5390 Perl_pp_av2arylen(pTHXo)
5392 return ((CPerlObj*)pPerl)->Perl_pp_av2arylen();
5395 #undef Perl_pp_backtick
5397 Perl_pp_backtick(pTHXo)
5399 return ((CPerlObj*)pPerl)->Perl_pp_backtick();
5406 return ((CPerlObj*)pPerl)->Perl_pp_bind();
5409 #undef Perl_pp_binmode
5411 Perl_pp_binmode(pTHXo)
5413 return ((CPerlObj*)pPerl)->Perl_pp_binmode();
5416 #undef Perl_pp_bit_and
5418 Perl_pp_bit_and(pTHXo)
5420 return ((CPerlObj*)pPerl)->Perl_pp_bit_and();
5423 #undef Perl_pp_bit_or
5425 Perl_pp_bit_or(pTHXo)
5427 return ((CPerlObj*)pPerl)->Perl_pp_bit_or();
5430 #undef Perl_pp_bit_xor
5432 Perl_pp_bit_xor(pTHXo)
5434 return ((CPerlObj*)pPerl)->Perl_pp_bit_xor();
5437 #undef Perl_pp_bless
5439 Perl_pp_bless(pTHXo)
5441 return ((CPerlObj*)pPerl)->Perl_pp_bless();
5444 #undef Perl_pp_caller
5446 Perl_pp_caller(pTHXo)
5448 return ((CPerlObj*)pPerl)->Perl_pp_caller();
5451 #undef Perl_pp_chdir
5453 Perl_pp_chdir(pTHXo)
5455 return ((CPerlObj*)pPerl)->Perl_pp_chdir();
5458 #undef Perl_pp_chmod
5460 Perl_pp_chmod(pTHXo)
5462 return ((CPerlObj*)pPerl)->Perl_pp_chmod();
5465 #undef Perl_pp_chomp
5467 Perl_pp_chomp(pTHXo)
5469 return ((CPerlObj*)pPerl)->Perl_pp_chomp();
5476 return ((CPerlObj*)pPerl)->Perl_pp_chop();
5479 #undef Perl_pp_chown
5481 Perl_pp_chown(pTHXo)
5483 return ((CPerlObj*)pPerl)->Perl_pp_chown();
5490 return ((CPerlObj*)pPerl)->Perl_pp_chr();
5493 #undef Perl_pp_chroot
5495 Perl_pp_chroot(pTHXo)
5497 return ((CPerlObj*)pPerl)->Perl_pp_chroot();
5500 #undef Perl_pp_close
5502 Perl_pp_close(pTHXo)
5504 return ((CPerlObj*)pPerl)->Perl_pp_close();
5507 #undef Perl_pp_closedir
5509 Perl_pp_closedir(pTHXo)
5511 return ((CPerlObj*)pPerl)->Perl_pp_closedir();
5514 #undef Perl_pp_complement
5516 Perl_pp_complement(pTHXo)
5518 return ((CPerlObj*)pPerl)->Perl_pp_complement();
5521 #undef Perl_pp_concat
5523 Perl_pp_concat(pTHXo)
5525 return ((CPerlObj*)pPerl)->Perl_pp_concat();
5528 #undef Perl_pp_cond_expr
5530 Perl_pp_cond_expr(pTHXo)
5532 return ((CPerlObj*)pPerl)->Perl_pp_cond_expr();
5535 #undef Perl_pp_connect
5537 Perl_pp_connect(pTHXo)
5539 return ((CPerlObj*)pPerl)->Perl_pp_connect();
5542 #undef Perl_pp_const
5544 Perl_pp_const(pTHXo)
5546 return ((CPerlObj*)pPerl)->Perl_pp_const();
5553 return ((CPerlObj*)pPerl)->Perl_pp_cos();
5556 #undef Perl_pp_crypt
5558 Perl_pp_crypt(pTHXo)
5560 return ((CPerlObj*)pPerl)->Perl_pp_crypt();
5563 #undef Perl_pp_dbmclose
5565 Perl_pp_dbmclose(pTHXo)
5567 return ((CPerlObj*)pPerl)->Perl_pp_dbmclose();
5570 #undef Perl_pp_dbmopen
5572 Perl_pp_dbmopen(pTHXo)
5574 return ((CPerlObj*)pPerl)->Perl_pp_dbmopen();
5577 #undef Perl_pp_dbstate
5579 Perl_pp_dbstate(pTHXo)
5581 return ((CPerlObj*)pPerl)->Perl_pp_dbstate();
5584 #undef Perl_pp_defined
5586 Perl_pp_defined(pTHXo)
5588 return ((CPerlObj*)pPerl)->Perl_pp_defined();
5591 #undef Perl_pp_delete
5593 Perl_pp_delete(pTHXo)
5595 return ((CPerlObj*)pPerl)->Perl_pp_delete();
5602 return ((CPerlObj*)pPerl)->Perl_pp_die();
5605 #undef Perl_pp_divide
5607 Perl_pp_divide(pTHXo)
5609 return ((CPerlObj*)pPerl)->Perl_pp_divide();
5612 #undef Perl_pp_dofile
5614 Perl_pp_dofile(pTHXo)
5616 return ((CPerlObj*)pPerl)->Perl_pp_dofile();
5623 return ((CPerlObj*)pPerl)->Perl_pp_dump();
5630 return ((CPerlObj*)pPerl)->Perl_pp_each();
5633 #undef Perl_pp_egrent
5635 Perl_pp_egrent(pTHXo)
5637 return ((CPerlObj*)pPerl)->Perl_pp_egrent();
5640 #undef Perl_pp_ehostent
5642 Perl_pp_ehostent(pTHXo)
5644 return ((CPerlObj*)pPerl)->Perl_pp_ehostent();
5647 #undef Perl_pp_enetent
5649 Perl_pp_enetent(pTHXo)
5651 return ((CPerlObj*)pPerl)->Perl_pp_enetent();
5654 #undef Perl_pp_enter
5656 Perl_pp_enter(pTHXo)
5658 return ((CPerlObj*)pPerl)->Perl_pp_enter();
5661 #undef Perl_pp_entereval
5663 Perl_pp_entereval(pTHXo)
5665 return ((CPerlObj*)pPerl)->Perl_pp_entereval();
5668 #undef Perl_pp_enteriter
5670 Perl_pp_enteriter(pTHXo)
5672 return ((CPerlObj*)pPerl)->Perl_pp_enteriter();
5675 #undef Perl_pp_enterloop
5677 Perl_pp_enterloop(pTHXo)
5679 return ((CPerlObj*)pPerl)->Perl_pp_enterloop();
5682 #undef Perl_pp_entersub
5684 Perl_pp_entersub(pTHXo)
5686 return ((CPerlObj*)pPerl)->Perl_pp_entersub();
5689 #undef Perl_pp_entertry
5691 Perl_pp_entertry(pTHXo)
5693 return ((CPerlObj*)pPerl)->Perl_pp_entertry();
5696 #undef Perl_pp_enterwrite
5698 Perl_pp_enterwrite(pTHXo)
5700 return ((CPerlObj*)pPerl)->Perl_pp_enterwrite();
5707 return ((CPerlObj*)pPerl)->Perl_pp_eof();
5710 #undef Perl_pp_eprotoent
5712 Perl_pp_eprotoent(pTHXo)
5714 return ((CPerlObj*)pPerl)->Perl_pp_eprotoent();
5717 #undef Perl_pp_epwent
5719 Perl_pp_epwent(pTHXo)
5721 return ((CPerlObj*)pPerl)->Perl_pp_epwent();
5728 return ((CPerlObj*)pPerl)->Perl_pp_eq();
5731 #undef Perl_pp_eservent
5733 Perl_pp_eservent(pTHXo)
5735 return ((CPerlObj*)pPerl)->Perl_pp_eservent();
5742 return ((CPerlObj*)pPerl)->Perl_pp_exec();
5745 #undef Perl_pp_exists
5747 Perl_pp_exists(pTHXo)
5749 return ((CPerlObj*)pPerl)->Perl_pp_exists();
5756 return ((CPerlObj*)pPerl)->Perl_pp_exit();
5763 return ((CPerlObj*)pPerl)->Perl_pp_exp();
5766 #undef Perl_pp_fcntl
5768 Perl_pp_fcntl(pTHXo)
5770 return ((CPerlObj*)pPerl)->Perl_pp_fcntl();
5773 #undef Perl_pp_fileno
5775 Perl_pp_fileno(pTHXo)
5777 return ((CPerlObj*)pPerl)->Perl_pp_fileno();
5784 return ((CPerlObj*)pPerl)->Perl_pp_flip();
5787 #undef Perl_pp_flock
5789 Perl_pp_flock(pTHXo)
5791 return ((CPerlObj*)pPerl)->Perl_pp_flock();
5798 return ((CPerlObj*)pPerl)->Perl_pp_flop();
5805 return ((CPerlObj*)pPerl)->Perl_pp_fork();
5808 #undef Perl_pp_formline
5810 Perl_pp_formline(pTHXo)
5812 return ((CPerlObj*)pPerl)->Perl_pp_formline();
5815 #undef Perl_pp_ftatime
5817 Perl_pp_ftatime(pTHXo)
5819 return ((CPerlObj*)pPerl)->Perl_pp_ftatime();
5822 #undef Perl_pp_ftbinary
5824 Perl_pp_ftbinary(pTHXo)
5826 return ((CPerlObj*)pPerl)->Perl_pp_ftbinary();
5829 #undef Perl_pp_ftblk
5831 Perl_pp_ftblk(pTHXo)
5833 return ((CPerlObj*)pPerl)->Perl_pp_ftblk();
5836 #undef Perl_pp_ftchr
5838 Perl_pp_ftchr(pTHXo)
5840 return ((CPerlObj*)pPerl)->Perl_pp_ftchr();
5843 #undef Perl_pp_ftctime
5845 Perl_pp_ftctime(pTHXo)
5847 return ((CPerlObj*)pPerl)->Perl_pp_ftctime();
5850 #undef Perl_pp_ftdir
5852 Perl_pp_ftdir(pTHXo)
5854 return ((CPerlObj*)pPerl)->Perl_pp_ftdir();
5857 #undef Perl_pp_fteexec
5859 Perl_pp_fteexec(pTHXo)
5861 return ((CPerlObj*)pPerl)->Perl_pp_fteexec();
5864 #undef Perl_pp_fteowned
5866 Perl_pp_fteowned(pTHXo)
5868 return ((CPerlObj*)pPerl)->Perl_pp_fteowned();
5871 #undef Perl_pp_fteread
5873 Perl_pp_fteread(pTHXo)
5875 return ((CPerlObj*)pPerl)->Perl_pp_fteread();
5878 #undef Perl_pp_ftewrite
5880 Perl_pp_ftewrite(pTHXo)
5882 return ((CPerlObj*)pPerl)->Perl_pp_ftewrite();
5885 #undef Perl_pp_ftfile
5887 Perl_pp_ftfile(pTHXo)
5889 return ((CPerlObj*)pPerl)->Perl_pp_ftfile();
5896 return ((CPerlObj*)pPerl)->Perl_pp_ftis();
5899 #undef Perl_pp_ftlink
5901 Perl_pp_ftlink(pTHXo)
5903 return ((CPerlObj*)pPerl)->Perl_pp_ftlink();
5906 #undef Perl_pp_ftmtime
5908 Perl_pp_ftmtime(pTHXo)
5910 return ((CPerlObj*)pPerl)->Perl_pp_ftmtime();
5913 #undef Perl_pp_ftpipe
5915 Perl_pp_ftpipe(pTHXo)
5917 return ((CPerlObj*)pPerl)->Perl_pp_ftpipe();
5920 #undef Perl_pp_ftrexec
5922 Perl_pp_ftrexec(pTHXo)
5924 return ((CPerlObj*)pPerl)->Perl_pp_ftrexec();
5927 #undef Perl_pp_ftrowned
5929 Perl_pp_ftrowned(pTHXo)
5931 return ((CPerlObj*)pPerl)->Perl_pp_ftrowned();
5934 #undef Perl_pp_ftrread
5936 Perl_pp_ftrread(pTHXo)
5938 return ((CPerlObj*)pPerl)->Perl_pp_ftrread();
5941 #undef Perl_pp_ftrwrite
5943 Perl_pp_ftrwrite(pTHXo)
5945 return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite();
5948 #undef Perl_pp_ftsgid
5950 Perl_pp_ftsgid(pTHXo)
5952 return ((CPerlObj*)pPerl)->Perl_pp_ftsgid();
5955 #undef Perl_pp_ftsize
5957 Perl_pp_ftsize(pTHXo)
5959 return ((CPerlObj*)pPerl)->Perl_pp_ftsize();
5962 #undef Perl_pp_ftsock
5964 Perl_pp_ftsock(pTHXo)
5966 return ((CPerlObj*)pPerl)->Perl_pp_ftsock();
5969 #undef Perl_pp_ftsuid
5971 Perl_pp_ftsuid(pTHXo)
5973 return ((CPerlObj*)pPerl)->Perl_pp_ftsuid();
5976 #undef Perl_pp_ftsvtx
5978 Perl_pp_ftsvtx(pTHXo)
5980 return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx();
5983 #undef Perl_pp_fttext
5985 Perl_pp_fttext(pTHXo)
5987 return ((CPerlObj*)pPerl)->Perl_pp_fttext();
5990 #undef Perl_pp_fttty
5992 Perl_pp_fttty(pTHXo)
5994 return ((CPerlObj*)pPerl)->Perl_pp_fttty();
5997 #undef Perl_pp_ftzero
5999 Perl_pp_ftzero(pTHXo)
6001 return ((CPerlObj*)pPerl)->Perl_pp_ftzero();
6008 return ((CPerlObj*)pPerl)->Perl_pp_ge();
6011 #undef Perl_pp_gelem
6013 Perl_pp_gelem(pTHXo)
6015 return ((CPerlObj*)pPerl)->Perl_pp_gelem();
6022 return ((CPerlObj*)pPerl)->Perl_pp_getc();
6025 #undef Perl_pp_getlogin
6027 Perl_pp_getlogin(pTHXo)
6029 return ((CPerlObj*)pPerl)->Perl_pp_getlogin();
6032 #undef Perl_pp_getpeername
6034 Perl_pp_getpeername(pTHXo)
6036 return ((CPerlObj*)pPerl)->Perl_pp_getpeername();
6039 #undef Perl_pp_getpgrp
6041 Perl_pp_getpgrp(pTHXo)
6043 return ((CPerlObj*)pPerl)->Perl_pp_getpgrp();
6046 #undef Perl_pp_getppid
6048 Perl_pp_getppid(pTHXo)
6050 return ((CPerlObj*)pPerl)->Perl_pp_getppid();
6053 #undef Perl_pp_getpriority
6055 Perl_pp_getpriority(pTHXo)
6057 return ((CPerlObj*)pPerl)->Perl_pp_getpriority();
6060 #undef Perl_pp_getsockname
6062 Perl_pp_getsockname(pTHXo)
6064 return ((CPerlObj*)pPerl)->Perl_pp_getsockname();
6067 #undef Perl_pp_ggrent
6069 Perl_pp_ggrent(pTHXo)
6071 return ((CPerlObj*)pPerl)->Perl_pp_ggrent();
6074 #undef Perl_pp_ggrgid
6076 Perl_pp_ggrgid(pTHXo)
6078 return ((CPerlObj*)pPerl)->Perl_pp_ggrgid();
6081 #undef Perl_pp_ggrnam
6083 Perl_pp_ggrnam(pTHXo)
6085 return ((CPerlObj*)pPerl)->Perl_pp_ggrnam();
6088 #undef Perl_pp_ghbyaddr
6090 Perl_pp_ghbyaddr(pTHXo)
6092 return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr();
6095 #undef Perl_pp_ghbyname
6097 Perl_pp_ghbyname(pTHXo)
6099 return ((CPerlObj*)pPerl)->Perl_pp_ghbyname();
6102 #undef Perl_pp_ghostent
6104 Perl_pp_ghostent(pTHXo)
6106 return ((CPerlObj*)pPerl)->Perl_pp_ghostent();
6113 return ((CPerlObj*)pPerl)->Perl_pp_glob();
6116 #undef Perl_pp_gmtime
6118 Perl_pp_gmtime(pTHXo)
6120 return ((CPerlObj*)pPerl)->Perl_pp_gmtime();
6123 #undef Perl_pp_gnbyaddr
6125 Perl_pp_gnbyaddr(pTHXo)
6127 return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr();
6130 #undef Perl_pp_gnbyname
6132 Perl_pp_gnbyname(pTHXo)
6134 return ((CPerlObj*)pPerl)->Perl_pp_gnbyname();
6137 #undef Perl_pp_gnetent
6139 Perl_pp_gnetent(pTHXo)
6141 return ((CPerlObj*)pPerl)->Perl_pp_gnetent();
6148 return ((CPerlObj*)pPerl)->Perl_pp_goto();
6151 #undef Perl_pp_gpbyname
6153 Perl_pp_gpbyname(pTHXo)
6155 return ((CPerlObj*)pPerl)->Perl_pp_gpbyname();
6158 #undef Perl_pp_gpbynumber
6160 Perl_pp_gpbynumber(pTHXo)
6162 return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber();
6165 #undef Perl_pp_gprotoent
6167 Perl_pp_gprotoent(pTHXo)
6169 return ((CPerlObj*)pPerl)->Perl_pp_gprotoent();
6172 #undef Perl_pp_gpwent
6174 Perl_pp_gpwent(pTHXo)
6176 return ((CPerlObj*)pPerl)->Perl_pp_gpwent();
6179 #undef Perl_pp_gpwnam
6181 Perl_pp_gpwnam(pTHXo)
6183 return ((CPerlObj*)pPerl)->Perl_pp_gpwnam();
6186 #undef Perl_pp_gpwuid
6188 Perl_pp_gpwuid(pTHXo)
6190 return ((CPerlObj*)pPerl)->Perl_pp_gpwuid();
6193 #undef Perl_pp_grepstart
6195 Perl_pp_grepstart(pTHXo)
6197 return ((CPerlObj*)pPerl)->Perl_pp_grepstart();
6200 #undef Perl_pp_grepwhile
6202 Perl_pp_grepwhile(pTHXo)
6204 return ((CPerlObj*)pPerl)->Perl_pp_grepwhile();
6207 #undef Perl_pp_gsbyname
6209 Perl_pp_gsbyname(pTHXo)
6211 return ((CPerlObj*)pPerl)->Perl_pp_gsbyname();
6214 #undef Perl_pp_gsbyport
6216 Perl_pp_gsbyport(pTHXo)
6218 return ((CPerlObj*)pPerl)->Perl_pp_gsbyport();
6221 #undef Perl_pp_gservent
6223 Perl_pp_gservent(pTHXo)
6225 return ((CPerlObj*)pPerl)->Perl_pp_gservent();
6228 #undef Perl_pp_gsockopt
6230 Perl_pp_gsockopt(pTHXo)
6232 return ((CPerlObj*)pPerl)->Perl_pp_gsockopt();
6239 return ((CPerlObj*)pPerl)->Perl_pp_gt();
6246 return ((CPerlObj*)pPerl)->Perl_pp_gv();
6253 return ((CPerlObj*)pPerl)->Perl_pp_gvsv();
6256 #undef Perl_pp_helem
6258 Perl_pp_helem(pTHXo)
6260 return ((CPerlObj*)pPerl)->Perl_pp_helem();
6267 return ((CPerlObj*)pPerl)->Perl_pp_hex();
6270 #undef Perl_pp_hslice
6272 Perl_pp_hslice(pTHXo)
6274 return ((CPerlObj*)pPerl)->Perl_pp_hslice();
6277 #undef Perl_pp_i_add
6279 Perl_pp_i_add(pTHXo)
6281 return ((CPerlObj*)pPerl)->Perl_pp_i_add();
6284 #undef Perl_pp_i_divide
6286 Perl_pp_i_divide(pTHXo)
6288 return ((CPerlObj*)pPerl)->Perl_pp_i_divide();
6295 return ((CPerlObj*)pPerl)->Perl_pp_i_eq();
6302 return ((CPerlObj*)pPerl)->Perl_pp_i_ge();
6309 return ((CPerlObj*)pPerl)->Perl_pp_i_gt();
6316 return ((CPerlObj*)pPerl)->Perl_pp_i_le();
6323 return ((CPerlObj*)pPerl)->Perl_pp_i_lt();
6326 #undef Perl_pp_i_modulo
6328 Perl_pp_i_modulo(pTHXo)
6330 return ((CPerlObj*)pPerl)->Perl_pp_i_modulo();
6333 #undef Perl_pp_i_multiply
6335 Perl_pp_i_multiply(pTHXo)
6337 return ((CPerlObj*)pPerl)->Perl_pp_i_multiply();
6340 #undef Perl_pp_i_ncmp
6342 Perl_pp_i_ncmp(pTHXo)
6344 return ((CPerlObj*)pPerl)->Perl_pp_i_ncmp();
6351 return ((CPerlObj*)pPerl)->Perl_pp_i_ne();
6354 #undef Perl_pp_i_negate
6356 Perl_pp_i_negate(pTHXo)
6358 return ((CPerlObj*)pPerl)->Perl_pp_i_negate();
6361 #undef Perl_pp_i_subtract
6363 Perl_pp_i_subtract(pTHXo)
6365 return ((CPerlObj*)pPerl)->Perl_pp_i_subtract();
6368 #undef Perl_pp_index
6370 Perl_pp_index(pTHXo)
6372 return ((CPerlObj*)pPerl)->Perl_pp_index();
6379 return ((CPerlObj*)pPerl)->Perl_pp_int();
6382 #undef Perl_pp_ioctl
6384 Perl_pp_ioctl(pTHXo)
6386 return ((CPerlObj*)pPerl)->Perl_pp_ioctl();
6393 return ((CPerlObj*)pPerl)->Perl_pp_iter();
6400 return ((CPerlObj*)pPerl)->Perl_pp_join();
6407 return ((CPerlObj*)pPerl)->Perl_pp_keys();
6414 return ((CPerlObj*)pPerl)->Perl_pp_kill();
6421 return ((CPerlObj*)pPerl)->Perl_pp_last();
6428 return ((CPerlObj*)pPerl)->Perl_pp_lc();
6431 #undef Perl_pp_lcfirst
6433 Perl_pp_lcfirst(pTHXo)
6435 return ((CPerlObj*)pPerl)->Perl_pp_lcfirst();
6442 return ((CPerlObj*)pPerl)->Perl_pp_le();
6445 #undef Perl_pp_leave
6447 Perl_pp_leave(pTHXo)
6449 return ((CPerlObj*)pPerl)->Perl_pp_leave();
6452 #undef Perl_pp_leaveeval
6454 Perl_pp_leaveeval(pTHXo)
6456 return ((CPerlObj*)pPerl)->Perl_pp_leaveeval();
6459 #undef Perl_pp_leaveloop
6461 Perl_pp_leaveloop(pTHXo)
6463 return ((CPerlObj*)pPerl)->Perl_pp_leaveloop();
6466 #undef Perl_pp_leavesub
6468 Perl_pp_leavesub(pTHXo)
6470 return ((CPerlObj*)pPerl)->Perl_pp_leavesub();
6473 #undef Perl_pp_leavesublv
6475 Perl_pp_leavesublv(pTHXo)
6477 return ((CPerlObj*)pPerl)->Perl_pp_leavesublv();
6480 #undef Perl_pp_leavetry
6482 Perl_pp_leavetry(pTHXo)
6484 return ((CPerlObj*)pPerl)->Perl_pp_leavetry();
6487 #undef Perl_pp_leavewrite
6489 Perl_pp_leavewrite(pTHXo)
6491 return ((CPerlObj*)pPerl)->Perl_pp_leavewrite();
6494 #undef Perl_pp_left_shift
6496 Perl_pp_left_shift(pTHXo)
6498 return ((CPerlObj*)pPerl)->Perl_pp_left_shift();
6501 #undef Perl_pp_length
6503 Perl_pp_length(pTHXo)
6505 return ((CPerlObj*)pPerl)->Perl_pp_length();
6508 #undef Perl_pp_lineseq
6510 Perl_pp_lineseq(pTHXo)
6512 return ((CPerlObj*)pPerl)->Perl_pp_lineseq();
6519 return ((CPerlObj*)pPerl)->Perl_pp_link();
6526 return ((CPerlObj*)pPerl)->Perl_pp_list();
6529 #undef Perl_pp_listen
6531 Perl_pp_listen(pTHXo)
6533 return ((CPerlObj*)pPerl)->Perl_pp_listen();
6536 #undef Perl_pp_localtime
6538 Perl_pp_localtime(pTHXo)
6540 return ((CPerlObj*)pPerl)->Perl_pp_localtime();
6547 return ((CPerlObj*)pPerl)->Perl_pp_lock();
6554 return ((CPerlObj*)pPerl)->Perl_pp_log();
6557 #undef Perl_pp_lslice
6559 Perl_pp_lslice(pTHXo)
6561 return ((CPerlObj*)pPerl)->Perl_pp_lslice();
6564 #undef Perl_pp_lstat
6566 Perl_pp_lstat(pTHXo)
6568 return ((CPerlObj*)pPerl)->Perl_pp_lstat();
6575 return ((CPerlObj*)pPerl)->Perl_pp_lt();
6578 #undef Perl_pp_mapstart
6580 Perl_pp_mapstart(pTHXo)
6582 return ((CPerlObj*)pPerl)->Perl_pp_mapstart();
6585 #undef Perl_pp_mapwhile
6587 Perl_pp_mapwhile(pTHXo)
6589 return ((CPerlObj*)pPerl)->Perl_pp_mapwhile();
6592 #undef Perl_pp_match
6594 Perl_pp_match(pTHXo)
6596 return ((CPerlObj*)pPerl)->Perl_pp_match();
6599 #undef Perl_pp_method
6601 Perl_pp_method(pTHXo)
6603 return ((CPerlObj*)pPerl)->Perl_pp_method();
6606 #undef Perl_pp_method_named
6608 Perl_pp_method_named(pTHXo)
6610 return ((CPerlObj*)pPerl)->Perl_pp_method_named();
6613 #undef Perl_pp_mkdir
6615 Perl_pp_mkdir(pTHXo)
6617 return ((CPerlObj*)pPerl)->Perl_pp_mkdir();
6620 #undef Perl_pp_modulo
6622 Perl_pp_modulo(pTHXo)
6624 return ((CPerlObj*)pPerl)->Perl_pp_modulo();
6627 #undef Perl_pp_msgctl
6629 Perl_pp_msgctl(pTHXo)
6631 return ((CPerlObj*)pPerl)->Perl_pp_msgctl();
6634 #undef Perl_pp_msgget
6636 Perl_pp_msgget(pTHXo)
6638 return ((CPerlObj*)pPerl)->Perl_pp_msgget();
6641 #undef Perl_pp_msgrcv
6643 Perl_pp_msgrcv(pTHXo)
6645 return ((CPerlObj*)pPerl)->Perl_pp_msgrcv();
6648 #undef Perl_pp_msgsnd
6650 Perl_pp_msgsnd(pTHXo)
6652 return ((CPerlObj*)pPerl)->Perl_pp_msgsnd();
6655 #undef Perl_pp_multiply
6657 Perl_pp_multiply(pTHXo)
6659 return ((CPerlObj*)pPerl)->Perl_pp_multiply();
6666 return ((CPerlObj*)pPerl)->Perl_pp_ncmp();
6673 return ((CPerlObj*)pPerl)->Perl_pp_ne();
6676 #undef Perl_pp_negate
6678 Perl_pp_negate(pTHXo)
6680 return ((CPerlObj*)pPerl)->Perl_pp_negate();
6687 return ((CPerlObj*)pPerl)->Perl_pp_next();
6690 #undef Perl_pp_nextstate
6692 Perl_pp_nextstate(pTHXo)
6694 return ((CPerlObj*)pPerl)->Perl_pp_nextstate();
6701 return ((CPerlObj*)pPerl)->Perl_pp_not();
6708 return ((CPerlObj*)pPerl)->Perl_pp_null();
6715 return ((CPerlObj*)pPerl)->Perl_pp_oct();
6722 return ((CPerlObj*)pPerl)->Perl_pp_open();
6725 #undef Perl_pp_open_dir
6727 Perl_pp_open_dir(pTHXo)
6729 return ((CPerlObj*)pPerl)->Perl_pp_open_dir();
6736 return ((CPerlObj*)pPerl)->Perl_pp_or();
6739 #undef Perl_pp_orassign
6741 Perl_pp_orassign(pTHXo)
6743 return ((CPerlObj*)pPerl)->Perl_pp_orassign();
6750 return ((CPerlObj*)pPerl)->Perl_pp_ord();
6757 return ((CPerlObj*)pPerl)->Perl_pp_pack();
6760 #undef Perl_pp_padany
6762 Perl_pp_padany(pTHXo)
6764 return ((CPerlObj*)pPerl)->Perl_pp_padany();
6767 #undef Perl_pp_padav
6769 Perl_pp_padav(pTHXo)
6771 return ((CPerlObj*)pPerl)->Perl_pp_padav();
6774 #undef Perl_pp_padhv
6776 Perl_pp_padhv(pTHXo)
6778 return ((CPerlObj*)pPerl)->Perl_pp_padhv();
6781 #undef Perl_pp_padsv
6783 Perl_pp_padsv(pTHXo)
6785 return ((CPerlObj*)pPerl)->Perl_pp_padsv();
6788 #undef Perl_pp_pipe_op
6790 Perl_pp_pipe_op(pTHXo)
6792 return ((CPerlObj*)pPerl)->Perl_pp_pipe_op();
6799 return ((CPerlObj*)pPerl)->Perl_pp_pop();
6806 return ((CPerlObj*)pPerl)->Perl_pp_pos();
6809 #undef Perl_pp_postdec
6811 Perl_pp_postdec(pTHXo)
6813 return ((CPerlObj*)pPerl)->Perl_pp_postdec();
6816 #undef Perl_pp_postinc
6818 Perl_pp_postinc(pTHXo)
6820 return ((CPerlObj*)pPerl)->Perl_pp_postinc();
6827 return ((CPerlObj*)pPerl)->Perl_pp_pow();
6830 #undef Perl_pp_predec
6832 Perl_pp_predec(pTHXo)
6834 return ((CPerlObj*)pPerl)->Perl_pp_predec();
6837 #undef Perl_pp_preinc
6839 Perl_pp_preinc(pTHXo)
6841 return ((CPerlObj*)pPerl)->Perl_pp_preinc();
6844 #undef Perl_pp_print
6846 Perl_pp_print(pTHXo)
6848 return ((CPerlObj*)pPerl)->Perl_pp_print();
6851 #undef Perl_pp_prototype
6853 Perl_pp_prototype(pTHXo)
6855 return ((CPerlObj*)pPerl)->Perl_pp_prototype();
6862 return ((CPerlObj*)pPerl)->Perl_pp_prtf();
6869 return ((CPerlObj*)pPerl)->Perl_pp_push();
6872 #undef Perl_pp_pushmark
6874 Perl_pp_pushmark(pTHXo)
6876 return ((CPerlObj*)pPerl)->Perl_pp_pushmark();
6879 #undef Perl_pp_pushre
6881 Perl_pp_pushre(pTHXo)
6883 return ((CPerlObj*)pPerl)->Perl_pp_pushre();
6890 return ((CPerlObj*)pPerl)->Perl_pp_qr();
6893 #undef Perl_pp_quotemeta
6895 Perl_pp_quotemeta(pTHXo)
6897 return ((CPerlObj*)pPerl)->Perl_pp_quotemeta();
6904 return ((CPerlObj*)pPerl)->Perl_pp_rand();
6907 #undef Perl_pp_range
6909 Perl_pp_range(pTHXo)
6911 return ((CPerlObj*)pPerl)->Perl_pp_range();
6914 #undef Perl_pp_rcatline
6916 Perl_pp_rcatline(pTHXo)
6918 return ((CPerlObj*)pPerl)->Perl_pp_rcatline();
6925 return ((CPerlObj*)pPerl)->Perl_pp_read();
6928 #undef Perl_pp_readdir
6930 Perl_pp_readdir(pTHXo)
6932 return ((CPerlObj*)pPerl)->Perl_pp_readdir();
6935 #undef Perl_pp_readline
6937 Perl_pp_readline(pTHXo)
6939 return ((CPerlObj*)pPerl)->Perl_pp_readline();
6942 #undef Perl_pp_readlink
6944 Perl_pp_readlink(pTHXo)
6946 return ((CPerlObj*)pPerl)->Perl_pp_readlink();
6953 return ((CPerlObj*)pPerl)->Perl_pp_recv();
6960 return ((CPerlObj*)pPerl)->Perl_pp_redo();
6967 return ((CPerlObj*)pPerl)->Perl_pp_ref();
6970 #undef Perl_pp_refgen
6972 Perl_pp_refgen(pTHXo)
6974 return ((CPerlObj*)pPerl)->Perl_pp_refgen();
6977 #undef Perl_pp_regcmaybe
6979 Perl_pp_regcmaybe(pTHXo)
6981 return ((CPerlObj*)pPerl)->Perl_pp_regcmaybe();
6984 #undef Perl_pp_regcomp
6986 Perl_pp_regcomp(pTHXo)
6988 return ((CPerlObj*)pPerl)->Perl_pp_regcomp();
6991 #undef Perl_pp_regcreset
6993 Perl_pp_regcreset(pTHXo)
6995 return ((CPerlObj*)pPerl)->Perl_pp_regcreset();
6998 #undef Perl_pp_rename
7000 Perl_pp_rename(pTHXo)
7002 return ((CPerlObj*)pPerl)->Perl_pp_rename();
7005 #undef Perl_pp_repeat
7007 Perl_pp_repeat(pTHXo)
7009 return ((CPerlObj*)pPerl)->Perl_pp_repeat();
7012 #undef Perl_pp_require
7014 Perl_pp_require(pTHXo)
7016 return ((CPerlObj*)pPerl)->Perl_pp_require();
7019 #undef Perl_pp_reset
7021 Perl_pp_reset(pTHXo)
7023 return ((CPerlObj*)pPerl)->Perl_pp_reset();
7026 #undef Perl_pp_return
7028 Perl_pp_return(pTHXo)
7030 return ((CPerlObj*)pPerl)->Perl_pp_return();
7033 #undef Perl_pp_reverse
7035 Perl_pp_reverse(pTHXo)
7037 return ((CPerlObj*)pPerl)->Perl_pp_reverse();
7040 #undef Perl_pp_rewinddir
7042 Perl_pp_rewinddir(pTHXo)
7044 return ((CPerlObj*)pPerl)->Perl_pp_rewinddir();
7047 #undef Perl_pp_right_shift
7049 Perl_pp_right_shift(pTHXo)
7051 return ((CPerlObj*)pPerl)->Perl_pp_right_shift();
7054 #undef Perl_pp_rindex
7056 Perl_pp_rindex(pTHXo)
7058 return ((CPerlObj*)pPerl)->Perl_pp_rindex();
7061 #undef Perl_pp_rmdir
7063 Perl_pp_rmdir(pTHXo)
7065 return ((CPerlObj*)pPerl)->Perl_pp_rmdir();
7068 #undef Perl_pp_rv2av
7070 Perl_pp_rv2av(pTHXo)
7072 return ((CPerlObj*)pPerl)->Perl_pp_rv2av();
7075 #undef Perl_pp_rv2cv
7077 Perl_pp_rv2cv(pTHXo)
7079 return ((CPerlObj*)pPerl)->Perl_pp_rv2cv();
7082 #undef Perl_pp_rv2gv
7084 Perl_pp_rv2gv(pTHXo)
7086 return ((CPerlObj*)pPerl)->Perl_pp_rv2gv();
7089 #undef Perl_pp_rv2hv
7091 Perl_pp_rv2hv(pTHXo)
7093 return ((CPerlObj*)pPerl)->Perl_pp_rv2hv();
7096 #undef Perl_pp_rv2sv
7098 Perl_pp_rv2sv(pTHXo)
7100 return ((CPerlObj*)pPerl)->Perl_pp_rv2sv();
7103 #undef Perl_pp_sassign
7105 Perl_pp_sassign(pTHXo)
7107 return ((CPerlObj*)pPerl)->Perl_pp_sassign();
7110 #undef Perl_pp_scalar
7112 Perl_pp_scalar(pTHXo)
7114 return ((CPerlObj*)pPerl)->Perl_pp_scalar();
7117 #undef Perl_pp_schomp
7119 Perl_pp_schomp(pTHXo)
7121 return ((CPerlObj*)pPerl)->Perl_pp_schomp();
7124 #undef Perl_pp_schop
7126 Perl_pp_schop(pTHXo)
7128 return ((CPerlObj*)pPerl)->Perl_pp_schop();
7135 return ((CPerlObj*)pPerl)->Perl_pp_scmp();
7138 #undef Perl_pp_scope
7140 Perl_pp_scope(pTHXo)
7142 return ((CPerlObj*)pPerl)->Perl_pp_scope();
7149 return ((CPerlObj*)pPerl)->Perl_pp_seek();
7152 #undef Perl_pp_seekdir
7154 Perl_pp_seekdir(pTHXo)
7156 return ((CPerlObj*)pPerl)->Perl_pp_seekdir();
7159 #undef Perl_pp_select
7161 Perl_pp_select(pTHXo)
7163 return ((CPerlObj*)pPerl)->Perl_pp_select();
7166 #undef Perl_pp_semctl
7168 Perl_pp_semctl(pTHXo)
7170 return ((CPerlObj*)pPerl)->Perl_pp_semctl();
7173 #undef Perl_pp_semget
7175 Perl_pp_semget(pTHXo)
7177 return ((CPerlObj*)pPerl)->Perl_pp_semget();
7180 #undef Perl_pp_semop
7182 Perl_pp_semop(pTHXo)
7184 return ((CPerlObj*)pPerl)->Perl_pp_semop();
7191 return ((CPerlObj*)pPerl)->Perl_pp_send();
7198 return ((CPerlObj*)pPerl)->Perl_pp_seq();
7201 #undef Perl_pp_setpgrp
7203 Perl_pp_setpgrp(pTHXo)
7205 return ((CPerlObj*)pPerl)->Perl_pp_setpgrp();
7208 #undef Perl_pp_setpriority
7210 Perl_pp_setpriority(pTHXo)
7212 return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
7215 #undef Perl_pp_setstate
7217 Perl_pp_setstate(pTHXo)
7219 return ((CPerlObj*)pPerl)->Perl_pp_setstate();
7226 return ((CPerlObj*)pPerl)->Perl_pp_sge();
7229 #undef Perl_pp_sgrent
7231 Perl_pp_sgrent(pTHXo)
7233 return ((CPerlObj*)pPerl)->Perl_pp_sgrent();
7240 return ((CPerlObj*)pPerl)->Perl_pp_sgt();
7243 #undef Perl_pp_shift
7245 Perl_pp_shift(pTHXo)
7247 return ((CPerlObj*)pPerl)->Perl_pp_shift();
7250 #undef Perl_pp_shmctl
7252 Perl_pp_shmctl(pTHXo)
7254 return ((CPerlObj*)pPerl)->Perl_pp_shmctl();
7257 #undef Perl_pp_shmget
7259 Perl_pp_shmget(pTHXo)
7261 return ((CPerlObj*)pPerl)->Perl_pp_shmget();
7264 #undef Perl_pp_shmread
7266 Perl_pp_shmread(pTHXo)
7268 return ((CPerlObj*)pPerl)->Perl_pp_shmread();
7271 #undef Perl_pp_shmwrite
7273 Perl_pp_shmwrite(pTHXo)
7275 return ((CPerlObj*)pPerl)->Perl_pp_shmwrite();
7278 #undef Perl_pp_shostent
7280 Perl_pp_shostent(pTHXo)
7282 return ((CPerlObj*)pPerl)->Perl_pp_shostent();
7285 #undef Perl_pp_shutdown
7287 Perl_pp_shutdown(pTHXo)
7289 return ((CPerlObj*)pPerl)->Perl_pp_shutdown();
7296 return ((CPerlObj*)pPerl)->Perl_pp_sin();
7303 return ((CPerlObj*)pPerl)->Perl_pp_sle();
7306 #undef Perl_pp_sleep
7308 Perl_pp_sleep(pTHXo)
7310 return ((CPerlObj*)pPerl)->Perl_pp_sleep();
7317 return ((CPerlObj*)pPerl)->Perl_pp_slt();
7324 return ((CPerlObj*)pPerl)->Perl_pp_sne();
7327 #undef Perl_pp_snetent
7329 Perl_pp_snetent(pTHXo)
7331 return ((CPerlObj*)pPerl)->Perl_pp_snetent();
7334 #undef Perl_pp_socket
7336 Perl_pp_socket(pTHXo)
7338 return ((CPerlObj*)pPerl)->Perl_pp_socket();
7341 #undef Perl_pp_sockpair
7343 Perl_pp_sockpair(pTHXo)
7345 return ((CPerlObj*)pPerl)->Perl_pp_sockpair();
7352 return ((CPerlObj*)pPerl)->Perl_pp_sort();
7355 #undef Perl_pp_splice
7357 Perl_pp_splice(pTHXo)
7359 return ((CPerlObj*)pPerl)->Perl_pp_splice();
7362 #undef Perl_pp_split
7364 Perl_pp_split(pTHXo)
7366 return ((CPerlObj*)pPerl)->Perl_pp_split();
7369 #undef Perl_pp_sprintf
7371 Perl_pp_sprintf(pTHXo)
7373 return ((CPerlObj*)pPerl)->Perl_pp_sprintf();
7376 #undef Perl_pp_sprotoent
7378 Perl_pp_sprotoent(pTHXo)
7380 return ((CPerlObj*)pPerl)->Perl_pp_sprotoent();
7383 #undef Perl_pp_spwent
7385 Perl_pp_spwent(pTHXo)
7387 return ((CPerlObj*)pPerl)->Perl_pp_spwent();
7394 return ((CPerlObj*)pPerl)->Perl_pp_sqrt();
7397 #undef Perl_pp_srand
7399 Perl_pp_srand(pTHXo)
7401 return ((CPerlObj*)pPerl)->Perl_pp_srand();
7404 #undef Perl_pp_srefgen
7406 Perl_pp_srefgen(pTHXo)
7408 return ((CPerlObj*)pPerl)->Perl_pp_srefgen();
7411 #undef Perl_pp_sselect
7413 Perl_pp_sselect(pTHXo)
7415 return ((CPerlObj*)pPerl)->Perl_pp_sselect();
7418 #undef Perl_pp_sservent
7420 Perl_pp_sservent(pTHXo)
7422 return ((CPerlObj*)pPerl)->Perl_pp_sservent();
7425 #undef Perl_pp_ssockopt
7427 Perl_pp_ssockopt(pTHXo)
7429 return ((CPerlObj*)pPerl)->Perl_pp_ssockopt();
7436 return ((CPerlObj*)pPerl)->Perl_pp_stat();
7439 #undef Perl_pp_stringify
7441 Perl_pp_stringify(pTHXo)
7443 return ((CPerlObj*)pPerl)->Perl_pp_stringify();
7450 return ((CPerlObj*)pPerl)->Perl_pp_stub();
7453 #undef Perl_pp_study
7455 Perl_pp_study(pTHXo)
7457 return ((CPerlObj*)pPerl)->Perl_pp_study();
7460 #undef Perl_pp_subst
7462 Perl_pp_subst(pTHXo)
7464 return ((CPerlObj*)pPerl)->Perl_pp_subst();
7467 #undef Perl_pp_substcont
7469 Perl_pp_substcont(pTHXo)
7471 return ((CPerlObj*)pPerl)->Perl_pp_substcont();
7474 #undef Perl_pp_substr
7476 Perl_pp_substr(pTHXo)
7478 return ((CPerlObj*)pPerl)->Perl_pp_substr();
7481 #undef Perl_pp_subtract
7483 Perl_pp_subtract(pTHXo)
7485 return ((CPerlObj*)pPerl)->Perl_pp_subtract();
7488 #undef Perl_pp_symlink
7490 Perl_pp_symlink(pTHXo)
7492 return ((CPerlObj*)pPerl)->Perl_pp_symlink();
7495 #undef Perl_pp_syscall
7497 Perl_pp_syscall(pTHXo)
7499 return ((CPerlObj*)pPerl)->Perl_pp_syscall();
7502 #undef Perl_pp_sysopen
7504 Perl_pp_sysopen(pTHXo)
7506 return ((CPerlObj*)pPerl)->Perl_pp_sysopen();
7509 #undef Perl_pp_sysread
7511 Perl_pp_sysread(pTHXo)
7513 return ((CPerlObj*)pPerl)->Perl_pp_sysread();
7516 #undef Perl_pp_sysseek
7518 Perl_pp_sysseek(pTHXo)
7520 return ((CPerlObj*)pPerl)->Perl_pp_sysseek();
7523 #undef Perl_pp_system
7525 Perl_pp_system(pTHXo)
7527 return ((CPerlObj*)pPerl)->Perl_pp_system();
7530 #undef Perl_pp_syswrite
7532 Perl_pp_syswrite(pTHXo)
7534 return ((CPerlObj*)pPerl)->Perl_pp_syswrite();
7541 return ((CPerlObj*)pPerl)->Perl_pp_tell();
7544 #undef Perl_pp_telldir
7546 Perl_pp_telldir(pTHXo)
7548 return ((CPerlObj*)pPerl)->Perl_pp_telldir();
7551 #undef Perl_pp_threadsv
7553 Perl_pp_threadsv(pTHXo)
7555 return ((CPerlObj*)pPerl)->Perl_pp_threadsv();
7562 return ((CPerlObj*)pPerl)->Perl_pp_tie();
7569 return ((CPerlObj*)pPerl)->Perl_pp_tied();
7576 return ((CPerlObj*)pPerl)->Perl_pp_time();
7583 return ((CPerlObj*)pPerl)->Perl_pp_tms();
7586 #undef Perl_pp_trans
7588 Perl_pp_trans(pTHXo)
7590 return ((CPerlObj*)pPerl)->Perl_pp_trans();
7593 #undef Perl_pp_truncate
7595 Perl_pp_truncate(pTHXo)
7597 return ((CPerlObj*)pPerl)->Perl_pp_truncate();
7604 return ((CPerlObj*)pPerl)->Perl_pp_uc();
7607 #undef Perl_pp_ucfirst
7609 Perl_pp_ucfirst(pTHXo)
7611 return ((CPerlObj*)pPerl)->Perl_pp_ucfirst();
7614 #undef Perl_pp_umask
7616 Perl_pp_umask(pTHXo)
7618 return ((CPerlObj*)pPerl)->Perl_pp_umask();
7621 #undef Perl_pp_undef
7623 Perl_pp_undef(pTHXo)
7625 return ((CPerlObj*)pPerl)->Perl_pp_undef();
7628 #undef Perl_pp_unlink
7630 Perl_pp_unlink(pTHXo)
7632 return ((CPerlObj*)pPerl)->Perl_pp_unlink();
7635 #undef Perl_pp_unpack
7637 Perl_pp_unpack(pTHXo)
7639 return ((CPerlObj*)pPerl)->Perl_pp_unpack();
7642 #undef Perl_pp_unshift
7644 Perl_pp_unshift(pTHXo)
7646 return ((CPerlObj*)pPerl)->Perl_pp_unshift();
7649 #undef Perl_pp_unstack
7651 Perl_pp_unstack(pTHXo)
7653 return ((CPerlObj*)pPerl)->Perl_pp_unstack();
7656 #undef Perl_pp_untie
7658 Perl_pp_untie(pTHXo)
7660 return ((CPerlObj*)pPerl)->Perl_pp_untie();
7663 #undef Perl_pp_utime
7665 Perl_pp_utime(pTHXo)
7667 return ((CPerlObj*)pPerl)->Perl_pp_utime();
7670 #undef Perl_pp_values
7672 Perl_pp_values(pTHXo)
7674 return ((CPerlObj*)pPerl)->Perl_pp_values();
7681 return ((CPerlObj*)pPerl)->Perl_pp_vec();
7688 return ((CPerlObj*)pPerl)->Perl_pp_wait();
7691 #undef Perl_pp_waitpid
7693 Perl_pp_waitpid(pTHXo)
7695 return ((CPerlObj*)pPerl)->Perl_pp_waitpid();
7698 #undef Perl_pp_wantarray
7700 Perl_pp_wantarray(pTHXo)
7702 return ((CPerlObj*)pPerl)->Perl_pp_wantarray();
7709 return ((CPerlObj*)pPerl)->Perl_pp_warn();
7716 return ((CPerlObj*)pPerl)->Perl_pp_xor();
7719 #undef Perl_fprintf_nocontext
7721 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
7725 va_start(arglist, format);
7726 return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
7731 #endif /* PERL_OBJECT */