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