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