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) || defined (MULTIPLICITY)
12 /* accessor functions for Perl variables (provides binary compatibility) */
20 #if defined(PERL_OBJECT)
21 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \
22 { return &(aTHXo->interp.v); }
23 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
24 { return &(aTHXo->interp.v); }
25 #else /* MULTIPLICITY */
26 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \
27 { return &(aTHX->v); }
28 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \
29 { return &(aTHX->v); }
32 #define PERLVARI(v,t,i) PERLVAR(v,t)
33 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
40 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \
42 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
51 #if defined(PERL_OBJECT)
53 /* C-API layer for PERL_OBJECT */
55 #if defined(PERL_IMPLICIT_SYS)
58 #if defined(USE_ITHREADS)
59 # if defined(PERL_IMPLICIT_SYS)
64 #if defined(PERL_OBJECT)
68 #if defined(PERL_OBJECT)
72 #undef Perl_amagic_call
74 Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
76 return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
79 #undef Perl_Gv_AMupdate
81 Perl_Gv_AMupdate(pTHXo_ HV* stash)
83 return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
86 #undef Perl_avhv_delete_ent
88 Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash)
90 return ((CPerlObj*)pPerl)->Perl_avhv_delete_ent(ar, keysv, flags, hash);
93 #undef Perl_avhv_exists_ent
95 Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)
97 return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
100 #undef Perl_avhv_fetch_ent
102 Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash)
104 return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
107 #undef Perl_avhv_iternext
109 Perl_avhv_iternext(pTHXo_ AV *ar)
111 return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
114 #undef Perl_avhv_iterval
116 Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry)
118 return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
121 #undef Perl_avhv_keys
123 Perl_avhv_keys(pTHXo_ AV *ar)
125 return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
130 Perl_av_clear(pTHXo_ AV* ar)
132 ((CPerlObj*)pPerl)->Perl_av_clear(ar);
135 #undef Perl_av_delete
137 Perl_av_delete(pTHXo_ AV* ar, I32 key, I32 flags)
139 return ((CPerlObj*)pPerl)->Perl_av_delete(ar, key, flags);
142 #undef Perl_av_exists
144 Perl_av_exists(pTHXo_ AV* ar, I32 key)
146 return ((CPerlObj*)pPerl)->Perl_av_exists(ar, key);
149 #undef Perl_av_extend
151 Perl_av_extend(pTHXo_ AV* ar, I32 key)
153 ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
158 Perl_av_fake(pTHXo_ I32 size, SV** svp)
160 return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
165 Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
167 return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
172 Perl_av_fill(pTHXo_ AV* ar, I32 fill)
174 ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
179 Perl_av_len(pTHXo_ AV* ar)
181 return ((CPerlObj*)pPerl)->Perl_av_len(ar);
186 Perl_av_make(pTHXo_ I32 size, SV** svp)
188 return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
193 Perl_av_pop(pTHXo_ AV* ar)
195 return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
200 Perl_av_push(pTHXo_ AV* ar, SV* val)
202 ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
207 Perl_av_reify(pTHXo_ AV* ar)
209 ((CPerlObj*)pPerl)->Perl_av_reify(ar);
214 Perl_av_shift(pTHXo_ AV* ar)
216 return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
221 Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val)
223 return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
228 Perl_av_undef(pTHXo_ AV* ar)
230 ((CPerlObj*)pPerl)->Perl_av_undef(ar);
233 #undef Perl_av_unshift
235 Perl_av_unshift(pTHXo_ AV* ar, I32 num)
237 ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
240 #undef Perl_block_gimme
242 Perl_block_gimme(pTHXo)
244 return ((CPerlObj*)pPerl)->Perl_block_gimme();
247 #undef Perl_call_list
249 Perl_call_list(pTHXo_ I32 oldscope, AV* av_list)
251 ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
254 #undef Perl_cast_ulong
256 Perl_cast_ulong(pTHXo_ NV f)
258 return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
263 Perl_cast_i32(pTHXo_ NV f)
265 return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
270 Perl_cast_iv(pTHXo_ NV f)
272 return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
277 Perl_cast_uv(pTHXo_ NV f)
279 return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
281 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
283 #undef Perl_my_chsize
285 Perl_my_chsize(pTHXo_ int fd, Off_t length)
287 return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
290 #if defined(USE_THREADS)
292 #undef Perl_condpair_magic
294 Perl_condpair_magic(pTHXo_ SV *sv)
296 return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
302 Perl_croak(pTHXo_ const char* pat, ...)
306 ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
312 Perl_vcroak(pTHXo_ const char* pat, va_list* args)
314 ((CPerlObj*)pPerl)->Perl_vcroak(pat, args);
316 #if defined(PERL_IMPLICIT_CONTEXT)
318 #undef Perl_croak_nocontext
320 Perl_croak_nocontext(const char* pat, ...)
325 ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
329 #undef Perl_die_nocontext
331 Perl_die_nocontext(const char* pat, ...)
337 retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
343 #undef Perl_deb_nocontext
345 Perl_deb_nocontext(const char* pat, ...)
350 ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
354 #undef Perl_form_nocontext
356 Perl_form_nocontext(const char* pat, ...)
362 retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
368 #undef Perl_mess_nocontext
370 Perl_mess_nocontext(const char* pat, ...)
376 retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
382 #undef Perl_warn_nocontext
384 Perl_warn_nocontext(const char* pat, ...)
389 ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
393 #undef Perl_warner_nocontext
395 Perl_warner_nocontext(U32 err, const char* pat, ...)
400 ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
404 #undef Perl_newSVpvf_nocontext
406 Perl_newSVpvf_nocontext(const char* pat, ...)
412 retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
418 #undef Perl_sv_catpvf_nocontext
420 Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
425 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
429 #undef Perl_sv_setpvf_nocontext
431 Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
436 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
440 #undef Perl_sv_catpvf_mg_nocontext
442 Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
447 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
451 #undef Perl_sv_setpvf_mg_nocontext
453 Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
458 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
462 #undef Perl_fprintf_nocontext
467 Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
469 ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
472 #undef Perl_filter_add
474 Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv)
476 return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
479 #undef Perl_filter_del
481 Perl_filter_del(pTHXo_ filter_t funcp)
483 ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
486 #undef Perl_filter_read
488 Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen)
490 return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
493 #undef Perl_get_op_descs
495 Perl_get_op_descs(pTHXo)
497 return ((CPerlObj*)pPerl)->Perl_get_op_descs();
500 #undef Perl_get_op_names
502 Perl_get_op_names(pTHXo)
504 return ((CPerlObj*)pPerl)->Perl_get_op_names();
507 #undef Perl_get_ppaddr
509 Perl_get_ppaddr(pTHXo)
511 return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
516 Perl_deb(pTHXo_ const char* pat, ...)
520 ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
526 Perl_vdeb(pTHXo_ const char* pat, va_list* args)
528 ((CPerlObj*)pPerl)->Perl_vdeb(pat, args);
531 #undef Perl_debprofdump
533 Perl_debprofdump(pTHXo)
535 ((CPerlObj*)pPerl)->Perl_debprofdump();
540 Perl_debop(pTHXo_ OP* o)
542 return ((CPerlObj*)pPerl)->Perl_debop(o);
549 return ((CPerlObj*)pPerl)->Perl_debstack();
552 #undef Perl_debstackptrs
554 Perl_debstackptrs(pTHXo)
556 return ((CPerlObj*)pPerl)->Perl_debstackptrs();
561 Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
563 return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
568 Perl_die(pTHXo_ const char* pat, ...)
573 retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
581 Perl_dounwind(pTHXo_ I32 cxix)
583 ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
586 #undef Perl_do_binmode
588 Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
590 return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
594 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
599 Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
601 return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
606 Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
608 return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
611 #undef Perl_dowantarray
613 Perl_dowantarray(pTHXo)
615 return ((CPerlObj*)pPerl)->Perl_dowantarray();
622 ((CPerlObj*)pPerl)->Perl_dump_all();
625 #undef Perl_dump_eval
627 Perl_dump_eval(pTHXo)
629 ((CPerlObj*)pPerl)->Perl_dump_eval();
631 #if defined(DUMP_FDS)
635 Perl_dump_fds(pTHXo_ char* s)
637 ((CPerlObj*)pPerl)->Perl_dump_fds(s);
641 #undef Perl_dump_form
643 Perl_dump_form(pTHXo_ GV* gv)
645 ((CPerlObj*)pPerl)->Perl_dump_form(gv);
650 Perl_gv_dump(pTHXo_ GV* gv)
652 ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
657 Perl_op_dump(pTHXo_ OP* arg)
659 ((CPerlObj*)pPerl)->Perl_op_dump(arg);
662 #undef Perl_pmop_dump
664 Perl_pmop_dump(pTHXo_ PMOP* pm)
666 ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
669 #undef Perl_dump_packsubs
671 Perl_dump_packsubs(pTHXo_ HV* stash)
673 ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
678 Perl_dump_sub(pTHXo_ GV* gv)
680 ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
683 #undef Perl_fbm_compile
685 Perl_fbm_compile(pTHXo_ SV* sv, U32 flags)
687 ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
690 #undef Perl_fbm_instr
692 Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
694 return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
696 #if defined(USE_THREADS)
701 Perl_form(pTHXo_ const char* pat, ...)
706 retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
714 Perl_vform(pTHXo_ const char* pat, va_list* args)
716 return ((CPerlObj*)pPerl)->Perl_vform(pat, args);
719 #undef Perl_free_tmps
721 Perl_free_tmps(pTHXo)
723 ((CPerlObj*)pPerl)->Perl_free_tmps();
725 #if !defined(HAS_GETENV_LEN)
730 Perl_gp_free(pTHXo_ GV* gv)
732 ((CPerlObj*)pPerl)->Perl_gp_free(gv);
737 Perl_gp_ref(pTHXo_ GP* gp)
739 return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
744 Perl_gv_AVadd(pTHXo_ GV* gv)
746 return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
751 Perl_gv_HVadd(pTHXo_ GV* gv)
753 return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
758 Perl_gv_IOadd(pTHXo_ GV* gv)
760 return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
763 #undef Perl_gv_autoload4
765 Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method)
767 return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
772 Perl_gv_check(pTHXo_ HV* stash)
774 ((CPerlObj*)pPerl)->Perl_gv_check(stash);
777 #undef Perl_gv_efullname
779 Perl_gv_efullname(pTHXo_ SV* sv, GV* gv)
781 ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
784 #undef Perl_gv_efullname3
786 Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
788 ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
791 #undef Perl_gv_fetchfile
793 Perl_gv_fetchfile(pTHXo_ const char* name)
795 return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
798 #undef Perl_gv_fetchmeth
800 Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level)
802 return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
805 #undef Perl_gv_fetchmethod
807 Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name)
809 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
812 #undef Perl_gv_fetchmethod_autoload
814 Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload)
816 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
819 #undef Perl_gv_fetchpv
821 Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type)
823 return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
826 #undef Perl_gv_fullname
828 Perl_gv_fullname(pTHXo_ SV* sv, GV* gv)
830 ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
833 #undef Perl_gv_fullname3
835 Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
837 ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
842 Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
844 ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
847 #undef Perl_gv_stashpv
849 Perl_gv_stashpv(pTHXo_ const char* name, I32 create)
851 return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
854 #undef Perl_gv_stashpvn
856 Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create)
858 return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
861 #undef Perl_gv_stashsv
863 Perl_gv_stashsv(pTHXo_ SV* sv, I32 create)
865 return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
870 Perl_hv_clear(pTHXo_ HV* tb)
872 ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
875 #undef Perl_hv_delayfree_ent
877 Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
879 ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
882 #undef Perl_hv_delete
884 Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags)
886 return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
889 #undef Perl_hv_delete_ent
891 Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
893 return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
896 #undef Perl_hv_exists
898 Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen)
900 return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
903 #undef Perl_hv_exists_ent
905 Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
907 return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
912 Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval)
914 return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
917 #undef Perl_hv_fetch_ent
919 Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash)
921 return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
924 #undef Perl_hv_free_ent
926 Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry)
928 ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
931 #undef Perl_hv_iterinit
933 Perl_hv_iterinit(pTHXo_ HV* tb)
935 return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
938 #undef Perl_hv_iterkey
940 Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen)
942 return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
945 #undef Perl_hv_iterkeysv
947 Perl_hv_iterkeysv(pTHXo_ HE* entry)
949 return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
952 #undef Perl_hv_iternext
954 Perl_hv_iternext(pTHXo_ HV* tb)
956 return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
959 #undef Perl_hv_iternextsv
961 Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen)
963 return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
966 #undef Perl_hv_iterval
968 Perl_hv_iterval(pTHXo_ HV* tb, HE* entry)
970 return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
973 #undef Perl_hv_ksplit
975 Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax)
977 ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
982 Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
984 ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
989 Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash)
991 return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
994 #undef Perl_hv_store_ent
996 Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash)
998 return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1001 #undef Perl_hv_undef
1003 Perl_hv_undef(pTHXo_ HV* tb)
1005 ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1010 Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len)
1012 return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1015 #undef Perl_ibcmp_locale
1017 Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len)
1019 return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1022 #undef Perl_init_stacks
1024 Perl_init_stacks(pTHXo)
1026 ((CPerlObj*)pPerl)->Perl_init_stacks();
1031 Perl_instr(pTHXo_ const char* big, const char* little)
1033 return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1036 #undef Perl_is_uni_alnum
1038 Perl_is_uni_alnum(pTHXo_ U32 c)
1040 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1043 #undef Perl_is_uni_alnumc
1045 Perl_is_uni_alnumc(pTHXo_ U32 c)
1047 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1050 #undef Perl_is_uni_idfirst
1052 Perl_is_uni_idfirst(pTHXo_ U32 c)
1054 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1057 #undef Perl_is_uni_alpha
1059 Perl_is_uni_alpha(pTHXo_ U32 c)
1061 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1064 #undef Perl_is_uni_ascii
1066 Perl_is_uni_ascii(pTHXo_ U32 c)
1068 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1071 #undef Perl_is_uni_space
1073 Perl_is_uni_space(pTHXo_ U32 c)
1075 return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1078 #undef Perl_is_uni_cntrl
1080 Perl_is_uni_cntrl(pTHXo_ U32 c)
1082 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1085 #undef Perl_is_uni_graph
1087 Perl_is_uni_graph(pTHXo_ U32 c)
1089 return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1092 #undef Perl_is_uni_digit
1094 Perl_is_uni_digit(pTHXo_ U32 c)
1096 return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1099 #undef Perl_is_uni_upper
1101 Perl_is_uni_upper(pTHXo_ U32 c)
1103 return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1106 #undef Perl_is_uni_lower
1108 Perl_is_uni_lower(pTHXo_ U32 c)
1110 return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1113 #undef Perl_is_uni_print
1115 Perl_is_uni_print(pTHXo_ U32 c)
1117 return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1120 #undef Perl_is_uni_punct
1122 Perl_is_uni_punct(pTHXo_ U32 c)
1124 return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1127 #undef Perl_is_uni_xdigit
1129 Perl_is_uni_xdigit(pTHXo_ U32 c)
1131 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1134 #undef Perl_to_uni_upper
1136 Perl_to_uni_upper(pTHXo_ U32 c)
1138 return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1141 #undef Perl_to_uni_title
1143 Perl_to_uni_title(pTHXo_ U32 c)
1145 return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1148 #undef Perl_to_uni_lower
1150 Perl_to_uni_lower(pTHXo_ U32 c)
1152 return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1155 #undef Perl_is_uni_alnum_lc
1157 Perl_is_uni_alnum_lc(pTHXo_ U32 c)
1159 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1162 #undef Perl_is_uni_alnumc_lc
1164 Perl_is_uni_alnumc_lc(pTHXo_ U32 c)
1166 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1169 #undef Perl_is_uni_idfirst_lc
1171 Perl_is_uni_idfirst_lc(pTHXo_ U32 c)
1173 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1176 #undef Perl_is_uni_alpha_lc
1178 Perl_is_uni_alpha_lc(pTHXo_ U32 c)
1180 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1183 #undef Perl_is_uni_ascii_lc
1185 Perl_is_uni_ascii_lc(pTHXo_ U32 c)
1187 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1190 #undef Perl_is_uni_space_lc
1192 Perl_is_uni_space_lc(pTHXo_ U32 c)
1194 return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1197 #undef Perl_is_uni_cntrl_lc
1199 Perl_is_uni_cntrl_lc(pTHXo_ U32 c)
1201 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1204 #undef Perl_is_uni_graph_lc
1206 Perl_is_uni_graph_lc(pTHXo_ U32 c)
1208 return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1211 #undef Perl_is_uni_digit_lc
1213 Perl_is_uni_digit_lc(pTHXo_ U32 c)
1215 return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1218 #undef Perl_is_uni_upper_lc
1220 Perl_is_uni_upper_lc(pTHXo_ U32 c)
1222 return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1225 #undef Perl_is_uni_lower_lc
1227 Perl_is_uni_lower_lc(pTHXo_ U32 c)
1229 return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1232 #undef Perl_is_uni_print_lc
1234 Perl_is_uni_print_lc(pTHXo_ U32 c)
1236 return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1239 #undef Perl_is_uni_punct_lc
1241 Perl_is_uni_punct_lc(pTHXo_ U32 c)
1243 return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1246 #undef Perl_is_uni_xdigit_lc
1248 Perl_is_uni_xdigit_lc(pTHXo_ U32 c)
1250 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1253 #undef Perl_to_uni_upper_lc
1255 Perl_to_uni_upper_lc(pTHXo_ U32 c)
1257 return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1260 #undef Perl_to_uni_title_lc
1262 Perl_to_uni_title_lc(pTHXo_ U32 c)
1264 return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1267 #undef Perl_to_uni_lower_lc
1269 Perl_to_uni_lower_lc(pTHXo_ U32 c)
1271 return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1274 #undef Perl_is_utf8_alnum
1276 Perl_is_utf8_alnum(pTHXo_ U8 *p)
1278 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1281 #undef Perl_is_utf8_alnumc
1283 Perl_is_utf8_alnumc(pTHXo_ U8 *p)
1285 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1288 #undef Perl_is_utf8_idfirst
1290 Perl_is_utf8_idfirst(pTHXo_ U8 *p)
1292 return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1295 #undef Perl_is_utf8_alpha
1297 Perl_is_utf8_alpha(pTHXo_ U8 *p)
1299 return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1302 #undef Perl_is_utf8_ascii
1304 Perl_is_utf8_ascii(pTHXo_ U8 *p)
1306 return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1309 #undef Perl_is_utf8_space
1311 Perl_is_utf8_space(pTHXo_ U8 *p)
1313 return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1316 #undef Perl_is_utf8_cntrl
1318 Perl_is_utf8_cntrl(pTHXo_ U8 *p)
1320 return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1323 #undef Perl_is_utf8_digit
1325 Perl_is_utf8_digit(pTHXo_ U8 *p)
1327 return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1330 #undef Perl_is_utf8_graph
1332 Perl_is_utf8_graph(pTHXo_ U8 *p)
1334 return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1337 #undef Perl_is_utf8_upper
1339 Perl_is_utf8_upper(pTHXo_ U8 *p)
1341 return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1344 #undef Perl_is_utf8_lower
1346 Perl_is_utf8_lower(pTHXo_ U8 *p)
1348 return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1351 #undef Perl_is_utf8_print
1353 Perl_is_utf8_print(pTHXo_ U8 *p)
1355 return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1358 #undef Perl_is_utf8_punct
1360 Perl_is_utf8_punct(pTHXo_ U8 *p)
1362 return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1365 #undef Perl_is_utf8_xdigit
1367 Perl_is_utf8_xdigit(pTHXo_ U8 *p)
1369 return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1372 #undef Perl_is_utf8_mark
1374 Perl_is_utf8_mark(pTHXo_ U8 *p)
1376 return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1379 #undef Perl_leave_scope
1381 Perl_leave_scope(pTHXo_ I32 base)
1383 ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1386 #undef Perl_looks_like_number
1388 Perl_looks_like_number(pTHXo_ SV* sv)
1390 return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1392 #if defined(USE_THREADS)
1394 #if defined(USE_LOCALE_COLLATE)
1397 #undef Perl_markstack_grow
1399 Perl_markstack_grow(pTHXo)
1401 ((CPerlObj*)pPerl)->Perl_markstack_grow();
1403 #if defined(USE_LOCALE_COLLATE)
1408 Perl_mess(pTHXo_ const char* pat, ...)
1412 va_start(args, pat);
1413 retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
1421 Perl_vmess(pTHXo_ const char* pat, va_list* args)
1423 return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
1426 #undef Perl_mg_clear
1428 Perl_mg_clear(pTHXo_ SV* sv)
1430 return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
1435 Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen)
1437 return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
1442 Perl_mg_find(pTHXo_ SV* sv, int type)
1444 return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
1449 Perl_mg_free(pTHXo_ SV* sv)
1451 return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
1456 Perl_mg_get(pTHXo_ SV* sv)
1458 return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
1461 #undef Perl_mg_length
1463 Perl_mg_length(pTHXo_ SV* sv)
1465 return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
1468 #undef Perl_mg_magical
1470 Perl_mg_magical(pTHXo_ SV* sv)
1472 ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
1477 Perl_mg_set(pTHXo_ SV* sv)
1479 return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
1484 Perl_mg_size(pTHXo_ SV* sv)
1486 return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
1489 #undef Perl_moreswitches
1491 Perl_moreswitches(pTHXo_ char* s)
1493 return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
1498 Perl_my_atof(pTHXo_ const char *s)
1500 return ((CPerlObj*)pPerl)->Perl_my_atof(s);
1502 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
1504 #undef Perl_my_bcopy
1506 Perl_my_bcopy(const char* from, char* to, I32 len)
1509 return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
1512 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1514 #undef Perl_my_bzero
1516 Perl_my_bzero(char* loc, I32 len)
1519 return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
1525 Perl_my_exit(pTHXo_ U32 status)
1527 ((CPerlObj*)pPerl)->Perl_my_exit(status);
1530 #undef Perl_my_failure_exit
1532 Perl_my_failure_exit(pTHXo)
1534 ((CPerlObj*)pPerl)->Perl_my_failure_exit();
1537 #undef Perl_my_fflush_all
1539 Perl_my_fflush_all(pTHXo)
1541 return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
1544 #undef Perl_my_lstat
1546 Perl_my_lstat(pTHXo)
1548 return ((CPerlObj*)pPerl)->Perl_my_lstat();
1550 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1552 #undef Perl_my_memcmp
1554 Perl_my_memcmp(const char* s1, const char* s2, I32 len)
1557 return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
1560 #if !defined(HAS_MEMSET)
1562 #undef Perl_my_memset
1564 Perl_my_memset(char* loc, I32 ch, I32 len)
1567 return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
1570 #if !defined(PERL_OBJECT)
1572 #undef Perl_my_pclose
1574 Perl_my_pclose(pTHXo_ PerlIO* ptr)
1576 return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
1579 #undef Perl_my_popen
1581 Perl_my_popen(pTHXo_ char* cmd, char* mode)
1583 return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
1587 #undef Perl_my_setenv
1589 Perl_my_setenv(pTHXo_ char* nam, char* val)
1591 ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
1598 return ((CPerlObj*)pPerl)->Perl_my_stat();
1604 Perl_my_swap(pTHXo_ short s)
1606 return ((CPerlObj*)pPerl)->Perl_my_swap(s);
1609 #undef Perl_my_htonl
1611 Perl_my_htonl(pTHXo_ long l)
1613 return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
1616 #undef Perl_my_ntohl
1618 Perl_my_ntohl(pTHXo_ long l)
1620 return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
1624 #undef Perl_newANONLIST
1626 Perl_newANONLIST(pTHXo_ OP* o)
1628 return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
1631 #undef Perl_newANONHASH
1633 Perl_newANONHASH(pTHXo_ OP* o)
1635 return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
1638 #undef Perl_newANONSUB
1640 Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
1642 return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
1645 #undef Perl_newASSIGNOP
1647 Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
1649 return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
1652 #undef Perl_newCONDOP
1654 Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
1656 return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
1659 #undef Perl_newCONSTSUB
1661 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
1663 ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
1668 Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
1670 ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
1673 #undef Perl_newFOROP
1675 Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
1677 return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
1680 #undef Perl_newLOGOP
1682 Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
1684 return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
1687 #undef Perl_newLOOPEX
1689 Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
1691 return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
1694 #undef Perl_newLOOPOP
1696 Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
1698 return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
1701 #undef Perl_newNULLLIST
1703 Perl_newNULLLIST(pTHXo)
1705 return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
1710 Perl_newOP(pTHXo_ I32 optype, I32 flags)
1712 return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
1717 Perl_newPROG(pTHXo_ OP* o)
1719 ((CPerlObj*)pPerl)->Perl_newPROG(o);
1722 #undef Perl_newRANGE
1724 Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
1726 return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
1729 #undef Perl_newSLICEOP
1731 Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
1733 return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
1736 #undef Perl_newSTATEOP
1738 Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
1740 return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
1745 Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
1747 return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
1752 Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
1754 return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
1761 return ((CPerlObj*)pPerl)->Perl_newAV();
1764 #undef Perl_newAVREF
1766 Perl_newAVREF(pTHXo_ OP* o)
1768 return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
1771 #undef Perl_newBINOP
1773 Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
1775 return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
1778 #undef Perl_newCVREF
1780 Perl_newCVREF(pTHXo_ I32 flags, OP* o)
1782 return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
1787 Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
1789 return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
1792 #undef Perl_newGVgen
1794 Perl_newGVgen(pTHXo_ char* pack)
1796 return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
1799 #undef Perl_newGVREF
1801 Perl_newGVREF(pTHXo_ I32 type, OP* o)
1803 return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
1806 #undef Perl_newHVREF
1808 Perl_newHVREF(pTHXo_ OP* o)
1810 return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
1817 return ((CPerlObj*)pPerl)->Perl_newHV();
1822 Perl_newHVhv(pTHXo_ HV* hv)
1824 return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
1831 return ((CPerlObj*)pPerl)->Perl_newIO();
1834 #undef Perl_newLISTOP
1836 Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
1838 return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
1841 #undef Perl_newPADOP
1843 Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
1845 return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
1850 Perl_newPMOP(pTHXo_ I32 type, I32 flags)
1852 return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
1857 Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
1859 return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
1864 Perl_newRV(pTHXo_ SV* pref)
1866 return ((CPerlObj*)pPerl)->Perl_newRV(pref);
1869 #undef Perl_newRV_noinc
1871 Perl_newRV_noinc(pTHXo_ SV *sv)
1873 return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
1878 Perl_newSV(pTHXo_ STRLEN len)
1880 return ((CPerlObj*)pPerl)->Perl_newSV(len);
1883 #undef Perl_newSVREF
1885 Perl_newSVREF(pTHXo_ OP* o)
1887 return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
1892 Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
1894 return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
1899 Perl_newSViv(pTHXo_ IV i)
1901 return ((CPerlObj*)pPerl)->Perl_newSViv(i);
1906 Perl_newSVnv(pTHXo_ NV n)
1908 return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
1913 Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
1915 return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
1918 #undef Perl_newSVpvn
1920 Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
1922 return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
1925 #undef Perl_newSVpvf
1927 Perl_newSVpvf(pTHXo_ const char* pat, ...)
1931 va_start(args, pat);
1932 retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
1938 #undef Perl_vnewSVpvf
1940 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
1942 return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
1947 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
1949 return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
1954 Perl_newSVsv(pTHXo_ SV* old)
1956 return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
1961 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
1963 return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
1966 #undef Perl_newWHILEOP
1968 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
1970 return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
1973 #undef Perl_new_stackinfo
1975 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
1977 return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
1982 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
1984 return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
1989 Perl_op_free(pTHXo_ OP* arg)
1991 ((CPerlObj*)pPerl)->Perl_op_free(arg);
1996 Perl_pad_sv(pTHXo_ PADOFFSET po)
1998 return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2000 #if defined(PERL_OBJECT)
2002 #undef Perl_construct
2004 Perl_construct(pTHXo)
2006 ((CPerlObj*)pPerl)->Perl_construct();
2009 #undef Perl_destruct
2011 Perl_destruct(pTHXo)
2013 ((CPerlObj*)pPerl)->Perl_destruct();
2020 ((CPerlObj*)pPerl)->Perl_free();
2027 return ((CPerlObj*)pPerl)->Perl_run();
2032 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2034 return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2037 #if defined(USE_THREADS)
2039 #undef Perl_new_struct_thread
2041 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2043 return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2047 #undef Perl_call_atexit
2049 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2051 ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2054 #undef Perl_call_argv
2056 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2058 return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2061 #undef Perl_call_method
2063 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2065 return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2070 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2072 return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2077 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2079 return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2084 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2086 return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2091 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2093 return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2098 Perl_get_sv(pTHXo_ const char* name, I32 create)
2100 return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2105 Perl_get_av(pTHXo_ const char* name, I32 create)
2107 return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2112 Perl_get_hv(pTHXo_ const char* name, I32 create)
2114 return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
2119 Perl_get_cv(pTHXo_ const char* name, I32 create)
2121 return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
2124 #undef Perl_init_i18nl10n
2126 Perl_init_i18nl10n(pTHXo_ int printwarn)
2128 return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2131 #undef Perl_init_i18nl14n
2133 Perl_init_i18nl14n(pTHXo_ int printwarn)
2135 return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2138 #undef Perl_new_collate
2140 Perl_new_collate(pTHXo_ const char* newcoll)
2142 ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2145 #undef Perl_new_ctype
2147 Perl_new_ctype(pTHXo_ const char* newctype)
2149 ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2152 #undef Perl_new_numeric
2154 Perl_new_numeric(pTHXo_ const char* newcoll)
2156 ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2159 #undef Perl_set_numeric_local
2161 Perl_set_numeric_local(pTHXo)
2163 ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2166 #undef Perl_set_numeric_radix
2168 Perl_set_numeric_radix(pTHXo)
2170 ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2173 #undef Perl_set_numeric_standard
2175 Perl_set_numeric_standard(pTHXo)
2177 ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2180 #undef Perl_require_pv
2182 Perl_require_pv(pTHXo_ const char* pv)
2184 ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2189 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
2191 ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2194 #undef Perl_pop_scope
2196 Perl_pop_scope(pTHXo)
2198 ((CPerlObj*)pPerl)->Perl_pop_scope();
2201 #undef Perl_push_scope
2203 Perl_push_scope(pTHXo)
2205 ((CPerlObj*)pPerl)->Perl_push_scope();
2210 Perl_regdump(pTHXo_ regexp* r)
2212 ((CPerlObj*)pPerl)->Perl_regdump(r);
2215 #undef Perl_pregexec
2217 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2219 return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
2222 #undef Perl_pregfree
2224 Perl_pregfree(pTHXo_ struct regexp* r)
2226 ((CPerlObj*)pPerl)->Perl_pregfree(r);
2229 #undef Perl_pregcomp
2231 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
2233 return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
2236 #undef Perl_re_intuit_start
2238 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
2240 return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
2243 #undef Perl_re_intuit_string
2245 Perl_re_intuit_string(pTHXo_ regexp* prog)
2247 return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2250 #undef Perl_regexec_flags
2252 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
2254 return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
2259 Perl_regnext(pTHXo_ regnode* p)
2261 return ((CPerlObj*)pPerl)->Perl_regnext(p);
2264 #undef Perl_repeatcpy
2266 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
2268 ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
2273 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2275 return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
2277 #if !defined(HAS_RENAME)
2282 Perl_savepv(pTHXo_ const char* sv)
2284 return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2289 Perl_savepvn(pTHXo_ const char* sv, I32 len)
2291 return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2294 #undef Perl_savestack_grow
2296 Perl_savestack_grow(pTHXo)
2298 ((CPerlObj*)pPerl)->Perl_savestack_grow();
2301 #undef Perl_save_aelem
2303 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
2305 ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
2308 #undef Perl_save_alloc
2310 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
2312 return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
2315 #undef Perl_save_aptr
2317 Perl_save_aptr(pTHXo_ AV** aptr)
2319 ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
2322 #undef Perl_save_ary
2324 Perl_save_ary(pTHXo_ GV* gv)
2326 return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
2329 #undef Perl_save_clearsv
2331 Perl_save_clearsv(pTHXo_ SV** svp)
2333 ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
2336 #undef Perl_save_delete
2338 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
2340 ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
2343 #undef Perl_save_destructor
2345 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
2347 ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
2350 #undef Perl_save_destructor_x
2352 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
2354 ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
2357 #undef Perl_save_freesv
2359 Perl_save_freesv(pTHXo_ SV* sv)
2361 ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
2364 #undef Perl_save_freepv
2366 Perl_save_freepv(pTHXo_ char* pv)
2368 ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
2371 #undef Perl_save_generic_svref
2373 Perl_save_generic_svref(pTHXo_ SV** sptr)
2375 ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
2380 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
2382 ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
2385 #undef Perl_save_hash
2387 Perl_save_hash(pTHXo_ GV* gv)
2389 return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
2392 #undef Perl_save_helem
2394 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
2396 ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
2399 #undef Perl_save_hints
2401 Perl_save_hints(pTHXo)
2403 ((CPerlObj*)pPerl)->Perl_save_hints();
2406 #undef Perl_save_hptr
2408 Perl_save_hptr(pTHXo_ HV** hptr)
2410 ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
2413 #undef Perl_save_I16
2415 Perl_save_I16(pTHXo_ I16* intp)
2417 ((CPerlObj*)pPerl)->Perl_save_I16(intp);
2420 #undef Perl_save_I32
2422 Perl_save_I32(pTHXo_ I32* intp)
2424 ((CPerlObj*)pPerl)->Perl_save_I32(intp);
2429 Perl_save_I8(pTHXo_ I8* bytep)
2431 ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
2434 #undef Perl_save_int
2436 Perl_save_int(pTHXo_ int* intp)
2438 ((CPerlObj*)pPerl)->Perl_save_int(intp);
2441 #undef Perl_save_item
2443 Perl_save_item(pTHXo_ SV* item)
2445 ((CPerlObj*)pPerl)->Perl_save_item(item);
2450 Perl_save_iv(pTHXo_ IV* iv)
2452 ((CPerlObj*)pPerl)->Perl_save_iv(iv);
2455 #undef Perl_save_list
2457 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
2459 ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
2462 #undef Perl_save_long
2464 Perl_save_long(pTHXo_ long* longp)
2466 ((CPerlObj*)pPerl)->Perl_save_long(longp);
2469 #undef Perl_save_nogv
2471 Perl_save_nogv(pTHXo_ GV* gv)
2473 ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
2476 #undef Perl_save_scalar
2478 Perl_save_scalar(pTHXo_ GV* gv)
2480 return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
2483 #undef Perl_save_pptr
2485 Perl_save_pptr(pTHXo_ char** pptr)
2487 ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
2490 #undef Perl_save_vptr
2492 Perl_save_vptr(pTHXo_ void* pptr)
2494 ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
2497 #undef Perl_save_re_context
2499 Perl_save_re_context(pTHXo)
2501 ((CPerlObj*)pPerl)->Perl_save_re_context();
2504 #undef Perl_save_sptr
2506 Perl_save_sptr(pTHXo_ SV** sptr)
2508 ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
2511 #undef Perl_save_svref
2513 Perl_save_svref(pTHXo_ SV** sptr)
2515 return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
2518 #undef Perl_save_threadsv
2520 Perl_save_threadsv(pTHXo_ PADOFFSET i)
2522 return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
2525 #undef Perl_scan_bin
2527 Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
2529 return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
2532 #undef Perl_scan_hex
2534 Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
2536 return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
2539 #undef Perl_scan_num
2541 Perl_scan_num(pTHXo_ char* s)
2543 return ((CPerlObj*)pPerl)->Perl_scan_num(s);
2546 #undef Perl_scan_oct
2548 Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
2550 return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
2553 #undef Perl_screaminstr
2555 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
2557 return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
2562 #undef Perl_sharepvn
2564 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
2566 return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
2569 #undef Perl_stack_grow
2571 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
2573 return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
2576 #undef Perl_start_subparse
2578 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
2580 return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
2583 #undef Perl_sv_2bool
2585 Perl_sv_2bool(pTHXo_ SV* sv)
2587 return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
2592 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
2594 return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
2599 Perl_sv_2io(pTHXo_ SV* sv)
2601 return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
2606 Perl_sv_2iv(pTHXo_ SV* sv)
2608 return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
2611 #undef Perl_sv_2mortal
2613 Perl_sv_2mortal(pTHXo_ SV* sv)
2615 return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
2620 Perl_sv_2nv(pTHXo_ SV* sv)
2622 return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
2627 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
2629 return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
2632 #undef Perl_sv_2pvutf8
2634 Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp)
2636 return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp);
2639 #undef Perl_sv_2pvbyte
2641 Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp)
2643 return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp);
2648 Perl_sv_2uv(pTHXo_ SV* sv)
2650 return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
2655 Perl_sv_iv(pTHXo_ SV* sv)
2657 return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
2662 Perl_sv_uv(pTHXo_ SV* sv)
2664 return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
2669 Perl_sv_nv(pTHXo_ SV* sv)
2671 return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
2676 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
2678 return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
2681 #undef Perl_sv_pvutf8n
2683 Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len)
2685 return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len);
2688 #undef Perl_sv_pvbyten
2690 Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len)
2692 return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len);
2697 Perl_sv_true(pTHXo_ SV *sv)
2699 return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
2702 #undef Perl_sv_backoff
2704 Perl_sv_backoff(pTHXo_ SV* sv)
2706 return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
2709 #undef Perl_sv_bless
2711 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
2713 return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
2716 #undef Perl_sv_catpvf
2718 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
2721 va_start(args, pat);
2722 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
2726 #undef Perl_sv_vcatpvf
2728 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
2730 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
2733 #undef Perl_sv_catpv
2735 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
2737 ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
2740 #undef Perl_sv_catpvn
2742 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
2744 ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
2747 #undef Perl_sv_catsv
2749 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
2751 ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
2756 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
2758 ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
2761 #undef Perl_sv_clear
2763 Perl_sv_clear(pTHXo_ SV* sv)
2765 ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
2770 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
2772 return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
2775 #undef Perl_sv_cmp_locale
2777 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
2779 return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
2781 #if defined(USE_LOCALE_COLLATE)
2783 #undef Perl_sv_collxfrm
2785 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
2787 return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
2791 #undef Perl_sv_compile_2op
2793 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
2795 return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
2800 Perl_sv_dec(pTHXo_ SV* sv)
2802 ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
2807 Perl_sv_dump(pTHXo_ SV* sv)
2809 ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
2812 #undef Perl_sv_derived_from
2814 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
2816 return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
2821 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
2823 return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
2828 Perl_sv_free(pTHXo_ SV* sv)
2830 ((CPerlObj*)pPerl)->Perl_sv_free(sv);
2835 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
2837 return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
2842 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
2844 return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
2849 Perl_sv_inc(pTHXo_ SV* sv)
2851 ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
2854 #undef Perl_sv_insert
2856 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
2858 ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
2863 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
2865 return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
2868 #undef Perl_sv_isobject
2870 Perl_sv_isobject(pTHXo_ SV* sv)
2872 return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
2877 Perl_sv_len(pTHXo_ SV* sv)
2879 return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
2882 #undef Perl_sv_len_utf8
2884 Perl_sv_len_utf8(pTHXo_ SV* sv)
2886 return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
2889 #undef Perl_sv_magic
2891 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
2893 ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
2896 #undef Perl_sv_mortalcopy
2898 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
2900 return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
2903 #undef Perl_sv_newmortal
2905 Perl_sv_newmortal(pTHXo)
2907 return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
2910 #undef Perl_sv_newref
2912 Perl_sv_newref(pTHXo_ SV* sv)
2914 return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
2919 Perl_sv_peek(pTHXo_ SV* sv)
2921 return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
2924 #undef Perl_sv_pos_u2b
2926 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
2928 ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
2931 #undef Perl_sv_pos_b2u
2933 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
2935 ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
2938 #undef Perl_sv_pvn_force
2940 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
2942 return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
2945 #undef Perl_sv_pvutf8n_force
2947 Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp)
2949 return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp);
2952 #undef Perl_sv_pvbyten_force
2954 Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp)
2956 return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
2959 #undef Perl_sv_reftype
2961 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
2963 return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
2966 #undef Perl_sv_replace
2968 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
2970 ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
2973 #undef Perl_sv_report_used
2975 Perl_sv_report_used(pTHXo)
2977 ((CPerlObj*)pPerl)->Perl_sv_report_used();
2980 #undef Perl_sv_reset
2982 Perl_sv_reset(pTHXo_ char* s, HV* stash)
2984 ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
2987 #undef Perl_sv_setpvf
2989 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
2992 va_start(args, pat);
2993 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
2997 #undef Perl_sv_vsetpvf
2999 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3001 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
3004 #undef Perl_sv_setiv
3006 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
3008 ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3011 #undef Perl_sv_setpviv
3013 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
3015 ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3018 #undef Perl_sv_setuv
3020 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
3022 ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3025 #undef Perl_sv_setnv
3027 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
3029 ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
3032 #undef Perl_sv_setref_iv
3034 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
3036 return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
3039 #undef Perl_sv_setref_nv
3041 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
3043 return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
3046 #undef Perl_sv_setref_pv
3048 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
3050 return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
3053 #undef Perl_sv_setref_pvn
3055 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
3057 return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
3060 #undef Perl_sv_setpv
3062 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
3064 ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
3067 #undef Perl_sv_setpvn
3069 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3071 ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
3074 #undef Perl_sv_setsv
3076 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
3078 ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3081 #undef Perl_sv_taint
3083 Perl_sv_taint(pTHXo_ SV* sv)
3085 ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3088 #undef Perl_sv_tainted
3090 Perl_sv_tainted(pTHXo_ SV* sv)
3092 return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3095 #undef Perl_sv_unmagic
3097 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
3099 return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
3102 #undef Perl_sv_unref
3104 Perl_sv_unref(pTHXo_ SV* sv)
3106 ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3109 #undef Perl_sv_untaint
3111 Perl_sv_untaint(pTHXo_ SV* sv)
3113 ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3116 #undef Perl_sv_upgrade
3118 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
3120 return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
3123 #undef Perl_sv_usepvn
3125 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
3127 ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
3130 #undef Perl_sv_vcatpvfn
3132 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3134 ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3137 #undef Perl_sv_vsetpvfn
3139 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3141 ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3144 #undef Perl_swash_init
3146 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
3148 return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
3151 #undef Perl_swash_fetch
3153 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
3155 return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
3158 #undef Perl_taint_env
3160 Perl_taint_env(pTHXo)
3162 ((CPerlObj*)pPerl)->Perl_taint_env();
3165 #undef Perl_taint_proper
3167 Perl_taint_proper(pTHXo_ const char* f, const char* s)
3169 ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
3172 #undef Perl_to_utf8_lower
3174 Perl_to_utf8_lower(pTHXo_ U8 *p)
3176 return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
3179 #undef Perl_to_utf8_upper
3181 Perl_to_utf8_upper(pTHXo_ U8 *p)
3183 return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
3186 #undef Perl_to_utf8_title
3188 Perl_to_utf8_title(pTHXo_ U8 *p)
3190 return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
3192 #if defined(UNLINK_ALL_VERSIONS)
3196 Perl_unlnk(pTHXo_ char* f)
3198 return ((CPerlObj*)pPerl)->Perl_unlnk(f);
3201 #if defined(USE_THREADS)
3203 #undef Perl_unlock_condpair
3205 Perl_unlock_condpair(pTHXo_ void* svv)
3207 ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3211 #undef Perl_unsharepvn
3213 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3215 ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
3218 #undef Perl_utf16_to_utf8
3220 Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
3222 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
3225 #undef Perl_utf16_to_utf8_reversed
3227 Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
3229 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
3232 #undef Perl_utf8_distance
3234 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
3236 return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
3239 #undef Perl_utf8_hop
3241 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
3243 return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
3246 #undef Perl_utf8_to_uv
3248 Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
3250 return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
3253 #undef Perl_uv_to_utf8
3255 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
3257 return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
3262 Perl_warn(pTHXo_ const char* pat, ...)
3265 va_start(args, pat);
3266 ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
3272 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
3274 ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
3279 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
3282 va_start(args, pat);
3283 ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
3289 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
3291 ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
3293 #if defined(USE_PURE_BISON)
3296 #if defined(MYMALLOC)
3298 #undef Perl_dump_mstats
3300 Perl_dump_mstats(pTHXo_ char* s)
3302 ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
3306 #undef Perl_safesysmalloc
3308 Perl_safesysmalloc(MEM_SIZE nbytes)
3311 return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
3314 #undef Perl_safesyscalloc
3316 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
3319 return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
3322 #undef Perl_safesysrealloc
3324 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
3327 return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
3330 #undef Perl_safesysfree
3332 Perl_safesysfree(Malloc_t where)
3335 ((CPerlObj*)pPerl)->Perl_safesysfree(where);
3337 #if defined(LEAKTEST)
3339 #undef Perl_safexmalloc
3341 Perl_safexmalloc(I32 x, MEM_SIZE size)
3344 return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
3347 #undef Perl_safexcalloc
3349 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
3352 return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
3355 #undef Perl_safexrealloc
3357 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
3360 return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
3363 #undef Perl_safexfree
3365 Perl_safexfree(Malloc_t where)
3368 ((CPerlObj*)pPerl)->Perl_safexfree(where);
3371 #if defined(PERL_GLOBAL_STRUCT)
3377 return ((CPerlObj*)pPerl)->Perl_GetVars();
3381 #undef Perl_runops_standard
3383 Perl_runops_standard(pTHXo)
3385 return ((CPerlObj*)pPerl)->Perl_runops_standard();
3388 #undef Perl_runops_debug
3390 Perl_runops_debug(pTHXo)
3392 return ((CPerlObj*)pPerl)->Perl_runops_debug();
3395 #undef Perl_sv_catpvf_mg
3397 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3400 va_start(args, pat);
3401 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
3405 #undef Perl_sv_vcatpvf_mg
3407 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3409 ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
3412 #undef Perl_sv_catpv_mg
3414 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
3416 ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
3419 #undef Perl_sv_catpvn_mg
3421 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3423 ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
3426 #undef Perl_sv_catsv_mg
3428 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
3430 ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
3433 #undef Perl_sv_setpvf_mg
3435 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3438 va_start(args, pat);
3439 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
3443 #undef Perl_sv_vsetpvf_mg
3445 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3447 ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
3450 #undef Perl_sv_setiv_mg
3452 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
3454 ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
3457 #undef Perl_sv_setpviv_mg
3459 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
3461 ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
3464 #undef Perl_sv_setuv_mg
3466 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
3468 ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
3471 #undef Perl_sv_setnv_mg
3473 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
3475 ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
3478 #undef Perl_sv_setpv_mg
3480 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
3482 ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
3485 #undef Perl_sv_setpvn_mg
3487 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3489 ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
3492 #undef Perl_sv_setsv_mg
3494 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
3496 ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
3499 #undef Perl_sv_usepvn_mg
3501 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
3503 ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
3506 #undef Perl_get_vtbl
3508 Perl_get_vtbl(pTHXo_ int vtbl_id)
3510 return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
3513 #undef Perl_dump_indent
3515 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
3518 va_start(args, pat);
3519 ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
3523 #undef Perl_dump_vindent
3525 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
3527 ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
3530 #undef Perl_do_gv_dump
3532 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3534 ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
3537 #undef Perl_do_gvgv_dump
3539 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3541 ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
3544 #undef Perl_do_hv_dump
3546 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
3548 ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
3551 #undef Perl_do_magic_dump
3553 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3555 ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
3558 #undef Perl_do_op_dump
3560 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
3562 ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
3565 #undef Perl_do_pmop_dump
3567 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
3569 ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
3572 #undef Perl_do_sv_dump
3574 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3576 ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
3579 #undef Perl_magic_dump
3581 Perl_magic_dump(pTHXo_ MAGIC *mg)
3583 ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
3586 #undef Perl_default_protect
3588 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
3592 va_start(args, body);
3593 retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
3599 #undef Perl_vdefault_protect
3601 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
3603 return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
3606 #undef Perl_reginitcolors
3608 Perl_reginitcolors(pTHXo)
3610 ((CPerlObj*)pPerl)->Perl_reginitcolors();
3613 #undef Perl_sv_2pv_nolen
3615 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
3617 return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
3620 #undef Perl_sv_2pvutf8_nolen
3622 Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv)
3624 return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv);
3627 #undef Perl_sv_2pvbyte_nolen
3629 Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv)
3631 return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv);
3636 Perl_sv_pv(pTHXo_ SV *sv)
3638 return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
3641 #undef Perl_sv_pvutf8
3643 Perl_sv_pvutf8(pTHXo_ SV *sv)
3645 return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv);
3648 #undef Perl_sv_pvbyte
3650 Perl_sv_pvbyte(pTHXo_ SV *sv)
3652 return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
3655 #undef Perl_sv_force_normal
3657 Perl_sv_force_normal(pTHXo_ SV *sv)
3659 ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
3662 #undef Perl_tmps_grow
3664 Perl_tmps_grow(pTHXo_ I32 n)
3666 ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
3669 #undef Perl_sv_rvweaken
3671 Perl_sv_rvweaken(pTHXo_ SV *sv)
3673 return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
3676 #undef Perl_newANONATTRSUB
3678 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
3680 return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
3683 #undef Perl_newATTRSUB
3685 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3687 return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
3690 #undef Perl_newMYSUB
3692 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3694 ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
3696 #if defined(USE_ITHREADS)
3700 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
3702 return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
3707 Perl_si_dup(pTHXo_ PERL_SI* si)
3709 return ((CPerlObj*)pPerl)->Perl_si_dup(si);
3714 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
3716 return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
3721 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
3723 return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
3728 Perl_he_dup(pTHXo_ HE* e, bool shared)
3730 return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
3735 Perl_re_dup(pTHXo_ REGEXP* r)
3737 return ((CPerlObj*)pPerl)->Perl_re_dup(r);
3742 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
3744 return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
3747 #undef Perl_dirp_dup
3749 Perl_dirp_dup(pTHXo_ DIR* dp)
3751 return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
3756 Perl_gp_dup(pTHXo_ GP* gp)
3758 return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
3763 Perl_mg_dup(pTHXo_ MAGIC* mg)
3765 return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
3770 Perl_sv_dup(pTHXo_ SV* sstr)
3772 return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
3774 #if defined(HAVE_INTERP_INTERN)
3776 #undef Perl_sys_intern_dup
3778 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
3780 ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
3784 #undef Perl_ptr_table_new
3786 Perl_ptr_table_new(pTHXo)
3788 return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
3791 #undef Perl_ptr_table_fetch
3793 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
3795 return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
3798 #undef Perl_ptr_table_store
3800 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
3802 ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
3805 #undef Perl_ptr_table_split
3807 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
3809 ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
3812 #if defined(PERL_OBJECT)
3815 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
3817 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
3819 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
3821 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
3823 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
3825 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
3826 # if defined(PL_OP_SLAB_ALLOC)
3829 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
3830 # if defined(IAMSUID)
3832 # if defined(USE_THREADS)
3835 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
3837 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
3839 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
3841 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
3842 # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
3845 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
3847 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
3849 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
3851 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
3853 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
3854 # if defined(PURIFY)
3857 # if defined(DEBUGGING)
3860 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
3861 # if defined(CRIPPLED_CC)
3863 # if defined(PERL_CR_FILTER)
3866 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
3868 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
3869 # if defined(LEAKTEST)
3872 #if defined(PERL_OBJECT)
3875 #undef Perl_fprintf_nocontext
3877 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
3881 va_start(arglist, format);
3882 return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
3887 #endif /* PERL_OBJECT */
3888 #endif /* PERL_OBJECT || MULTIPLICITY */