This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
introduce save_I8() for saving byte values
[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)
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 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
20                         { return &(aTHXo->interp.v); }
21 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
22                         { return &(aTHXo->interp.v); }
23 #define PERLVARI(v,t,i) PERLVAR(v,t)
24 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
25
26 #include "thrdvar.h"
27 #include "intrpvar.h"
28
29 #undef PERLVAR
30 #undef PERLVARA
31 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
32                         { return &(PL_##v); }
33 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
34                         { return &(PL_##v); }
35 #include "perlvars.h"
36
37 #undef PERLVAR
38 #undef PERLVARA
39 #undef PERLVARI
40 #undef PERLVARIC
41
42 #if defined(PERL_IMPLICIT_SYS)
43 #else
44 #endif
45 #if defined(USE_ITHREADS)
46 #  if defined(PERL_IMPLICIT_SYS)
47 #  endif
48 #endif
49 #if defined(MYMALLOC)
50 #endif
51 #if defined(PERL_OBJECT)
52 #endif
53 #if defined(PERL_OBJECT)
54 #else
55 #endif
56
57 #undef  Perl_amagic_call
58 SV*
59 Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
60 {
61     return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
62 }
63
64 #undef  Perl_Gv_AMupdate
65 bool
66 Perl_Gv_AMupdate(pTHXo_ HV* stash)
67 {
68     return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
69 }
70
71 #undef  Perl_append_elem
72 OP*
73 Perl_append_elem(pTHXo_ I32 optype, OP* head, OP* tail)
74 {
75     return ((CPerlObj*)pPerl)->Perl_append_elem(optype, head, tail);
76 }
77
78 #undef  Perl_append_list
79 OP*
80 Perl_append_list(pTHXo_ I32 optype, LISTOP* first, LISTOP* last)
81 {
82     return ((CPerlObj*)pPerl)->Perl_append_list(optype, first, last);
83 }
84
85 #undef  Perl_apply
86 I32
87 Perl_apply(pTHXo_ I32 type, SV** mark, SV** sp)
88 {
89     return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
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_iternext
107 HE*
108 Perl_avhv_iternext(pTHXo_ AV *ar)
109 {
110     return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
111 }
112
113 #undef  Perl_avhv_iterval
114 SV*
115 Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry)
116 {
117     return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
118 }
119
120 #undef  Perl_avhv_keys
121 HV*
122 Perl_avhv_keys(pTHXo_ AV *ar)
123 {
124     return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
125 }
126
127 #undef  Perl_av_clear
128 void
129 Perl_av_clear(pTHXo_ AV* ar)
130 {
131     ((CPerlObj*)pPerl)->Perl_av_clear(ar);
132 }
133
134 #undef  Perl_av_extend
135 void
136 Perl_av_extend(pTHXo_ AV* ar, I32 key)
137 {
138     ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
139 }
140
141 #undef  Perl_av_fake
142 AV*
143 Perl_av_fake(pTHXo_ I32 size, SV** svp)
144 {
145     return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
146 }
147
148 #undef  Perl_av_fetch
149 SV**
150 Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
151 {
152     return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
153 }
154
155 #undef  Perl_av_fill
156 void
157 Perl_av_fill(pTHXo_ AV* ar, I32 fill)
158 {
159     ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
160 }
161
162 #undef  Perl_av_len
163 I32
164 Perl_av_len(pTHXo_ AV* ar)
165 {
166     return ((CPerlObj*)pPerl)->Perl_av_len(ar);
167 }
168
169 #undef  Perl_av_make
170 AV*
171 Perl_av_make(pTHXo_ I32 size, SV** svp)
172 {
173     return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
174 }
175
176 #undef  Perl_av_pop
177 SV*
178 Perl_av_pop(pTHXo_ AV* ar)
179 {
180     return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
181 }
182
183 #undef  Perl_av_push
184 void
185 Perl_av_push(pTHXo_ AV* ar, SV* val)
186 {
187     ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
188 }
189
190 #undef  Perl_av_reify
191 void
192 Perl_av_reify(pTHXo_ AV* ar)
193 {
194     ((CPerlObj*)pPerl)->Perl_av_reify(ar);
195 }
196
197 #undef  Perl_av_shift
198 SV*
199 Perl_av_shift(pTHXo_ AV* ar)
200 {
201     return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
202 }
203
204 #undef  Perl_av_store
205 SV**
206 Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val)
207 {
208     return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
209 }
210
211 #undef  Perl_av_undef
212 void
213 Perl_av_undef(pTHXo_ AV* ar)
214 {
215     ((CPerlObj*)pPerl)->Perl_av_undef(ar);
216 }
217
218 #undef  Perl_av_unshift
219 void
220 Perl_av_unshift(pTHXo_ AV* ar, I32 num)
221 {
222     ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
223 }
224
225 #undef  Perl_bind_match
226 OP*
227 Perl_bind_match(pTHXo_ I32 type, OP* left, OP* pat)
228 {
229     return ((CPerlObj*)pPerl)->Perl_bind_match(type, left, pat);
230 }
231
232 #undef  Perl_block_end
233 OP*
234 Perl_block_end(pTHXo_ I32 floor, OP* seq)
235 {
236     return ((CPerlObj*)pPerl)->Perl_block_end(floor, seq);
237 }
238
239 #undef  Perl_block_gimme
240 I32
241 Perl_block_gimme(pTHXo)
242 {
243     return ((CPerlObj*)pPerl)->Perl_block_gimme();
244 }
245
246 #undef  Perl_block_start
247 int
248 Perl_block_start(pTHXo_ int full)
249 {
250     return ((CPerlObj*)pPerl)->Perl_block_start(full);
251 }
252
253 #undef  Perl_boot_core_UNIVERSAL
254 void
255 Perl_boot_core_UNIVERSAL(pTHXo)
256 {
257     ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL();
258 }
259
260 #undef  Perl_call_list
261 void
262 Perl_call_list(pTHXo_ I32 oldscope, AV* av_list)
263 {
264     ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
265 }
266
267 #undef  Perl_cando
268 bool
269 Perl_cando(pTHXo_ Mode_t mode, Uid_t effective, Stat_t* statbufp)
270 {
271     return ((CPerlObj*)pPerl)->Perl_cando(mode, effective, statbufp);
272 }
273
274 #undef  Perl_cast_ulong
275 U32
276 Perl_cast_ulong(pTHXo_ NV f)
277 {
278     return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
279 }
280
281 #undef  Perl_cast_i32
282 I32
283 Perl_cast_i32(pTHXo_ NV f)
284 {
285     return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
286 }
287
288 #undef  Perl_cast_iv
289 IV
290 Perl_cast_iv(pTHXo_ NV f)
291 {
292     return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
293 }
294
295 #undef  Perl_cast_uv
296 UV
297 Perl_cast_uv(pTHXo_ NV f)
298 {
299     return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
300 }
301 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
302
303 #undef  Perl_my_chsize
304 I32
305 Perl_my_chsize(pTHXo_ int fd, Off_t length)
306 {
307     return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
308 }
309 #endif
310 #if defined(USE_THREADS)
311
312 #undef  Perl_condpair_magic
313 MAGIC*
314 Perl_condpair_magic(pTHXo_ SV *sv)
315 {
316     return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
317 }
318 #endif
319
320 #undef  Perl_convert
321 OP*
322 Perl_convert(pTHXo_ I32 optype, I32 flags, OP* o)
323 {
324     return ((CPerlObj*)pPerl)->Perl_convert(optype, flags, o);
325 }
326
327 #undef  Perl_croak
328 void
329 Perl_croak(pTHXo_ const char* pat, ...)
330 {
331     va_list args;
332     va_start(args, pat);
333     ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
334     va_end(args);
335 }
336
337 #undef  Perl_vcroak
338 void
339 Perl_vcroak(pTHXo_ const char* pat, va_list* args)
340 {
341     ((CPerlObj*)pPerl)->Perl_vcroak(pat, args);
342 }
343 #if defined(PERL_IMPLICIT_CONTEXT)
344
345 #undef  Perl_croak_nocontext
346 void
347 Perl_croak_nocontext(const char* pat, ...)
348 {
349     dTHXo;
350     va_list args;
351     va_start(args, pat);
352     ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
353     va_end(args);
354 }
355
356 #undef  Perl_die_nocontext
357 OP*
358 Perl_die_nocontext(const char* pat, ...)
359 {
360     dTHXo;
361     OP* retval;
362     va_list args;
363     va_start(args, pat);
364     retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
365     va_end(args);
366     return retval;
367
368 }
369
370 #undef  Perl_deb_nocontext
371 void
372 Perl_deb_nocontext(const char* pat, ...)
373 {
374     dTHXo;
375     va_list args;
376     va_start(args, pat);
377     ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
378     va_end(args);
379 }
380
381 #undef  Perl_form_nocontext
382 char*
383 Perl_form_nocontext(const char* pat, ...)
384 {
385     dTHXo;
386     char* retval;
387     va_list args;
388     va_start(args, pat);
389     retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
390     va_end(args);
391     return retval;
392
393 }
394
395 #undef  Perl_mess_nocontext
396 SV*
397 Perl_mess_nocontext(const char* pat, ...)
398 {
399     dTHXo;
400     SV* retval;
401     va_list args;
402     va_start(args, pat);
403     retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
404     va_end(args);
405     return retval;
406
407 }
408
409 #undef  Perl_warn_nocontext
410 void
411 Perl_warn_nocontext(const char* pat, ...)
412 {
413     dTHXo;
414     va_list args;
415     va_start(args, pat);
416     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
417     va_end(args);
418 }
419
420 #undef  Perl_warner_nocontext
421 void
422 Perl_warner_nocontext(U32 err, const char* pat, ...)
423 {
424     dTHXo;
425     va_list args;
426     va_start(args, pat);
427     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
428     va_end(args);
429 }
430
431 #undef  Perl_newSVpvf_nocontext
432 SV*
433 Perl_newSVpvf_nocontext(const char* pat, ...)
434 {
435     dTHXo;
436     SV* retval;
437     va_list args;
438     va_start(args, pat);
439     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
440     va_end(args);
441     return retval;
442
443 }
444
445 #undef  Perl_sv_catpvf_nocontext
446 void
447 Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
448 {
449     dTHXo;
450     va_list args;
451     va_start(args, pat);
452     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
453     va_end(args);
454 }
455
456 #undef  Perl_sv_setpvf_nocontext
457 void
458 Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
459 {
460     dTHXo;
461     va_list args;
462     va_start(args, pat);
463     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
464     va_end(args);
465 }
466
467 #undef  Perl_sv_catpvf_mg_nocontext
468 void
469 Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
470 {
471     dTHXo;
472     va_list args;
473     va_start(args, pat);
474     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
475     va_end(args);
476 }
477
478 #undef  Perl_sv_setpvf_mg_nocontext
479 void
480 Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
481 {
482     dTHXo;
483     va_list args;
484     va_start(args, pat);
485     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
486     va_end(args);
487 }
488
489 #undef  Perl_fprintf_nocontext
490 #endif
491
492 #undef  Perl_cv_ckproto
493 void
494 Perl_cv_ckproto(pTHXo_ CV* cv, GV* gv, char* p)
495 {
496     ((CPerlObj*)pPerl)->Perl_cv_ckproto(cv, gv, p);
497 }
498
499 #undef  Perl_cv_clone
500 CV*
501 Perl_cv_clone(pTHXo_ CV* proto)
502 {
503     return ((CPerlObj*)pPerl)->Perl_cv_clone(proto);
504 }
505
506 #undef  Perl_cv_const_sv
507 SV*
508 Perl_cv_const_sv(pTHXo_ CV* cv)
509 {
510     return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
511 }
512
513 #undef  Perl_op_const_sv
514 SV*
515 Perl_op_const_sv(pTHXo_ OP* o, CV* cv)
516 {
517     return ((CPerlObj*)pPerl)->Perl_op_const_sv(o, cv);
518 }
519
520 #undef  Perl_cv_undef
521 void
522 Perl_cv_undef(pTHXo_ CV* cv)
523 {
524     ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
525 }
526
527 #undef  Perl_cx_dump
528 void
529 Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
530 {
531     ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
532 }
533
534 #undef  Perl_filter_add
535 SV*
536 Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv)
537 {
538     return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
539 }
540
541 #undef  Perl_filter_del
542 void
543 Perl_filter_del(pTHXo_ filter_t funcp)
544 {
545     ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
546 }
547
548 #undef  Perl_filter_read
549 I32
550 Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen)
551 {
552     return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
553 }
554
555 #undef  Perl_get_op_descs
556 char**
557 Perl_get_op_descs(pTHXo)
558 {
559     return ((CPerlObj*)pPerl)->Perl_get_op_descs();
560 }
561
562 #undef  Perl_get_op_names
563 char**
564 Perl_get_op_names(pTHXo)
565 {
566     return ((CPerlObj*)pPerl)->Perl_get_op_names();
567 }
568
569 #undef  Perl_get_no_modify
570 char*
571 Perl_get_no_modify(pTHXo)
572 {
573     return ((CPerlObj*)pPerl)->Perl_get_no_modify();
574 }
575
576 #undef  Perl_get_opargs
577 U32*
578 Perl_get_opargs(pTHXo)
579 {
580     return ((CPerlObj*)pPerl)->Perl_get_opargs();
581 }
582
583 #undef  Perl_get_ppaddr
584 PPADDR_t*
585 Perl_get_ppaddr(pTHXo)
586 {
587     return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
588 }
589
590 #undef  Perl_cxinc
591 I32
592 Perl_cxinc(pTHXo)
593 {
594     return ((CPerlObj*)pPerl)->Perl_cxinc();
595 }
596
597 #undef  Perl_deb
598 void
599 Perl_deb(pTHXo_ const char* pat, ...)
600 {
601     va_list args;
602     va_start(args, pat);
603     ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
604     va_end(args);
605 }
606
607 #undef  Perl_vdeb
608 void
609 Perl_vdeb(pTHXo_ const char* pat, va_list* args)
610 {
611     ((CPerlObj*)pPerl)->Perl_vdeb(pat, args);
612 }
613
614 #undef  Perl_debprofdump
615 void
616 Perl_debprofdump(pTHXo)
617 {
618     ((CPerlObj*)pPerl)->Perl_debprofdump();
619 }
620
621 #undef  Perl_debop
622 I32
623 Perl_debop(pTHXo_ OP* o)
624 {
625     return ((CPerlObj*)pPerl)->Perl_debop(o);
626 }
627
628 #undef  Perl_debstack
629 I32
630 Perl_debstack(pTHXo)
631 {
632     return ((CPerlObj*)pPerl)->Perl_debstack();
633 }
634
635 #undef  Perl_debstackptrs
636 I32
637 Perl_debstackptrs(pTHXo)
638 {
639     return ((CPerlObj*)pPerl)->Perl_debstackptrs();
640 }
641
642 #undef  Perl_delimcpy
643 char*
644 Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
645 {
646     return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
647 }
648
649 #undef  Perl_deprecate
650 void
651 Perl_deprecate(pTHXo_ char* s)
652 {
653     ((CPerlObj*)pPerl)->Perl_deprecate(s);
654 }
655
656 #undef  Perl_die
657 OP*
658 Perl_die(pTHXo_ const char* pat, ...)
659 {
660     OP* retval;
661     va_list args;
662     va_start(args, pat);
663     retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
664     va_end(args);
665     return retval;
666
667 }
668
669 #undef  Perl_vdie
670 OP*
671 Perl_vdie(pTHXo_ const char* pat, va_list* args)
672 {
673     return ((CPerlObj*)pPerl)->Perl_vdie(pat, args);
674 }
675
676 #undef  Perl_die_where
677 OP*
678 Perl_die_where(pTHXo_ char* message, STRLEN msglen)
679 {
680     return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen);
681 }
682
683 #undef  Perl_dounwind
684 void
685 Perl_dounwind(pTHXo_ I32 cxix)
686 {
687     ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
688 }
689
690 #undef  Perl_do_aexec
691 bool
692 Perl_do_aexec(pTHXo_ SV* really, SV** mark, SV** sp)
693 {
694     return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
695 }
696
697 #undef  Perl_do_aexec5
698 bool
699 Perl_do_aexec5(pTHXo_ SV* really, SV** mark, SV** sp, int fd, int flag)
700 {
701     return ((CPerlObj*)pPerl)->Perl_do_aexec5(really, mark, sp, fd, flag);
702 }
703
704 #undef  Perl_do_binmode
705 int
706 Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
707 {
708     return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
709 }
710
711 #undef  Perl_do_chop
712 void
713 Perl_do_chop(pTHXo_ SV* asv, SV* sv)
714 {
715     ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv);
716 }
717
718 #undef  Perl_do_close
719 bool
720 Perl_do_close(pTHXo_ GV* gv, bool not_implicit)
721 {
722     return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
723 }
724
725 #undef  Perl_do_eof
726 bool
727 Perl_do_eof(pTHXo_ GV* gv)
728 {
729     return ((CPerlObj*)pPerl)->Perl_do_eof(gv);
730 }
731
732 #undef  Perl_do_exec
733 bool
734 Perl_do_exec(pTHXo_ char* cmd)
735 {
736     return ((CPerlObj*)pPerl)->Perl_do_exec(cmd);
737 }
738 #if !defined(WIN32)
739
740 #undef  Perl_do_exec3
741 bool
742 Perl_do_exec3(pTHXo_ char* cmd, int fd, int flag)
743 {
744     return ((CPerlObj*)pPerl)->Perl_do_exec3(cmd, fd, flag);
745 }
746 #endif
747
748 #undef  Perl_do_execfree
749 void
750 Perl_do_execfree(pTHXo)
751 {
752     ((CPerlObj*)pPerl)->Perl_do_execfree();
753 }
754 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
755
756 #undef  Perl_do_ipcctl
757 I32
758 Perl_do_ipcctl(pTHXo_ I32 optype, SV** mark, SV** sp)
759 {
760     return ((CPerlObj*)pPerl)->Perl_do_ipcctl(optype, mark, sp);
761 }
762
763 #undef  Perl_do_ipcget
764 I32
765 Perl_do_ipcget(pTHXo_ I32 optype, SV** mark, SV** sp)
766 {
767     return ((CPerlObj*)pPerl)->Perl_do_ipcget(optype, mark, sp);
768 }
769
770 #undef  Perl_do_msgrcv
771 I32
772 Perl_do_msgrcv(pTHXo_ SV** mark, SV** sp)
773 {
774     return ((CPerlObj*)pPerl)->Perl_do_msgrcv(mark, sp);
775 }
776
777 #undef  Perl_do_msgsnd
778 I32
779 Perl_do_msgsnd(pTHXo_ SV** mark, SV** sp)
780 {
781     return ((CPerlObj*)pPerl)->Perl_do_msgsnd(mark, sp);
782 }
783
784 #undef  Perl_do_semop
785 I32
786 Perl_do_semop(pTHXo_ SV** mark, SV** sp)
787 {
788     return ((CPerlObj*)pPerl)->Perl_do_semop(mark, sp);
789 }
790
791 #undef  Perl_do_shmio
792 I32
793 Perl_do_shmio(pTHXo_ I32 optype, SV** mark, SV** sp)
794 {
795     return ((CPerlObj*)pPerl)->Perl_do_shmio(optype, mark, sp);
796 }
797 #endif
798
799 #undef  Perl_do_join
800 void
801 Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp)
802 {
803     ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
804 }
805
806 #undef  Perl_do_kv
807 OP*
808 Perl_do_kv(pTHXo)
809 {
810     return ((CPerlObj*)pPerl)->Perl_do_kv();
811 }
812
813 #undef  Perl_do_open
814 bool
815 Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
816 {
817     return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
818 }
819
820 #undef  Perl_do_open9
821 bool
822 Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
823 {
824     return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
825 }
826
827 #undef  Perl_do_pipe
828 void
829 Perl_do_pipe(pTHXo_ SV* sv, GV* rgv, GV* wgv)
830 {
831     ((CPerlObj*)pPerl)->Perl_do_pipe(sv, rgv, wgv);
832 }
833
834 #undef  Perl_do_print
835 bool
836 Perl_do_print(pTHXo_ SV* sv, PerlIO* fp)
837 {
838     return ((CPerlObj*)pPerl)->Perl_do_print(sv, fp);
839 }
840
841 #undef  Perl_do_readline
842 OP*
843 Perl_do_readline(pTHXo)
844 {
845     return ((CPerlObj*)pPerl)->Perl_do_readline();
846 }
847
848 #undef  Perl_do_chomp
849 I32
850 Perl_do_chomp(pTHXo_ SV* sv)
851 {
852     return ((CPerlObj*)pPerl)->Perl_do_chomp(sv);
853 }
854
855 #undef  Perl_do_seek
856 bool
857 Perl_do_seek(pTHXo_ GV* gv, Off_t pos, int whence)
858 {
859     return ((CPerlObj*)pPerl)->Perl_do_seek(gv, pos, whence);
860 }
861
862 #undef  Perl_do_sprintf
863 void
864 Perl_do_sprintf(pTHXo_ SV* sv, I32 len, SV** sarg)
865 {
866     ((CPerlObj*)pPerl)->Perl_do_sprintf(sv, len, sarg);
867 }
868
869 #undef  Perl_do_sysseek
870 Off_t
871 Perl_do_sysseek(pTHXo_ GV* gv, Off_t pos, int whence)
872 {
873     return ((CPerlObj*)pPerl)->Perl_do_sysseek(gv, pos, whence);
874 }
875
876 #undef  Perl_do_tell
877 Off_t
878 Perl_do_tell(pTHXo_ GV* gv)
879 {
880     return ((CPerlObj*)pPerl)->Perl_do_tell(gv);
881 }
882
883 #undef  Perl_do_trans
884 I32
885 Perl_do_trans(pTHXo_ SV* sv)
886 {
887     return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
888 }
889
890 #undef  Perl_do_vecget
891 UV
892 Perl_do_vecget(pTHXo_ SV* sv, I32 offset, I32 size)
893 {
894     return ((CPerlObj*)pPerl)->Perl_do_vecget(sv, offset, size);
895 }
896
897 #undef  Perl_do_vecset
898 void
899 Perl_do_vecset(pTHXo_ SV* sv)
900 {
901     ((CPerlObj*)pPerl)->Perl_do_vecset(sv);
902 }
903
904 #undef  Perl_do_vop
905 void
906 Perl_do_vop(pTHXo_ I32 optype, SV* sv, SV* left, SV* right)
907 {
908     ((CPerlObj*)pPerl)->Perl_do_vop(optype, sv, left, right);
909 }
910
911 #undef  Perl_dofile
912 OP*
913 Perl_dofile(pTHXo_ OP* term)
914 {
915     return ((CPerlObj*)pPerl)->Perl_dofile(term);
916 }
917
918 #undef  Perl_dowantarray
919 I32
920 Perl_dowantarray(pTHXo)
921 {
922     return ((CPerlObj*)pPerl)->Perl_dowantarray();
923 }
924
925 #undef  Perl_dump_all
926 void
927 Perl_dump_all(pTHXo)
928 {
929     ((CPerlObj*)pPerl)->Perl_dump_all();
930 }
931
932 #undef  Perl_dump_eval
933 void
934 Perl_dump_eval(pTHXo)
935 {
936     ((CPerlObj*)pPerl)->Perl_dump_eval();
937 }
938 #if defined(DUMP_FDS)
939
940 #undef  Perl_dump_fds
941 void
942 Perl_dump_fds(pTHXo_ char* s)
943 {
944     ((CPerlObj*)pPerl)->Perl_dump_fds(s);
945 }
946 #endif
947
948 #undef  Perl_dump_form
949 void
950 Perl_dump_form(pTHXo_ GV* gv)
951 {
952     ((CPerlObj*)pPerl)->Perl_dump_form(gv);
953 }
954
955 #undef  Perl_gv_dump
956 void
957 Perl_gv_dump(pTHXo_ GV* gv)
958 {
959     ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
960 }
961
962 #undef  Perl_op_dump
963 void
964 Perl_op_dump(pTHXo_ OP* arg)
965 {
966     ((CPerlObj*)pPerl)->Perl_op_dump(arg);
967 }
968
969 #undef  Perl_pmop_dump
970 void
971 Perl_pmop_dump(pTHXo_ PMOP* pm)
972 {
973     ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
974 }
975
976 #undef  Perl_dump_packsubs
977 void
978 Perl_dump_packsubs(pTHXo_ HV* stash)
979 {
980     ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
981 }
982
983 #undef  Perl_dump_sub
984 void
985 Perl_dump_sub(pTHXo_ GV* gv)
986 {
987     ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
988 }
989
990 #undef  Perl_fbm_compile
991 void
992 Perl_fbm_compile(pTHXo_ SV* sv, U32 flags)
993 {
994     ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
995 }
996
997 #undef  Perl_fbm_instr
998 char*
999 Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
1000 {
1001     return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
1002 }
1003
1004 #undef  Perl_find_script
1005 char*
1006 Perl_find_script(pTHXo_ char *scriptname, bool dosearch, char **search_ext, I32 flags)
1007 {
1008     return ((CPerlObj*)pPerl)->Perl_find_script(scriptname, dosearch, search_ext, flags);
1009 }
1010 #if defined(USE_THREADS)
1011
1012 #undef  Perl_find_threadsv
1013 PADOFFSET
1014 Perl_find_threadsv(pTHXo_ const char *name)
1015 {
1016     return ((CPerlObj*)pPerl)->Perl_find_threadsv(name);
1017 }
1018 #endif
1019
1020 #undef  Perl_force_list
1021 OP*
1022 Perl_force_list(pTHXo_ OP* arg)
1023 {
1024     return ((CPerlObj*)pPerl)->Perl_force_list(arg);
1025 }
1026
1027 #undef  Perl_fold_constants
1028 OP*
1029 Perl_fold_constants(pTHXo_ OP* arg)
1030 {
1031     return ((CPerlObj*)pPerl)->Perl_fold_constants(arg);
1032 }
1033
1034 #undef  Perl_form
1035 char*
1036 Perl_form(pTHXo_ const char* pat, ...)
1037 {
1038     char* retval;
1039     va_list args;
1040     va_start(args, pat);
1041     retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
1042     va_end(args);
1043     return retval;
1044
1045 }
1046
1047 #undef  Perl_vform
1048 char*
1049 Perl_vform(pTHXo_ const char* pat, va_list* args)
1050 {
1051     return ((CPerlObj*)pPerl)->Perl_vform(pat, args);
1052 }
1053
1054 #undef  Perl_free_tmps
1055 void
1056 Perl_free_tmps(pTHXo)
1057 {
1058     ((CPerlObj*)pPerl)->Perl_free_tmps();
1059 }
1060
1061 #undef  Perl_gen_constant_list
1062 OP*
1063 Perl_gen_constant_list(pTHXo_ OP* o)
1064 {
1065     return ((CPerlObj*)pPerl)->Perl_gen_constant_list(o);
1066 }
1067 #if !defined(HAS_GETENV_LEN)
1068
1069 #undef  Perl_getenv_len
1070 char*
1071 Perl_getenv_len(pTHXo_ char* key, unsigned long *len)
1072 {
1073     return ((CPerlObj*)pPerl)->Perl_getenv_len(key, len);
1074 }
1075 #endif
1076
1077 #undef  Perl_gp_free
1078 void
1079 Perl_gp_free(pTHXo_ GV* gv)
1080 {
1081     ((CPerlObj*)pPerl)->Perl_gp_free(gv);
1082 }
1083
1084 #undef  Perl_gp_ref
1085 GP*
1086 Perl_gp_ref(pTHXo_ GP* gp)
1087 {
1088     return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
1089 }
1090
1091 #undef  Perl_gv_AVadd
1092 GV*
1093 Perl_gv_AVadd(pTHXo_ GV* gv)
1094 {
1095     return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
1096 }
1097
1098 #undef  Perl_gv_HVadd
1099 GV*
1100 Perl_gv_HVadd(pTHXo_ GV* gv)
1101 {
1102     return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
1103 }
1104
1105 #undef  Perl_gv_IOadd
1106 GV*
1107 Perl_gv_IOadd(pTHXo_ GV* gv)
1108 {
1109     return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
1110 }
1111
1112 #undef  Perl_gv_autoload4
1113 GV*
1114 Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method)
1115 {
1116     return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
1117 }
1118
1119 #undef  Perl_gv_check
1120 void
1121 Perl_gv_check(pTHXo_ HV* stash)
1122 {
1123     ((CPerlObj*)pPerl)->Perl_gv_check(stash);
1124 }
1125
1126 #undef  Perl_gv_efullname
1127 void
1128 Perl_gv_efullname(pTHXo_ SV* sv, GV* gv)
1129 {
1130     ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
1131 }
1132
1133 #undef  Perl_gv_efullname3
1134 void
1135 Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
1136 {
1137     ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
1138 }
1139
1140 #undef  Perl_gv_fetchfile
1141 GV*
1142 Perl_gv_fetchfile(pTHXo_ const char* name)
1143 {
1144     return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
1145 }
1146
1147 #undef  Perl_gv_fetchmeth
1148 GV*
1149 Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level)
1150 {
1151     return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
1152 }
1153
1154 #undef  Perl_gv_fetchmethod
1155 GV*
1156 Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name)
1157 {
1158     return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
1159 }
1160
1161 #undef  Perl_gv_fetchmethod_autoload
1162 GV*
1163 Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload)
1164 {
1165     return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
1166 }
1167
1168 #undef  Perl_gv_fetchpv
1169 GV*
1170 Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type)
1171 {
1172     return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
1173 }
1174
1175 #undef  Perl_gv_fullname
1176 void
1177 Perl_gv_fullname(pTHXo_ SV* sv, GV* gv)
1178 {
1179     ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
1180 }
1181
1182 #undef  Perl_gv_fullname3
1183 void
1184 Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
1185 {
1186     ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
1187 }
1188
1189 #undef  Perl_gv_init
1190 void
1191 Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
1192 {
1193     ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
1194 }
1195
1196 #undef  Perl_gv_stashpv
1197 HV*
1198 Perl_gv_stashpv(pTHXo_ const char* name, I32 create)
1199 {
1200     return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
1201 }
1202
1203 #undef  Perl_gv_stashpvn
1204 HV*
1205 Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create)
1206 {
1207     return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
1208 }
1209
1210 #undef  Perl_gv_stashsv
1211 HV*
1212 Perl_gv_stashsv(pTHXo_ SV* sv, I32 create)
1213 {
1214     return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
1215 }
1216
1217 #undef  Perl_hv_clear
1218 void
1219 Perl_hv_clear(pTHXo_ HV* tb)
1220 {
1221     ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
1222 }
1223
1224 #undef  Perl_hv_delayfree_ent
1225 void
1226 Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
1227 {
1228     ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
1229 }
1230
1231 #undef  Perl_hv_delete
1232 SV*
1233 Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags)
1234 {
1235     return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
1236 }
1237
1238 #undef  Perl_hv_delete_ent
1239 SV*
1240 Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
1241 {
1242     return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
1243 }
1244
1245 #undef  Perl_hv_exists
1246 bool
1247 Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen)
1248 {
1249     return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
1250 }
1251
1252 #undef  Perl_hv_exists_ent
1253 bool
1254 Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
1255 {
1256     return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
1257 }
1258
1259 #undef  Perl_hv_fetch
1260 SV**
1261 Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval)
1262 {
1263     return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
1264 }
1265
1266 #undef  Perl_hv_fetch_ent
1267 HE*
1268 Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash)
1269 {
1270     return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
1271 }
1272
1273 #undef  Perl_hv_free_ent
1274 void
1275 Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry)
1276 {
1277     ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
1278 }
1279
1280 #undef  Perl_hv_iterinit
1281 I32
1282 Perl_hv_iterinit(pTHXo_ HV* tb)
1283 {
1284     return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
1285 }
1286
1287 #undef  Perl_hv_iterkey
1288 char*
1289 Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen)
1290 {
1291     return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
1292 }
1293
1294 #undef  Perl_hv_iterkeysv
1295 SV*
1296 Perl_hv_iterkeysv(pTHXo_ HE* entry)
1297 {
1298     return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
1299 }
1300
1301 #undef  Perl_hv_iternext
1302 HE*
1303 Perl_hv_iternext(pTHXo_ HV* tb)
1304 {
1305     return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
1306 }
1307
1308 #undef  Perl_hv_iternextsv
1309 SV*
1310 Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen)
1311 {
1312     return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
1313 }
1314
1315 #undef  Perl_hv_iterval
1316 SV*
1317 Perl_hv_iterval(pTHXo_ HV* tb, HE* entry)
1318 {
1319     return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
1320 }
1321
1322 #undef  Perl_hv_ksplit
1323 void
1324 Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax)
1325 {
1326     ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1327 }
1328
1329 #undef  Perl_hv_magic
1330 void
1331 Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
1332 {
1333     ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
1334 }
1335
1336 #undef  Perl_hv_store
1337 SV**
1338 Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash)
1339 {
1340     return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
1341 }
1342
1343 #undef  Perl_hv_store_ent
1344 HE*
1345 Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash)
1346 {
1347     return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1348 }
1349
1350 #undef  Perl_hv_undef
1351 void
1352 Perl_hv_undef(pTHXo_ HV* tb)
1353 {
1354     ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1355 }
1356
1357 #undef  Perl_ibcmp
1358 I32
1359 Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len)
1360 {
1361     return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1362 }
1363
1364 #undef  Perl_ibcmp_locale
1365 I32
1366 Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len)
1367 {
1368     return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1369 }
1370
1371 #undef  Perl_ingroup
1372 bool
1373 Perl_ingroup(pTHXo_ Gid_t testgid, Uid_t effective)
1374 {
1375     return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
1376 }
1377
1378 #undef  Perl_init_debugger
1379 void
1380 Perl_init_debugger(pTHXo)
1381 {
1382     ((CPerlObj*)pPerl)->Perl_init_debugger();
1383 }
1384
1385 #undef  Perl_init_stacks
1386 void
1387 Perl_init_stacks(pTHXo)
1388 {
1389     ((CPerlObj*)pPerl)->Perl_init_stacks();
1390 }
1391
1392 #undef  Perl_intro_my
1393 U32
1394 Perl_intro_my(pTHXo)
1395 {
1396     return ((CPerlObj*)pPerl)->Perl_intro_my();
1397 }
1398
1399 #undef  Perl_instr
1400 char*
1401 Perl_instr(pTHXo_ const char* big, const char* little)
1402 {
1403     return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1404 }
1405
1406 #undef  Perl_io_close
1407 bool
1408 Perl_io_close(pTHXo_ IO* io, bool not_implicit)
1409 {
1410     return ((CPerlObj*)pPerl)->Perl_io_close(io, not_implicit);
1411 }
1412
1413 #undef  Perl_invert
1414 OP*
1415 Perl_invert(pTHXo_ OP* cmd)
1416 {
1417     return ((CPerlObj*)pPerl)->Perl_invert(cmd);
1418 }
1419
1420 #undef  Perl_is_uni_alnum
1421 bool
1422 Perl_is_uni_alnum(pTHXo_ U32 c)
1423 {
1424     return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1425 }
1426
1427 #undef  Perl_is_uni_alnumc
1428 bool
1429 Perl_is_uni_alnumc(pTHXo_ U32 c)
1430 {
1431     return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1432 }
1433
1434 #undef  Perl_is_uni_idfirst
1435 bool
1436 Perl_is_uni_idfirst(pTHXo_ U32 c)
1437 {
1438     return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1439 }
1440
1441 #undef  Perl_is_uni_alpha
1442 bool
1443 Perl_is_uni_alpha(pTHXo_ U32 c)
1444 {
1445     return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1446 }
1447
1448 #undef  Perl_is_uni_ascii
1449 bool
1450 Perl_is_uni_ascii(pTHXo_ U32 c)
1451 {
1452     return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1453 }
1454
1455 #undef  Perl_is_uni_space
1456 bool
1457 Perl_is_uni_space(pTHXo_ U32 c)
1458 {
1459     return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1460 }
1461
1462 #undef  Perl_is_uni_cntrl
1463 bool
1464 Perl_is_uni_cntrl(pTHXo_ U32 c)
1465 {
1466     return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1467 }
1468
1469 #undef  Perl_is_uni_graph
1470 bool
1471 Perl_is_uni_graph(pTHXo_ U32 c)
1472 {
1473     return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1474 }
1475
1476 #undef  Perl_is_uni_digit
1477 bool
1478 Perl_is_uni_digit(pTHXo_ U32 c)
1479 {
1480     return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1481 }
1482
1483 #undef  Perl_is_uni_upper
1484 bool
1485 Perl_is_uni_upper(pTHXo_ U32 c)
1486 {
1487     return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1488 }
1489
1490 #undef  Perl_is_uni_lower
1491 bool
1492 Perl_is_uni_lower(pTHXo_ U32 c)
1493 {
1494     return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1495 }
1496
1497 #undef  Perl_is_uni_print
1498 bool
1499 Perl_is_uni_print(pTHXo_ U32 c)
1500 {
1501     return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1502 }
1503
1504 #undef  Perl_is_uni_punct
1505 bool
1506 Perl_is_uni_punct(pTHXo_ U32 c)
1507 {
1508     return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1509 }
1510
1511 #undef  Perl_is_uni_xdigit
1512 bool
1513 Perl_is_uni_xdigit(pTHXo_ U32 c)
1514 {
1515     return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1516 }
1517
1518 #undef  Perl_to_uni_upper
1519 U32
1520 Perl_to_uni_upper(pTHXo_ U32 c)
1521 {
1522     return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1523 }
1524
1525 #undef  Perl_to_uni_title
1526 U32
1527 Perl_to_uni_title(pTHXo_ U32 c)
1528 {
1529     return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1530 }
1531
1532 #undef  Perl_to_uni_lower
1533 U32
1534 Perl_to_uni_lower(pTHXo_ U32 c)
1535 {
1536     return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1537 }
1538
1539 #undef  Perl_is_uni_alnum_lc
1540 bool
1541 Perl_is_uni_alnum_lc(pTHXo_ U32 c)
1542 {
1543     return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1544 }
1545
1546 #undef  Perl_is_uni_alnumc_lc
1547 bool
1548 Perl_is_uni_alnumc_lc(pTHXo_ U32 c)
1549 {
1550     return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1551 }
1552
1553 #undef  Perl_is_uni_idfirst_lc
1554 bool
1555 Perl_is_uni_idfirst_lc(pTHXo_ U32 c)
1556 {
1557     return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1558 }
1559
1560 #undef  Perl_is_uni_alpha_lc
1561 bool
1562 Perl_is_uni_alpha_lc(pTHXo_ U32 c)
1563 {
1564     return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1565 }
1566
1567 #undef  Perl_is_uni_ascii_lc
1568 bool
1569 Perl_is_uni_ascii_lc(pTHXo_ U32 c)
1570 {
1571     return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1572 }
1573
1574 #undef  Perl_is_uni_space_lc
1575 bool
1576 Perl_is_uni_space_lc(pTHXo_ U32 c)
1577 {
1578     return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1579 }
1580
1581 #undef  Perl_is_uni_cntrl_lc
1582 bool
1583 Perl_is_uni_cntrl_lc(pTHXo_ U32 c)
1584 {
1585     return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1586 }
1587
1588 #undef  Perl_is_uni_graph_lc
1589 bool
1590 Perl_is_uni_graph_lc(pTHXo_ U32 c)
1591 {
1592     return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1593 }
1594
1595 #undef  Perl_is_uni_digit_lc
1596 bool
1597 Perl_is_uni_digit_lc(pTHXo_ U32 c)
1598 {
1599     return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1600 }
1601
1602 #undef  Perl_is_uni_upper_lc
1603 bool
1604 Perl_is_uni_upper_lc(pTHXo_ U32 c)
1605 {
1606     return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1607 }
1608
1609 #undef  Perl_is_uni_lower_lc
1610 bool
1611 Perl_is_uni_lower_lc(pTHXo_ U32 c)
1612 {
1613     return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1614 }
1615
1616 #undef  Perl_is_uni_print_lc
1617 bool
1618 Perl_is_uni_print_lc(pTHXo_ U32 c)
1619 {
1620     return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1621 }
1622
1623 #undef  Perl_is_uni_punct_lc
1624 bool
1625 Perl_is_uni_punct_lc(pTHXo_ U32 c)
1626 {
1627     return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1628 }
1629
1630 #undef  Perl_is_uni_xdigit_lc
1631 bool
1632 Perl_is_uni_xdigit_lc(pTHXo_ U32 c)
1633 {
1634     return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1635 }
1636
1637 #undef  Perl_to_uni_upper_lc
1638 U32
1639 Perl_to_uni_upper_lc(pTHXo_ U32 c)
1640 {
1641     return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1642 }
1643
1644 #undef  Perl_to_uni_title_lc
1645 U32
1646 Perl_to_uni_title_lc(pTHXo_ U32 c)
1647 {
1648     return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1649 }
1650
1651 #undef  Perl_to_uni_lower_lc
1652 U32
1653 Perl_to_uni_lower_lc(pTHXo_ U32 c)
1654 {
1655     return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1656 }
1657
1658 #undef  Perl_is_utf8_alnum
1659 bool
1660 Perl_is_utf8_alnum(pTHXo_ U8 *p)
1661 {
1662     return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1663 }
1664
1665 #undef  Perl_is_utf8_alnumc
1666 bool
1667 Perl_is_utf8_alnumc(pTHXo_ U8 *p)
1668 {
1669     return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1670 }
1671
1672 #undef  Perl_is_utf8_idfirst
1673 bool
1674 Perl_is_utf8_idfirst(pTHXo_ U8 *p)
1675 {
1676     return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1677 }
1678
1679 #undef  Perl_is_utf8_alpha
1680 bool
1681 Perl_is_utf8_alpha(pTHXo_ U8 *p)
1682 {
1683     return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1684 }
1685
1686 #undef  Perl_is_utf8_ascii
1687 bool
1688 Perl_is_utf8_ascii(pTHXo_ U8 *p)
1689 {
1690     return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1691 }
1692
1693 #undef  Perl_is_utf8_space
1694 bool
1695 Perl_is_utf8_space(pTHXo_ U8 *p)
1696 {
1697     return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1698 }
1699
1700 #undef  Perl_is_utf8_cntrl
1701 bool
1702 Perl_is_utf8_cntrl(pTHXo_ U8 *p)
1703 {
1704     return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1705 }
1706
1707 #undef  Perl_is_utf8_digit
1708 bool
1709 Perl_is_utf8_digit(pTHXo_ U8 *p)
1710 {
1711     return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1712 }
1713
1714 #undef  Perl_is_utf8_graph
1715 bool
1716 Perl_is_utf8_graph(pTHXo_ U8 *p)
1717 {
1718     return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1719 }
1720
1721 #undef  Perl_is_utf8_upper
1722 bool
1723 Perl_is_utf8_upper(pTHXo_ U8 *p)
1724 {
1725     return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1726 }
1727
1728 #undef  Perl_is_utf8_lower
1729 bool
1730 Perl_is_utf8_lower(pTHXo_ U8 *p)
1731 {
1732     return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1733 }
1734
1735 #undef  Perl_is_utf8_print
1736 bool
1737 Perl_is_utf8_print(pTHXo_ U8 *p)
1738 {
1739     return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1740 }
1741
1742 #undef  Perl_is_utf8_punct
1743 bool
1744 Perl_is_utf8_punct(pTHXo_ U8 *p)
1745 {
1746     return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1747 }
1748
1749 #undef  Perl_is_utf8_xdigit
1750 bool
1751 Perl_is_utf8_xdigit(pTHXo_ U8 *p)
1752 {
1753     return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1754 }
1755
1756 #undef  Perl_is_utf8_mark
1757 bool
1758 Perl_is_utf8_mark(pTHXo_ U8 *p)
1759 {
1760     return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1761 }
1762
1763 #undef  Perl_jmaybe
1764 OP*
1765 Perl_jmaybe(pTHXo_ OP* arg)
1766 {
1767     return ((CPerlObj*)pPerl)->Perl_jmaybe(arg);
1768 }
1769
1770 #undef  Perl_keyword
1771 I32
1772 Perl_keyword(pTHXo_ char* d, I32 len)
1773 {
1774     return ((CPerlObj*)pPerl)->Perl_keyword(d, len);
1775 }
1776
1777 #undef  Perl_leave_scope
1778 void
1779 Perl_leave_scope(pTHXo_ I32 base)
1780 {
1781     ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1782 }
1783
1784 #undef  Perl_lex_end
1785 void
1786 Perl_lex_end(pTHXo)
1787 {
1788     ((CPerlObj*)pPerl)->Perl_lex_end();
1789 }
1790
1791 #undef  Perl_lex_start
1792 void
1793 Perl_lex_start(pTHXo_ SV* line)
1794 {
1795     ((CPerlObj*)pPerl)->Perl_lex_start(line);
1796 }
1797
1798 #undef  Perl_linklist
1799 OP*
1800 Perl_linklist(pTHXo_ OP* o)
1801 {
1802     return ((CPerlObj*)pPerl)->Perl_linklist(o);
1803 }
1804
1805 #undef  Perl_list
1806 OP*
1807 Perl_list(pTHXo_ OP* o)
1808 {
1809     return ((CPerlObj*)pPerl)->Perl_list(o);
1810 }
1811
1812 #undef  Perl_listkids
1813 OP*
1814 Perl_listkids(pTHXo_ OP* o)
1815 {
1816     return ((CPerlObj*)pPerl)->Perl_listkids(o);
1817 }
1818
1819 #undef  Perl_localize
1820 OP*
1821 Perl_localize(pTHXo_ OP* arg, I32 lexical)
1822 {
1823     return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical);
1824 }
1825
1826 #undef  Perl_looks_like_number
1827 I32
1828 Perl_looks_like_number(pTHXo_ SV* sv)
1829 {
1830     return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1831 }
1832
1833 #undef  Perl_magic_clearenv
1834 int
1835 Perl_magic_clearenv(pTHXo_ SV* sv, MAGIC* mg)
1836 {
1837     return ((CPerlObj*)pPerl)->Perl_magic_clearenv(sv, mg);
1838 }
1839
1840 #undef  Perl_magic_clear_all_env
1841 int
1842 Perl_magic_clear_all_env(pTHXo_ SV* sv, MAGIC* mg)
1843 {
1844     return ((CPerlObj*)pPerl)->Perl_magic_clear_all_env(sv, mg);
1845 }
1846
1847 #undef  Perl_magic_clearpack
1848 int
1849 Perl_magic_clearpack(pTHXo_ SV* sv, MAGIC* mg)
1850 {
1851     return ((CPerlObj*)pPerl)->Perl_magic_clearpack(sv, mg);
1852 }
1853
1854 #undef  Perl_magic_clearsig
1855 int
1856 Perl_magic_clearsig(pTHXo_ SV* sv, MAGIC* mg)
1857 {
1858     return ((CPerlObj*)pPerl)->Perl_magic_clearsig(sv, mg);
1859 }
1860
1861 #undef  Perl_magic_existspack
1862 int
1863 Perl_magic_existspack(pTHXo_ SV* sv, MAGIC* mg)
1864 {
1865     return ((CPerlObj*)pPerl)->Perl_magic_existspack(sv, mg);
1866 }
1867
1868 #undef  Perl_magic_freeregexp
1869 int
1870 Perl_magic_freeregexp(pTHXo_ SV* sv, MAGIC* mg)
1871 {
1872     return ((CPerlObj*)pPerl)->Perl_magic_freeregexp(sv, mg);
1873 }
1874
1875 #undef  Perl_magic_get
1876 int
1877 Perl_magic_get(pTHXo_ SV* sv, MAGIC* mg)
1878 {
1879     return ((CPerlObj*)pPerl)->Perl_magic_get(sv, mg);
1880 }
1881
1882 #undef  Perl_magic_getarylen
1883 int
1884 Perl_magic_getarylen(pTHXo_ SV* sv, MAGIC* mg)
1885 {
1886     return ((CPerlObj*)pPerl)->Perl_magic_getarylen(sv, mg);
1887 }
1888
1889 #undef  Perl_magic_getdefelem
1890 int
1891 Perl_magic_getdefelem(pTHXo_ SV* sv, MAGIC* mg)
1892 {
1893     return ((CPerlObj*)pPerl)->Perl_magic_getdefelem(sv, mg);
1894 }
1895
1896 #undef  Perl_magic_getglob
1897 int
1898 Perl_magic_getglob(pTHXo_ SV* sv, MAGIC* mg)
1899 {
1900     return ((CPerlObj*)pPerl)->Perl_magic_getglob(sv, mg);
1901 }
1902
1903 #undef  Perl_magic_getnkeys
1904 int
1905 Perl_magic_getnkeys(pTHXo_ SV* sv, MAGIC* mg)
1906 {
1907     return ((CPerlObj*)pPerl)->Perl_magic_getnkeys(sv, mg);
1908 }
1909
1910 #undef  Perl_magic_getpack
1911 int
1912 Perl_magic_getpack(pTHXo_ SV* sv, MAGIC* mg)
1913 {
1914     return ((CPerlObj*)pPerl)->Perl_magic_getpack(sv, mg);
1915 }
1916
1917 #undef  Perl_magic_getpos
1918 int
1919 Perl_magic_getpos(pTHXo_ SV* sv, MAGIC* mg)
1920 {
1921     return ((CPerlObj*)pPerl)->Perl_magic_getpos(sv, mg);
1922 }
1923
1924 #undef  Perl_magic_getsig
1925 int
1926 Perl_magic_getsig(pTHXo_ SV* sv, MAGIC* mg)
1927 {
1928     return ((CPerlObj*)pPerl)->Perl_magic_getsig(sv, mg);
1929 }
1930
1931 #undef  Perl_magic_getsubstr
1932 int
1933 Perl_magic_getsubstr(pTHXo_ SV* sv, MAGIC* mg)
1934 {
1935     return ((CPerlObj*)pPerl)->Perl_magic_getsubstr(sv, mg);
1936 }
1937
1938 #undef  Perl_magic_gettaint
1939 int
1940 Perl_magic_gettaint(pTHXo_ SV* sv, MAGIC* mg)
1941 {
1942     return ((CPerlObj*)pPerl)->Perl_magic_gettaint(sv, mg);
1943 }
1944
1945 #undef  Perl_magic_getuvar
1946 int
1947 Perl_magic_getuvar(pTHXo_ SV* sv, MAGIC* mg)
1948 {
1949     return ((CPerlObj*)pPerl)->Perl_magic_getuvar(sv, mg);
1950 }
1951
1952 #undef  Perl_magic_getvec
1953 int
1954 Perl_magic_getvec(pTHXo_ SV* sv, MAGIC* mg)
1955 {
1956     return ((CPerlObj*)pPerl)->Perl_magic_getvec(sv, mg);
1957 }
1958
1959 #undef  Perl_magic_len
1960 U32
1961 Perl_magic_len(pTHXo_ SV* sv, MAGIC* mg)
1962 {
1963     return ((CPerlObj*)pPerl)->Perl_magic_len(sv, mg);
1964 }
1965 #if defined(USE_THREADS)
1966
1967 #undef  Perl_magic_mutexfree
1968 int
1969 Perl_magic_mutexfree(pTHXo_ SV* sv, MAGIC* mg)
1970 {
1971     return ((CPerlObj*)pPerl)->Perl_magic_mutexfree(sv, mg);
1972 }
1973 #endif
1974
1975 #undef  Perl_magic_nextpack
1976 int
1977 Perl_magic_nextpack(pTHXo_ SV* sv, MAGIC* mg, SV* key)
1978 {
1979     return ((CPerlObj*)pPerl)->Perl_magic_nextpack(sv, mg, key);
1980 }
1981
1982 #undef  Perl_magic_regdata_cnt
1983 U32
1984 Perl_magic_regdata_cnt(pTHXo_ SV* sv, MAGIC* mg)
1985 {
1986     return ((CPerlObj*)pPerl)->Perl_magic_regdata_cnt(sv, mg);
1987 }
1988
1989 #undef  Perl_magic_regdatum_get
1990 int
1991 Perl_magic_regdatum_get(pTHXo_ SV* sv, MAGIC* mg)
1992 {
1993     return ((CPerlObj*)pPerl)->Perl_magic_regdatum_get(sv, mg);
1994 }
1995
1996 #undef  Perl_magic_set
1997 int
1998 Perl_magic_set(pTHXo_ SV* sv, MAGIC* mg)
1999 {
2000     return ((CPerlObj*)pPerl)->Perl_magic_set(sv, mg);
2001 }
2002
2003 #undef  Perl_magic_setamagic
2004 int
2005 Perl_magic_setamagic(pTHXo_ SV* sv, MAGIC* mg)
2006 {
2007     return ((CPerlObj*)pPerl)->Perl_magic_setamagic(sv, mg);
2008 }
2009
2010 #undef  Perl_magic_setarylen
2011 int
2012 Perl_magic_setarylen(pTHXo_ SV* sv, MAGIC* mg)
2013 {
2014     return ((CPerlObj*)pPerl)->Perl_magic_setarylen(sv, mg);
2015 }
2016
2017 #undef  Perl_magic_setbm
2018 int
2019 Perl_magic_setbm(pTHXo_ SV* sv, MAGIC* mg)
2020 {
2021     return ((CPerlObj*)pPerl)->Perl_magic_setbm(sv, mg);
2022 }
2023
2024 #undef  Perl_magic_setdbline
2025 int
2026 Perl_magic_setdbline(pTHXo_ SV* sv, MAGIC* mg)
2027 {
2028     return ((CPerlObj*)pPerl)->Perl_magic_setdbline(sv, mg);
2029 }
2030 #if defined(USE_LOCALE_COLLATE)
2031
2032 #undef  Perl_magic_setcollxfrm
2033 int
2034 Perl_magic_setcollxfrm(pTHXo_ SV* sv, MAGIC* mg)
2035 {
2036     return ((CPerlObj*)pPerl)->Perl_magic_setcollxfrm(sv, mg);
2037 }
2038 #endif
2039
2040 #undef  Perl_magic_setdefelem
2041 int
2042 Perl_magic_setdefelem(pTHXo_ SV* sv, MAGIC* mg)
2043 {
2044     return ((CPerlObj*)pPerl)->Perl_magic_setdefelem(sv, mg);
2045 }
2046
2047 #undef  Perl_magic_setenv
2048 int
2049 Perl_magic_setenv(pTHXo_ SV* sv, MAGIC* mg)
2050 {
2051     return ((CPerlObj*)pPerl)->Perl_magic_setenv(sv, mg);
2052 }
2053
2054 #undef  Perl_magic_setfm
2055 int
2056 Perl_magic_setfm(pTHXo_ SV* sv, MAGIC* mg)
2057 {
2058     return ((CPerlObj*)pPerl)->Perl_magic_setfm(sv, mg);
2059 }
2060
2061 #undef  Perl_magic_setisa
2062 int
2063 Perl_magic_setisa(pTHXo_ SV* sv, MAGIC* mg)
2064 {
2065     return ((CPerlObj*)pPerl)->Perl_magic_setisa(sv, mg);
2066 }
2067
2068 #undef  Perl_magic_setglob
2069 int
2070 Perl_magic_setglob(pTHXo_ SV* sv, MAGIC* mg)
2071 {
2072     return ((CPerlObj*)pPerl)->Perl_magic_setglob(sv, mg);
2073 }
2074
2075 #undef  Perl_magic_setmglob
2076 int
2077 Perl_magic_setmglob(pTHXo_ SV* sv, MAGIC* mg)
2078 {
2079     return ((CPerlObj*)pPerl)->Perl_magic_setmglob(sv, mg);
2080 }
2081
2082 #undef  Perl_magic_setnkeys
2083 int
2084 Perl_magic_setnkeys(pTHXo_ SV* sv, MAGIC* mg)
2085 {
2086     return ((CPerlObj*)pPerl)->Perl_magic_setnkeys(sv, mg);
2087 }
2088
2089 #undef  Perl_magic_setpack
2090 int
2091 Perl_magic_setpack(pTHXo_ SV* sv, MAGIC* mg)
2092 {
2093     return ((CPerlObj*)pPerl)->Perl_magic_setpack(sv, mg);
2094 }
2095
2096 #undef  Perl_magic_setpos
2097 int
2098 Perl_magic_setpos(pTHXo_ SV* sv, MAGIC* mg)
2099 {
2100     return ((CPerlObj*)pPerl)->Perl_magic_setpos(sv, mg);
2101 }
2102
2103 #undef  Perl_magic_setsig
2104 int
2105 Perl_magic_setsig(pTHXo_ SV* sv, MAGIC* mg)
2106 {
2107     return ((CPerlObj*)pPerl)->Perl_magic_setsig(sv, mg);
2108 }
2109
2110 #undef  Perl_magic_setsubstr
2111 int
2112 Perl_magic_setsubstr(pTHXo_ SV* sv, MAGIC* mg)
2113 {
2114     return ((CPerlObj*)pPerl)->Perl_magic_setsubstr(sv, mg);
2115 }
2116
2117 #undef  Perl_magic_settaint
2118 int
2119 Perl_magic_settaint(pTHXo_ SV* sv, MAGIC* mg)
2120 {
2121     return ((CPerlObj*)pPerl)->Perl_magic_settaint(sv, mg);
2122 }
2123
2124 #undef  Perl_magic_setuvar
2125 int
2126 Perl_magic_setuvar(pTHXo_ SV* sv, MAGIC* mg)
2127 {
2128     return ((CPerlObj*)pPerl)->Perl_magic_setuvar(sv, mg);
2129 }
2130
2131 #undef  Perl_magic_setvec
2132 int
2133 Perl_magic_setvec(pTHXo_ SV* sv, MAGIC* mg)
2134 {
2135     return ((CPerlObj*)pPerl)->Perl_magic_setvec(sv, mg);
2136 }
2137
2138 #undef  Perl_magic_set_all_env
2139 int
2140 Perl_magic_set_all_env(pTHXo_ SV* sv, MAGIC* mg)
2141 {
2142     return ((CPerlObj*)pPerl)->Perl_magic_set_all_env(sv, mg);
2143 }
2144
2145 #undef  Perl_magic_sizepack
2146 U32
2147 Perl_magic_sizepack(pTHXo_ SV* sv, MAGIC* mg)
2148 {
2149     return ((CPerlObj*)pPerl)->Perl_magic_sizepack(sv, mg);
2150 }
2151
2152 #undef  Perl_magic_wipepack
2153 int
2154 Perl_magic_wipepack(pTHXo_ SV* sv, MAGIC* mg)
2155 {
2156     return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg);
2157 }
2158
2159 #undef  Perl_magicname
2160 void
2161 Perl_magicname(pTHXo_ char* sym, char* name, I32 namlen)
2162 {
2163     ((CPerlObj*)pPerl)->Perl_magicname(sym, name, namlen);
2164 }
2165
2166 #undef  Perl_markstack_grow
2167 void
2168 Perl_markstack_grow(pTHXo)
2169 {
2170     ((CPerlObj*)pPerl)->Perl_markstack_grow();
2171 }
2172 #if defined(USE_LOCALE_COLLATE)
2173
2174 #undef  Perl_mem_collxfrm
2175 char*
2176 Perl_mem_collxfrm(pTHXo_ const char* s, STRLEN len, STRLEN* xlen)
2177 {
2178     return ((CPerlObj*)pPerl)->Perl_mem_collxfrm(s, len, xlen);
2179 }
2180 #endif
2181
2182 #undef  Perl_mess
2183 SV*
2184 Perl_mess(pTHXo_ const char* pat, ...)
2185 {
2186     SV* retval;
2187     va_list args;
2188     va_start(args, pat);
2189     retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
2190     va_end(args);
2191     return retval;
2192
2193 }
2194
2195 #undef  Perl_vmess
2196 SV*
2197 Perl_vmess(pTHXo_ const char* pat, va_list* args)
2198 {
2199     return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
2200 }
2201
2202 #undef  Perl_qerror
2203 void
2204 Perl_qerror(pTHXo_ SV* err)
2205 {
2206     ((CPerlObj*)pPerl)->Perl_qerror(err);
2207 }
2208
2209 #undef  Perl_mg_clear
2210 int
2211 Perl_mg_clear(pTHXo_ SV* sv)
2212 {
2213     return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
2214 }
2215
2216 #undef  Perl_mg_copy
2217 int
2218 Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen)
2219 {
2220     return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
2221 }
2222
2223 #undef  Perl_mg_find
2224 MAGIC*
2225 Perl_mg_find(pTHXo_ SV* sv, int type)
2226 {
2227     return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
2228 }
2229
2230 #undef  Perl_mg_free
2231 int
2232 Perl_mg_free(pTHXo_ SV* sv)
2233 {
2234     return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
2235 }
2236
2237 #undef  Perl_mg_get
2238 int
2239 Perl_mg_get(pTHXo_ SV* sv)
2240 {
2241     return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
2242 }
2243
2244 #undef  Perl_mg_length
2245 U32
2246 Perl_mg_length(pTHXo_ SV* sv)
2247 {
2248     return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
2249 }
2250
2251 #undef  Perl_mg_magical
2252 void
2253 Perl_mg_magical(pTHXo_ SV* sv)
2254 {
2255     ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
2256 }
2257
2258 #undef  Perl_mg_set
2259 int
2260 Perl_mg_set(pTHXo_ SV* sv)
2261 {
2262     return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
2263 }
2264
2265 #undef  Perl_mg_size
2266 I32
2267 Perl_mg_size(pTHXo_ SV* sv)
2268 {
2269     return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
2270 }
2271
2272 #undef  Perl_mod
2273 OP*
2274 Perl_mod(pTHXo_ OP* o, I32 type)
2275 {
2276     return ((CPerlObj*)pPerl)->Perl_mod(o, type);
2277 }
2278
2279 #undef  Perl_moreswitches
2280 char*
2281 Perl_moreswitches(pTHXo_ char* s)
2282 {
2283     return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
2284 }
2285
2286 #undef  Perl_my
2287 OP*
2288 Perl_my(pTHXo_ OP* o)
2289 {
2290     return ((CPerlObj*)pPerl)->Perl_my(o);
2291 }
2292
2293 #undef  Perl_my_atof
2294 NV
2295 Perl_my_atof(pTHXo_ const char *s)
2296 {
2297     return ((CPerlObj*)pPerl)->Perl_my_atof(s);
2298 }
2299 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
2300
2301 #undef  Perl_my_bcopy
2302 char*
2303 Perl_my_bcopy(pTHXo_ const char* from, char* to, I32 len)
2304 {
2305     return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
2306 }
2307 #endif
2308 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
2309
2310 #undef  Perl_my_bzero
2311 char*
2312 Perl_my_bzero(pTHXo_ char* loc, I32 len)
2313 {
2314     return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
2315 }
2316 #endif
2317
2318 #undef  Perl_my_exit
2319 void
2320 Perl_my_exit(pTHXo_ U32 status)
2321 {
2322     ((CPerlObj*)pPerl)->Perl_my_exit(status);
2323 }
2324
2325 #undef  Perl_my_failure_exit
2326 void
2327 Perl_my_failure_exit(pTHXo)
2328 {
2329     ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2330 }
2331
2332 #undef  Perl_my_fflush_all
2333 I32
2334 Perl_my_fflush_all(pTHXo)
2335 {
2336     return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2337 }
2338
2339 #undef  Perl_my_lstat
2340 I32
2341 Perl_my_lstat(pTHXo)
2342 {
2343     return ((CPerlObj*)pPerl)->Perl_my_lstat();
2344 }
2345 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
2346
2347 #undef  Perl_my_memcmp
2348 I32
2349 Perl_my_memcmp(pTHXo_ const char* s1, const char* s2, I32 len)
2350 {
2351     return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
2352 }
2353 #endif
2354 #if !defined(HAS_MEMSET)
2355
2356 #undef  Perl_my_memset
2357 void*
2358 Perl_my_memset(pTHXo_ char* loc, I32 ch, I32 len)
2359 {
2360     return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
2361 }
2362 #endif
2363 #if !defined(PERL_OBJECT)
2364
2365 #undef  Perl_my_pclose
2366 I32
2367 Perl_my_pclose(pTHXo_ PerlIO* ptr)
2368 {
2369     return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2370 }
2371
2372 #undef  Perl_my_popen
2373 PerlIO*
2374 Perl_my_popen(pTHXo_ char* cmd, char* mode)
2375 {
2376     return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
2377 }
2378 #endif
2379
2380 #undef  Perl_my_setenv
2381 void
2382 Perl_my_setenv(pTHXo_ char* nam, char* val)
2383 {
2384     ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2385 }
2386
2387 #undef  Perl_my_stat
2388 I32
2389 Perl_my_stat(pTHXo)
2390 {
2391     return ((CPerlObj*)pPerl)->Perl_my_stat();
2392 }
2393 #if defined(MYSWAP)
2394
2395 #undef  Perl_my_swap
2396 short
2397 Perl_my_swap(pTHXo_ short s)
2398 {
2399     return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2400 }
2401
2402 #undef  Perl_my_htonl
2403 long
2404 Perl_my_htonl(pTHXo_ long l)
2405 {
2406     return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2407 }
2408
2409 #undef  Perl_my_ntohl
2410 long
2411 Perl_my_ntohl(pTHXo_ long l)
2412 {
2413     return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2414 }
2415 #endif
2416
2417 #undef  Perl_my_unexec
2418 void
2419 Perl_my_unexec(pTHXo)
2420 {
2421     ((CPerlObj*)pPerl)->Perl_my_unexec();
2422 }
2423
2424 #undef  Perl_newANONLIST
2425 OP*
2426 Perl_newANONLIST(pTHXo_ OP* o)
2427 {
2428     return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2429 }
2430
2431 #undef  Perl_newANONHASH
2432 OP*
2433 Perl_newANONHASH(pTHXo_ OP* o)
2434 {
2435     return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2436 }
2437
2438 #undef  Perl_newANONSUB
2439 OP*
2440 Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
2441 {
2442     return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
2443 }
2444
2445 #undef  Perl_newASSIGNOP
2446 OP*
2447 Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
2448 {
2449     return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
2450 }
2451
2452 #undef  Perl_newCONDOP
2453 OP*
2454 Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
2455 {
2456     return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
2457 }
2458
2459 #undef  Perl_newCONSTSUB
2460 void
2461 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
2462 {
2463     ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2464 }
2465
2466 #undef  Perl_newFORM
2467 void
2468 Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
2469 {
2470     ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2471 }
2472
2473 #undef  Perl_newFOROP
2474 OP*
2475 Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
2476 {
2477     return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
2478 }
2479
2480 #undef  Perl_newLOGOP
2481 OP*
2482 Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
2483 {
2484     return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
2485 }
2486
2487 #undef  Perl_newLOOPEX
2488 OP*
2489 Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
2490 {
2491     return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2492 }
2493
2494 #undef  Perl_newLOOPOP
2495 OP*
2496 Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
2497 {
2498     return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
2499 }
2500
2501 #undef  Perl_newNULLLIST
2502 OP*
2503 Perl_newNULLLIST(pTHXo)
2504 {
2505     return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2506 }
2507
2508 #undef  Perl_newOP
2509 OP*
2510 Perl_newOP(pTHXo_ I32 optype, I32 flags)
2511 {
2512     return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2513 }
2514
2515 #undef  Perl_newPROG
2516 void
2517 Perl_newPROG(pTHXo_ OP* o)
2518 {
2519     ((CPerlObj*)pPerl)->Perl_newPROG(o);
2520 }
2521
2522 #undef  Perl_newRANGE
2523 OP*
2524 Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
2525 {
2526     return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
2527 }
2528
2529 #undef  Perl_newSLICEOP
2530 OP*
2531 Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
2532 {
2533     return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
2534 }
2535
2536 #undef  Perl_newSTATEOP
2537 OP*
2538 Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
2539 {
2540     return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
2541 }
2542
2543 #undef  Perl_newSUB
2544 CV*
2545 Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
2546 {
2547     return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
2548 }
2549
2550 #undef  Perl_newXS
2551 CV*
2552 Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
2553 {
2554     return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
2555 }
2556
2557 #undef  Perl_newAV
2558 AV*
2559 Perl_newAV(pTHXo)
2560 {
2561     return ((CPerlObj*)pPerl)->Perl_newAV();
2562 }
2563
2564 #undef  Perl_newAVREF
2565 OP*
2566 Perl_newAVREF(pTHXo_ OP* o)
2567 {
2568     return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2569 }
2570
2571 #undef  Perl_newBINOP
2572 OP*
2573 Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2574 {
2575     return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
2576 }
2577
2578 #undef  Perl_newCVREF
2579 OP*
2580 Perl_newCVREF(pTHXo_ I32 flags, OP* o)
2581 {
2582     return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2583 }
2584
2585 #undef  Perl_newGVOP
2586 OP*
2587 Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
2588 {
2589     return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
2590 }
2591
2592 #undef  Perl_newGVgen
2593 GV*
2594 Perl_newGVgen(pTHXo_ char* pack)
2595 {
2596     return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2597 }
2598
2599 #undef  Perl_newGVREF
2600 OP*
2601 Perl_newGVREF(pTHXo_ I32 type, OP* o)
2602 {
2603     return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2604 }
2605
2606 #undef  Perl_newHVREF
2607 OP*
2608 Perl_newHVREF(pTHXo_ OP* o)
2609 {
2610     return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2611 }
2612
2613 #undef  Perl_newHV
2614 HV*
2615 Perl_newHV(pTHXo)
2616 {
2617     return ((CPerlObj*)pPerl)->Perl_newHV();
2618 }
2619
2620 #undef  Perl_newHVhv
2621 HV*
2622 Perl_newHVhv(pTHXo_ HV* hv)
2623 {
2624     return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2625 }
2626
2627 #undef  Perl_newIO
2628 IO*
2629 Perl_newIO(pTHXo)
2630 {
2631     return ((CPerlObj*)pPerl)->Perl_newIO();
2632 }
2633
2634 #undef  Perl_newLISTOP
2635 OP*
2636 Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2637 {
2638     return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
2639 }
2640
2641 #undef  Perl_newPADOP
2642 OP*
2643 Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
2644 {
2645     return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
2646 }
2647
2648 #undef  Perl_newPMOP
2649 OP*
2650 Perl_newPMOP(pTHXo_ I32 type, I32 flags)
2651 {
2652     return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2653 }
2654
2655 #undef  Perl_newPVOP
2656 OP*
2657 Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
2658 {
2659     return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
2660 }
2661
2662 #undef  Perl_newRV
2663 SV*
2664 Perl_newRV(pTHXo_ SV* pref)
2665 {
2666     return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2667 }
2668
2669 #undef  Perl_newRV_noinc
2670 SV*
2671 Perl_newRV_noinc(pTHXo_ SV *sv)
2672 {
2673     return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2674 }
2675
2676 #undef  Perl_newSV
2677 SV*
2678 Perl_newSV(pTHXo_ STRLEN len)
2679 {
2680     return ((CPerlObj*)pPerl)->Perl_newSV(len);
2681 }
2682
2683 #undef  Perl_newSVREF
2684 OP*
2685 Perl_newSVREF(pTHXo_ OP* o)
2686 {
2687     return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2688 }
2689
2690 #undef  Perl_newSVOP
2691 OP*
2692 Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
2693 {
2694     return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
2695 }
2696
2697 #undef  Perl_newSViv
2698 SV*
2699 Perl_newSViv(pTHXo_ IV i)
2700 {
2701     return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2702 }
2703
2704 #undef  Perl_newSVnv
2705 SV*
2706 Perl_newSVnv(pTHXo_ NV n)
2707 {
2708     return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2709 }
2710
2711 #undef  Perl_newSVpv
2712 SV*
2713 Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
2714 {
2715     return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2716 }
2717
2718 #undef  Perl_newSVpvn
2719 SV*
2720 Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
2721 {
2722     return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2723 }
2724
2725 #undef  Perl_newSVpvf
2726 SV*
2727 Perl_newSVpvf(pTHXo_ const char* pat, ...)
2728 {
2729     SV* retval;
2730     va_list args;
2731     va_start(args, pat);
2732     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
2733     va_end(args);
2734     return retval;
2735
2736 }
2737
2738 #undef  Perl_vnewSVpvf
2739 SV*
2740 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
2741 {
2742     return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
2743 }
2744
2745 #undef  Perl_newSVrv
2746 SV*
2747 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
2748 {
2749     return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2750 }
2751
2752 #undef  Perl_newSVsv
2753 SV*
2754 Perl_newSVsv(pTHXo_ SV* old)
2755 {
2756     return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2757 }
2758
2759 #undef  Perl_newUNOP
2760 OP*
2761 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
2762 {
2763     return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2764 }
2765
2766 #undef  Perl_newWHILEOP
2767 OP*
2768 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2769 {
2770     return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2771 }
2772
2773 #undef  Perl_new_stackinfo
2774 PERL_SI*
2775 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
2776 {
2777     return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2778 }
2779
2780 #undef  Perl_nextargv
2781 PerlIO*
2782 Perl_nextargv(pTHXo_ GV* gv)
2783 {
2784     return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2785 }
2786
2787 #undef  Perl_ninstr
2788 char*
2789 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2790 {
2791     return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2792 }
2793
2794 #undef  Perl_oopsCV
2795 OP*
2796 Perl_oopsCV(pTHXo_ OP* o)
2797 {
2798     return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2799 }
2800
2801 #undef  Perl_op_free
2802 void
2803 Perl_op_free(pTHXo_ OP* arg)
2804 {
2805     ((CPerlObj*)pPerl)->Perl_op_free(arg);
2806 }
2807
2808 #undef  Perl_package
2809 void
2810 Perl_package(pTHXo_ OP* o)
2811 {
2812     ((CPerlObj*)pPerl)->Perl_package(o);
2813 }
2814
2815 #undef  Perl_pad_alloc
2816 PADOFFSET
2817 Perl_pad_alloc(pTHXo_ I32 optype, U32 tmptype)
2818 {
2819     return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype);
2820 }
2821
2822 #undef  Perl_pad_allocmy
2823 PADOFFSET
2824 Perl_pad_allocmy(pTHXo_ char* name)
2825 {
2826     return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2827 }
2828
2829 #undef  Perl_pad_findmy
2830 PADOFFSET
2831 Perl_pad_findmy(pTHXo_ char* name)
2832 {
2833     return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2834 }
2835
2836 #undef  Perl_oopsAV
2837 OP*
2838 Perl_oopsAV(pTHXo_ OP* o)
2839 {
2840     return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2841 }
2842
2843 #undef  Perl_oopsHV
2844 OP*
2845 Perl_oopsHV(pTHXo_ OP* o)
2846 {
2847     return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2848 }
2849
2850 #undef  Perl_pad_leavemy
2851 void
2852 Perl_pad_leavemy(pTHXo_ I32 fill)
2853 {
2854     ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2855 }
2856
2857 #undef  Perl_pad_sv
2858 SV*
2859 Perl_pad_sv(pTHXo_ PADOFFSET po)
2860 {
2861     return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2862 }
2863
2864 #undef  Perl_pad_free
2865 void
2866 Perl_pad_free(pTHXo_ PADOFFSET po)
2867 {
2868     ((CPerlObj*)pPerl)->Perl_pad_free(po);
2869 }
2870
2871 #undef  Perl_pad_reset
2872 void
2873 Perl_pad_reset(pTHXo)
2874 {
2875     ((CPerlObj*)pPerl)->Perl_pad_reset();
2876 }
2877
2878 #undef  Perl_pad_swipe
2879 void
2880 Perl_pad_swipe(pTHXo_ PADOFFSET po)
2881 {
2882     ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2883 }
2884
2885 #undef  Perl_peep
2886 void
2887 Perl_peep(pTHXo_ OP* o)
2888 {
2889     ((CPerlObj*)pPerl)->Perl_peep(o);
2890 }
2891 #if defined(PERL_OBJECT)
2892
2893 #undef  Perl_construct
2894 void
2895 Perl_construct(pTHXo)
2896 {
2897     ((CPerlObj*)pPerl)->Perl_construct();
2898 }
2899
2900 #undef  Perl_destruct
2901 void
2902 Perl_destruct(pTHXo)
2903 {
2904     ((CPerlObj*)pPerl)->Perl_destruct();
2905 }
2906
2907 #undef  Perl_free
2908 void
2909 Perl_free(pTHXo)
2910 {
2911     ((CPerlObj*)pPerl)->Perl_free();
2912 }
2913
2914 #undef  Perl_run
2915 int
2916 Perl_run(pTHXo)
2917 {
2918     return ((CPerlObj*)pPerl)->Perl_run();
2919 }
2920
2921 #undef  Perl_parse
2922 int
2923 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2924 {
2925     return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2926 }
2927 #endif
2928 #if defined(USE_THREADS)
2929
2930 #undef  Perl_new_struct_thread
2931 struct perl_thread*
2932 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2933 {
2934     return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2935 }
2936 #endif
2937
2938 #undef  Perl_call_atexit
2939 void
2940 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2941 {
2942     ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2943 }
2944
2945 #undef  Perl_call_argv
2946 I32
2947 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2948 {
2949     return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2950 }
2951
2952 #undef  Perl_call_method
2953 I32
2954 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2955 {
2956     return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2957 }
2958
2959 #undef  Perl_call_pv
2960 I32
2961 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2962 {
2963     return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2964 }
2965
2966 #undef  Perl_call_sv
2967 I32
2968 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2969 {
2970     return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2971 }
2972
2973 #undef  Perl_eval_pv
2974 SV*
2975 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2976 {
2977     return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2978 }
2979
2980 #undef  Perl_eval_sv
2981 I32
2982 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2983 {
2984     return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2985 }
2986
2987 #undef  Perl_get_sv
2988 SV*
2989 Perl_get_sv(pTHXo_ const char* name, I32 create)
2990 {
2991     return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2992 }
2993
2994 #undef  Perl_get_av
2995 AV*
2996 Perl_get_av(pTHXo_ const char* name, I32 create)
2997 {
2998     return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2999 }
3000
3001 #undef  Perl_get_hv
3002 HV*
3003 Perl_get_hv(pTHXo_ const char* name, I32 create)
3004 {
3005     return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
3006 }
3007
3008 #undef  Perl_get_cv
3009 CV*
3010 Perl_get_cv(pTHXo_ const char* name, I32 create)
3011 {
3012     return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
3013 }
3014
3015 #undef  Perl_init_i18nl10n
3016 int
3017 Perl_init_i18nl10n(pTHXo_ int printwarn)
3018 {
3019     return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
3020 }
3021
3022 #undef  Perl_init_i18nl14n
3023 int
3024 Perl_init_i18nl14n(pTHXo_ int printwarn)
3025 {
3026     return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
3027 }
3028
3029 #undef  Perl_new_collate
3030 void
3031 Perl_new_collate(pTHXo_ const char* newcoll)
3032 {
3033     ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
3034 }
3035
3036 #undef  Perl_new_ctype
3037 void
3038 Perl_new_ctype(pTHXo_ const char* newctype)
3039 {
3040     ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
3041 }
3042
3043 #undef  Perl_new_numeric
3044 void
3045 Perl_new_numeric(pTHXo_ const char* newcoll)
3046 {
3047     ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
3048 }
3049
3050 #undef  Perl_set_numeric_local
3051 void
3052 Perl_set_numeric_local(pTHXo)
3053 {
3054     ((CPerlObj*)pPerl)->Perl_set_numeric_local();
3055 }
3056
3057 #undef  Perl_set_numeric_radix
3058 void
3059 Perl_set_numeric_radix(pTHXo)
3060 {
3061     ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
3062 }
3063
3064 #undef  Perl_set_numeric_standard
3065 void
3066 Perl_set_numeric_standard(pTHXo)
3067 {
3068     ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
3069 }
3070
3071 #undef  Perl_require_pv
3072 void
3073 Perl_require_pv(pTHXo_ const char* pv)
3074 {
3075     ((CPerlObj*)pPerl)->Perl_require_pv(pv);
3076 }
3077
3078 #undef  Perl_pidgone
3079 void
3080 Perl_pidgone(pTHXo_ Pid_t pid, int status)
3081 {
3082     ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
3083 }
3084
3085 #undef  Perl_pmflag
3086 void
3087 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
3088 {
3089     ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
3090 }
3091
3092 #undef  Perl_pmruntime
3093 OP*
3094 Perl_pmruntime(pTHXo_ OP* pm, OP* expr, OP* repl)
3095 {
3096     return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl);
3097 }
3098
3099 #undef  Perl_pmtrans
3100 OP*
3101 Perl_pmtrans(pTHXo_ OP* o, OP* expr, OP* repl)
3102 {
3103     return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl);
3104 }
3105
3106 #undef  Perl_pop_return
3107 OP*
3108 Perl_pop_return(pTHXo)
3109 {
3110     return ((CPerlObj*)pPerl)->Perl_pop_return();
3111 }
3112
3113 #undef  Perl_pop_scope
3114 void
3115 Perl_pop_scope(pTHXo)
3116 {
3117     ((CPerlObj*)pPerl)->Perl_pop_scope();
3118 }
3119
3120 #undef  Perl_prepend_elem
3121 OP*
3122 Perl_prepend_elem(pTHXo_ I32 optype, OP* head, OP* tail)
3123 {
3124     return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail);
3125 }
3126
3127 #undef  Perl_push_return
3128 void
3129 Perl_push_return(pTHXo_ OP* o)
3130 {
3131     ((CPerlObj*)pPerl)->Perl_push_return(o);
3132 }
3133
3134 #undef  Perl_push_scope
3135 void
3136 Perl_push_scope(pTHXo)
3137 {
3138     ((CPerlObj*)pPerl)->Perl_push_scope();
3139 }
3140
3141 #undef  Perl_ref
3142 OP*
3143 Perl_ref(pTHXo_ OP* o, I32 type)
3144 {
3145     return ((CPerlObj*)pPerl)->Perl_ref(o, type);
3146 }
3147
3148 #undef  Perl_refkids
3149 OP*
3150 Perl_refkids(pTHXo_ OP* o, I32 type)
3151 {
3152     return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
3153 }
3154
3155 #undef  Perl_regdump
3156 void
3157 Perl_regdump(pTHXo_ regexp* r)
3158 {
3159     ((CPerlObj*)pPerl)->Perl_regdump(r);
3160 }
3161
3162 #undef  Perl_pregexec
3163 I32
3164 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
3165 {
3166     return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
3167 }
3168
3169 #undef  Perl_pregfree
3170 void
3171 Perl_pregfree(pTHXo_ struct regexp* r)
3172 {
3173     ((CPerlObj*)pPerl)->Perl_pregfree(r);
3174 }
3175
3176 #undef  Perl_pregcomp
3177 regexp*
3178 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
3179 {
3180     return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
3181 }
3182
3183 #undef  Perl_re_intuit_start
3184 char*
3185 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
3186 {
3187     return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
3188 }
3189
3190 #undef  Perl_re_intuit_string
3191 SV*
3192 Perl_re_intuit_string(pTHXo_ regexp* prog)
3193 {
3194     return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
3195 }
3196
3197 #undef  Perl_regexec_flags
3198 I32
3199 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
3200 {
3201     return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
3202 }
3203
3204 #undef  Perl_regnext
3205 regnode*
3206 Perl_regnext(pTHXo_ regnode* p)
3207 {
3208     return ((CPerlObj*)pPerl)->Perl_regnext(p);
3209 }
3210
3211 #undef  Perl_regprop
3212 void
3213 Perl_regprop(pTHXo_ SV* sv, regnode* o)
3214 {
3215     ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
3216 }
3217
3218 #undef  Perl_repeatcpy
3219 void
3220 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
3221 {
3222     ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
3223 }
3224
3225 #undef  Perl_rninstr
3226 char*
3227 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
3228 {
3229     return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
3230 }
3231
3232 #undef  Perl_rsignal
3233 Sighandler_t
3234 Perl_rsignal(pTHXo_ int i, Sighandler_t t)
3235 {
3236     return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
3237 }
3238
3239 #undef  Perl_rsignal_restore
3240 int
3241 Perl_rsignal_restore(pTHXo_ int i, Sigsave_t* t)
3242 {
3243     return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t);
3244 }
3245
3246 #undef  Perl_rsignal_save
3247 int
3248 Perl_rsignal_save(pTHXo_ int i, Sighandler_t t1, Sigsave_t* t2)
3249 {
3250     return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2);
3251 }
3252
3253 #undef  Perl_rsignal_state
3254 Sighandler_t
3255 Perl_rsignal_state(pTHXo_ int i)
3256 {
3257     return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
3258 }
3259
3260 #undef  Perl_rxres_free
3261 void
3262 Perl_rxres_free(pTHXo_ void** rsp)
3263 {
3264     ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
3265 }
3266
3267 #undef  Perl_rxres_restore
3268 void
3269 Perl_rxres_restore(pTHXo_ void** rsp, REGEXP* prx)
3270 {
3271     ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
3272 }
3273
3274 #undef  Perl_rxres_save
3275 void
3276 Perl_rxres_save(pTHXo_ void** rsp, REGEXP* prx)
3277 {
3278     ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx);
3279 }
3280 #if !defined(HAS_RENAME)
3281
3282 #undef  Perl_same_dirent
3283 I32
3284 Perl_same_dirent(pTHXo_ char* a, char* b)
3285 {
3286     return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b);
3287 }
3288 #endif
3289
3290 #undef  Perl_savepv
3291 char*
3292 Perl_savepv(pTHXo_ const char* sv)
3293 {
3294     return ((CPerlObj*)pPerl)->Perl_savepv(sv);
3295 }
3296
3297 #undef  Perl_savepvn
3298 char*
3299 Perl_savepvn(pTHXo_ const char* sv, I32 len)
3300 {
3301     return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
3302 }
3303
3304 #undef  Perl_savestack_grow
3305 void
3306 Perl_savestack_grow(pTHXo)
3307 {
3308     ((CPerlObj*)pPerl)->Perl_savestack_grow();
3309 }
3310
3311 #undef  Perl_save_aelem
3312 void
3313 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
3314 {
3315     ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
3316 }
3317
3318 #undef  Perl_save_alloc
3319 I32
3320 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
3321 {
3322     return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
3323 }
3324
3325 #undef  Perl_save_aptr
3326 void
3327 Perl_save_aptr(pTHXo_ AV** aptr)
3328 {
3329     ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3330 }
3331
3332 #undef  Perl_save_ary
3333 AV*
3334 Perl_save_ary(pTHXo_ GV* gv)
3335 {
3336     return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3337 }
3338
3339 #undef  Perl_save_clearsv
3340 void
3341 Perl_save_clearsv(pTHXo_ SV** svp)
3342 {
3343     ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3344 }
3345
3346 #undef  Perl_save_delete
3347 void
3348 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
3349 {
3350     ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
3351 }
3352
3353 #undef  Perl_save_destructor
3354 void
3355 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
3356 {
3357     ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
3358 }
3359
3360 #undef  Perl_save_destructor_x
3361 void
3362 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
3363 {
3364     ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
3365 }
3366
3367 #undef  Perl_save_freesv
3368 void
3369 Perl_save_freesv(pTHXo_ SV* sv)
3370 {
3371     ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3372 }
3373
3374 #undef  Perl_save_freeop
3375 void
3376 Perl_save_freeop(pTHXo_ OP* o)
3377 {
3378     ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3379 }
3380
3381 #undef  Perl_save_freepv
3382 void
3383 Perl_save_freepv(pTHXo_ char* pv)
3384 {
3385     ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3386 }
3387
3388 #undef  Perl_save_generic_svref
3389 void
3390 Perl_save_generic_svref(pTHXo_ SV** sptr)
3391 {
3392     ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3393 }
3394
3395 #undef  Perl_save_gp
3396 void
3397 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
3398 {
3399     ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3400 }
3401
3402 #undef  Perl_save_hash
3403 HV*
3404 Perl_save_hash(pTHXo_ GV* gv)
3405 {
3406     return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3407 }
3408
3409 #undef  Perl_save_helem
3410 void
3411 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
3412 {
3413     ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
3414 }
3415
3416 #undef  Perl_save_hints
3417 void
3418 Perl_save_hints(pTHXo)
3419 {
3420     ((CPerlObj*)pPerl)->Perl_save_hints();
3421 }
3422
3423 #undef  Perl_save_hptr
3424 void
3425 Perl_save_hptr(pTHXo_ HV** hptr)
3426 {
3427     ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3428 }
3429
3430 #undef  Perl_save_I16
3431 void
3432 Perl_save_I16(pTHXo_ I16* intp)
3433 {
3434     ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3435 }
3436
3437 #undef  Perl_save_I32
3438 void
3439 Perl_save_I32(pTHXo_ I32* intp)
3440 {
3441     ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3442 }
3443
3444 #undef  Perl_save_I8
3445 void
3446 Perl_save_I8(pTHXo_ I8* bytep)
3447 {
3448     ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
3449 }
3450
3451 #undef  Perl_save_int
3452 void
3453 Perl_save_int(pTHXo_ int* intp)
3454 {
3455     ((CPerlObj*)pPerl)->Perl_save_int(intp);
3456 }
3457
3458 #undef  Perl_save_item
3459 void
3460 Perl_save_item(pTHXo_ SV* item)
3461 {
3462     ((CPerlObj*)pPerl)->Perl_save_item(item);
3463 }
3464
3465 #undef  Perl_save_iv
3466 void
3467 Perl_save_iv(pTHXo_ IV* iv)
3468 {
3469     ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3470 }
3471
3472 #undef  Perl_save_list
3473 void
3474 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
3475 {
3476     ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3477 }
3478
3479 #undef  Perl_save_long
3480 void
3481 Perl_save_long(pTHXo_ long* longp)
3482 {
3483     ((CPerlObj*)pPerl)->Perl_save_long(longp);
3484 }
3485
3486 #undef  Perl_save_nogv
3487 void
3488 Perl_save_nogv(pTHXo_ GV* gv)
3489 {
3490     ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3491 }
3492
3493 #undef  Perl_save_op
3494 void
3495 Perl_save_op(pTHXo)
3496 {
3497     ((CPerlObj*)pPerl)->Perl_save_op();
3498 }
3499
3500 #undef  Perl_save_scalar
3501 SV*
3502 Perl_save_scalar(pTHXo_ GV* gv)
3503 {
3504     return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3505 }
3506
3507 #undef  Perl_save_pptr
3508 void
3509 Perl_save_pptr(pTHXo_ char** pptr)
3510 {
3511     ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3512 }
3513
3514 #undef  Perl_save_vptr
3515 void
3516 Perl_save_vptr(pTHXo_ void* pptr)
3517 {
3518     ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
3519 }
3520
3521 #undef  Perl_save_re_context
3522 void
3523 Perl_save_re_context(pTHXo)
3524 {
3525     ((CPerlObj*)pPerl)->Perl_save_re_context();
3526 }
3527
3528 #undef  Perl_save_sptr
3529 void
3530 Perl_save_sptr(pTHXo_ SV** sptr)
3531 {
3532     ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3533 }
3534
3535 #undef  Perl_save_svref
3536 SV*
3537 Perl_save_svref(pTHXo_ SV** sptr)
3538 {
3539     return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3540 }
3541
3542 #undef  Perl_save_threadsv
3543 SV**
3544 Perl_save_threadsv(pTHXo_ PADOFFSET i)
3545 {
3546     return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3547 }
3548
3549 #undef  Perl_sawparens
3550 OP*
3551 Perl_sawparens(pTHXo_ OP* o)
3552 {
3553     return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3554 }
3555
3556 #undef  Perl_scalar
3557 OP*
3558 Perl_scalar(pTHXo_ OP* o)
3559 {
3560     return ((CPerlObj*)pPerl)->Perl_scalar(o);
3561 }
3562
3563 #undef  Perl_scalarkids
3564 OP*
3565 Perl_scalarkids(pTHXo_ OP* o)
3566 {
3567     return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3568 }
3569
3570 #undef  Perl_scalarseq
3571 OP*
3572 Perl_scalarseq(pTHXo_ OP* o)
3573 {
3574     return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3575 }
3576
3577 #undef  Perl_scalarvoid
3578 OP*
3579 Perl_scalarvoid(pTHXo_ OP* o)
3580 {
3581     return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3582 }
3583
3584 #undef  Perl_scan_bin
3585 NV
3586 Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
3587 {
3588     return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
3589 }
3590
3591 #undef  Perl_scan_hex
3592 NV
3593 Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
3594 {
3595     return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
3596 }
3597
3598 #undef  Perl_scan_num
3599 char*
3600 Perl_scan_num(pTHXo_ char* s)
3601 {
3602     return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3603 }
3604
3605 #undef  Perl_scan_oct
3606 NV
3607 Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
3608 {
3609     return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
3610 }
3611
3612 #undef  Perl_scope
3613 OP*
3614 Perl_scope(pTHXo_ OP* o)
3615 {
3616     return ((CPerlObj*)pPerl)->Perl_scope(o);
3617 }
3618
3619 #undef  Perl_screaminstr
3620 char*
3621 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
3622 {
3623     return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
3624 }
3625 #if !defined(VMS)
3626
3627 #undef  Perl_setenv_getix
3628 I32
3629 Perl_setenv_getix(pTHXo_ char* nam)
3630 {
3631     return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3632 }
3633 #endif
3634
3635 #undef  Perl_setdefout
3636 void
3637 Perl_setdefout(pTHXo_ GV* gv)
3638 {
3639     ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3640 }
3641
3642 #undef  Perl_sharepvn
3643 char*
3644 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3645 {
3646     return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
3647 }
3648
3649 #undef  Perl_share_hek
3650 HEK*
3651 Perl_share_hek(pTHXo_ const char* sv, I32 len, U32 hash)
3652 {
3653     return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash);
3654 }
3655
3656 #undef  Perl_sighandler
3657 Signal_t
3658 Perl_sighandler(int sig)
3659 {
3660     dTHXo;
3661     ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3662 }
3663
3664 #undef  Perl_stack_grow
3665 SV**
3666 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
3667 {
3668     return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
3669 }
3670
3671 #undef  Perl_start_subparse
3672 I32
3673 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
3674 {
3675     return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
3676 }
3677
3678 #undef  Perl_sub_crush_depth
3679 void
3680 Perl_sub_crush_depth(pTHXo_ CV* cv)
3681 {
3682     ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3683 }
3684
3685 #undef  Perl_sv_2bool
3686 bool
3687 Perl_sv_2bool(pTHXo_ SV* sv)
3688 {
3689     return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3690 }
3691
3692 #undef  Perl_sv_2cv
3693 CV*
3694 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
3695 {
3696     return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
3697 }
3698
3699 #undef  Perl_sv_2io
3700 IO*
3701 Perl_sv_2io(pTHXo_ SV* sv)
3702 {
3703     return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3704 }
3705
3706 #undef  Perl_sv_2iv
3707 IV
3708 Perl_sv_2iv(pTHXo_ SV* sv)
3709 {
3710     return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3711 }
3712
3713 #undef  Perl_sv_2mortal
3714 SV*
3715 Perl_sv_2mortal(pTHXo_ SV* sv)
3716 {
3717     return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3718 }
3719
3720 #undef  Perl_sv_2nv
3721 NV
3722 Perl_sv_2nv(pTHXo_ SV* sv)
3723 {
3724     return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3725 }
3726
3727 #undef  Perl_sv_2pv
3728 char*
3729 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
3730 {
3731     return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
3732 }
3733
3734 #undef  Perl_sv_2uv
3735 UV
3736 Perl_sv_2uv(pTHXo_ SV* sv)
3737 {
3738     return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3739 }
3740
3741 #undef  Perl_sv_iv
3742 IV
3743 Perl_sv_iv(pTHXo_ SV* sv)
3744 {
3745     return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3746 }
3747
3748 #undef  Perl_sv_uv
3749 UV
3750 Perl_sv_uv(pTHXo_ SV* sv)
3751 {
3752     return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3753 }
3754
3755 #undef  Perl_sv_nv
3756 NV
3757 Perl_sv_nv(pTHXo_ SV* sv)
3758 {
3759     return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3760 }
3761
3762 #undef  Perl_sv_pvn
3763 char*
3764 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
3765 {
3766     return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
3767 }
3768
3769 #undef  Perl_sv_true
3770 I32
3771 Perl_sv_true(pTHXo_ SV *sv)
3772 {
3773     return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3774 }
3775
3776 #undef  Perl_sv_add_arena
3777 void
3778 Perl_sv_add_arena(pTHXo_ char* ptr, U32 size, U32 flags)
3779 {
3780     ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags);
3781 }
3782
3783 #undef  Perl_sv_backoff
3784 int
3785 Perl_sv_backoff(pTHXo_ SV* sv)
3786 {
3787     return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3788 }
3789
3790 #undef  Perl_sv_bless
3791 SV*
3792 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
3793 {
3794     return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
3795 }
3796
3797 #undef  Perl_sv_catpvf
3798 void
3799 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
3800 {
3801     va_list args;
3802     va_start(args, pat);
3803     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
3804     va_end(args);
3805 }
3806
3807 #undef  Perl_sv_vcatpvf
3808 void
3809 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3810 {
3811     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
3812 }
3813
3814 #undef  Perl_sv_catpv
3815 void
3816 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
3817 {
3818     ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
3819 }
3820
3821 #undef  Perl_sv_catpvn
3822 void
3823 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3824 {
3825     ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
3826 }
3827
3828 #undef  Perl_sv_catsv
3829 void
3830 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
3831 {
3832     ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3833 }
3834
3835 #undef  Perl_sv_chop
3836 void
3837 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
3838 {
3839     ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
3840 }
3841
3842 #undef  Perl_sv_clean_all
3843 void
3844 Perl_sv_clean_all(pTHXo)
3845 {
3846     ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3847 }
3848
3849 #undef  Perl_sv_clean_objs
3850 void
3851 Perl_sv_clean_objs(pTHXo)
3852 {
3853     ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3854 }
3855
3856 #undef  Perl_sv_clear
3857 void
3858 Perl_sv_clear(pTHXo_ SV* sv)
3859 {
3860     ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3861 }
3862
3863 #undef  Perl_sv_cmp
3864 I32
3865 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
3866 {
3867     return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
3868 }
3869
3870 #undef  Perl_sv_cmp_locale
3871 I32
3872 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
3873 {
3874     return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
3875 }
3876 #if defined(USE_LOCALE_COLLATE)
3877
3878 #undef  Perl_sv_collxfrm
3879 char*
3880 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
3881 {
3882     return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
3883 }
3884 #endif
3885
3886 #undef  Perl_sv_compile_2op
3887 OP*
3888 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
3889 {
3890     return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
3891 }
3892
3893 #undef  Perl_sv_dec
3894 void
3895 Perl_sv_dec(pTHXo_ SV* sv)
3896 {
3897     ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3898 }
3899
3900 #undef  Perl_sv_dump
3901 void
3902 Perl_sv_dump(pTHXo_ SV* sv)
3903 {
3904     ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3905 }
3906
3907 #undef  Perl_sv_derived_from
3908 bool
3909 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
3910 {
3911     return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
3912 }
3913
3914 #undef  Perl_sv_eq
3915 I32
3916 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
3917 {
3918     return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
3919 }
3920
3921 #undef  Perl_sv_free
3922 void
3923 Perl_sv_free(pTHXo_ SV* sv)
3924 {
3925     ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3926 }
3927
3928 #undef  Perl_sv_free_arenas
3929 void
3930 Perl_sv_free_arenas(pTHXo)
3931 {
3932     ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3933 }
3934
3935 #undef  Perl_sv_gets
3936 char*
3937 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
3938 {
3939     return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
3940 }
3941
3942 #undef  Perl_sv_grow
3943 char*
3944 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
3945 {
3946     return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
3947 }
3948
3949 #undef  Perl_sv_inc
3950 void
3951 Perl_sv_inc(pTHXo_ SV* sv)
3952 {
3953     ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3954 }
3955
3956 #undef  Perl_sv_insert
3957 void
3958 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
3959 {
3960     ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
3961 }
3962
3963 #undef  Perl_sv_isa
3964 int
3965 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
3966 {
3967     return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
3968 }
3969
3970 #undef  Perl_sv_isobject
3971 int
3972 Perl_sv_isobject(pTHXo_ SV* sv)
3973 {
3974     return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
3975 }
3976
3977 #undef  Perl_sv_len
3978 STRLEN
3979 Perl_sv_len(pTHXo_ SV* sv)
3980 {
3981     return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
3982 }
3983
3984 #undef  Perl_sv_len_utf8
3985 STRLEN
3986 Perl_sv_len_utf8(pTHXo_ SV* sv)
3987 {
3988     return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
3989 }
3990
3991 #undef  Perl_sv_magic
3992 void
3993 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
3994 {
3995     ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
3996 }
3997
3998 #undef  Perl_sv_mortalcopy
3999 SV*
4000 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
4001 {
4002     return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
4003 }
4004
4005 #undef  Perl_sv_newmortal
4006 SV*
4007 Perl_sv_newmortal(pTHXo)
4008 {
4009     return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
4010 }
4011
4012 #undef  Perl_sv_newref
4013 SV*
4014 Perl_sv_newref(pTHXo_ SV* sv)
4015 {
4016     return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
4017 }
4018
4019 #undef  Perl_sv_peek
4020 char*
4021 Perl_sv_peek(pTHXo_ SV* sv)
4022 {
4023     return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
4024 }
4025
4026 #undef  Perl_sv_pos_u2b
4027 void
4028 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
4029 {
4030     ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
4031 }
4032
4033 #undef  Perl_sv_pos_b2u
4034 void
4035 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
4036 {
4037     ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
4038 }
4039
4040 #undef  Perl_sv_pvn_force
4041 char*
4042 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
4043 {
4044     return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
4045 }
4046
4047 #undef  Perl_sv_reftype
4048 char*
4049 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
4050 {
4051     return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
4052 }
4053
4054 #undef  Perl_sv_replace
4055 void
4056 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
4057 {
4058     ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
4059 }
4060
4061 #undef  Perl_sv_report_used
4062 void
4063 Perl_sv_report_used(pTHXo)
4064 {
4065     ((CPerlObj*)pPerl)->Perl_sv_report_used();
4066 }
4067
4068 #undef  Perl_sv_reset
4069 void
4070 Perl_sv_reset(pTHXo_ char* s, HV* stash)
4071 {
4072     ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
4073 }
4074
4075 #undef  Perl_sv_setpvf
4076 void
4077 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
4078 {
4079     va_list args;
4080     va_start(args, pat);
4081     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
4082     va_end(args);
4083 }
4084
4085 #undef  Perl_sv_vsetpvf
4086 void
4087 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
4088 {
4089     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
4090 }
4091
4092 #undef  Perl_sv_setiv
4093 void
4094 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
4095 {
4096     ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
4097 }
4098
4099 #undef  Perl_sv_setpviv
4100 void
4101 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
4102 {
4103     ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
4104 }
4105
4106 #undef  Perl_sv_setuv
4107 void
4108 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
4109 {
4110     ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
4111 }
4112
4113 #undef  Perl_sv_setnv
4114 void
4115 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
4116 {
4117     ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
4118 }
4119
4120 #undef  Perl_sv_setref_iv
4121 SV*
4122 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
4123 {
4124     return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
4125 }
4126
4127 #undef  Perl_sv_setref_nv
4128 SV*
4129 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
4130 {
4131     return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
4132 }
4133
4134 #undef  Perl_sv_setref_pv
4135 SV*
4136 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
4137 {
4138     return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
4139 }
4140
4141 #undef  Perl_sv_setref_pvn
4142 SV*
4143 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
4144 {
4145     return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
4146 }
4147
4148 #undef  Perl_sv_setpv
4149 void
4150 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
4151 {
4152     ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
4153 }
4154
4155 #undef  Perl_sv_setpvn
4156 void
4157 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
4158 {
4159     ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
4160 }
4161
4162 #undef  Perl_sv_setsv
4163 void
4164 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
4165 {
4166     ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
4167 }
4168
4169 #undef  Perl_sv_taint
4170 void
4171 Perl_sv_taint(pTHXo_ SV* sv)
4172 {
4173     ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
4174 }
4175
4176 #undef  Perl_sv_tainted
4177 bool
4178 Perl_sv_tainted(pTHXo_ SV* sv)
4179 {
4180     return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
4181 }
4182
4183 #undef  Perl_sv_unmagic
4184 int
4185 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
4186 {
4187     return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
4188 }
4189
4190 #undef  Perl_sv_unref
4191 void
4192 Perl_sv_unref(pTHXo_ SV* sv)
4193 {
4194     ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
4195 }
4196
4197 #undef  Perl_sv_untaint
4198 void
4199 Perl_sv_untaint(pTHXo_ SV* sv)
4200 {
4201     ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
4202 }
4203
4204 #undef  Perl_sv_upgrade
4205 bool
4206 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
4207 {
4208     return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
4209 }
4210
4211 #undef  Perl_sv_usepvn
4212 void
4213 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
4214 {
4215     ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
4216 }
4217
4218 #undef  Perl_sv_vcatpvfn
4219 void
4220 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4221 {
4222     ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4223 }
4224
4225 #undef  Perl_sv_vsetpvfn
4226 void
4227 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4228 {
4229     ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4230 }
4231
4232 #undef  Perl_swash_init
4233 SV*
4234 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
4235 {
4236     return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
4237 }
4238
4239 #undef  Perl_swash_fetch
4240 UV
4241 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
4242 {
4243     return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
4244 }
4245
4246 #undef  Perl_taint_env
4247 void
4248 Perl_taint_env(pTHXo)
4249 {
4250     ((CPerlObj*)pPerl)->Perl_taint_env();
4251 }
4252
4253 #undef  Perl_taint_proper
4254 void
4255 Perl_taint_proper(pTHXo_ const char* f, const char* s)
4256 {
4257     ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
4258 }
4259
4260 #undef  Perl_to_utf8_lower
4261 UV
4262 Perl_to_utf8_lower(pTHXo_ U8 *p)
4263 {
4264     return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
4265 }
4266
4267 #undef  Perl_to_utf8_upper
4268 UV
4269 Perl_to_utf8_upper(pTHXo_ U8 *p)
4270 {
4271     return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
4272 }
4273
4274 #undef  Perl_to_utf8_title
4275 UV
4276 Perl_to_utf8_title(pTHXo_ U8 *p)
4277 {
4278     return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
4279 }
4280 #if defined(UNLINK_ALL_VERSIONS)
4281
4282 #undef  Perl_unlnk
4283 I32
4284 Perl_unlnk(pTHXo_ char* f)
4285 {
4286     return ((CPerlObj*)pPerl)->Perl_unlnk(f);
4287 }
4288 #endif
4289 #if defined(USE_THREADS)
4290
4291 #undef  Perl_unlock_condpair
4292 void
4293 Perl_unlock_condpair(pTHXo_ void* svv)
4294 {
4295     ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
4296 }
4297 #endif
4298
4299 #undef  Perl_unsharepvn
4300 void
4301 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
4302 {
4303     ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
4304 }
4305
4306 #undef  Perl_unshare_hek
4307 void
4308 Perl_unshare_hek(pTHXo_ HEK* hek)
4309 {
4310     ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
4311 }
4312
4313 #undef  Perl_utilize
4314 void
4315 Perl_utilize(pTHXo_ int aver, I32 floor, OP* version, OP* id, OP* arg)
4316 {
4317     ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg);
4318 }
4319
4320 #undef  Perl_utf16_to_utf8
4321 U8*
4322 Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
4323 {
4324     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
4325 }
4326
4327 #undef  Perl_utf16_to_utf8_reversed
4328 U8*
4329 Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
4330 {
4331     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
4332 }
4333
4334 #undef  Perl_utf8_distance
4335 I32
4336 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
4337 {
4338     return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
4339 }
4340
4341 #undef  Perl_utf8_hop
4342 U8*
4343 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
4344 {
4345     return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
4346 }
4347
4348 #undef  Perl_utf8_to_uv
4349 UV
4350 Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
4351 {
4352     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
4353 }
4354
4355 #undef  Perl_uv_to_utf8
4356 U8*
4357 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
4358 {
4359     return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
4360 }
4361
4362 #undef  Perl_vivify_defelem
4363 void
4364 Perl_vivify_defelem(pTHXo_ SV* sv)
4365 {
4366     ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
4367 }
4368
4369 #undef  Perl_vivify_ref
4370 void
4371 Perl_vivify_ref(pTHXo_ SV* sv, U32 to_what)
4372 {
4373     ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what);
4374 }
4375
4376 #undef  Perl_wait4pid
4377 I32
4378 Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
4379 {
4380     return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
4381 }
4382
4383 #undef  Perl_report_uninit
4384 void
4385 Perl_report_uninit(pTHXo)
4386 {
4387     ((CPerlObj*)pPerl)->Perl_report_uninit();
4388 }
4389
4390 #undef  Perl_warn
4391 void
4392 Perl_warn(pTHXo_ const char* pat, ...)
4393 {
4394     va_list args;
4395     va_start(args, pat);
4396     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
4397     va_end(args);
4398 }
4399
4400 #undef  Perl_vwarn
4401 void
4402 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
4403 {
4404     ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
4405 }
4406
4407 #undef  Perl_warner
4408 void
4409 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
4410 {
4411     va_list args;
4412     va_start(args, pat);
4413     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
4414     va_end(args);
4415 }
4416
4417 #undef  Perl_vwarner
4418 void
4419 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
4420 {
4421     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
4422 }
4423
4424 #undef  Perl_watch
4425 void
4426 Perl_watch(pTHXo_ char** addr)
4427 {
4428     ((CPerlObj*)pPerl)->Perl_watch(addr);
4429 }
4430
4431 #undef  Perl_whichsig
4432 I32
4433 Perl_whichsig(pTHXo_ char* sig)
4434 {
4435     return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4436 }
4437
4438 #undef  Perl_yyerror
4439 int
4440 Perl_yyerror(pTHXo_ char* s)
4441 {
4442     return ((CPerlObj*)pPerl)->Perl_yyerror(s);
4443 }
4444 #if defined(USE_PURE_BISON)
4445
4446 #undef  Perl_yylex
4447 int
4448 Perl_yylex(pTHXo_ YYSTYPE *lvalp, int *lcharp)
4449 {
4450     return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4451 }
4452 #else
4453
4454 #undef  Perl_yylex
4455 int
4456 Perl_yylex(pTHXo)
4457 {
4458     return ((CPerlObj*)pPerl)->Perl_yylex();
4459 }
4460 #endif
4461
4462 #undef  Perl_yyparse
4463 int
4464 Perl_yyparse(pTHXo)
4465 {
4466     return ((CPerlObj*)pPerl)->Perl_yyparse();
4467 }
4468
4469 #undef  Perl_yywarn
4470 int
4471 Perl_yywarn(pTHXo_ char* s)
4472 {
4473     return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4474 }
4475 #if defined(MYMALLOC)
4476
4477 #undef  Perl_dump_mstats
4478 void
4479 Perl_dump_mstats(pTHXo_ char* s)
4480 {
4481     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4482 }
4483 #endif
4484
4485 #undef  Perl_safesysmalloc
4486 Malloc_t
4487 Perl_safesysmalloc(MEM_SIZE nbytes)
4488 {
4489     dTHXo;
4490     return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4491 }
4492
4493 #undef  Perl_safesyscalloc
4494 Malloc_t
4495 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
4496 {
4497     dTHXo;
4498     return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4499 }
4500
4501 #undef  Perl_safesysrealloc
4502 Malloc_t
4503 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
4504 {
4505     dTHXo;
4506     return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4507 }
4508
4509 #undef  Perl_safesysfree
4510 Free_t
4511 Perl_safesysfree(Malloc_t where)
4512 {
4513     dTHXo;
4514     ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4515 }
4516 #if defined(LEAKTEST)
4517
4518 #undef  Perl_safexmalloc
4519 Malloc_t
4520 Perl_safexmalloc(I32 x, MEM_SIZE size)
4521 {
4522     dTHXo;
4523     return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4524 }
4525
4526 #undef  Perl_safexcalloc
4527 Malloc_t
4528 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
4529 {
4530     dTHXo;
4531     return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
4532 }
4533
4534 #undef  Perl_safexrealloc
4535 Malloc_t
4536 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
4537 {
4538     dTHXo;
4539     return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4540 }
4541
4542 #undef  Perl_safexfree
4543 void
4544 Perl_safexfree(Malloc_t where)
4545 {
4546     dTHXo;
4547     ((CPerlObj*)pPerl)->Perl_safexfree(where);
4548 }
4549 #endif
4550 #if defined(PERL_GLOBAL_STRUCT)
4551
4552 #undef  Perl_GetVars
4553 struct perl_vars *
4554 Perl_GetVars(pTHXo)
4555 {
4556     return ((CPerlObj*)pPerl)->Perl_GetVars();
4557 }
4558 #endif
4559
4560 #undef  Perl_runops_standard
4561 int
4562 Perl_runops_standard(pTHXo)
4563 {
4564     return ((CPerlObj*)pPerl)->Perl_runops_standard();
4565 }
4566
4567 #undef  Perl_runops_debug
4568 int
4569 Perl_runops_debug(pTHXo)
4570 {
4571     return ((CPerlObj*)pPerl)->Perl_runops_debug();
4572 }
4573
4574 #undef  Perl_sv_catpvf_mg
4575 void
4576 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4577 {
4578     va_list args;
4579     va_start(args, pat);
4580     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
4581     va_end(args);
4582 }
4583
4584 #undef  Perl_sv_vcatpvf_mg
4585 void
4586 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4587 {
4588     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
4589 }
4590
4591 #undef  Perl_sv_catpv_mg
4592 void
4593 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
4594 {
4595     ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
4596 }
4597
4598 #undef  Perl_sv_catpvn_mg
4599 void
4600 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4601 {
4602     ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
4603 }
4604
4605 #undef  Perl_sv_catsv_mg
4606 void
4607 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
4608 {
4609     ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
4610 }
4611
4612 #undef  Perl_sv_setpvf_mg
4613 void
4614 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4615 {
4616     va_list args;
4617     va_start(args, pat);
4618     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
4619     va_end(args);
4620 }
4621
4622 #undef  Perl_sv_vsetpvf_mg
4623 void
4624 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4625 {
4626     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
4627 }
4628
4629 #undef  Perl_sv_setiv_mg
4630 void
4631 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
4632 {
4633     ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
4634 }
4635
4636 #undef  Perl_sv_setpviv_mg
4637 void
4638 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
4639 {
4640     ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
4641 }
4642
4643 #undef  Perl_sv_setuv_mg
4644 void
4645 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
4646 {
4647     ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
4648 }
4649
4650 #undef  Perl_sv_setnv_mg
4651 void
4652 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
4653 {
4654     ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
4655 }
4656
4657 #undef  Perl_sv_setpv_mg
4658 void
4659 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
4660 {
4661     ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
4662 }
4663
4664 #undef  Perl_sv_setpvn_mg
4665 void
4666 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4667 {
4668     ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
4669 }
4670
4671 #undef  Perl_sv_setsv_mg
4672 void
4673 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
4674 {
4675     ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
4676 }
4677
4678 #undef  Perl_sv_usepvn_mg
4679 void
4680 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
4681 {
4682     ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
4683 }
4684
4685 #undef  Perl_get_vtbl
4686 MGVTBL*
4687 Perl_get_vtbl(pTHXo_ int vtbl_id)
4688 {
4689     return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4690 }
4691
4692 #undef  Perl_pv_display
4693 char*
4694 Perl_pv_display(pTHXo_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4695 {
4696     return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim);
4697 }
4698
4699 #undef  Perl_dump_indent
4700 void
4701 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
4702 {
4703     va_list args;
4704     va_start(args, pat);
4705     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
4706     va_end(args);
4707 }
4708
4709 #undef  Perl_dump_vindent
4710 void
4711 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
4712 {
4713     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
4714 }
4715
4716 #undef  Perl_do_gv_dump
4717 void
4718 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4719 {
4720     ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
4721 }
4722
4723 #undef  Perl_do_gvgv_dump
4724 void
4725 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4726 {
4727     ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
4728 }
4729
4730 #undef  Perl_do_hv_dump
4731 void
4732 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
4733 {
4734     ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
4735 }
4736
4737 #undef  Perl_do_magic_dump
4738 void
4739 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4740 {
4741     ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
4742 }
4743
4744 #undef  Perl_do_op_dump
4745 void
4746 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
4747 {
4748     ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
4749 }
4750
4751 #undef  Perl_do_pmop_dump
4752 void
4753 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
4754 {
4755     ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
4756 }
4757
4758 #undef  Perl_do_sv_dump
4759 void
4760 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4761 {
4762     ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
4763 }
4764
4765 #undef  Perl_magic_dump
4766 void
4767 Perl_magic_dump(pTHXo_ MAGIC *mg)
4768 {
4769     ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4770 }
4771
4772 #undef  Perl_default_protect
4773 void*
4774 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
4775 {
4776     void* retval;
4777     va_list args;
4778     va_start(args, body);
4779     retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
4780     va_end(args);
4781     return retval;
4782
4783 }
4784
4785 #undef  Perl_vdefault_protect
4786 void*
4787 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
4788 {
4789     return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
4790 }
4791
4792 #undef  Perl_reginitcolors
4793 void
4794 Perl_reginitcolors(pTHXo)
4795 {
4796     ((CPerlObj*)pPerl)->Perl_reginitcolors();
4797 }
4798
4799 #undef  Perl_sv_2pv_nolen
4800 char*
4801 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
4802 {
4803     return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4804 }
4805
4806 #undef  Perl_sv_pv
4807 char*
4808 Perl_sv_pv(pTHXo_ SV *sv)
4809 {
4810     return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4811 }
4812
4813 #undef  Perl_sv_force_normal
4814 void
4815 Perl_sv_force_normal(pTHXo_ SV *sv)
4816 {
4817     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4818 }
4819
4820 #undef  Perl_tmps_grow
4821 void
4822 Perl_tmps_grow(pTHXo_ I32 n)
4823 {
4824     ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4825 }
4826
4827 #undef  Perl_sv_rvweaken
4828 SV*
4829 Perl_sv_rvweaken(pTHXo_ SV *sv)
4830 {
4831     return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4832 }
4833
4834 #undef  Perl_magic_killbackrefs
4835 int
4836 Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg)
4837 {
4838     return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
4839 }
4840
4841 #undef  Perl_newANONATTRSUB
4842 OP*
4843 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
4844 {
4845     return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
4846 }
4847
4848 #undef  Perl_newATTRSUB
4849 CV*
4850 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4851 {
4852     return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
4853 }
4854
4855 #undef  Perl_newMYSUB
4856 void
4857 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4858 {
4859     ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
4860 }
4861
4862 #undef  Perl_my_attrs
4863 OP *
4864 Perl_my_attrs(pTHXo_ OP *o, OP *attrs)
4865 {
4866     return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs);
4867 }
4868
4869 #undef  Perl_boot_core_xsutils
4870 void
4871 Perl_boot_core_xsutils(pTHXo)
4872 {
4873     ((CPerlObj*)pPerl)->Perl_boot_core_xsutils();
4874 }
4875 #if defined(USE_ITHREADS)
4876
4877 #undef  Perl_cx_dup
4878 PERL_CONTEXT*
4879 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
4880 {
4881     return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
4882 }
4883
4884 #undef  Perl_si_dup
4885 PERL_SI*
4886 Perl_si_dup(pTHXo_ PERL_SI* si)
4887 {
4888     return ((CPerlObj*)pPerl)->Perl_si_dup(si);
4889 }
4890
4891 #undef  Perl_ss_dup
4892 ANY*
4893 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
4894 {
4895     return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
4896 }
4897
4898 #undef  Perl_any_dup
4899 void*
4900 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
4901 {
4902     return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
4903 }
4904
4905 #undef  Perl_he_dup
4906 HE*
4907 Perl_he_dup(pTHXo_ HE* e, bool shared)
4908 {
4909     return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
4910 }
4911
4912 #undef  Perl_re_dup
4913 REGEXP*
4914 Perl_re_dup(pTHXo_ REGEXP* r)
4915 {
4916     return ((CPerlObj*)pPerl)->Perl_re_dup(r);
4917 }
4918
4919 #undef  Perl_fp_dup
4920 PerlIO*
4921 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
4922 {
4923     return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
4924 }
4925
4926 #undef  Perl_dirp_dup
4927 DIR*
4928 Perl_dirp_dup(pTHXo_ DIR* dp)
4929 {
4930     return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
4931 }
4932
4933 #undef  Perl_gp_dup
4934 GP*
4935 Perl_gp_dup(pTHXo_ GP* gp)
4936 {
4937     return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
4938 }
4939
4940 #undef  Perl_mg_dup
4941 MAGIC*
4942 Perl_mg_dup(pTHXo_ MAGIC* mg)
4943 {
4944     return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
4945 }
4946
4947 #undef  Perl_sv_dup
4948 SV*
4949 Perl_sv_dup(pTHXo_ SV* sstr)
4950 {
4951     return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
4952 }
4953 #if defined(HAVE_INTERP_INTERN)
4954
4955 #undef  Perl_sys_intern_dup
4956 void
4957 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
4958 {
4959     ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
4960 }
4961 #endif
4962
4963 #undef  Perl_ptr_table_new
4964 PTR_TBL_t*
4965 Perl_ptr_table_new(pTHXo)
4966 {
4967     return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
4968 }
4969
4970 #undef  Perl_ptr_table_fetch
4971 void*
4972 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
4973 {
4974     return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
4975 }
4976
4977 #undef  Perl_ptr_table_store
4978 void
4979 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
4980 {
4981     ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
4982 }
4983
4984 #undef  Perl_ptr_table_split
4985 void
4986 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
4987 {
4988     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
4989 }
4990 #endif
4991 #if defined(PERL_OBJECT)
4992 #else
4993 #endif
4994 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
4995 #endif
4996 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
4997 #endif
4998 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
4999 #endif
5000 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
5001 #endif
5002 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
5003 #endif
5004 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
5005 #  if defined(PL_OP_SLAB_ALLOC)
5006 #  endif
5007 #endif
5008 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
5009 #  if defined(IAMSUID)
5010 #  endif
5011 #  if defined(USE_THREADS)
5012 #  endif
5013 #endif
5014 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
5015 #endif
5016 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
5017 #endif
5018 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
5019 #endif
5020 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
5021 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
5022 #  endif
5023 #endif
5024 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
5025 #endif
5026 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
5027 #endif
5028 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
5029 #endif
5030 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
5031 #endif
5032 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
5033 #  if defined(PURIFY)
5034 #  else
5035 #  endif
5036 #  if defined(DEBUGGING)
5037 #  endif
5038 #endif
5039 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
5040 #  if defined(CRIPPLED_CC)
5041 #  endif
5042 #  if defined(WIN32)
5043 #  endif
5044 #endif
5045 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
5046 #endif
5047 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
5048 #  if defined(LEAKTEST)
5049 #  endif
5050 #endif
5051 #if defined(PERL_OBJECT)
5052 #endif
5053
5054 #undef  Perl_ck_anoncode
5055 OP *
5056 Perl_ck_anoncode(pTHXo_ OP *o)
5057 {
5058     return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
5059 }
5060
5061 #undef  Perl_ck_bitop
5062 OP *
5063 Perl_ck_bitop(pTHXo_ OP *o)
5064 {
5065     return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
5066 }
5067
5068 #undef  Perl_ck_concat
5069 OP *
5070 Perl_ck_concat(pTHXo_ OP *o)
5071 {
5072     return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
5073 }
5074
5075 #undef  Perl_ck_defined
5076 OP *
5077 Perl_ck_defined(pTHXo_ OP *o)
5078 {
5079     return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
5080 }
5081
5082 #undef  Perl_ck_delete
5083 OP *
5084 Perl_ck_delete(pTHXo_ OP *o)
5085 {
5086     return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
5087 }
5088
5089 #undef  Perl_ck_eof
5090 OP *
5091 Perl_ck_eof(pTHXo_ OP *o)
5092 {
5093     return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
5094 }
5095
5096 #undef  Perl_ck_eval
5097 OP *
5098 Perl_ck_eval(pTHXo_ OP *o)
5099 {
5100     return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
5101 }
5102
5103 #undef  Perl_ck_exec
5104 OP *
5105 Perl_ck_exec(pTHXo_ OP *o)
5106 {
5107     return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
5108 }
5109
5110 #undef  Perl_ck_exists
5111 OP *
5112 Perl_ck_exists(pTHXo_ OP *o)
5113 {
5114     return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
5115 }
5116
5117 #undef  Perl_ck_ftst
5118 OP *
5119 Perl_ck_ftst(pTHXo_ OP *o)
5120 {
5121     return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
5122 }
5123
5124 #undef  Perl_ck_fun
5125 OP *
5126 Perl_ck_fun(pTHXo_ OP *o)
5127 {
5128     return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
5129 }
5130
5131 #undef  Perl_ck_fun_locale
5132 OP *
5133 Perl_ck_fun_locale(pTHXo_ OP *o)
5134 {
5135     return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
5136 }
5137
5138 #undef  Perl_ck_glob
5139 OP *
5140 Perl_ck_glob(pTHXo_ OP *o)
5141 {
5142     return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
5143 }
5144
5145 #undef  Perl_ck_grep
5146 OP *
5147 Perl_ck_grep(pTHXo_ OP *o)
5148 {
5149     return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
5150 }
5151
5152 #undef  Perl_ck_index
5153 OP *
5154 Perl_ck_index(pTHXo_ OP *o)
5155 {
5156     return ((CPerlObj*)pPerl)->Perl_ck_index(o);
5157 }
5158
5159 #undef  Perl_ck_join
5160 OP *
5161 Perl_ck_join(pTHXo_ OP *o)
5162 {
5163     return ((CPerlObj*)pPerl)->Perl_ck_join(o);
5164 }
5165
5166 #undef  Perl_ck_lengthconst
5167 OP *
5168 Perl_ck_lengthconst(pTHXo_ OP *o)
5169 {
5170     return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
5171 }
5172
5173 #undef  Perl_ck_lfun
5174 OP *
5175 Perl_ck_lfun(pTHXo_ OP *o)
5176 {
5177     return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
5178 }
5179
5180 #undef  Perl_ck_listiob
5181 OP *
5182 Perl_ck_listiob(pTHXo_ OP *o)
5183 {
5184     return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
5185 }
5186
5187 #undef  Perl_ck_match
5188 OP *
5189 Perl_ck_match(pTHXo_ OP *o)
5190 {
5191     return ((CPerlObj*)pPerl)->Perl_ck_match(o);
5192 }
5193
5194 #undef  Perl_ck_method
5195 OP *
5196 Perl_ck_method(pTHXo_ OP *o)
5197 {
5198     return ((CPerlObj*)pPerl)->Perl_ck_method(o);
5199 }
5200
5201 #undef  Perl_ck_null
5202 OP *
5203 Perl_ck_null(pTHXo_ OP *o)
5204 {
5205     return ((CPerlObj*)pPerl)->Perl_ck_null(o);
5206 }
5207
5208 #undef  Perl_ck_repeat
5209 OP *
5210 Perl_ck_repeat(pTHXo_ OP *o)
5211 {
5212     return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
5213 }
5214
5215 #undef  Perl_ck_require
5216 OP *
5217 Perl_ck_require(pTHXo_ OP *o)
5218 {
5219     return ((CPerlObj*)pPerl)->Perl_ck_require(o);
5220 }
5221
5222 #undef  Perl_ck_rfun
5223 OP *
5224 Perl_ck_rfun(pTHXo_ OP *o)
5225 {
5226     return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
5227 }
5228
5229 #undef  Perl_ck_rvconst
5230 OP *
5231 Perl_ck_rvconst(pTHXo_ OP *o)
5232 {
5233     return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
5234 }
5235
5236 #undef  Perl_ck_sassign
5237 OP *
5238 Perl_ck_sassign(pTHXo_ OP *o)
5239 {
5240     return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
5241 }
5242
5243 #undef  Perl_ck_scmp
5244 OP *
5245 Perl_ck_scmp(pTHXo_ OP *o)
5246 {
5247     return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
5248 }
5249
5250 #undef  Perl_ck_select
5251 OP *
5252 Perl_ck_select(pTHXo_ OP *o)
5253 {
5254     return ((CPerlObj*)pPerl)->Perl_ck_select(o);
5255 }
5256
5257 #undef  Perl_ck_shift
5258 OP *
5259 Perl_ck_shift(pTHXo_ OP *o)
5260 {
5261     return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
5262 }
5263
5264 #undef  Perl_ck_sort
5265 OP *
5266 Perl_ck_sort(pTHXo_ OP *o)
5267 {
5268     return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
5269 }
5270
5271 #undef  Perl_ck_spair
5272 OP *
5273 Perl_ck_spair(pTHXo_ OP *o)
5274 {
5275     return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
5276 }
5277
5278 #undef  Perl_ck_split
5279 OP *
5280 Perl_ck_split(pTHXo_ OP *o)
5281 {
5282     return ((CPerlObj*)pPerl)->Perl_ck_split(o);
5283 }
5284
5285 #undef  Perl_ck_subr
5286 OP *
5287 Perl_ck_subr(pTHXo_ OP *o)
5288 {
5289     return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
5290 }
5291
5292 #undef  Perl_ck_svconst
5293 OP *
5294 Perl_ck_svconst(pTHXo_ OP *o)
5295 {
5296     return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
5297 }
5298
5299 #undef  Perl_ck_trunc
5300 OP *
5301 Perl_ck_trunc(pTHXo_ OP *o)
5302 {
5303     return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
5304 }
5305
5306 #undef  Perl_pp_aassign
5307 OP *
5308 Perl_pp_aassign(pTHXo)
5309 {
5310     return ((CPerlObj*)pPerl)->Perl_pp_aassign();
5311 }
5312
5313 #undef  Perl_pp_abs
5314 OP *
5315 Perl_pp_abs(pTHXo)
5316 {
5317     return ((CPerlObj*)pPerl)->Perl_pp_abs();
5318 }
5319
5320 #undef  Perl_pp_accept
5321 OP *
5322 Perl_pp_accept(pTHXo)
5323 {
5324     return ((CPerlObj*)pPerl)->Perl_pp_accept();
5325 }
5326
5327 #undef  Perl_pp_add
5328 OP *
5329 Perl_pp_add(pTHXo)
5330 {
5331     return ((CPerlObj*)pPerl)->Perl_pp_add();
5332 }
5333
5334 #undef  Perl_pp_aelem
5335 OP *
5336 Perl_pp_aelem(pTHXo)
5337 {
5338     return ((CPerlObj*)pPerl)->Perl_pp_aelem();
5339 }
5340
5341 #undef  Perl_pp_aelemfast
5342 OP *
5343 Perl_pp_aelemfast(pTHXo)
5344 {
5345     return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
5346 }
5347
5348 #undef  Perl_pp_alarm
5349 OP *
5350 Perl_pp_alarm(pTHXo)
5351 {
5352     return ((CPerlObj*)pPerl)->Perl_pp_alarm();
5353 }
5354
5355 #undef  Perl_pp_and
5356 OP *
5357 Perl_pp_and(pTHXo)
5358 {
5359     return ((CPerlObj*)pPerl)->Perl_pp_and();
5360 }
5361
5362 #undef  Perl_pp_andassign
5363 OP *
5364 Perl_pp_andassign(pTHXo)
5365 {
5366     return ((CPerlObj*)pPerl)->Perl_pp_andassign();
5367 }
5368
5369 #undef  Perl_pp_anoncode
5370 OP *
5371 Perl_pp_anoncode(pTHXo)
5372 {
5373     return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
5374 }
5375
5376 #undef  Perl_pp_anonhash
5377 OP *
5378 Perl_pp_anonhash(pTHXo)
5379 {
5380     return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
5381 }
5382
5383 #undef  Perl_pp_anonlist
5384 OP *
5385 Perl_pp_anonlist(pTHXo)
5386 {
5387     return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
5388 }
5389
5390 #undef  Perl_pp_aslice
5391 OP *
5392 Perl_pp_aslice(pTHXo)
5393 {
5394     return ((CPerlObj*)pPerl)->Perl_pp_aslice();
5395 }
5396
5397 #undef  Perl_pp_atan2
5398 OP *
5399 Perl_pp_atan2(pTHXo)
5400 {
5401     return ((CPerlObj*)pPerl)->Perl_pp_atan2();
5402 }
5403
5404 #undef  Perl_pp_av2arylen
5405 OP *
5406 Perl_pp_av2arylen(pTHXo)
5407 {
5408     return ((CPerlObj*)pPerl)->Perl_pp_av2arylen();
5409 }
5410
5411 #undef  Perl_pp_backtick
5412 OP *
5413 Perl_pp_backtick(pTHXo)
5414 {
5415     return ((CPerlObj*)pPerl)->Perl_pp_backtick();
5416 }
5417
5418 #undef  Perl_pp_bind
5419 OP *
5420 Perl_pp_bind(pTHXo)
5421 {
5422     return ((CPerlObj*)pPerl)->Perl_pp_bind();
5423 }
5424
5425 #undef  Perl_pp_binmode
5426 OP *
5427 Perl_pp_binmode(pTHXo)
5428 {
5429     return ((CPerlObj*)pPerl)->Perl_pp_binmode();
5430 }
5431
5432 #undef  Perl_pp_bit_and
5433 OP *
5434 Perl_pp_bit_and(pTHXo)
5435 {
5436     return ((CPerlObj*)pPerl)->Perl_pp_bit_and();
5437 }
5438
5439 #undef  Perl_pp_bit_or
5440 OP *
5441 Perl_pp_bit_or(pTHXo)
5442 {
5443     return ((CPerlObj*)pPerl)->Perl_pp_bit_or();
5444 }
5445
5446 #undef  Perl_pp_bit_xor
5447 OP *
5448 Perl_pp_bit_xor(pTHXo)
5449 {
5450     return ((CPerlObj*)pPerl)->Perl_pp_bit_xor();
5451 }
5452
5453 #undef  Perl_pp_bless
5454 OP *
5455 Perl_pp_bless(pTHXo)
5456 {
5457     return ((CPerlObj*)pPerl)->Perl_pp_bless();
5458 }
5459
5460 #undef  Perl_pp_caller
5461 OP *
5462 Perl_pp_caller(pTHXo)
5463 {
5464     return ((CPerlObj*)pPerl)->Perl_pp_caller();
5465 }
5466
5467 #undef  Perl_pp_chdir
5468 OP *
5469 Perl_pp_chdir(pTHXo)
5470 {
5471     return ((CPerlObj*)pPerl)->Perl_pp_chdir();
5472 }
5473
5474 #undef  Perl_pp_chmod
5475 OP *
5476 Perl_pp_chmod(pTHXo)
5477 {
5478     return ((CPerlObj*)pPerl)->Perl_pp_chmod();
5479 }
5480
5481 #undef  Perl_pp_chomp
5482 OP *
5483 Perl_pp_chomp(pTHXo)
5484 {
5485     return ((CPerlObj*)pPerl)->Perl_pp_chomp();
5486 }
5487
5488 #undef  Perl_pp_chop
5489 OP *
5490 Perl_pp_chop(pTHXo)
5491 {
5492     return ((CPerlObj*)pPerl)->Perl_pp_chop();
5493 }
5494
5495 #undef  Perl_pp_chown
5496 OP *
5497 Perl_pp_chown(pTHXo)
5498 {
5499     return ((CPerlObj*)pPerl)->Perl_pp_chown();
5500 }
5501
5502 #undef  Perl_pp_chr
5503 OP *
5504 Perl_pp_chr(pTHXo)
5505 {
5506     return ((CPerlObj*)pPerl)->Perl_pp_chr();
5507 }
5508
5509 #undef  Perl_pp_chroot
5510 OP *
5511 Perl_pp_chroot(pTHXo)
5512 {
5513     return ((CPerlObj*)pPerl)->Perl_pp_chroot();
5514 }
5515
5516 #undef  Perl_pp_close
5517 OP *
5518 Perl_pp_close(pTHXo)
5519 {
5520     return ((CPerlObj*)pPerl)->Perl_pp_close();
5521 }
5522
5523 #undef  Perl_pp_closedir
5524 OP *
5525 Perl_pp_closedir(pTHXo)
5526 {
5527     return ((CPerlObj*)pPerl)->Perl_pp_closedir();
5528 }
5529
5530 #undef  Perl_pp_complement
5531 OP *
5532 Perl_pp_complement(pTHXo)
5533 {
5534     return ((CPerlObj*)pPerl)->Perl_pp_complement();
5535 }
5536
5537 #undef  Perl_pp_concat
5538 OP *
5539 Perl_pp_concat(pTHXo)
5540 {
5541     return ((CPerlObj*)pPerl)->Perl_pp_concat();
5542 }
5543
5544 #undef  Perl_pp_cond_expr
5545 OP *
5546 Perl_pp_cond_expr(pTHXo)
5547 {
5548     return ((CPerlObj*)pPerl)->Perl_pp_cond_expr();
5549 }
5550
5551 #undef  Perl_pp_connect
5552 OP *
5553 Perl_pp_connect(pTHXo)
5554 {
5555     return ((CPerlObj*)pPerl)->Perl_pp_connect();
5556 }
5557
5558 #undef  Perl_pp_const
5559 OP *
5560 Perl_pp_const(pTHXo)
5561 {
5562     return ((CPerlObj*)pPerl)->Perl_pp_const();
5563 }
5564
5565 #undef  Perl_pp_cos
5566 OP *
5567 Perl_pp_cos(pTHXo)
5568 {
5569     return ((CPerlObj*)pPerl)->Perl_pp_cos();
5570 }
5571
5572 #undef  Perl_pp_crypt
5573 OP *
5574 Perl_pp_crypt(pTHXo)
5575 {
5576     return ((CPerlObj*)pPerl)->Perl_pp_crypt();
5577 }
5578
5579 #undef  Perl_pp_dbmclose
5580 OP *
5581 Perl_pp_dbmclose(pTHXo)
5582 {
5583     return ((CPerlObj*)pPerl)->Perl_pp_dbmclose();
5584 }
5585
5586 #undef  Perl_pp_dbmopen
5587 OP *
5588 Perl_pp_dbmopen(pTHXo)
5589 {
5590     return ((CPerlObj*)pPerl)->Perl_pp_dbmopen();
5591 }
5592
5593 #undef  Perl_pp_dbstate
5594 OP *
5595 Perl_pp_dbstate(pTHXo)
5596 {
5597     return ((CPerlObj*)pPerl)->Perl_pp_dbstate();
5598 }
5599
5600 #undef  Perl_pp_defined
5601 OP *
5602 Perl_pp_defined(pTHXo)
5603 {
5604     return ((CPerlObj*)pPerl)->Perl_pp_defined();
5605 }
5606
5607 #undef  Perl_pp_delete
5608 OP *
5609 Perl_pp_delete(pTHXo)
5610 {
5611     return ((CPerlObj*)pPerl)->Perl_pp_delete();
5612 }
5613
5614 #undef  Perl_pp_die
5615 OP *
5616 Perl_pp_die(pTHXo)
5617 {
5618     return ((CPerlObj*)pPerl)->Perl_pp_die();
5619 }
5620
5621 #undef  Perl_pp_divide
5622 OP *
5623 Perl_pp_divide(pTHXo)
5624 {
5625     return ((CPerlObj*)pPerl)->Perl_pp_divide();
5626 }
5627
5628 #undef  Perl_pp_dofile
5629 OP *
5630 Perl_pp_dofile(pTHXo)
5631 {
5632     return ((CPerlObj*)pPerl)->Perl_pp_dofile();
5633 }
5634
5635 #undef  Perl_pp_dump
5636 OP *
5637 Perl_pp_dump(pTHXo)
5638 {
5639     return ((CPerlObj*)pPerl)->Perl_pp_dump();
5640 }
5641
5642 #undef  Perl_pp_each
5643 OP *
5644 Perl_pp_each(pTHXo)
5645 {
5646     return ((CPerlObj*)pPerl)->Perl_pp_each();
5647 }
5648
5649 #undef  Perl_pp_egrent
5650 OP *
5651 Perl_pp_egrent(pTHXo)
5652 {
5653     return ((CPerlObj*)pPerl)->Perl_pp_egrent();
5654 }
5655
5656 #undef  Perl_pp_ehostent
5657 OP *
5658 Perl_pp_ehostent(pTHXo)
5659 {
5660     return ((CPerlObj*)pPerl)->Perl_pp_ehostent();
5661 }
5662
5663 #undef  Perl_pp_enetent
5664 OP *
5665 Perl_pp_enetent(pTHXo)
5666 {
5667     return ((CPerlObj*)pPerl)->Perl_pp_enetent();
5668 }
5669
5670 #undef  Perl_pp_enter
5671 OP *
5672 Perl_pp_enter(pTHXo)
5673 {
5674     return ((CPerlObj*)pPerl)->Perl_pp_enter();
5675 }
5676
5677 #undef  Perl_pp_entereval
5678 OP *
5679 Perl_pp_entereval(pTHXo)
5680 {
5681     return ((CPerlObj*)pPerl)->Perl_pp_entereval();
5682 }
5683
5684 #undef  Perl_pp_enteriter
5685 OP *
5686 Perl_pp_enteriter(pTHXo)
5687 {
5688     return ((CPerlObj*)pPerl)->Perl_pp_enteriter();
5689 }
5690
5691 #undef  Perl_pp_enterloop
5692 OP *
5693 Perl_pp_enterloop(pTHXo)
5694 {
5695     return ((CPerlObj*)pPerl)->Perl_pp_enterloop();
5696 }
5697
5698 #undef  Perl_pp_entersub
5699 OP *
5700 Perl_pp_entersub(pTHXo)
5701 {
5702     return ((CPerlObj*)pPerl)->Perl_pp_entersub();
5703 }
5704
5705 #undef  Perl_pp_entertry
5706 OP *
5707 Perl_pp_entertry(pTHXo)
5708 {
5709     return ((CPerlObj*)pPerl)->Perl_pp_entertry();
5710 }
5711
5712 #undef  Perl_pp_enterwrite
5713 OP *
5714 Perl_pp_enterwrite(pTHXo)
5715 {
5716     return ((CPerlObj*)pPerl)->Perl_pp_enterwrite();
5717 }
5718
5719 #undef  Perl_pp_eof
5720 OP *
5721 Perl_pp_eof(pTHXo)
5722 {
5723     return ((CPerlObj*)pPerl)->Perl_pp_eof();
5724 }
5725
5726 #undef  Perl_pp_eprotoent
5727 OP *
5728 Perl_pp_eprotoent(pTHXo)
5729 {
5730     return ((CPerlObj*)pPerl)->Perl_pp_eprotoent();
5731 }
5732
5733 #undef  Perl_pp_epwent
5734 OP *
5735 Perl_pp_epwent(pTHXo)
5736 {
5737     return ((CPerlObj*)pPerl)->Perl_pp_epwent();
5738 }
5739
5740 #undef  Perl_pp_eq
5741 OP *
5742 Perl_pp_eq(pTHXo)
5743 {
5744     return ((CPerlObj*)pPerl)->Perl_pp_eq();
5745 }
5746
5747 #undef  Perl_pp_eservent
5748 OP *
5749 Perl_pp_eservent(pTHXo)
5750 {
5751     return ((CPerlObj*)pPerl)->Perl_pp_eservent();
5752 }
5753
5754 #undef  Perl_pp_exec
5755 OP *
5756 Perl_pp_exec(pTHXo)
5757 {
5758     return ((CPerlObj*)pPerl)->Perl_pp_exec();
5759 }
5760
5761 #undef  Perl_pp_exists
5762 OP *
5763 Perl_pp_exists(pTHXo)
5764 {
5765     return ((CPerlObj*)pPerl)->Perl_pp_exists();
5766 }
5767
5768 #undef  Perl_pp_exit
5769 OP *
5770 Perl_pp_exit(pTHXo)
5771 {
5772     return ((CPerlObj*)pPerl)->Perl_pp_exit();
5773 }
5774
5775 #undef  Perl_pp_exp
5776 OP *
5777 Perl_pp_exp(pTHXo)
5778 {
5779     return ((CPerlObj*)pPerl)->Perl_pp_exp();
5780 }
5781
5782 #undef  Perl_pp_fcntl
5783 OP *
5784 Perl_pp_fcntl(pTHXo)
5785 {
5786     return ((CPerlObj*)pPerl)->Perl_pp_fcntl();
5787 }
5788
5789 #undef  Perl_pp_fileno
5790 OP *
5791 Perl_pp_fileno(pTHXo)
5792 {
5793     return ((CPerlObj*)pPerl)->Perl_pp_fileno();
5794 }
5795
5796 #undef  Perl_pp_flip
5797 OP *
5798 Perl_pp_flip(pTHXo)
5799 {
5800     return ((CPerlObj*)pPerl)->Perl_pp_flip();
5801 }
5802
5803 #undef  Perl_pp_flock
5804 OP *
5805 Perl_pp_flock(pTHXo)
5806 {
5807     return ((CPerlObj*)pPerl)->Perl_pp_flock();
5808 }
5809
5810 #undef  Perl_pp_flop
5811 OP *
5812 Perl_pp_flop(pTHXo)
5813 {
5814     return ((CPerlObj*)pPerl)->Perl_pp_flop();
5815 }
5816
5817 #undef  Perl_pp_fork
5818 OP *
5819 Perl_pp_fork(pTHXo)
5820 {
5821     return ((CPerlObj*)pPerl)->Perl_pp_fork();
5822 }
5823
5824 #undef  Perl_pp_formline
5825 OP *
5826 Perl_pp_formline(pTHXo)
5827 {
5828     return ((CPerlObj*)pPerl)->Perl_pp_formline();
5829 }
5830
5831 #undef  Perl_pp_ftatime
5832 OP *
5833 Perl_pp_ftatime(pTHXo)
5834 {
5835     return ((CPerlObj*)pPerl)->Perl_pp_ftatime();
5836 }
5837
5838 #undef  Perl_pp_ftbinary
5839 OP *
5840 Perl_pp_ftbinary(pTHXo)
5841 {
5842     return ((CPerlObj*)pPerl)->Perl_pp_ftbinary();
5843 }
5844
5845 #undef  Perl_pp_ftblk
5846 OP *
5847 Perl_pp_ftblk(pTHXo)
5848 {
5849     return ((CPerlObj*)pPerl)->Perl_pp_ftblk();
5850 }
5851
5852 #undef  Perl_pp_ftchr
5853 OP *
5854 Perl_pp_ftchr(pTHXo)
5855 {
5856     return ((CPerlObj*)pPerl)->Perl_pp_ftchr();
5857 }
5858
5859 #undef  Perl_pp_ftctime
5860 OP *
5861 Perl_pp_ftctime(pTHXo)
5862 {
5863     return ((CPerlObj*)pPerl)->Perl_pp_ftctime();
5864 }
5865
5866 #undef  Perl_pp_ftdir
5867 OP *
5868 Perl_pp_ftdir(pTHXo)
5869 {
5870     return ((CPerlObj*)pPerl)->Perl_pp_ftdir();
5871 }
5872
5873 #undef  Perl_pp_fteexec
5874 OP *
5875 Perl_pp_fteexec(pTHXo)
5876 {
5877     return ((CPerlObj*)pPerl)->Perl_pp_fteexec();
5878 }
5879
5880 #undef  Perl_pp_fteowned
5881 OP *
5882 Perl_pp_fteowned(pTHXo)
5883 {
5884     return ((CPerlObj*)pPerl)->Perl_pp_fteowned();
5885 }
5886
5887 #undef  Perl_pp_fteread
5888 OP *
5889 Perl_pp_fteread(pTHXo)
5890 {
5891     return ((CPerlObj*)pPerl)->Perl_pp_fteread();
5892 }
5893
5894 #undef  Perl_pp_ftewrite
5895 OP *
5896 Perl_pp_ftewrite(pTHXo)
5897 {
5898     return ((CPerlObj*)pPerl)->Perl_pp_ftewrite();
5899 }
5900
5901 #undef  Perl_pp_ftfile
5902 OP *
5903 Perl_pp_ftfile(pTHXo)
5904 {
5905     return ((CPerlObj*)pPerl)->Perl_pp_ftfile();
5906 }
5907
5908 #undef  Perl_pp_ftis
5909 OP *
5910 Perl_pp_ftis(pTHXo)
5911 {
5912     return ((CPerlObj*)pPerl)->Perl_pp_ftis();
5913 }
5914
5915 #undef  Perl_pp_ftlink
5916 OP *
5917 Perl_pp_ftlink(pTHXo)
5918 {
5919     return ((CPerlObj*)pPerl)->Perl_pp_ftlink();
5920 }
5921
5922 #undef  Perl_pp_ftmtime
5923 OP *
5924 Perl_pp_ftmtime(pTHXo)
5925 {
5926     return ((CPerlObj*)pPerl)->Perl_pp_ftmtime();
5927 }
5928
5929 #undef  Perl_pp_ftpipe
5930 OP *
5931 Perl_pp_ftpipe(pTHXo)
5932 {
5933     return ((CPerlObj*)pPerl)->Perl_pp_ftpipe();
5934 }
5935
5936 #undef  Perl_pp_ftrexec
5937 OP *
5938 Perl_pp_ftrexec(pTHXo)
5939 {
5940     return ((CPerlObj*)pPerl)->Perl_pp_ftrexec();
5941 }
5942
5943 #undef  Perl_pp_ftrowned
5944 OP *
5945 Perl_pp_ftrowned(pTHXo)
5946 {
5947     return ((CPerlObj*)pPerl)->Perl_pp_ftrowned();
5948 }
5949
5950 #undef  Perl_pp_ftrread
5951 OP *
5952 Perl_pp_ftrread(pTHXo)
5953 {
5954     return ((CPerlObj*)pPerl)->Perl_pp_ftrread();
5955 }
5956
5957 #undef  Perl_pp_ftrwrite
5958 OP *
5959 Perl_pp_ftrwrite(pTHXo)
5960 {
5961     return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite();
5962 }
5963
5964 #undef  Perl_pp_ftsgid
5965 OP *
5966 Perl_pp_ftsgid(pTHXo)
5967 {
5968     return ((CPerlObj*)pPerl)->Perl_pp_ftsgid();
5969 }
5970
5971 #undef  Perl_pp_ftsize
5972 OP *
5973 Perl_pp_ftsize(pTHXo)
5974 {
5975     return ((CPerlObj*)pPerl)->Perl_pp_ftsize();
5976 }
5977
5978 #undef  Perl_pp_ftsock
5979 OP *
5980 Perl_pp_ftsock(pTHXo)
5981 {
5982     return ((CPerlObj*)pPerl)->Perl_pp_ftsock();
5983 }
5984
5985 #undef  Perl_pp_ftsuid
5986 OP *
5987 Perl_pp_ftsuid(pTHXo)
5988 {
5989     return ((CPerlObj*)pPerl)->Perl_pp_ftsuid();
5990 }
5991
5992 #undef  Perl_pp_ftsvtx
5993 OP *
5994 Perl_pp_ftsvtx(pTHXo)
5995 {
5996     return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx();
5997 }
5998
5999 #undef  Perl_pp_fttext
6000 OP *
6001 Perl_pp_fttext(pTHXo)
6002 {
6003     return ((CPerlObj*)pPerl)->Perl_pp_fttext();
6004 }
6005
6006 #undef  Perl_pp_fttty
6007 OP *
6008 Perl_pp_fttty(pTHXo)
6009 {
6010     return ((CPerlObj*)pPerl)->Perl_pp_fttty();
6011 }
6012
6013 #undef  Perl_pp_ftzero
6014 OP *
6015 Perl_pp_ftzero(pTHXo)
6016 {
6017     return ((CPerlObj*)pPerl)->Perl_pp_ftzero();
6018 }
6019
6020 #undef  Perl_pp_ge
6021 OP *
6022 Perl_pp_ge(pTHXo)
6023 {
6024     return ((CPerlObj*)pPerl)->Perl_pp_ge();
6025 }
6026
6027 #undef  Perl_pp_gelem
6028 OP *
6029 Perl_pp_gelem(pTHXo)
6030 {
6031     return ((CPerlObj*)pPerl)->Perl_pp_gelem();
6032 }
6033
6034 #undef  Perl_pp_getc
6035 OP *
6036 Perl_pp_getc(pTHXo)
6037 {
6038     return ((CPerlObj*)pPerl)->Perl_pp_getc();
6039 }
6040
6041 #undef  Perl_pp_getlogin
6042 OP *
6043 Perl_pp_getlogin(pTHXo)
6044 {
6045     return ((CPerlObj*)pPerl)->Perl_pp_getlogin();
6046 }
6047
6048 #undef  Perl_pp_getpeername
6049 OP *
6050 Perl_pp_getpeername(pTHXo)
6051 {
6052     return ((CPerlObj*)pPerl)->Perl_pp_getpeername();
6053 }
6054
6055 #undef  Perl_pp_getpgrp
6056 OP *
6057 Perl_pp_getpgrp(pTHXo)
6058 {
6059     return ((CPerlObj*)pPerl)->Perl_pp_getpgrp();
6060 }
6061
6062 #undef  Perl_pp_getppid
6063 OP *
6064 Perl_pp_getppid(pTHXo)
6065 {
6066     return ((CPerlObj*)pPerl)->Perl_pp_getppid();
6067 }
6068
6069 #undef  Perl_pp_getpriority
6070 OP *
6071 Perl_pp_getpriority(pTHXo)
6072 {
6073     return ((CPerlObj*)pPerl)->Perl_pp_getpriority();
6074 }
6075
6076 #undef  Perl_pp_getsockname
6077 OP *
6078 Perl_pp_getsockname(pTHXo)
6079 {
6080     return ((CPerlObj*)pPerl)->Perl_pp_getsockname();
6081 }
6082
6083 #undef  Perl_pp_ggrent
6084 OP *
6085 Perl_pp_ggrent(pTHXo)
6086 {
6087     return ((CPerlObj*)pPerl)->Perl_pp_ggrent();
6088 }
6089
6090 #undef  Perl_pp_ggrgid
6091 OP *
6092 Perl_pp_ggrgid(pTHXo)
6093 {
6094     return ((CPerlObj*)pPerl)->Perl_pp_ggrgid();
6095 }
6096
6097 #undef  Perl_pp_ggrnam
6098 OP *
6099 Perl_pp_ggrnam(pTHXo)
6100 {
6101     return ((CPerlObj*)pPerl)->Perl_pp_ggrnam();
6102 }
6103
6104 #undef  Perl_pp_ghbyaddr
6105 OP *
6106 Perl_pp_ghbyaddr(pTHXo)
6107 {
6108     return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr();
6109 }
6110
6111 #undef  Perl_pp_ghbyname
6112 OP *
6113 Perl_pp_ghbyname(pTHXo)
6114 {
6115     return ((CPerlObj*)pPerl)->Perl_pp_ghbyname();
6116 }
6117
6118 #undef  Perl_pp_ghostent
6119 OP *
6120 Perl_pp_ghostent(pTHXo)
6121 {
6122     return ((CPerlObj*)pPerl)->Perl_pp_ghostent();
6123 }
6124
6125 #undef  Perl_pp_glob
6126 OP *
6127 Perl_pp_glob(pTHXo)
6128 {
6129     return ((CPerlObj*)pPerl)->Perl_pp_glob();
6130 }
6131
6132 #undef  Perl_pp_gmtime
6133 OP *
6134 Perl_pp_gmtime(pTHXo)
6135 {
6136     return ((CPerlObj*)pPerl)->Perl_pp_gmtime();
6137 }
6138
6139 #undef  Perl_pp_gnbyaddr
6140 OP *
6141 Perl_pp_gnbyaddr(pTHXo)
6142 {
6143     return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr();
6144 }
6145
6146 #undef  Perl_pp_gnbyname
6147 OP *
6148 Perl_pp_gnbyname(pTHXo)
6149 {
6150     return ((CPerlObj*)pPerl)->Perl_pp_gnbyname();
6151 }
6152
6153 #undef  Perl_pp_gnetent
6154 OP *
6155 Perl_pp_gnetent(pTHXo)
6156 {
6157     return ((CPerlObj*)pPerl)->Perl_pp_gnetent();
6158 }
6159
6160 #undef  Perl_pp_goto
6161 OP *
6162 Perl_pp_goto(pTHXo)
6163 {
6164     return ((CPerlObj*)pPerl)->Perl_pp_goto();
6165 }
6166
6167 #undef  Perl_pp_gpbyname
6168 OP *
6169 Perl_pp_gpbyname(pTHXo)
6170 {
6171     return ((CPerlObj*)pPerl)->Perl_pp_gpbyname();
6172 }
6173
6174 #undef  Perl_pp_gpbynumber
6175 OP *
6176 Perl_pp_gpbynumber(pTHXo)
6177 {
6178     return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber();
6179 }
6180
6181 #undef  Perl_pp_gprotoent
6182 OP *
6183 Perl_pp_gprotoent(pTHXo)
6184 {
6185     return ((CPerlObj*)pPerl)->Perl_pp_gprotoent();
6186 }
6187
6188 #undef  Perl_pp_gpwent
6189 OP *
6190 Perl_pp_gpwent(pTHXo)
6191 {
6192     return ((CPerlObj*)pPerl)->Perl_pp_gpwent();
6193 }
6194
6195 #undef  Perl_pp_gpwnam
6196 OP *
6197 Perl_pp_gpwnam(pTHXo)
6198 {
6199     return ((CPerlObj*)pPerl)->Perl_pp_gpwnam();
6200 }