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