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