source: trunk/third/perl/perlapi.c @ 14545

Revision 14545, 75.1 KB checked in by ghudson, 25 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.
Line 
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!
4*/
5
6#include "EXTERN.h"
7#include "perl.h"
8#include "perlapi.h"
9
10#if defined(PERL_OBJECT) || defined (MULTIPLICITY)
11
12/* accessor functions for Perl variables (provides binary compatibility) */
13START_EXTERN_C
14
15#undef PERLVAR
16#undef PERLVARA
17#undef PERLVARI
18#undef PERLVARIC
19
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); }
30#endif
31
32#define PERLVARI(v,t,i) PERLVAR(v,t)
33#define PERLVARIC(v,t,i) PERLVAR(v, const t)
34
35#include "thrdvar.h"
36#include "intrpvar.h"
37
38#undef PERLVAR
39#undef PERLVARA
40#define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
41                        { return &(PL_##v); }
42#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
43                        { return &(PL_##v); }
44#include "perlvars.h"
45
46#undef PERLVAR
47#undef PERLVARA
48#undef PERLVARI
49#undef PERLVARIC
50
51#if defined(PERL_OBJECT)
52
53/* C-API layer for PERL_OBJECT */
54
55#if defined(PERL_IMPLICIT_SYS)
56#endif
57#if defined(USE_ITHREADS)
58#  if defined(PERL_IMPLICIT_SYS)
59#  endif
60#endif
61#if defined(MYMALLOC)
62#endif
63#if defined(PERL_OBJECT)
64#ifndef __BORLANDC__
65#endif
66#endif
67#if defined(PERL_OBJECT)
68#else
69#endif
70
71#undef  Perl_amagic_call
72SV*
73Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
74{
75    return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
76}
77
78#undef  Perl_Gv_AMupdate
79bool
80Perl_Gv_AMupdate(pTHXo_ HV* stash)
81{
82    return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
83}
84
85#undef  Perl_avhv_delete_ent
86SV*
87Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash)
88{
89    return ((CPerlObj*)pPerl)->Perl_avhv_delete_ent(ar, keysv, flags, hash);
90}
91
92#undef  Perl_avhv_exists_ent
93bool
94Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)
95{
96    return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
97}
98
99#undef  Perl_avhv_fetch_ent
100SV**
101Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash)
102{
103    return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
104}
105
106#undef  Perl_avhv_store_ent
107SV**
108Perl_avhv_store_ent(pTHXo_ AV *ar, SV* keysv, SV* val, U32 hash)
109{
110    return ((CPerlObj*)pPerl)->Perl_avhv_store_ent(ar, keysv, val, hash);
111}
112
113#undef  Perl_avhv_iternext
114HE*
115Perl_avhv_iternext(pTHXo_ AV *ar)
116{
117    return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
118}
119
120#undef  Perl_avhv_iterval
121SV*
122Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry)
123{
124    return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
125}
126
127#undef  Perl_avhv_keys
128HV*
129Perl_avhv_keys(pTHXo_ AV *ar)
130{
131    return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
132}
133
134#undef  Perl_av_clear
135void
136Perl_av_clear(pTHXo_ AV* ar)
137{
138    ((CPerlObj*)pPerl)->Perl_av_clear(ar);
139}
140
141#undef  Perl_av_delete
142SV*
143Perl_av_delete(pTHXo_ AV* ar, I32 key, I32 flags)
144{
145    return ((CPerlObj*)pPerl)->Perl_av_delete(ar, key, flags);
146}
147
148#undef  Perl_av_exists
149bool
150Perl_av_exists(pTHXo_ AV* ar, I32 key)
151{
152    return ((CPerlObj*)pPerl)->Perl_av_exists(ar, key);
153}
154
155#undef  Perl_av_extend
156void
157Perl_av_extend(pTHXo_ AV* ar, I32 key)
158{
159    ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
160}
161
162#undef  Perl_av_fake
163AV*
164Perl_av_fake(pTHXo_ I32 size, SV** svp)
165{
166    return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
167}
168
169#undef  Perl_av_fetch
170SV**
171Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
172{
173    return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
174}
175
176#undef  Perl_av_fill
177void
178Perl_av_fill(pTHXo_ AV* ar, I32 fill)
179{
180    ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
181}
182
183#undef  Perl_av_len
184I32
185Perl_av_len(pTHXo_ AV* ar)
186{
187    return ((CPerlObj*)pPerl)->Perl_av_len(ar);
188}
189
190#undef  Perl_av_make
191AV*
192Perl_av_make(pTHXo_ I32 size, SV** svp)
193{
194    return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
195}
196
197#undef  Perl_av_pop
198SV*
199Perl_av_pop(pTHXo_ AV* ar)
200{
201    return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
202}
203
204#undef  Perl_av_push
205void
206Perl_av_push(pTHXo_ AV* ar, SV* val)
207{
208    ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
209}
210
211#undef  Perl_av_reify
212void
213Perl_av_reify(pTHXo_ AV* ar)
214{
215    ((CPerlObj*)pPerl)->Perl_av_reify(ar);
216}
217
218#undef  Perl_av_shift
219SV*
220Perl_av_shift(pTHXo_ AV* ar)
221{
222    return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
223}
224
225#undef  Perl_av_store
226SV**
227Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val)
228{
229    return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
230}
231
232#undef  Perl_av_undef
233void
234Perl_av_undef(pTHXo_ AV* ar)
235{
236    ((CPerlObj*)pPerl)->Perl_av_undef(ar);
237}
238
239#undef  Perl_av_unshift
240void
241Perl_av_unshift(pTHXo_ AV* ar, I32 num)
242{
243    ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
244}
245
246#undef  Perl_block_gimme
247I32
248Perl_block_gimme(pTHXo)
249{
250    return ((CPerlObj*)pPerl)->Perl_block_gimme();
251}
252
253#undef  Perl_call_list
254void
255Perl_call_list(pTHXo_ I32 oldscope, AV* av_list)
256{
257    ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
258}
259
260#undef  Perl_cast_ulong
261U32
262Perl_cast_ulong(pTHXo_ NV f)
263{
264    return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
265}
266
267#undef  Perl_cast_i32
268I32
269Perl_cast_i32(pTHXo_ NV f)
270{
271    return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
272}
273
274#undef  Perl_cast_iv
275IV
276Perl_cast_iv(pTHXo_ NV f)
277{
278    return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
279}
280
281#undef  Perl_cast_uv
282UV
283Perl_cast_uv(pTHXo_ NV f)
284{
285    return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
286}
287#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
288
289#undef  Perl_my_chsize
290I32
291Perl_my_chsize(pTHXo_ int fd, Off_t length)
292{
293    return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
294}
295#endif
296#if defined(USE_THREADS)
297
298#undef  Perl_condpair_magic
299MAGIC*
300Perl_condpair_magic(pTHXo_ SV *sv)
301{
302    return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
303}
304#endif
305
306#undef  Perl_croak
307void
308Perl_croak(pTHXo_ const char* pat, ...)
309{
310    va_list args;
311    va_start(args, pat);
312    ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
313    va_end(args);
314}
315
316#undef  Perl_vcroak
317void
318Perl_vcroak(pTHXo_ const char* pat, va_list* args)
319{
320    ((CPerlObj*)pPerl)->Perl_vcroak(pat, args);
321}
322#if defined(PERL_IMPLICIT_CONTEXT)
323
324#undef  Perl_croak_nocontext
325void
326Perl_croak_nocontext(const char* pat, ...)
327{
328    dTHXo;
329    va_list args;
330    va_start(args, pat);
331    ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
332    va_end(args);
333}
334
335#undef  Perl_die_nocontext
336OP*
337Perl_die_nocontext(const char* pat, ...)
338{
339    dTHXo;
340    OP* retval;
341    va_list args;
342    va_start(args, pat);
343    retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
344    va_end(args);
345    return retval;
346
347}
348
349#undef  Perl_deb_nocontext
350void
351Perl_deb_nocontext(const char* pat, ...)
352{
353    dTHXo;
354    va_list args;
355    va_start(args, pat);
356    ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
357    va_end(args);
358}
359
360#undef  Perl_form_nocontext
361char*
362Perl_form_nocontext(const char* pat, ...)
363{
364    dTHXo;
365    char* retval;
366    va_list args;
367    va_start(args, pat);
368    retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
369    va_end(args);
370    return retval;
371
372}
373
374#undef  Perl_load_module_nocontext
375void
376Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...)
377{
378    dTHXo;
379    va_list args;
380    va_start(args, ver);
381    ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args);
382    va_end(args);
383}
384
385#undef  Perl_mess_nocontext
386SV*
387Perl_mess_nocontext(const char* pat, ...)
388{
389    dTHXo;
390    SV* retval;
391    va_list args;
392    va_start(args, pat);
393    retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
394    va_end(args);
395    return retval;
396
397}
398
399#undef  Perl_warn_nocontext
400void
401Perl_warn_nocontext(const char* pat, ...)
402{
403    dTHXo;
404    va_list args;
405    va_start(args, pat);
406    ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
407    va_end(args);
408}
409
410#undef  Perl_warner_nocontext
411void
412Perl_warner_nocontext(U32 err, const char* pat, ...)
413{
414    dTHXo;
415    va_list args;
416    va_start(args, pat);
417    ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
418    va_end(args);
419}
420
421#undef  Perl_newSVpvf_nocontext
422SV*
423Perl_newSVpvf_nocontext(const char* pat, ...)
424{
425    dTHXo;
426    SV* retval;
427    va_list args;
428    va_start(args, pat);
429    retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
430    va_end(args);
431    return retval;
432
433}
434
435#undef  Perl_sv_catpvf_nocontext
436void
437Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
438{
439    dTHXo;
440    va_list args;
441    va_start(args, pat);
442    ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
443    va_end(args);
444}
445
446#undef  Perl_sv_setpvf_nocontext
447void
448Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
449{
450    dTHXo;
451    va_list args;
452    va_start(args, pat);
453    ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
454    va_end(args);
455}
456
457#undef  Perl_sv_catpvf_mg_nocontext
458void
459Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
460{
461    dTHXo;
462    va_list args;
463    va_start(args, pat);
464    ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
465    va_end(args);
466}
467
468#undef  Perl_sv_setpvf_mg_nocontext
469void
470Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
471{
472    dTHXo;
473    va_list args;
474    va_start(args, pat);
475    ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
476    va_end(args);
477}
478
479#undef  Perl_fprintf_nocontext
480#endif
481
482#undef  Perl_cv_const_sv
483SV*
484Perl_cv_const_sv(pTHXo_ CV* cv)
485{
486    return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
487}
488
489#undef  Perl_cv_undef
490void
491Perl_cv_undef(pTHXo_ CV* cv)
492{
493    ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
494}
495
496#undef  Perl_cx_dump
497void
498Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
499{
500    ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
501}
502
503#undef  Perl_filter_add
504SV*
505Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv)
506{
507    return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
508}
509
510#undef  Perl_filter_del
511void
512Perl_filter_del(pTHXo_ filter_t funcp)
513{
514    ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
515}
516
517#undef  Perl_filter_read
518I32
519Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen)
520{
521    return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
522}
523
524#undef  Perl_get_op_descs
525char**
526Perl_get_op_descs(pTHXo)
527{
528    return ((CPerlObj*)pPerl)->Perl_get_op_descs();
529}
530
531#undef  Perl_get_op_names
532char**
533Perl_get_op_names(pTHXo)
534{
535    return ((CPerlObj*)pPerl)->Perl_get_op_names();
536}
537
538#undef  Perl_get_ppaddr
539PPADDR_t*
540Perl_get_ppaddr(pTHXo)
541{
542    return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
543}
544
545#undef  Perl_deb
546void
547Perl_deb(pTHXo_ const char* pat, ...)
548{
549    va_list args;
550    va_start(args, pat);
551    ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
552    va_end(args);
553}
554
555#undef  Perl_vdeb
556void
557Perl_vdeb(pTHXo_ const char* pat, va_list* args)
558{
559    ((CPerlObj*)pPerl)->Perl_vdeb(pat, args);
560}
561
562#undef  Perl_debprofdump
563void
564Perl_debprofdump(pTHXo)
565{
566    ((CPerlObj*)pPerl)->Perl_debprofdump();
567}
568
569#undef  Perl_debop
570I32
571Perl_debop(pTHXo_ OP* o)
572{
573    return ((CPerlObj*)pPerl)->Perl_debop(o);
574}
575
576#undef  Perl_debstack
577I32
578Perl_debstack(pTHXo)
579{
580    return ((CPerlObj*)pPerl)->Perl_debstack();
581}
582
583#undef  Perl_debstackptrs
584I32
585Perl_debstackptrs(pTHXo)
586{
587    return ((CPerlObj*)pPerl)->Perl_debstackptrs();
588}
589
590#undef  Perl_delimcpy
591char*
592Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
593{
594    return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
595}
596
597#undef  Perl_die
598OP*
599Perl_die(pTHXo_ const char* pat, ...)
600{
601    OP* retval;
602    va_list args;
603    va_start(args, pat);
604    retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
605    va_end(args);
606    return retval;
607
608}
609
610#undef  Perl_dounwind
611void
612Perl_dounwind(pTHXo_ I32 cxix)
613{
614    ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
615}
616
617#undef  Perl_do_binmode
618int
619Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
620{
621    return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
622}
623
624#undef  Perl_do_close
625bool
626Perl_do_close(pTHXo_ GV* gv, bool not_implicit)
627{
628    return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
629}
630#if !defined(WIN32)
631#endif
632#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
633#endif
634
635#undef  Perl_do_open
636bool
637Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
638{
639    return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
640}
641
642#undef  Perl_do_open9
643bool
644Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
645{
646    return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
647}
648
649#undef  Perl_dowantarray
650I32
651Perl_dowantarray(pTHXo)
652{
653    return ((CPerlObj*)pPerl)->Perl_dowantarray();
654}
655
656#undef  Perl_dump_all
657void
658Perl_dump_all(pTHXo)
659{
660    ((CPerlObj*)pPerl)->Perl_dump_all();
661}
662
663#undef  Perl_dump_eval
664void
665Perl_dump_eval(pTHXo)
666{
667    ((CPerlObj*)pPerl)->Perl_dump_eval();
668}
669#if defined(DUMP_FDS)
670
671#undef  Perl_dump_fds
672void
673Perl_dump_fds(pTHXo_ char* s)
674{
675    ((CPerlObj*)pPerl)->Perl_dump_fds(s);
676}
677#endif
678
679#undef  Perl_dump_form
680void
681Perl_dump_form(pTHXo_ GV* gv)
682{
683    ((CPerlObj*)pPerl)->Perl_dump_form(gv);
684}
685
686#undef  Perl_gv_dump
687void
688Perl_gv_dump(pTHXo_ GV* gv)
689{
690    ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
691}
692
693#undef  Perl_op_dump
694void
695Perl_op_dump(pTHXo_ OP* arg)
696{
697    ((CPerlObj*)pPerl)->Perl_op_dump(arg);
698}
699
700#undef  Perl_pmop_dump
701void
702Perl_pmop_dump(pTHXo_ PMOP* pm)
703{
704    ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
705}
706
707#undef  Perl_dump_packsubs
708void
709Perl_dump_packsubs(pTHXo_ HV* stash)
710{
711    ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
712}
713
714#undef  Perl_dump_sub
715void
716Perl_dump_sub(pTHXo_ GV* gv)
717{
718    ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
719}
720
721#undef  Perl_fbm_compile
722void
723Perl_fbm_compile(pTHXo_ SV* sv, U32 flags)
724{
725    ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
726}
727
728#undef  Perl_fbm_instr
729char*
730Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
731{
732    return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
733}
734#if defined(USE_THREADS)
735#endif
736
737#undef  Perl_form
738char*
739Perl_form(pTHXo_ const char* pat, ...)
740{
741    char* retval;
742    va_list args;
743    va_start(args, pat);
744    retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
745    va_end(args);
746    return retval;
747
748}
749
750#undef  Perl_vform
751char*
752Perl_vform(pTHXo_ const char* pat, va_list* args)
753{
754    return ((CPerlObj*)pPerl)->Perl_vform(pat, args);
755}
756
757#undef  Perl_free_tmps
758void
759Perl_free_tmps(pTHXo)
760{
761    ((CPerlObj*)pPerl)->Perl_free_tmps();
762}
763#if !defined(HAS_GETENV_LEN)
764#endif
765
766#undef  Perl_gp_free
767void
768Perl_gp_free(pTHXo_ GV* gv)
769{
770    ((CPerlObj*)pPerl)->Perl_gp_free(gv);
771}
772
773#undef  Perl_gp_ref
774GP*
775Perl_gp_ref(pTHXo_ GP* gp)
776{
777    return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
778}
779
780#undef  Perl_gv_AVadd
781GV*
782Perl_gv_AVadd(pTHXo_ GV* gv)
783{
784    return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
785}
786
787#undef  Perl_gv_HVadd
788GV*
789Perl_gv_HVadd(pTHXo_ GV* gv)
790{
791    return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
792}
793
794#undef  Perl_gv_IOadd
795GV*
796Perl_gv_IOadd(pTHXo_ GV* gv)
797{
798    return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
799}
800
801#undef  Perl_gv_autoload4
802GV*
803Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method)
804{
805    return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
806}
807
808#undef  Perl_gv_check
809void
810Perl_gv_check(pTHXo_ HV* stash)
811{
812    ((CPerlObj*)pPerl)->Perl_gv_check(stash);
813}
814
815#undef  Perl_gv_efullname
816void
817Perl_gv_efullname(pTHXo_ SV* sv, GV* gv)
818{
819    ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
820}
821
822#undef  Perl_gv_efullname3
823void
824Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
825{
826    ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
827}
828
829#undef  Perl_gv_fetchfile
830GV*
831Perl_gv_fetchfile(pTHXo_ const char* name)
832{
833    return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
834}
835
836#undef  Perl_gv_fetchmeth
837GV*
838Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level)
839{
840    return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
841}
842
843#undef  Perl_gv_fetchmethod
844GV*
845Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name)
846{
847    return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
848}
849
850#undef  Perl_gv_fetchmethod_autoload
851GV*
852Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload)
853{
854    return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
855}
856
857#undef  Perl_gv_fetchpv
858GV*
859Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type)
860{
861    return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
862}
863
864#undef  Perl_gv_fullname
865void
866Perl_gv_fullname(pTHXo_ SV* sv, GV* gv)
867{
868    ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
869}
870
871#undef  Perl_gv_fullname3
872void
873Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
874{
875    ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
876}
877
878#undef  Perl_gv_init
879void
880Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
881{
882    ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
883}
884
885#undef  Perl_gv_stashpv
886HV*
887Perl_gv_stashpv(pTHXo_ const char* name, I32 create)
888{
889    return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
890}
891
892#undef  Perl_gv_stashpvn
893HV*
894Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create)
895{
896    return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
897}
898
899#undef  Perl_gv_stashsv
900HV*
901Perl_gv_stashsv(pTHXo_ SV* sv, I32 create)
902{
903    return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
904}
905
906#undef  Perl_hv_clear
907void
908Perl_hv_clear(pTHXo_ HV* tb)
909{
910    ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
911}
912
913#undef  Perl_hv_delayfree_ent
914void
915Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
916{
917    ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
918}
919
920#undef  Perl_hv_delete
921SV*
922Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags)
923{
924    return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
925}
926
927#undef  Perl_hv_delete_ent
928SV*
929Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
930{
931    return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
932}
933
934#undef  Perl_hv_exists
935bool
936Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen)
937{
938    return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
939}
940
941#undef  Perl_hv_exists_ent
942bool
943Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
944{
945    return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
946}
947
948#undef  Perl_hv_fetch
949SV**
950Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval)
951{
952    return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
953}
954
955#undef  Perl_hv_fetch_ent
956HE*
957Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash)
958{
959    return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
960}
961
962#undef  Perl_hv_free_ent
963void
964Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry)
965{
966    ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
967}
968
969#undef  Perl_hv_iterinit
970I32
971Perl_hv_iterinit(pTHXo_ HV* tb)
972{
973    return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
974}
975
976#undef  Perl_hv_iterkey
977char*
978Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen)
979{
980    return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
981}
982
983#undef  Perl_hv_iterkeysv
984SV*
985Perl_hv_iterkeysv(pTHXo_ HE* entry)
986{
987    return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
988}
989
990#undef  Perl_hv_iternext
991HE*
992Perl_hv_iternext(pTHXo_ HV* tb)
993{
994    return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
995}
996
997#undef  Perl_hv_iternextsv
998SV*
999Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen)
1000{
1001    return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
1002}
1003
1004#undef  Perl_hv_iterval
1005SV*
1006Perl_hv_iterval(pTHXo_ HV* tb, HE* entry)
1007{
1008    return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
1009}
1010
1011#undef  Perl_hv_ksplit
1012void
1013Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax)
1014{
1015    ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1016}
1017
1018#undef  Perl_hv_magic
1019void
1020Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
1021{
1022    ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
1023}
1024
1025#undef  Perl_hv_store
1026SV**
1027Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash)
1028{
1029    return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
1030}
1031
1032#undef  Perl_hv_store_ent
1033HE*
1034Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash)
1035{
1036    return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1037}
1038
1039#undef  Perl_hv_undef
1040void
1041Perl_hv_undef(pTHXo_ HV* tb)
1042{
1043    ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1044}
1045
1046#undef  Perl_ibcmp
1047I32
1048Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len)
1049{
1050    return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1051}
1052
1053#undef  Perl_ibcmp_locale
1054I32
1055Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len)
1056{
1057    return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1058}
1059
1060#undef  Perl_init_stacks
1061void
1062Perl_init_stacks(pTHXo)
1063{
1064    ((CPerlObj*)pPerl)->Perl_init_stacks();
1065}
1066
1067#undef  Perl_instr
1068char*
1069Perl_instr(pTHXo_ const char* big, const char* little)
1070{
1071    return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1072}
1073
1074#undef  Perl_is_uni_alnum
1075bool
1076Perl_is_uni_alnum(pTHXo_ U32 c)
1077{
1078    return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1079}
1080
1081#undef  Perl_is_uni_alnumc
1082bool
1083Perl_is_uni_alnumc(pTHXo_ U32 c)
1084{
1085    return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1086}
1087
1088#undef  Perl_is_uni_idfirst
1089bool
1090Perl_is_uni_idfirst(pTHXo_ U32 c)
1091{
1092    return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1093}
1094
1095#undef  Perl_is_uni_alpha
1096bool
1097Perl_is_uni_alpha(pTHXo_ U32 c)
1098{
1099    return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1100}
1101
1102#undef  Perl_is_uni_ascii
1103bool
1104Perl_is_uni_ascii(pTHXo_ U32 c)
1105{
1106    return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1107}
1108
1109#undef  Perl_is_uni_space
1110bool
1111Perl_is_uni_space(pTHXo_ U32 c)
1112{
1113    return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1114}
1115
1116#undef  Perl_is_uni_cntrl
1117bool
1118Perl_is_uni_cntrl(pTHXo_ U32 c)
1119{
1120    return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1121}
1122
1123#undef  Perl_is_uni_graph
1124bool
1125Perl_is_uni_graph(pTHXo_ U32 c)
1126{
1127    return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1128}
1129
1130#undef  Perl_is_uni_digit
1131bool
1132Perl_is_uni_digit(pTHXo_ U32 c)
1133{
1134    return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1135}
1136
1137#undef  Perl_is_uni_upper
1138bool
1139Perl_is_uni_upper(pTHXo_ U32 c)
1140{
1141    return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1142}
1143
1144#undef  Perl_is_uni_lower
1145bool
1146Perl_is_uni_lower(pTHXo_ U32 c)
1147{
1148    return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1149}
1150
1151#undef  Perl_is_uni_print
1152bool
1153Perl_is_uni_print(pTHXo_ U32 c)
1154{
1155    return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1156}
1157
1158#undef  Perl_is_uni_punct
1159bool
1160Perl_is_uni_punct(pTHXo_ U32 c)
1161{
1162    return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1163}
1164
1165#undef  Perl_is_uni_xdigit
1166bool
1167Perl_is_uni_xdigit(pTHXo_ U32 c)
1168{
1169    return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1170}
1171
1172#undef  Perl_to_uni_upper
1173U32
1174Perl_to_uni_upper(pTHXo_ U32 c)
1175{
1176    return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1177}
1178
1179#undef  Perl_to_uni_title
1180U32
1181Perl_to_uni_title(pTHXo_ U32 c)
1182{
1183    return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1184}
1185
1186#undef  Perl_to_uni_lower
1187U32
1188Perl_to_uni_lower(pTHXo_ U32 c)
1189{
1190    return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1191}
1192
1193#undef  Perl_is_uni_alnum_lc
1194bool
1195Perl_is_uni_alnum_lc(pTHXo_ U32 c)
1196{
1197    return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1198}
1199
1200#undef  Perl_is_uni_alnumc_lc
1201bool
1202Perl_is_uni_alnumc_lc(pTHXo_ U32 c)
1203{
1204    return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1205}
1206
1207#undef  Perl_is_uni_idfirst_lc
1208bool
1209Perl_is_uni_idfirst_lc(pTHXo_ U32 c)
1210{
1211    return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1212}
1213
1214#undef  Perl_is_uni_alpha_lc
1215bool
1216Perl_is_uni_alpha_lc(pTHXo_ U32 c)
1217{
1218    return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1219}
1220
1221#undef  Perl_is_uni_ascii_lc
1222bool
1223Perl_is_uni_ascii_lc(pTHXo_ U32 c)
1224{
1225    return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1226}
1227
1228#undef  Perl_is_uni_space_lc
1229bool
1230Perl_is_uni_space_lc(pTHXo_ U32 c)
1231{
1232    return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1233}
1234
1235#undef  Perl_is_uni_cntrl_lc
1236bool
1237Perl_is_uni_cntrl_lc(pTHXo_ U32 c)
1238{
1239    return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1240}
1241
1242#undef  Perl_is_uni_graph_lc
1243bool
1244Perl_is_uni_graph_lc(pTHXo_ U32 c)
1245{
1246    return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1247}
1248
1249#undef  Perl_is_uni_digit_lc
1250bool
1251Perl_is_uni_digit_lc(pTHXo_ U32 c)
1252{
1253    return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1254}
1255
1256#undef  Perl_is_uni_upper_lc
1257bool
1258Perl_is_uni_upper_lc(pTHXo_ U32 c)
1259{
1260    return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1261}
1262
1263#undef  Perl_is_uni_lower_lc
1264bool
1265Perl_is_uni_lower_lc(pTHXo_ U32 c)
1266{
1267    return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1268}
1269
1270#undef  Perl_is_uni_print_lc
1271bool
1272Perl_is_uni_print_lc(pTHXo_ U32 c)
1273{
1274    return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1275}
1276
1277#undef  Perl_is_uni_punct_lc
1278bool
1279Perl_is_uni_punct_lc(pTHXo_ U32 c)
1280{
1281    return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1282}
1283
1284#undef  Perl_is_uni_xdigit_lc
1285bool
1286Perl_is_uni_xdigit_lc(pTHXo_ U32 c)
1287{
1288    return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1289}
1290
1291#undef  Perl_to_uni_upper_lc
1292U32
1293Perl_to_uni_upper_lc(pTHXo_ U32 c)
1294{
1295    return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1296}
1297
1298#undef  Perl_to_uni_title_lc
1299U32
1300Perl_to_uni_title_lc(pTHXo_ U32 c)
1301{
1302    return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1303}
1304
1305#undef  Perl_to_uni_lower_lc
1306U32
1307Perl_to_uni_lower_lc(pTHXo_ U32 c)
1308{
1309    return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1310}
1311
1312#undef  Perl_is_utf8_char
1313int
1314Perl_is_utf8_char(pTHXo_ U8 *p)
1315{
1316    return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
1317}
1318
1319#undef  Perl_is_utf8_alnum
1320bool
1321Perl_is_utf8_alnum(pTHXo_ U8 *p)
1322{
1323    return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1324}
1325
1326#undef  Perl_is_utf8_alnumc
1327bool
1328Perl_is_utf8_alnumc(pTHXo_ U8 *p)
1329{
1330    return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1331}
1332
1333#undef  Perl_is_utf8_idfirst
1334bool
1335Perl_is_utf8_idfirst(pTHXo_ U8 *p)
1336{
1337    return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1338}
1339
1340#undef  Perl_is_utf8_alpha
1341bool
1342Perl_is_utf8_alpha(pTHXo_ U8 *p)
1343{
1344    return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1345}
1346
1347#undef  Perl_is_utf8_ascii
1348bool
1349Perl_is_utf8_ascii(pTHXo_ U8 *p)
1350{
1351    return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1352}
1353
1354#undef  Perl_is_utf8_space
1355bool
1356Perl_is_utf8_space(pTHXo_ U8 *p)
1357{
1358    return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1359}
1360
1361#undef  Perl_is_utf8_cntrl
1362bool
1363Perl_is_utf8_cntrl(pTHXo_ U8 *p)
1364{
1365    return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1366}
1367
1368#undef  Perl_is_utf8_digit
1369bool
1370Perl_is_utf8_digit(pTHXo_ U8 *p)
1371{
1372    return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1373}
1374
1375#undef  Perl_is_utf8_graph
1376bool
1377Perl_is_utf8_graph(pTHXo_ U8 *p)
1378{
1379    return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1380}
1381
1382#undef  Perl_is_utf8_upper
1383bool
1384Perl_is_utf8_upper(pTHXo_ U8 *p)
1385{
1386    return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1387}
1388
1389#undef  Perl_is_utf8_lower
1390bool
1391Perl_is_utf8_lower(pTHXo_ U8 *p)
1392{
1393    return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1394}
1395
1396#undef  Perl_is_utf8_print
1397bool
1398Perl_is_utf8_print(pTHXo_ U8 *p)
1399{
1400    return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1401}
1402
1403#undef  Perl_is_utf8_punct
1404bool
1405Perl_is_utf8_punct(pTHXo_ U8 *p)
1406{
1407    return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1408}
1409
1410#undef  Perl_is_utf8_xdigit
1411bool
1412Perl_is_utf8_xdigit(pTHXo_ U8 *p)
1413{
1414    return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1415}
1416
1417#undef  Perl_is_utf8_mark
1418bool
1419Perl_is_utf8_mark(pTHXo_ U8 *p)
1420{
1421    return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1422}
1423
1424#undef  Perl_leave_scope
1425void
1426Perl_leave_scope(pTHXo_ I32 base)
1427{
1428    ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1429}
1430
1431#undef  Perl_load_module
1432void
1433Perl_load_module(pTHXo_ U32 flags, SV* name, SV* ver, ...)
1434{
1435    va_list args;
1436    va_start(args, ver);
1437    ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args);
1438    va_end(args);
1439}
1440
1441#undef  Perl_vload_module
1442void
1443Perl_vload_module(pTHXo_ U32 flags, SV* name, SV* ver, va_list* args)
1444{
1445    ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, args);
1446}
1447
1448#undef  Perl_looks_like_number
1449I32
1450Perl_looks_like_number(pTHXo_ SV* sv)
1451{
1452    return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1453}
1454#if defined(USE_THREADS)
1455#endif
1456#if defined(USE_LOCALE_COLLATE)
1457#endif
1458
1459#undef  Perl_markstack_grow
1460void
1461Perl_markstack_grow(pTHXo)
1462{
1463    ((CPerlObj*)pPerl)->Perl_markstack_grow();
1464}
1465#if defined(USE_LOCALE_COLLATE)
1466#endif
1467
1468#undef  Perl_mess
1469SV*
1470Perl_mess(pTHXo_ const char* pat, ...)
1471{
1472    SV* retval;
1473    va_list args;
1474    va_start(args, pat);
1475    retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
1476    va_end(args);
1477    return retval;
1478
1479}
1480
1481#undef  Perl_vmess
1482SV*
1483Perl_vmess(pTHXo_ const char* pat, va_list* args)
1484{
1485    return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
1486}
1487
1488#undef  Perl_mg_clear
1489int
1490Perl_mg_clear(pTHXo_ SV* sv)
1491{
1492    return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
1493}
1494
1495#undef  Perl_mg_copy
1496int
1497Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen)
1498{
1499    return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
1500}
1501
1502#undef  Perl_mg_find
1503MAGIC*
1504Perl_mg_find(pTHXo_ SV* sv, int type)
1505{
1506    return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
1507}
1508
1509#undef  Perl_mg_free
1510int
1511Perl_mg_free(pTHXo_ SV* sv)
1512{
1513    return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
1514}
1515
1516#undef  Perl_mg_get
1517int
1518Perl_mg_get(pTHXo_ SV* sv)
1519{
1520    return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
1521}
1522
1523#undef  Perl_mg_length
1524U32
1525Perl_mg_length(pTHXo_ SV* sv)
1526{
1527    return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
1528}
1529
1530#undef  Perl_mg_magical
1531void
1532Perl_mg_magical(pTHXo_ SV* sv)
1533{
1534    ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
1535}
1536
1537#undef  Perl_mg_set
1538int
1539Perl_mg_set(pTHXo_ SV* sv)
1540{
1541    return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
1542}
1543
1544#undef  Perl_mg_size
1545I32
1546Perl_mg_size(pTHXo_ SV* sv)
1547{
1548    return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
1549}
1550
1551#undef  Perl_moreswitches
1552char*
1553Perl_moreswitches(pTHXo_ char* s)
1554{
1555    return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
1556}
1557
1558#undef  Perl_my_atof
1559NV
1560Perl_my_atof(pTHXo_ const char *s)
1561{
1562    return ((CPerlObj*)pPerl)->Perl_my_atof(s);
1563}
1564#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
1565
1566#undef  Perl_my_bcopy
1567char*
1568Perl_my_bcopy(const char* from, char* to, I32 len)
1569{
1570    dTHXo;
1571    return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
1572}
1573#endif
1574#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1575
1576#undef  Perl_my_bzero
1577char*
1578Perl_my_bzero(char* loc, I32 len)
1579{
1580    dTHXo;
1581    return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
1582}
1583#endif
1584
1585#undef  Perl_my_exit
1586void
1587Perl_my_exit(pTHXo_ U32 status)
1588{
1589    ((CPerlObj*)pPerl)->Perl_my_exit(status);
1590}
1591
1592#undef  Perl_my_failure_exit
1593void
1594Perl_my_failure_exit(pTHXo)
1595{
1596    ((CPerlObj*)pPerl)->Perl_my_failure_exit();
1597}
1598
1599#undef  Perl_my_fflush_all
1600I32
1601Perl_my_fflush_all(pTHXo)
1602{
1603    return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
1604}
1605
1606#undef  Perl_my_lstat
1607I32
1608Perl_my_lstat(pTHXo)
1609{
1610    return ((CPerlObj*)pPerl)->Perl_my_lstat();
1611}
1612#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1613
1614#undef  Perl_my_memcmp
1615I32
1616Perl_my_memcmp(const char* s1, const char* s2, I32 len)
1617{
1618    dTHXo;
1619    return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
1620}
1621#endif
1622#if !defined(HAS_MEMSET)
1623
1624#undef  Perl_my_memset
1625void*
1626Perl_my_memset(char* loc, I32 ch, I32 len)
1627{
1628    dTHXo;
1629    return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
1630}
1631#endif
1632#if !defined(PERL_OBJECT)
1633
1634#undef  Perl_my_pclose
1635I32
1636Perl_my_pclose(pTHXo_ PerlIO* ptr)
1637{
1638    return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
1639}
1640
1641#undef  Perl_my_popen
1642PerlIO*
1643Perl_my_popen(pTHXo_ char* cmd, char* mode)
1644{
1645    return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
1646}
1647#endif
1648
1649#undef  Perl_my_setenv
1650void
1651Perl_my_setenv(pTHXo_ char* nam, char* val)
1652{
1653    ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
1654}
1655
1656#undef  Perl_my_stat
1657I32
1658Perl_my_stat(pTHXo)
1659{
1660    return ((CPerlObj*)pPerl)->Perl_my_stat();
1661}
1662#if defined(MYSWAP)
1663
1664#undef  Perl_my_swap
1665short
1666Perl_my_swap(pTHXo_ short s)
1667{
1668    return ((CPerlObj*)pPerl)->Perl_my_swap(s);
1669}
1670
1671#undef  Perl_my_htonl
1672long
1673Perl_my_htonl(pTHXo_ long l)
1674{
1675    return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
1676}
1677
1678#undef  Perl_my_ntohl
1679long
1680Perl_my_ntohl(pTHXo_ long l)
1681{
1682    return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
1683}
1684#endif
1685
1686#undef  Perl_newANONLIST
1687OP*
1688Perl_newANONLIST(pTHXo_ OP* o)
1689{
1690    return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
1691}
1692
1693#undef  Perl_newANONHASH
1694OP*
1695Perl_newANONHASH(pTHXo_ OP* o)
1696{
1697    return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
1698}
1699
1700#undef  Perl_newANONSUB
1701OP*
1702Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
1703{
1704    return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
1705}
1706
1707#undef  Perl_newASSIGNOP
1708OP*
1709Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
1710{
1711    return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
1712}
1713
1714#undef  Perl_newCONDOP
1715OP*
1716Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
1717{
1718    return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
1719}
1720
1721#undef  Perl_newCONSTSUB
1722void
1723Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
1724{
1725    ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
1726}
1727
1728#undef  Perl_newFORM
1729void
1730Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
1731{
1732    ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
1733}
1734
1735#undef  Perl_newFOROP
1736OP*
1737Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
1738{
1739    return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
1740}
1741
1742#undef  Perl_newLOGOP
1743OP*
1744Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
1745{
1746    return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
1747}
1748
1749#undef  Perl_newLOOPEX
1750OP*
1751Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
1752{
1753    return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
1754}
1755
1756#undef  Perl_newLOOPOP
1757OP*
1758Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
1759{
1760    return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
1761}
1762
1763#undef  Perl_newNULLLIST
1764OP*
1765Perl_newNULLLIST(pTHXo)
1766{
1767    return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
1768}
1769
1770#undef  Perl_newOP
1771OP*
1772Perl_newOP(pTHXo_ I32 optype, I32 flags)
1773{
1774    return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
1775}
1776
1777#undef  Perl_newPROG
1778void
1779Perl_newPROG(pTHXo_ OP* o)
1780{
1781    ((CPerlObj*)pPerl)->Perl_newPROG(o);
1782}
1783
1784#undef  Perl_newRANGE
1785OP*
1786Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
1787{
1788    return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
1789}
1790
1791#undef  Perl_newSLICEOP
1792OP*
1793Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
1794{
1795    return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
1796}
1797
1798#undef  Perl_newSTATEOP
1799OP*
1800Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
1801{
1802    return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
1803}
1804
1805#undef  Perl_newSUB
1806CV*
1807Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
1808{
1809    return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
1810}
1811
1812#undef  Perl_newXS
1813CV*
1814Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
1815{
1816    return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
1817}
1818
1819#undef  Perl_newAV
1820AV*
1821Perl_newAV(pTHXo)
1822{
1823    return ((CPerlObj*)pPerl)->Perl_newAV();
1824}
1825
1826#undef  Perl_newAVREF
1827OP*
1828Perl_newAVREF(pTHXo_ OP* o)
1829{
1830    return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
1831}
1832
1833#undef  Perl_newBINOP
1834OP*
1835Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
1836{
1837    return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
1838}
1839
1840#undef  Perl_newCVREF
1841OP*
1842Perl_newCVREF(pTHXo_ I32 flags, OP* o)
1843{
1844    return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
1845}
1846
1847#undef  Perl_newGVOP
1848OP*
1849Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
1850{
1851    return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
1852}
1853
1854#undef  Perl_newGVgen
1855GV*
1856Perl_newGVgen(pTHXo_ char* pack)
1857{
1858    return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
1859}
1860
1861#undef  Perl_newGVREF
1862OP*
1863Perl_newGVREF(pTHXo_ I32 type, OP* o)
1864{
1865    return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
1866}
1867
1868#undef  Perl_newHVREF
1869OP*
1870Perl_newHVREF(pTHXo_ OP* o)
1871{
1872    return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
1873}
1874
1875#undef  Perl_newHV
1876HV*
1877Perl_newHV(pTHXo)
1878{
1879    return ((CPerlObj*)pPerl)->Perl_newHV();
1880}
1881
1882#undef  Perl_newHVhv
1883HV*
1884Perl_newHVhv(pTHXo_ HV* hv)
1885{
1886    return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
1887}
1888
1889#undef  Perl_newIO
1890IO*
1891Perl_newIO(pTHXo)
1892{
1893    return ((CPerlObj*)pPerl)->Perl_newIO();
1894}
1895
1896#undef  Perl_newLISTOP
1897OP*
1898Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
1899{
1900    return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
1901}
1902
1903#undef  Perl_newPADOP
1904OP*
1905Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
1906{
1907    return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
1908}
1909
1910#undef  Perl_newPMOP
1911OP*
1912Perl_newPMOP(pTHXo_ I32 type, I32 flags)
1913{
1914    return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
1915}
1916
1917#undef  Perl_newPVOP
1918OP*
1919Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
1920{
1921    return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
1922}
1923
1924#undef  Perl_newRV
1925SV*
1926Perl_newRV(pTHXo_ SV* pref)
1927{
1928    return ((CPerlObj*)pPerl)->Perl_newRV(pref);
1929}
1930
1931#undef  Perl_newRV_noinc
1932SV*
1933Perl_newRV_noinc(pTHXo_ SV *sv)
1934{
1935    return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
1936}
1937
1938#undef  Perl_newSV
1939SV*
1940Perl_newSV(pTHXo_ STRLEN len)
1941{
1942    return ((CPerlObj*)pPerl)->Perl_newSV(len);
1943}
1944
1945#undef  Perl_newSVREF
1946OP*
1947Perl_newSVREF(pTHXo_ OP* o)
1948{
1949    return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
1950}
1951
1952#undef  Perl_newSVOP
1953OP*
1954Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
1955{
1956    return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
1957}
1958
1959#undef  Perl_newSViv
1960SV*
1961Perl_newSViv(pTHXo_ IV i)
1962{
1963    return ((CPerlObj*)pPerl)->Perl_newSViv(i);
1964}
1965
1966#undef  Perl_newSVuv
1967SV*
1968Perl_newSVuv(pTHXo_ UV u)
1969{
1970    return ((CPerlObj*)pPerl)->Perl_newSVuv(u);
1971}
1972
1973#undef  Perl_newSVnv
1974SV*
1975Perl_newSVnv(pTHXo_ NV n)
1976{
1977    return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
1978}
1979
1980#undef  Perl_newSVpv
1981SV*
1982Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
1983{
1984    return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
1985}
1986
1987#undef  Perl_newSVpvn
1988SV*
1989Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
1990{
1991    return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
1992}
1993
1994#undef  Perl_newSVpvf
1995SV*
1996Perl_newSVpvf(pTHXo_ const char* pat, ...)
1997{
1998    SV* retval;
1999    va_list args;
2000    va_start(args, pat);
2001    retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
2002    va_end(args);
2003    return retval;
2004
2005}
2006
2007#undef  Perl_vnewSVpvf
2008SV*
2009Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
2010{
2011    return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
2012}
2013
2014#undef  Perl_newSVrv
2015SV*
2016Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
2017{
2018    return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2019}
2020
2021#undef  Perl_newSVsv
2022SV*
2023Perl_newSVsv(pTHXo_ SV* old)
2024{
2025    return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2026}
2027
2028#undef  Perl_newUNOP
2029OP*
2030Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
2031{
2032    return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2033}
2034
2035#undef  Perl_newWHILEOP
2036OP*
2037Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2038{
2039    return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2040}
2041
2042#undef  Perl_new_stackinfo
2043PERL_SI*
2044Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
2045{
2046    return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2047}
2048
2049#undef  Perl_ninstr
2050char*
2051Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2052{
2053    return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2054}
2055
2056#undef  Perl_op_free
2057void
2058Perl_op_free(pTHXo_ OP* arg)
2059{
2060    ((CPerlObj*)pPerl)->Perl_op_free(arg);
2061}
2062
2063#undef  Perl_pad_sv
2064SV*
2065Perl_pad_sv(pTHXo_ PADOFFSET po)
2066{
2067    return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2068}
2069#if defined(PERL_OBJECT)
2070
2071#undef  Perl_construct
2072void
2073Perl_construct(pTHXo)
2074{
2075    ((CPerlObj*)pPerl)->Perl_construct();
2076}
2077
2078#undef  Perl_destruct
2079void
2080Perl_destruct(pTHXo)
2081{
2082    ((CPerlObj*)pPerl)->Perl_destruct();
2083}
2084
2085#undef  Perl_free
2086void
2087Perl_free(pTHXo)
2088{
2089    ((CPerlObj*)pPerl)->Perl_free();
2090}
2091
2092#undef  Perl_run
2093int
2094Perl_run(pTHXo)
2095{
2096    return ((CPerlObj*)pPerl)->Perl_run();
2097}
2098
2099#undef  Perl_parse
2100int
2101Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2102{
2103    return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2104}
2105#endif
2106#if defined(USE_THREADS)
2107
2108#undef  Perl_new_struct_thread
2109struct perl_thread*
2110Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2111{
2112    return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2113}
2114#endif
2115
2116#undef  Perl_call_atexit
2117void
2118Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2119{
2120    ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2121}
2122
2123#undef  Perl_call_argv
2124I32
2125Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2126{
2127    return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2128}
2129
2130#undef  Perl_call_method
2131I32
2132Perl_call_method(pTHXo_ const char* methname, I32 flags)
2133{
2134    return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2135}
2136
2137#undef  Perl_call_pv
2138I32
2139Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2140{
2141    return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2142}
2143
2144#undef  Perl_call_sv
2145I32
2146Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2147{
2148    return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2149}
2150
2151#undef  Perl_eval_pv
2152SV*
2153Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2154{
2155    return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2156}
2157
2158#undef  Perl_eval_sv
2159I32
2160Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2161{
2162    return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2163}
2164
2165#undef  Perl_get_sv
2166SV*
2167Perl_get_sv(pTHXo_ const char* name, I32 create)
2168{
2169    return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2170}
2171
2172#undef  Perl_get_av
2173AV*
2174Perl_get_av(pTHXo_ const char* name, I32 create)
2175{
2176    return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2177}
2178
2179#undef  Perl_get_hv
2180HV*
2181Perl_get_hv(pTHXo_ const char* name, I32 create)
2182{
2183    return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
2184}
2185
2186#undef  Perl_get_cv
2187CV*
2188Perl_get_cv(pTHXo_ const char* name, I32 create)
2189{
2190    return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
2191}
2192
2193#undef  Perl_init_i18nl10n
2194int
2195Perl_init_i18nl10n(pTHXo_ int printwarn)
2196{
2197    return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2198}
2199
2200#undef  Perl_init_i18nl14n
2201int
2202Perl_init_i18nl14n(pTHXo_ int printwarn)
2203{
2204    return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2205}
2206
2207#undef  Perl_new_collate
2208void
2209Perl_new_collate(pTHXo_ const char* newcoll)
2210{
2211    ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2212}
2213
2214#undef  Perl_new_ctype
2215void
2216Perl_new_ctype(pTHXo_ const char* newctype)
2217{
2218    ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2219}
2220
2221#undef  Perl_new_numeric
2222void
2223Perl_new_numeric(pTHXo_ const char* newcoll)
2224{
2225    ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2226}
2227
2228#undef  Perl_set_numeric_local
2229void
2230Perl_set_numeric_local(pTHXo)
2231{
2232    ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2233}
2234
2235#undef  Perl_set_numeric_radix
2236void
2237Perl_set_numeric_radix(pTHXo)
2238{
2239    ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2240}
2241
2242#undef  Perl_set_numeric_standard
2243void
2244Perl_set_numeric_standard(pTHXo)
2245{
2246    ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2247}
2248
2249#undef  Perl_require_pv
2250void
2251Perl_require_pv(pTHXo_ const char* pv)
2252{
2253    ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2254}
2255
2256#undef  Perl_pmflag
2257void
2258Perl_pmflag(pTHXo_ U16* pmfl, int ch)
2259{
2260    ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2261}
2262
2263#undef  Perl_pop_scope
2264void
2265Perl_pop_scope(pTHXo)
2266{
2267    ((CPerlObj*)pPerl)->Perl_pop_scope();
2268}
2269
2270#undef  Perl_push_scope
2271void
2272Perl_push_scope(pTHXo)
2273{
2274    ((CPerlObj*)pPerl)->Perl_push_scope();
2275}
2276
2277#undef  Perl_regdump
2278void
2279Perl_regdump(pTHXo_ regexp* r)
2280{
2281    ((CPerlObj*)pPerl)->Perl_regdump(r);
2282}
2283
2284#undef  Perl_pregexec
2285I32
2286Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2287{
2288    return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
2289}
2290
2291#undef  Perl_pregfree
2292void
2293Perl_pregfree(pTHXo_ struct regexp* r)
2294{
2295    ((CPerlObj*)pPerl)->Perl_pregfree(r);
2296}
2297
2298#undef  Perl_pregcomp
2299regexp*
2300Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
2301{
2302    return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
2303}
2304
2305#undef  Perl_re_intuit_start
2306char*
2307Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
2308{
2309    return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
2310}
2311
2312#undef  Perl_re_intuit_string
2313SV*
2314Perl_re_intuit_string(pTHXo_ regexp* prog)
2315{
2316    return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2317}
2318
2319#undef  Perl_regexec_flags
2320I32
2321Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
2322{
2323    return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
2324}
2325
2326#undef  Perl_regnext
2327regnode*
2328Perl_regnext(pTHXo_ regnode* p)
2329{
2330    return ((CPerlObj*)pPerl)->Perl_regnext(p);
2331}
2332
2333#undef  Perl_repeatcpy
2334void
2335Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
2336{
2337    ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
2338}
2339
2340#undef  Perl_rninstr
2341char*
2342Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2343{
2344    return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
2345}
2346#if !defined(HAS_RENAME)
2347#endif
2348
2349#undef  Perl_savepv
2350char*
2351Perl_savepv(pTHXo_ const char* sv)
2352{
2353    return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2354}
2355
2356#undef  Perl_savepvn
2357char*
2358Perl_savepvn(pTHXo_ const char* sv, I32 len)
2359{
2360    return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2361}
2362
2363#undef  Perl_savestack_grow
2364void
2365Perl_savestack_grow(pTHXo)
2366{
2367    ((CPerlObj*)pPerl)->Perl_savestack_grow();
2368}
2369
2370#undef  Perl_save_aelem
2371void
2372Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
2373{
2374    ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
2375}
2376
2377#undef  Perl_save_alloc
2378I32
2379Perl_save_alloc(pTHXo_ I32 size, I32 pad)
2380{
2381    return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
2382}
2383
2384#undef  Perl_save_aptr
2385void
2386Perl_save_aptr(pTHXo_ AV** aptr)
2387{
2388    ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
2389}
2390
2391#undef  Perl_save_ary
2392AV*
2393Perl_save_ary(pTHXo_ GV* gv)
2394{
2395    return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
2396}
2397
2398#undef  Perl_save_clearsv
2399void
2400Perl_save_clearsv(pTHXo_ SV** svp)
2401{
2402    ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
2403}
2404
2405#undef  Perl_save_delete
2406void
2407Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
2408{
2409    ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
2410}
2411
2412#undef  Perl_save_destructor
2413void
2414Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
2415{
2416    ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
2417}
2418
2419#undef  Perl_save_destructor_x
2420void
2421Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
2422{
2423    ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
2424}
2425
2426#undef  Perl_save_freesv
2427void
2428Perl_save_freesv(pTHXo_ SV* sv)
2429{
2430    ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
2431}
2432
2433#undef  Perl_save_freepv
2434void
2435Perl_save_freepv(pTHXo_ char* pv)
2436{
2437    ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
2438}
2439
2440#undef  Perl_save_generic_svref
2441void
2442Perl_save_generic_svref(pTHXo_ SV** sptr)
2443{
2444    ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
2445}
2446
2447#undef  Perl_save_gp
2448void
2449Perl_save_gp(pTHXo_ GV* gv, I32 empty)
2450{
2451    ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
2452}
2453
2454#undef  Perl_save_hash
2455HV*
2456Perl_save_hash(pTHXo_ GV* gv)
2457{
2458    return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
2459}
2460
2461#undef  Perl_save_helem
2462void
2463Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
2464{
2465    ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
2466}
2467
2468#undef  Perl_save_hints
2469void
2470Perl_save_hints(pTHXo)
2471{
2472    ((CPerlObj*)pPerl)->Perl_save_hints();
2473}
2474
2475#undef  Perl_save_hptr
2476void
2477Perl_save_hptr(pTHXo_ HV** hptr)
2478{
2479    ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
2480}
2481
2482#undef  Perl_save_I16
2483void
2484Perl_save_I16(pTHXo_ I16* intp)
2485{
2486    ((CPerlObj*)pPerl)->Perl_save_I16(intp);
2487}
2488
2489#undef  Perl_save_I32
2490void
2491Perl_save_I32(pTHXo_ I32* intp)
2492{
2493    ((CPerlObj*)pPerl)->Perl_save_I32(intp);
2494}
2495
2496#undef  Perl_save_I8
2497void
2498Perl_save_I8(pTHXo_ I8* bytep)
2499{
2500    ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
2501}
2502
2503#undef  Perl_save_int
2504void
2505Perl_save_int(pTHXo_ int* intp)
2506{
2507    ((CPerlObj*)pPerl)->Perl_save_int(intp);
2508}
2509
2510#undef  Perl_save_item
2511void
2512Perl_save_item(pTHXo_ SV* item)
2513{
2514    ((CPerlObj*)pPerl)->Perl_save_item(item);
2515}
2516
2517#undef  Perl_save_iv
2518void
2519Perl_save_iv(pTHXo_ IV* iv)
2520{
2521    ((CPerlObj*)pPerl)->Perl_save_iv(iv);
2522}
2523
2524#undef  Perl_save_list
2525void
2526Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
2527{
2528    ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
2529}
2530
2531#undef  Perl_save_long
2532void
2533Perl_save_long(pTHXo_ long* longp)
2534{
2535    ((CPerlObj*)pPerl)->Perl_save_long(longp);
2536}
2537
2538#undef  Perl_save_nogv
2539void
2540Perl_save_nogv(pTHXo_ GV* gv)
2541{
2542    ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
2543}
2544
2545#undef  Perl_save_scalar
2546SV*
2547Perl_save_scalar(pTHXo_ GV* gv)
2548{
2549    return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
2550}
2551
2552#undef  Perl_save_pptr
2553void
2554Perl_save_pptr(pTHXo_ char** pptr)
2555{
2556    ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
2557}
2558
2559#undef  Perl_save_vptr
2560void
2561Perl_save_vptr(pTHXo_ void* pptr)
2562{
2563    ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
2564}
2565
2566#undef  Perl_save_re_context
2567void
2568Perl_save_re_context(pTHXo)
2569{
2570    ((CPerlObj*)pPerl)->Perl_save_re_context();
2571}
2572
2573#undef  Perl_save_sptr
2574void
2575Perl_save_sptr(pTHXo_ SV** sptr)
2576{
2577    ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
2578}
2579
2580#undef  Perl_save_svref
2581SV*
2582Perl_save_svref(pTHXo_ SV** sptr)
2583{
2584    return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
2585}
2586
2587#undef  Perl_save_threadsv
2588SV**
2589Perl_save_threadsv(pTHXo_ PADOFFSET i)
2590{
2591    return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
2592}
2593
2594#undef  Perl_scan_bin
2595NV
2596Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
2597{
2598    return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
2599}
2600
2601#undef  Perl_scan_hex
2602NV
2603Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
2604{
2605    return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
2606}
2607
2608#undef  Perl_scan_num
2609char*
2610Perl_scan_num(pTHXo_ char* s)
2611{
2612    return ((CPerlObj*)pPerl)->Perl_scan_num(s);
2613}
2614
2615#undef  Perl_scan_oct
2616NV
2617Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
2618{
2619    return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
2620}
2621
2622#undef  Perl_screaminstr
2623char*
2624Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
2625{
2626    return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
2627}
2628#if !defined(VMS)
2629#endif
2630
2631#undef  Perl_sharepvn
2632char*
2633Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
2634{
2635    return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
2636}
2637
2638#undef  Perl_stack_grow
2639SV**
2640Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
2641{
2642    return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
2643}
2644
2645#undef  Perl_start_subparse
2646I32
2647Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
2648{
2649    return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
2650}
2651
2652#undef  Perl_sv_2bool
2653bool
2654Perl_sv_2bool(pTHXo_ SV* sv)
2655{
2656    return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
2657}
2658
2659#undef  Perl_sv_2cv
2660CV*
2661Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
2662{
2663    return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
2664}
2665
2666#undef  Perl_sv_2io
2667IO*
2668Perl_sv_2io(pTHXo_ SV* sv)
2669{
2670    return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
2671}
2672
2673#undef  Perl_sv_2iv
2674IV
2675Perl_sv_2iv(pTHXo_ SV* sv)
2676{
2677    return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
2678}
2679
2680#undef  Perl_sv_2mortal
2681SV*
2682Perl_sv_2mortal(pTHXo_ SV* sv)
2683{
2684    return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
2685}
2686
2687#undef  Perl_sv_2nv
2688NV
2689Perl_sv_2nv(pTHXo_ SV* sv)
2690{
2691    return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
2692}
2693
2694#undef  Perl_sv_2pv
2695char*
2696Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
2697{
2698    return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
2699}
2700
2701#undef  Perl_sv_2pvutf8
2702char*
2703Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp)
2704{
2705    return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp);
2706}
2707
2708#undef  Perl_sv_2pvbyte
2709char*
2710Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp)
2711{
2712    return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp);
2713}
2714
2715#undef  Perl_sv_2uv
2716UV
2717Perl_sv_2uv(pTHXo_ SV* sv)
2718{
2719    return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
2720}
2721
2722#undef  Perl_sv_iv
2723IV
2724Perl_sv_iv(pTHXo_ SV* sv)
2725{
2726    return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
2727}
2728
2729#undef  Perl_sv_uv
2730UV
2731Perl_sv_uv(pTHXo_ SV* sv)
2732{
2733    return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
2734}
2735
2736#undef  Perl_sv_nv
2737NV
2738Perl_sv_nv(pTHXo_ SV* sv)
2739{
2740    return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
2741}
2742
2743#undef  Perl_sv_pvn
2744char*
2745Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
2746{
2747    return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
2748}
2749
2750#undef  Perl_sv_pvutf8n
2751char*
2752Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len)
2753{
2754    return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len);
2755}
2756
2757#undef  Perl_sv_pvbyten
2758char*
2759Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len)
2760{
2761    return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len);
2762}
2763
2764#undef  Perl_sv_true
2765I32
2766Perl_sv_true(pTHXo_ SV *sv)
2767{
2768    return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
2769}
2770
2771#undef  Perl_sv_backoff
2772int
2773Perl_sv_backoff(pTHXo_ SV* sv)
2774{
2775    return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
2776}
2777
2778#undef  Perl_sv_bless
2779SV*
2780Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
2781{
2782    return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
2783}
2784
2785#undef  Perl_sv_catpvf
2786void
2787Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
2788{
2789    va_list args;
2790    va_start(args, pat);
2791    ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
2792    va_end(args);
2793}
2794
2795#undef  Perl_sv_vcatpvf
2796void
2797Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
2798{
2799    ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
2800}
2801
2802#undef  Perl_sv_catpv
2803void
2804Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
2805{
2806    ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
2807}
2808
2809#undef  Perl_sv_catpvn
2810void
2811Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
2812{
2813    ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
2814}
2815
2816#undef  Perl_sv_catsv
2817void
2818Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
2819{
2820    ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
2821}
2822
2823#undef  Perl_sv_chop
2824void
2825Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
2826{
2827    ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
2828}
2829
2830#undef  Perl_sv_clear
2831void
2832Perl_sv_clear(pTHXo_ SV* sv)
2833{
2834    ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
2835}
2836
2837#undef  Perl_sv_cmp
2838I32
2839Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
2840{
2841    return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
2842}
2843
2844#undef  Perl_sv_cmp_locale
2845I32
2846Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
2847{
2848    return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
2849}
2850#if defined(USE_LOCALE_COLLATE)
2851
2852#undef  Perl_sv_collxfrm
2853char*
2854Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
2855{
2856    return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
2857}
2858#endif
2859
2860#undef  Perl_sv_compile_2op
2861OP*
2862Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
2863{
2864    return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
2865}
2866
2867#undef  Perl_sv_dec
2868void
2869Perl_sv_dec(pTHXo_ SV* sv)
2870{
2871    ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
2872}
2873
2874#undef  Perl_sv_dump
2875void
2876Perl_sv_dump(pTHXo_ SV* sv)
2877{
2878    ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
2879}
2880
2881#undef  Perl_sv_derived_from
2882bool
2883Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
2884{
2885    return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
2886}
2887
2888#undef  Perl_sv_eq
2889I32
2890Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
2891{
2892    return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
2893}
2894
2895#undef  Perl_sv_free
2896void
2897Perl_sv_free(pTHXo_ SV* sv)
2898{
2899    ((CPerlObj*)pPerl)->Perl_sv_free(sv);
2900}
2901
2902#undef  Perl_sv_gets
2903char*
2904Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
2905{
2906    return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
2907}
2908
2909#undef  Perl_sv_grow
2910char*
2911Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
2912{
2913    return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
2914}
2915
2916#undef  Perl_sv_inc
2917void
2918Perl_sv_inc(pTHXo_ SV* sv)
2919{
2920    ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
2921}
2922
2923#undef  Perl_sv_insert
2924void
2925Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
2926{
2927    ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
2928}
2929
2930#undef  Perl_sv_isa
2931int
2932Perl_sv_isa(pTHXo_ SV* sv, const char* name)
2933{
2934    return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
2935}
2936
2937#undef  Perl_sv_isobject
2938int
2939Perl_sv_isobject(pTHXo_ SV* sv)
2940{
2941    return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
2942}
2943
2944#undef  Perl_sv_len
2945STRLEN
2946Perl_sv_len(pTHXo_ SV* sv)
2947{
2948    return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
2949}
2950
2951#undef  Perl_sv_len_utf8
2952STRLEN
2953Perl_sv_len_utf8(pTHXo_ SV* sv)
2954{
2955    return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
2956}
2957
2958#undef  Perl_sv_magic
2959void
2960Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
2961{
2962    ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
2963}
2964
2965#undef  Perl_sv_mortalcopy
2966SV*
2967Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
2968{
2969    return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
2970}
2971
2972#undef  Perl_sv_newmortal
2973SV*
2974Perl_sv_newmortal(pTHXo)
2975{
2976    return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
2977}
2978
2979#undef  Perl_sv_newref
2980SV*
2981Perl_sv_newref(pTHXo_ SV* sv)
2982{
2983    return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
2984}
2985
2986#undef  Perl_sv_peek
2987char*
2988Perl_sv_peek(pTHXo_ SV* sv)
2989{
2990    return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
2991}
2992
2993#undef  Perl_sv_pos_u2b
2994void
2995Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
2996{
2997    ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
2998}
2999
3000#undef  Perl_sv_pos_b2u
3001void
3002Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
3003{
3004    ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
3005}
3006
3007#undef  Perl_sv_pvn_force
3008char*
3009Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
3010{
3011    return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
3012}
3013
3014#undef  Perl_sv_pvutf8n_force
3015char*
3016Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp)
3017{
3018    return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp);
3019}
3020
3021#undef  Perl_sv_pvbyten_force
3022char*
3023Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp)
3024{
3025    return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
3026}
3027
3028#undef  Perl_sv_reftype
3029char*
3030Perl_sv_reftype(pTHXo_ SV* sv, int ob)
3031{
3032    return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
3033}
3034
3035#undef  Perl_sv_replace
3036void
3037Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
3038{
3039    ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
3040}
3041
3042#undef  Perl_sv_report_used
3043void
3044Perl_sv_report_used(pTHXo)
3045{
3046    ((CPerlObj*)pPerl)->Perl_sv_report_used();
3047}
3048
3049#undef  Perl_sv_reset
3050void
3051Perl_sv_reset(pTHXo_ char* s, HV* stash)
3052{
3053    ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
3054}
3055
3056#undef  Perl_sv_setpvf
3057void
3058Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
3059{
3060    va_list args;
3061    va_start(args, pat);
3062    ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
3063    va_end(args);
3064}
3065
3066#undef  Perl_sv_vsetpvf
3067void
3068Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3069{
3070    ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
3071}
3072
3073#undef  Perl_sv_setiv
3074void
3075Perl_sv_setiv(pTHXo_ SV* sv, IV num)
3076{
3077    ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3078}
3079
3080#undef  Perl_sv_setpviv
3081void
3082Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
3083{
3084    ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3085}
3086
3087#undef  Perl_sv_setuv
3088void
3089Perl_sv_setuv(pTHXo_ SV* sv, UV num)
3090{
3091    ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3092}
3093
3094#undef  Perl_sv_setnv
3095void
3096Perl_sv_setnv(pTHXo_ SV* sv, NV num)
3097{
3098    ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
3099}
3100
3101#undef  Perl_sv_setref_iv
3102SV*
3103Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
3104{
3105    return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
3106}
3107
3108#undef  Perl_sv_setref_nv
3109SV*
3110Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
3111{
3112    return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
3113}
3114
3115#undef  Perl_sv_setref_pv
3116SV*
3117Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
3118{
3119    return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
3120}
3121
3122#undef  Perl_sv_setref_pvn
3123SV*
3124Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
3125{
3126    return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
3127}
3128
3129#undef  Perl_sv_setpv
3130void
3131Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
3132{
3133    ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
3134}
3135
3136#undef  Perl_sv_setpvn
3137void
3138Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3139{
3140    ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
3141}
3142
3143#undef  Perl_sv_setsv
3144void
3145Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
3146{
3147    ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3148}
3149
3150#undef  Perl_sv_taint
3151void
3152Perl_sv_taint(pTHXo_ SV* sv)
3153{
3154    ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3155}
3156
3157#undef  Perl_sv_tainted
3158bool
3159Perl_sv_tainted(pTHXo_ SV* sv)
3160{
3161    return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3162}
3163
3164#undef  Perl_sv_unmagic
3165int
3166Perl_sv_unmagic(pTHXo_ SV* sv, int type)
3167{
3168    return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
3169}
3170
3171#undef  Perl_sv_unref
3172void
3173Perl_sv_unref(pTHXo_ SV* sv)
3174{
3175    ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3176}
3177
3178#undef  Perl_sv_untaint
3179void
3180Perl_sv_untaint(pTHXo_ SV* sv)
3181{
3182    ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3183}
3184
3185#undef  Perl_sv_upgrade
3186bool
3187Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
3188{
3189    return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
3190}
3191
3192#undef  Perl_sv_usepvn
3193void
3194Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
3195{
3196    ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
3197}
3198
3199#undef  Perl_sv_vcatpvfn
3200void
3201Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3202{
3203    ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3204}
3205
3206#undef  Perl_sv_vsetpvfn
3207void
3208Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3209{
3210    ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3211}
3212
3213#undef  Perl_str_to_version
3214NV
3215Perl_str_to_version(pTHXo_ SV *sv)
3216{
3217    return ((CPerlObj*)pPerl)->Perl_str_to_version(sv);
3218}
3219
3220#undef  Perl_swash_init
3221SV*
3222Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
3223{
3224    return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
3225}
3226
3227#undef  Perl_swash_fetch
3228UV
3229Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
3230{
3231    return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
3232}
3233
3234#undef  Perl_taint_env
3235void
3236Perl_taint_env(pTHXo)
3237{
3238    ((CPerlObj*)pPerl)->Perl_taint_env();
3239}
3240
3241#undef  Perl_taint_proper
3242void
3243Perl_taint_proper(pTHXo_ const char* f, const char* s)
3244{
3245    ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
3246}
3247
3248#undef  Perl_to_utf8_lower
3249UV
3250Perl_to_utf8_lower(pTHXo_ U8 *p)
3251{
3252    return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
3253}
3254
3255#undef  Perl_to_utf8_upper
3256UV
3257Perl_to_utf8_upper(pTHXo_ U8 *p)
3258{
3259    return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
3260}
3261
3262#undef  Perl_to_utf8_title
3263UV
3264Perl_to_utf8_title(pTHXo_ U8 *p)
3265{
3266    return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
3267}
3268#if defined(UNLINK_ALL_VERSIONS)
3269
3270#undef  Perl_unlnk
3271I32
3272Perl_unlnk(pTHXo_ char* f)
3273{
3274    return ((CPerlObj*)pPerl)->Perl_unlnk(f);
3275}
3276#endif
3277#if defined(USE_THREADS)
3278
3279#undef  Perl_unlock_condpair
3280void
3281Perl_unlock_condpair(pTHXo_ void* svv)
3282{
3283    ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3284}
3285#endif
3286
3287#undef  Perl_unsharepvn
3288void
3289Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3290{
3291    ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
3292}
3293
3294#undef  Perl_utf16_to_utf8
3295U8*
3296Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
3297{
3298    return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
3299}
3300
3301#undef  Perl_utf16_to_utf8_reversed
3302U8*
3303Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
3304{
3305    return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
3306}
3307
3308#undef  Perl_utf8_distance
3309I32
3310Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
3311{
3312    return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
3313}
3314
3315#undef  Perl_utf8_hop
3316U8*
3317Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
3318{
3319    return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
3320}
3321
3322#undef  Perl_utf8_to_uv
3323UV
3324Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
3325{
3326    return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
3327}
3328
3329#undef  Perl_uv_to_utf8
3330U8*
3331Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
3332{
3333    return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
3334}
3335
3336#undef  Perl_warn
3337void
3338Perl_warn(pTHXo_ const char* pat, ...)
3339{
3340    va_list args;
3341    va_start(args, pat);
3342    ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
3343    va_end(args);
3344}
3345
3346#undef  Perl_vwarn
3347void
3348Perl_vwarn(pTHXo_ const char* pat, va_list* args)
3349{
3350    ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
3351}
3352
3353#undef  Perl_warner
3354void
3355Perl_warner(pTHXo_ U32 err, const char* pat, ...)
3356{
3357    va_list args;
3358    va_start(args, pat);
3359    ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
3360    va_end(args);
3361}
3362
3363#undef  Perl_vwarner
3364void
3365Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
3366{
3367    ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
3368}
3369#if defined(USE_PURE_BISON)
3370#else
3371#endif
3372#if defined(MYMALLOC)
3373
3374#undef  Perl_dump_mstats
3375void
3376Perl_dump_mstats(pTHXo_ char* s)
3377{
3378    ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
3379}
3380
3381#undef  Perl_get_mstats
3382int
3383Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level)
3384{
3385    return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level);
3386}
3387#endif
3388
3389#undef  Perl_safesysmalloc
3390Malloc_t
3391Perl_safesysmalloc(MEM_SIZE nbytes)
3392{
3393    dTHXo;
3394    return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
3395}
3396
3397#undef  Perl_safesyscalloc
3398Malloc_t
3399Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
3400{
3401    dTHXo;
3402    return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
3403}
3404
3405#undef  Perl_safesysrealloc
3406Malloc_t
3407Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
3408{
3409    dTHXo;
3410    return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
3411}
3412
3413#undef  Perl_safesysfree
3414Free_t
3415Perl_safesysfree(Malloc_t where)
3416{
3417    dTHXo;
3418    ((CPerlObj*)pPerl)->Perl_safesysfree(where);
3419}
3420#if defined(LEAKTEST)
3421
3422#undef  Perl_safexmalloc
3423Malloc_t
3424Perl_safexmalloc(I32 x, MEM_SIZE size)
3425{
3426    dTHXo;
3427    return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
3428}
3429
3430#undef  Perl_safexcalloc
3431Malloc_t
3432Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
3433{
3434    dTHXo;
3435    return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
3436}
3437
3438#undef  Perl_safexrealloc
3439Malloc_t
3440Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
3441{
3442    dTHXo;
3443    return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
3444}
3445
3446#undef  Perl_safexfree
3447void
3448Perl_safexfree(Malloc_t where)
3449{
3450    dTHXo;
3451    ((CPerlObj*)pPerl)->Perl_safexfree(where);
3452}
3453#endif
3454#if defined(PERL_GLOBAL_STRUCT)
3455
3456#undef  Perl_GetVars
3457struct perl_vars *
3458Perl_GetVars(pTHXo)
3459{
3460    return ((CPerlObj*)pPerl)->Perl_GetVars();
3461}
3462#endif
3463
3464#undef  Perl_runops_standard
3465int
3466Perl_runops_standard(pTHXo)
3467{
3468    return ((CPerlObj*)pPerl)->Perl_runops_standard();
3469}
3470
3471#undef  Perl_runops_debug
3472int
3473Perl_runops_debug(pTHXo)
3474{
3475    return ((CPerlObj*)pPerl)->Perl_runops_debug();
3476}
3477
3478#undef  Perl_sv_catpvf_mg
3479void
3480Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3481{
3482    va_list args;
3483    va_start(args, pat);
3484    ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
3485    va_end(args);
3486}
3487
3488#undef  Perl_sv_vcatpvf_mg
3489void
3490Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3491{
3492    ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
3493}
3494
3495#undef  Perl_sv_catpv_mg
3496void
3497Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
3498{
3499    ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
3500}
3501
3502#undef  Perl_sv_catpvn_mg
3503void
3504Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3505{
3506    ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
3507}
3508
3509#undef  Perl_sv_catsv_mg
3510void
3511Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
3512{
3513    ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
3514}
3515
3516#undef  Perl_sv_setpvf_mg
3517void
3518Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3519{
3520    va_list args;
3521    va_start(args, pat);
3522    ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
3523    va_end(args);
3524}
3525
3526#undef  Perl_sv_vsetpvf_mg
3527void
3528Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3529{
3530    ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
3531}
3532
3533#undef  Perl_sv_setiv_mg
3534void
3535Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
3536{
3537    ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
3538}
3539
3540#undef  Perl_sv_setpviv_mg
3541void
3542Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
3543{
3544    ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
3545}
3546
3547#undef  Perl_sv_setuv_mg
3548void
3549Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
3550{
3551    ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
3552}
3553
3554#undef  Perl_sv_setnv_mg
3555void
3556Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
3557{
3558    ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
3559}
3560
3561#undef  Perl_sv_setpv_mg
3562void
3563Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
3564{
3565    ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
3566}
3567
3568#undef  Perl_sv_setpvn_mg
3569void
3570Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3571{
3572    ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
3573}
3574
3575#undef  Perl_sv_setsv_mg
3576void
3577Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
3578{
3579    ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
3580}
3581
3582#undef  Perl_sv_usepvn_mg
3583void
3584Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
3585{
3586    ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
3587}
3588
3589#undef  Perl_get_vtbl
3590MGVTBL*
3591Perl_get_vtbl(pTHXo_ int vtbl_id)
3592{
3593    return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
3594}
3595
3596#undef  Perl_dump_indent
3597void
3598Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
3599{
3600    va_list args;
3601    va_start(args, pat);
3602    ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
3603    va_end(args);
3604}
3605
3606#undef  Perl_dump_vindent
3607void
3608Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
3609{
3610    ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
3611}
3612
3613#undef  Perl_do_gv_dump
3614void
3615Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3616{
3617    ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
3618}
3619
3620#undef  Perl_do_gvgv_dump
3621void
3622Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3623{
3624    ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
3625}
3626
3627#undef  Perl_do_hv_dump
3628void
3629Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
3630{
3631    ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
3632}
3633
3634#undef  Perl_do_magic_dump
3635void
3636Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3637{
3638    ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
3639}
3640
3641#undef  Perl_do_op_dump
3642void
3643Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
3644{
3645    ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
3646}
3647
3648#undef  Perl_do_pmop_dump
3649void
3650Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
3651{
3652    ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
3653}
3654
3655#undef  Perl_do_sv_dump
3656void
3657Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3658{
3659    ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
3660}
3661
3662#undef  Perl_magic_dump
3663void
3664Perl_magic_dump(pTHXo_ MAGIC *mg)
3665{
3666    ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
3667}
3668#if defined(PERL_FLEXIBLE_EXCEPTIONS)
3669
3670#undef  Perl_default_protect
3671void*
3672Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
3673{
3674    void* retval;
3675    va_list args;
3676    va_start(args, body);
3677    retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
3678    va_end(args);
3679    return retval;
3680
3681}
3682
3683#undef  Perl_vdefault_protect
3684void*
3685Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
3686{
3687    return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
3688}
3689#endif
3690
3691#undef  Perl_reginitcolors
3692void
3693Perl_reginitcolors(pTHXo)
3694{
3695    ((CPerlObj*)pPerl)->Perl_reginitcolors();
3696}
3697
3698#undef  Perl_sv_2pv_nolen
3699char*
3700Perl_sv_2pv_nolen(pTHXo_ SV* sv)
3701{
3702    return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
3703}
3704
3705#undef  Perl_sv_2pvutf8_nolen
3706char*
3707Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv)
3708{
3709    return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv);
3710}
3711
3712#undef  Perl_sv_2pvbyte_nolen
3713char*
3714Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv)
3715{
3716    return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv);
3717}
3718
3719#undef  Perl_sv_pv
3720char*
3721Perl_sv_pv(pTHXo_ SV *sv)
3722{
3723    return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
3724}
3725
3726#undef  Perl_sv_pvutf8
3727char*
3728Perl_sv_pvutf8(pTHXo_ SV *sv)
3729{
3730    return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv);
3731}
3732
3733#undef  Perl_sv_pvbyte
3734char*
3735Perl_sv_pvbyte(pTHXo_ SV *sv)
3736{
3737    return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
3738}
3739
3740#undef  Perl_sv_utf8_upgrade
3741void
3742Perl_sv_utf8_upgrade(pTHXo_ SV *sv)
3743{
3744    ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv);
3745}
3746
3747#undef  Perl_sv_utf8_downgrade
3748bool
3749Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok)
3750{
3751    return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok);
3752}
3753
3754#undef  Perl_sv_utf8_encode
3755void
3756Perl_sv_utf8_encode(pTHXo_ SV *sv)
3757{
3758    ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv);
3759}
3760
3761#undef  Perl_sv_utf8_decode
3762bool
3763Perl_sv_utf8_decode(pTHXo_ SV *sv)
3764{
3765    return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv);
3766}
3767
3768#undef  Perl_sv_force_normal
3769void
3770Perl_sv_force_normal(pTHXo_ SV *sv)
3771{
3772    ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
3773}
3774
3775#undef  Perl_tmps_grow
3776void
3777Perl_tmps_grow(pTHXo_ I32 n)
3778{
3779    ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
3780}
3781
3782#undef  Perl_sv_rvweaken
3783SV*
3784Perl_sv_rvweaken(pTHXo_ SV *sv)
3785{
3786    return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
3787}
3788
3789#undef  Perl_newANONATTRSUB
3790OP*
3791Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
3792{
3793    return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
3794}
3795
3796#undef  Perl_newATTRSUB
3797CV*
3798Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3799{
3800    return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
3801}
3802
3803#undef  Perl_newMYSUB
3804void
3805Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3806{
3807    ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
3808}
3809#if defined(USE_ITHREADS)
3810
3811#undef  Perl_cx_dup
3812PERL_CONTEXT*
3813Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
3814{
3815    return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
3816}
3817
3818#undef  Perl_si_dup
3819PERL_SI*
3820Perl_si_dup(pTHXo_ PERL_SI* si)
3821{
3822    return ((CPerlObj*)pPerl)->Perl_si_dup(si);
3823}
3824
3825#undef  Perl_ss_dup
3826ANY*
3827Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
3828{
3829    return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
3830}
3831
3832#undef  Perl_any_dup
3833void*
3834Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
3835{
3836    return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
3837}
3838
3839#undef  Perl_he_dup
3840HE*
3841Perl_he_dup(pTHXo_ HE* e, bool shared)
3842{
3843    return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
3844}
3845
3846#undef  Perl_re_dup
3847REGEXP*
3848Perl_re_dup(pTHXo_ REGEXP* r)
3849{
3850    return ((CPerlObj*)pPerl)->Perl_re_dup(r);
3851}
3852
3853#undef  Perl_fp_dup
3854PerlIO*
3855Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
3856{
3857    return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
3858}
3859
3860#undef  Perl_dirp_dup
3861DIR*
3862Perl_dirp_dup(pTHXo_ DIR* dp)
3863{
3864    return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
3865}
3866
3867#undef  Perl_gp_dup
3868GP*
3869Perl_gp_dup(pTHXo_ GP* gp)
3870{
3871    return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
3872}
3873
3874#undef  Perl_mg_dup
3875MAGIC*
3876Perl_mg_dup(pTHXo_ MAGIC* mg)
3877{
3878    return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
3879}
3880
3881#undef  Perl_sv_dup
3882SV*
3883Perl_sv_dup(pTHXo_ SV* sstr)
3884{
3885    return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
3886}
3887#if defined(HAVE_INTERP_INTERN)
3888
3889#undef  Perl_sys_intern_dup
3890void
3891Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
3892{
3893    ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
3894}
3895#endif
3896
3897#undef  Perl_ptr_table_new
3898PTR_TBL_t*
3899Perl_ptr_table_new(pTHXo)
3900{
3901    return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
3902}
3903
3904#undef  Perl_ptr_table_fetch
3905void*
3906Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
3907{
3908    return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
3909}
3910
3911#undef  Perl_ptr_table_store
3912void
3913Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
3914{
3915    ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
3916}
3917
3918#undef  Perl_ptr_table_split
3919void
3920Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
3921{
3922    ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
3923}
3924#endif
3925#if defined(PERL_OBJECT)
3926#else
3927#endif
3928#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
3929#endif
3930#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
3931#endif
3932#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
3933#endif
3934#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
3935#endif
3936#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
3937#endif
3938#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
3939#  if defined(PL_OP_SLAB_ALLOC)
3940#  endif
3941#endif
3942#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
3943#  if defined(IAMSUID)
3944#  endif
3945#if defined(PERL_FLEXIBLE_EXCEPTIONS)
3946#endif
3947#  if defined(USE_THREADS)
3948#  endif
3949#endif
3950#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
3951#endif
3952#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
3953#if defined(PERL_FLEXIBLE_EXCEPTIONS)
3954#endif
3955#endif
3956#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
3957#endif
3958#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
3959#  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
3960#  endif
3961#endif
3962#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
3963#endif
3964#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
3965#endif
3966#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
3967#endif
3968#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
3969#endif
3970#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
3971#  if defined(DEBUGGING)
3972#  endif
3973#endif
3974#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
3975#if 0
3976#endif
3977#  if defined(CRIPPLED_CC)
3978#  endif
3979#  if defined(PERL_CR_FILTER)
3980#  endif
3981#endif
3982#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
3983#endif
3984#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
3985#  if defined(LEAKTEST)
3986#  endif
3987#endif
3988#if defined(PERL_OBJECT)
3989#endif
3990
3991#undef Perl_fprintf_nocontext
3992int
3993Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
3994{
3995    dTHXo;
3996    va_list(arglist);
3997    va_start(arglist, format);
3998    return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
3999}
4000
4001END_EXTERN_C
4002
4003#endif /* PERL_OBJECT */
4004#endif /* PERL_OBJECT || MULTIPLICITY */
Note: See TracBrowser for help on using the repository browser.