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