This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change PerlIO_(get|set)pos to take SV *
[perl5.git] / perlapi.c
1 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
2    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
3    perlvars.h and thrdvar.h.  Any changes made here will be lost!
4 */
5
6 #include "EXTERN.h"
7 #include "perl.h"
8 #include "perlapi.h"
9
10 #if defined(PERL_OBJECT) || defined (MULTIPLICITY)
11
12 /* accessor functions for Perl variables (provides binary compatibility) */
13 START_EXTERN_C
14
15 #undef PERLVAR
16 #undef PERLVARA
17 #undef PERLVARI
18 #undef PERLVARIC
19
20 #if defined(PERL_OBJECT)
21 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
22                         { return &(aTHXo->interp.v); }
23 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
24                         { return &(aTHXo->interp.v); }
25 #else   /* MULTIPLICITY */
26 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHX)                         \
27                         { return &(aTHX->v); }
28 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX)                \
29                         { return &(aTHX->v); }
30 #endif
31
32 #define PERLVARI(v,t,i) PERLVAR(v,t)
33 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
34
35 #include "thrdvar.h"
36 #include "intrpvar.h"
37
38 #undef PERLVAR
39 #undef PERLVARA
40 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
41                         { return &(PL_##v); }
42 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
43                         { return &(PL_##v); }
44 #undef PERLVARIC
45 #define PERLVARIC(v,t,i)        const t* Perl_##v##_ptr(pTHXo)          \
46                         { return (const t *)&(PL_##v); }
47 #include "perlvars.h"
48
49 #undef PERLVAR
50 #undef PERLVARA
51 #undef PERLVARI
52 #undef PERLVARIC
53
54 #if defined(PERL_OBJECT)
55
56 /* C-API layer for PERL_OBJECT */
57
58 #if defined(PERL_IMPLICIT_SYS)
59 #endif
60 #if defined(USE_ITHREADS)
61 #  if defined(PERL_IMPLICIT_SYS)
62 #  endif
63 #endif
64 #if defined(MYMALLOC)
65 #endif
66 #if defined(PERL_OBJECT)
67 #ifndef __BORLANDC__
68 #endif
69 #endif
70 #if defined(PERL_OBJECT)
71 #else
72 #endif
73
74 #undef  Perl_amagic_call
75 SV*
76 Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
77 {
78     return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
79 }
80
81 #undef  Perl_Gv_AMupdate
82 bool
83 Perl_Gv_AMupdate(pTHXo_ HV* stash)
84 {
85     return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
86 }
87
88 #undef  Perl_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, I32 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, I32 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, I32 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, I32 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 STRLEN
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 CV*
1747 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
1748 {
1749     return ((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_newSVpvn_share
2019 SV*
2020 Perl_newSVpvn_share(pTHXo_ const char* s, STRLEN len, U32 hash)
2021 {
2022     return ((CPerlObj*)pPerl)->Perl_newSVpvn_share(s, len, hash);
2023 }
2024
2025 #undef  Perl_newSVpvf
2026 SV*
2027 Perl_newSVpvf(pTHXo_ const char* pat, ...)
2028 {
2029     SV* retval;
2030     va_list args;
2031     va_start(args, pat);
2032     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
2033     va_end(args);
2034     return retval;
2035
2036 }
2037
2038 #undef  Perl_vnewSVpvf
2039 SV*
2040 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
2041 {
2042     return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
2043 }
2044
2045 #undef  Perl_newSVrv
2046 SV*
2047 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
2048 {
2049     return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2050 }
2051
2052 #undef  Perl_newSVsv
2053 SV*
2054 Perl_newSVsv(pTHXo_ SV* old)
2055 {
2056     return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2057 }
2058
2059 #undef  Perl_newUNOP
2060 OP*
2061 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
2062 {
2063     return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2064 }
2065
2066 #undef  Perl_newWHILEOP
2067 OP*
2068 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2069 {
2070     return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2071 }
2072
2073 #undef  Perl_new_stackinfo
2074 PERL_SI*
2075 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
2076 {
2077     return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2078 }
2079
2080 #undef  Perl_ninstr
2081 char*
2082 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2083 {
2084     return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2085 }
2086
2087 #undef  Perl_op_free
2088 void
2089 Perl_op_free(pTHXo_ OP* arg)
2090 {
2091     ((CPerlObj*)pPerl)->Perl_op_free(arg);
2092 }
2093
2094 #undef  Perl_pad_sv
2095 SV*
2096 Perl_pad_sv(pTHXo_ PADOFFSET po)
2097 {
2098     return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2099 }
2100 #if defined(PERL_OBJECT)
2101
2102 #undef  Perl_construct
2103 void
2104 Perl_construct(pTHXo)
2105 {
2106     ((CPerlObj*)pPerl)->Perl_construct();
2107 }
2108
2109 #undef  Perl_destruct
2110 void
2111 Perl_destruct(pTHXo)
2112 {
2113     ((CPerlObj*)pPerl)->Perl_destruct();
2114 }
2115
2116 #undef  Perl_free
2117 void
2118 Perl_free(pTHXo)
2119 {
2120     ((CPerlObj*)pPerl)->Perl_free();
2121 }
2122
2123 #undef  Perl_run
2124 int
2125 Perl_run(pTHXo)
2126 {
2127     return ((CPerlObj*)pPerl)->Perl_run();
2128 }
2129
2130 #undef  Perl_parse
2131 int
2132 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2133 {
2134     return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2135 }
2136 #endif
2137 #if defined(USE_THREADS)
2138
2139 #undef  Perl_new_struct_thread
2140 struct perl_thread*
2141 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2142 {
2143     return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2144 }
2145 #endif
2146
2147 #undef  Perl_call_atexit
2148 void
2149 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2150 {
2151     ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2152 }
2153
2154 #undef  Perl_call_argv
2155 I32
2156 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2157 {
2158     return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2159 }
2160
2161 #undef  Perl_call_method
2162 I32
2163 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2164 {
2165     return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2166 }
2167
2168 #undef  Perl_call_pv
2169 I32
2170 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2171 {
2172     return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2173 }
2174
2175 #undef  Perl_call_sv
2176 I32
2177 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2178 {
2179     return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2180 }
2181
2182 #undef  Perl_eval_pv
2183 SV*
2184 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2185 {
2186     return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2187 }
2188
2189 #undef  Perl_eval_sv
2190 I32
2191 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2192 {
2193     return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2194 }
2195
2196 #undef  Perl_get_sv
2197 SV*
2198 Perl_get_sv(pTHXo_ const char* name, I32 create)
2199 {
2200     return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2201 }
2202
2203 #undef  Perl_get_av
2204 AV*
2205 Perl_get_av(pTHXo_ const char* name, I32 create)
2206 {
2207     return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2208 }
2209
2210 #undef  Perl_get_hv
2211 HV*
2212 Perl_get_hv(pTHXo_ const char* name, I32 create)
2213 {
2214     return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
2215 }
2216
2217 #undef  Perl_get_cv
2218 CV*
2219 Perl_get_cv(pTHXo_ const char* name, I32 create)
2220 {
2221     return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
2222 }
2223
2224 #undef  Perl_init_i18nl10n
2225 int
2226 Perl_init_i18nl10n(pTHXo_ int printwarn)
2227 {
2228     return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2229 }
2230
2231 #undef  Perl_init_i18nl14n
2232 int
2233 Perl_init_i18nl14n(pTHXo_ int printwarn)
2234 {
2235     return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2236 }
2237
2238 #undef  Perl_new_collate
2239 void
2240 Perl_new_collate(pTHXo_ char* newcoll)
2241 {
2242     ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2243 }
2244
2245 #undef  Perl_new_ctype
2246 void
2247 Perl_new_ctype(pTHXo_ char* newctype)
2248 {
2249     ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2250 }
2251
2252 #undef  Perl_new_numeric
2253 void
2254 Perl_new_numeric(pTHXo_ char* newcoll)
2255 {
2256     ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2257 }
2258
2259 #undef  Perl_set_numeric_local
2260 void
2261 Perl_set_numeric_local(pTHXo)
2262 {
2263     ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2264 }
2265
2266 #undef  Perl_set_numeric_radix
2267 void
2268 Perl_set_numeric_radix(pTHXo)
2269 {
2270     ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2271 }
2272
2273 #undef  Perl_set_numeric_standard
2274 void
2275 Perl_set_numeric_standard(pTHXo)
2276 {
2277     ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2278 }
2279
2280 #undef  Perl_require_pv
2281 void
2282 Perl_require_pv(pTHXo_ const char* pv)
2283 {
2284     ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2285 }
2286
2287 #undef  Perl_pmflag
2288 void
2289 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
2290 {
2291     ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2292 }
2293
2294 #undef  Perl_pop_scope
2295 void
2296 Perl_pop_scope(pTHXo)
2297 {
2298     ((CPerlObj*)pPerl)->Perl_pop_scope();
2299 }
2300
2301 #undef  Perl_push_scope
2302 void
2303 Perl_push_scope(pTHXo)
2304 {
2305     ((CPerlObj*)pPerl)->Perl_push_scope();
2306 }
2307
2308 #undef  Perl_regdump
2309 void
2310 Perl_regdump(pTHXo_ regexp* r)
2311 {
2312     ((CPerlObj*)pPerl)->Perl_regdump(r);
2313 }
2314
2315 #undef  Perl_pregexec
2316 I32
2317 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2318 {
2319     return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
2320 }
2321
2322 #undef  Perl_pregfree
2323 void
2324 Perl_pregfree(pTHXo_ struct regexp* r)
2325 {
2326     ((CPerlObj*)pPerl)->Perl_pregfree(r);
2327 }
2328
2329 #undef  Perl_pregcomp
2330 regexp*
2331 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
2332 {
2333     return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
2334 }
2335
2336 #undef  Perl_re_intuit_start
2337 char*
2338 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
2339 {
2340     return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
2341 }
2342
2343 #undef  Perl_re_intuit_string
2344 SV*
2345 Perl_re_intuit_string(pTHXo_ regexp* prog)
2346 {
2347     return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2348 }
2349
2350 #undef  Perl_regexec_flags
2351 I32
2352 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
2353 {
2354     return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
2355 }
2356
2357 #undef  Perl_regnext
2358 regnode*
2359 Perl_regnext(pTHXo_ regnode* p)
2360 {
2361     return ((CPerlObj*)pPerl)->Perl_regnext(p);
2362 }
2363
2364 #undef  Perl_repeatcpy
2365 void
2366 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
2367 {
2368     ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
2369 }
2370
2371 #undef  Perl_rninstr
2372 char*
2373 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2374 {
2375     return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
2376 }
2377
2378 #undef  Perl_rsignal
2379 Sighandler_t
2380 Perl_rsignal(pTHXo_ int i, Sighandler_t t)
2381 {
2382     return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
2383 }
2384 #if !defined(HAS_RENAME)
2385 #endif
2386
2387 #undef  Perl_savepv
2388 char*
2389 Perl_savepv(pTHXo_ const char* sv)
2390 {
2391     return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2392 }
2393
2394 #undef  Perl_savepvn
2395 char*
2396 Perl_savepvn(pTHXo_ const char* sv, I32 len)
2397 {
2398     return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2399 }
2400
2401 #undef  Perl_savestack_grow
2402 void
2403 Perl_savestack_grow(pTHXo)
2404 {
2405     ((CPerlObj*)pPerl)->Perl_savestack_grow();
2406 }
2407
2408 #undef  Perl_save_aelem
2409 void
2410 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
2411 {
2412     ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
2413 }
2414
2415 #undef  Perl_save_alloc
2416 I32
2417 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
2418 {
2419     return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
2420 }
2421
2422 #undef  Perl_save_aptr
2423 void
2424 Perl_save_aptr(pTHXo_ AV** aptr)
2425 {
2426     ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
2427 }
2428
2429 #undef  Perl_save_ary
2430 AV*
2431 Perl_save_ary(pTHXo_ GV* gv)
2432 {
2433     return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
2434 }
2435
2436 #undef  Perl_save_clearsv
2437 void
2438 Perl_save_clearsv(pTHXo_ SV** svp)
2439 {
2440     ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
2441 }
2442
2443 #undef  Perl_save_delete
2444 void
2445 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
2446 {
2447     ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
2448 }
2449
2450 #undef  Perl_save_destructor
2451 void
2452 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
2453 {
2454     ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
2455 }
2456
2457 #undef  Perl_save_destructor_x
2458 void
2459 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
2460 {
2461     ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
2462 }
2463
2464 #undef  Perl_save_freesv
2465 void
2466 Perl_save_freesv(pTHXo_ SV* sv)
2467 {
2468     ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
2469 }
2470
2471 #undef  Perl_save_freepv
2472 void
2473 Perl_save_freepv(pTHXo_ char* pv)
2474 {
2475     ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
2476 }
2477
2478 #undef  Perl_save_generic_svref
2479 void
2480 Perl_save_generic_svref(pTHXo_ SV** sptr)
2481 {
2482     ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
2483 }
2484
2485 #undef  Perl_save_generic_pvref
2486 void
2487 Perl_save_generic_pvref(pTHXo_ char** str)
2488 {
2489     ((CPerlObj*)pPerl)->Perl_save_generic_pvref(str);
2490 }
2491
2492 #undef  Perl_save_gp
2493 void
2494 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
2495 {
2496     ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
2497 }
2498
2499 #undef  Perl_save_hash
2500 HV*
2501 Perl_save_hash(pTHXo_ GV* gv)
2502 {
2503     return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
2504 }
2505
2506 #undef  Perl_save_helem
2507 void
2508 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
2509 {
2510     ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
2511 }
2512
2513 #undef  Perl_save_hints
2514 void
2515 Perl_save_hints(pTHXo)
2516 {
2517     ((CPerlObj*)pPerl)->Perl_save_hints();
2518 }
2519
2520 #undef  Perl_save_hptr
2521 void
2522 Perl_save_hptr(pTHXo_ HV** hptr)
2523 {
2524     ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
2525 }
2526
2527 #undef  Perl_save_I16
2528 void
2529 Perl_save_I16(pTHXo_ I16* intp)
2530 {
2531     ((CPerlObj*)pPerl)->Perl_save_I16(intp);
2532 }
2533
2534 #undef  Perl_save_I32
2535 void
2536 Perl_save_I32(pTHXo_ I32* intp)
2537 {
2538     ((CPerlObj*)pPerl)->Perl_save_I32(intp);
2539 }
2540
2541 #undef  Perl_save_I8
2542 void
2543 Perl_save_I8(pTHXo_ I8* bytep)
2544 {
2545     ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
2546 }
2547
2548 #undef  Perl_save_int
2549 void
2550 Perl_save_int(pTHXo_ int* intp)
2551 {
2552     ((CPerlObj*)pPerl)->Perl_save_int(intp);
2553 }
2554
2555 #undef  Perl_save_item
2556 void
2557 Perl_save_item(pTHXo_ SV* item)
2558 {
2559     ((CPerlObj*)pPerl)->Perl_save_item(item);
2560 }
2561
2562 #undef  Perl_save_iv
2563 void
2564 Perl_save_iv(pTHXo_ IV* iv)
2565 {
2566     ((CPerlObj*)pPerl)->Perl_save_iv(iv);
2567 }
2568
2569 #undef  Perl_save_list
2570 void
2571 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
2572 {
2573     ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
2574 }
2575
2576 #undef  Perl_save_long
2577 void
2578 Perl_save_long(pTHXo_ long* longp)
2579 {
2580     ((CPerlObj*)pPerl)->Perl_save_long(longp);
2581 }
2582
2583 #undef  Perl_save_nogv
2584 void
2585 Perl_save_nogv(pTHXo_ GV* gv)
2586 {
2587     ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
2588 }
2589
2590 #undef  Perl_save_scalar
2591 SV*
2592 Perl_save_scalar(pTHXo_ GV* gv)
2593 {
2594     return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
2595 }
2596
2597 #undef  Perl_save_pptr
2598 void
2599 Perl_save_pptr(pTHXo_ char** pptr)
2600 {
2601     ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
2602 }
2603
2604 #undef  Perl_save_vptr
2605 void
2606 Perl_save_vptr(pTHXo_ void* pptr)
2607 {
2608     ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
2609 }
2610
2611 #undef  Perl_save_re_context
2612 void
2613 Perl_save_re_context(pTHXo)
2614 {
2615     ((CPerlObj*)pPerl)->Perl_save_re_context();
2616 }
2617
2618 #undef  Perl_save_padsv
2619 void
2620 Perl_save_padsv(pTHXo_ PADOFFSET off)
2621 {
2622     ((CPerlObj*)pPerl)->Perl_save_padsv(off);
2623 }
2624
2625 #undef  Perl_save_sptr
2626 void
2627 Perl_save_sptr(pTHXo_ SV** sptr)
2628 {
2629     ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
2630 }
2631
2632 #undef  Perl_save_svref
2633 SV*
2634 Perl_save_svref(pTHXo_ SV** sptr)
2635 {
2636     return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
2637 }
2638
2639 #undef  Perl_save_threadsv
2640 SV**
2641 Perl_save_threadsv(pTHXo_ PADOFFSET i)
2642 {
2643     return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
2644 }
2645
2646 #undef  Perl_scan_bin
2647 NV
2648 Perl_scan_bin(pTHXo_ char* start, STRLEN len, STRLEN* retlen)
2649 {
2650     return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
2651 }
2652
2653 #undef  Perl_scan_hex
2654 NV
2655 Perl_scan_hex(pTHXo_ char* start, STRLEN len, STRLEN* retlen)
2656 {
2657     return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
2658 }
2659
2660 #undef  Perl_scan_num
2661 char*
2662 Perl_scan_num(pTHXo_ char* s, YYSTYPE *lvalp)
2663 {
2664     return ((CPerlObj*)pPerl)->Perl_scan_num(s, lvalp);
2665 }
2666
2667 #undef  Perl_scan_oct
2668 NV
2669 Perl_scan_oct(pTHXo_ char* start, STRLEN len, STRLEN* retlen)
2670 {
2671     return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
2672 }
2673
2674 #undef  Perl_screaminstr
2675 char*
2676 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
2677 {
2678     return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
2679 }
2680 #if !defined(VMS)
2681 #endif
2682
2683 #undef  Perl_sharepvn
2684 char*
2685 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
2686 {
2687     return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
2688 }
2689
2690 #undef  Perl_stack_grow
2691 SV**
2692 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
2693 {
2694     return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
2695 }
2696
2697 #undef  Perl_start_subparse
2698 I32
2699 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
2700 {
2701     return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
2702 }
2703
2704 #undef  Perl_sv_2bool
2705 bool
2706 Perl_sv_2bool(pTHXo_ SV* sv)
2707 {
2708     return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
2709 }
2710
2711 #undef  Perl_sv_2cv
2712 CV*
2713 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
2714 {
2715     return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
2716 }
2717
2718 #undef  Perl_sv_2io
2719 IO*
2720 Perl_sv_2io(pTHXo_ SV* sv)
2721 {
2722     return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
2723 }
2724
2725 #undef  Perl_sv_2iv
2726 IV
2727 Perl_sv_2iv(pTHXo_ SV* sv)
2728 {
2729     return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
2730 }
2731
2732 #undef  Perl_sv_2mortal
2733 SV*
2734 Perl_sv_2mortal(pTHXo_ SV* sv)
2735 {
2736     return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
2737 }
2738
2739 #undef  Perl_sv_2nv
2740 NV
2741 Perl_sv_2nv(pTHXo_ SV* sv)
2742 {
2743     return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
2744 }
2745
2746 #undef  Perl_sv_2pv
2747 char*
2748 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
2749 {
2750     return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
2751 }
2752
2753 #undef  Perl_sv_2pvutf8
2754 char*
2755 Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp)
2756 {
2757     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp);
2758 }
2759
2760 #undef  Perl_sv_2pvbyte
2761 char*
2762 Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp)
2763 {
2764     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp);
2765 }
2766
2767 #undef  Perl_sv_2uv
2768 UV
2769 Perl_sv_2uv(pTHXo_ SV* sv)
2770 {
2771     return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
2772 }
2773
2774 #undef  Perl_sv_iv
2775 IV
2776 Perl_sv_iv(pTHXo_ SV* sv)
2777 {
2778     return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
2779 }
2780
2781 #undef  Perl_sv_uv
2782 UV
2783 Perl_sv_uv(pTHXo_ SV* sv)
2784 {
2785     return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
2786 }
2787
2788 #undef  Perl_sv_nv
2789 NV
2790 Perl_sv_nv(pTHXo_ SV* sv)
2791 {
2792     return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
2793 }
2794
2795 #undef  Perl_sv_pvn
2796 char*
2797 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
2798 {
2799     return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
2800 }
2801
2802 #undef  Perl_sv_pvutf8n
2803 char*
2804 Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len)
2805 {
2806     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len);
2807 }
2808
2809 #undef  Perl_sv_pvbyten
2810 char*
2811 Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len)
2812 {
2813     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len);
2814 }
2815
2816 #undef  Perl_sv_true
2817 I32
2818 Perl_sv_true(pTHXo_ SV *sv)
2819 {
2820     return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
2821 }
2822
2823 #undef  Perl_sv_backoff
2824 int
2825 Perl_sv_backoff(pTHXo_ SV* sv)
2826 {
2827     return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
2828 }
2829
2830 #undef  Perl_sv_bless
2831 SV*
2832 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
2833 {
2834     return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
2835 }
2836
2837 #undef  Perl_sv_catpvf
2838 void
2839 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
2840 {
2841     va_list args;
2842     va_start(args, pat);
2843     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
2844     va_end(args);
2845 }
2846
2847 #undef  Perl_sv_vcatpvf
2848 void
2849 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
2850 {
2851     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
2852 }
2853
2854 #undef  Perl_sv_catpv
2855 void
2856 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
2857 {
2858     ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
2859 }
2860
2861 #undef  Perl_sv_catpvn
2862 void
2863 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
2864 {
2865     ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
2866 }
2867
2868 #undef  Perl_sv_catsv
2869 void
2870 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
2871 {
2872     ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
2873 }
2874
2875 #undef  Perl_sv_chop
2876 void
2877 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
2878 {
2879     ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
2880 }
2881
2882 #undef  Perl_sv_clear
2883 void
2884 Perl_sv_clear(pTHXo_ SV* sv)
2885 {
2886     ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
2887 }
2888
2889 #undef  Perl_sv_cmp
2890 I32
2891 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
2892 {
2893     return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
2894 }
2895
2896 #undef  Perl_sv_cmp_locale
2897 I32
2898 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
2899 {
2900     return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
2901 }
2902 #if defined(USE_LOCALE_COLLATE)
2903
2904 #undef  Perl_sv_collxfrm
2905 char*
2906 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
2907 {
2908     return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
2909 }
2910 #endif
2911
2912 #undef  Perl_sv_compile_2op
2913 OP*
2914 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
2915 {
2916     return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
2917 }
2918
2919 #undef  Perl_sv_dec
2920 void
2921 Perl_sv_dec(pTHXo_ SV* sv)
2922 {
2923     ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
2924 }
2925
2926 #undef  Perl_sv_dump
2927 void
2928 Perl_sv_dump(pTHXo_ SV* sv)
2929 {
2930     ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
2931 }
2932
2933 #undef  Perl_sv_derived_from
2934 bool
2935 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
2936 {
2937     return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
2938 }
2939
2940 #undef  Perl_sv_eq
2941 I32
2942 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
2943 {
2944     return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
2945 }
2946
2947 #undef  Perl_sv_free
2948 void
2949 Perl_sv_free(pTHXo_ SV* sv)
2950 {
2951     ((CPerlObj*)pPerl)->Perl_sv_free(sv);
2952 }
2953
2954 #undef  Perl_sv_gets
2955 char*
2956 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
2957 {
2958     return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
2959 }
2960
2961 #undef  Perl_sv_grow
2962 char*
2963 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
2964 {
2965     return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
2966 }
2967
2968 #undef  Perl_sv_inc
2969 void
2970 Perl_sv_inc(pTHXo_ SV* sv)
2971 {
2972     ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
2973 }
2974
2975 #undef  Perl_sv_insert
2976 void
2977 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
2978 {
2979     ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
2980 }
2981
2982 #undef  Perl_sv_isa
2983 int
2984 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
2985 {
2986     return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
2987 }
2988
2989 #undef  Perl_sv_isobject
2990 int
2991 Perl_sv_isobject(pTHXo_ SV* sv)
2992 {
2993     return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
2994 }
2995
2996 #undef  Perl_sv_len
2997 STRLEN
2998 Perl_sv_len(pTHXo_ SV* sv)
2999 {
3000     return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
3001 }
3002
3003 #undef  Perl_sv_len_utf8
3004 STRLEN
3005 Perl_sv_len_utf8(pTHXo_ SV* sv)
3006 {
3007     return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
3008 }
3009
3010 #undef  Perl_sv_magic
3011 void
3012 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
3013 {
3014     ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
3015 }
3016
3017 #undef  Perl_sv_mortalcopy
3018 SV*
3019 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
3020 {
3021     return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
3022 }
3023
3024 #undef  Perl_sv_newmortal
3025 SV*
3026 Perl_sv_newmortal(pTHXo)
3027 {
3028     return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
3029 }
3030
3031 #undef  Perl_sv_newref
3032 SV*
3033 Perl_sv_newref(pTHXo_ SV* sv)
3034 {
3035     return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
3036 }
3037
3038 #undef  Perl_sv_peek
3039 char*
3040 Perl_sv_peek(pTHXo_ SV* sv)
3041 {
3042     return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
3043 }
3044
3045 #undef  Perl_sv_pos_u2b
3046 void
3047 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
3048 {
3049     ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
3050 }
3051
3052 #undef  Perl_sv_pos_b2u
3053 void
3054 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
3055 {
3056     ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
3057 }
3058
3059 #undef  Perl_sv_pvn_force
3060 char*
3061 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
3062 {
3063     return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
3064 }
3065
3066 #undef  Perl_sv_pvutf8n_force
3067 char*
3068 Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp)
3069 {
3070     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp);
3071 }
3072
3073 #undef  Perl_sv_pvbyten_force
3074 char*
3075 Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp)
3076 {
3077     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
3078 }
3079
3080 #undef  Perl_sv_reftype
3081 char*
3082 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
3083 {
3084     return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
3085 }
3086
3087 #undef  Perl_sv_replace
3088 void
3089 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
3090 {
3091     ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
3092 }
3093
3094 #undef  Perl_sv_report_used
3095 void
3096 Perl_sv_report_used(pTHXo)
3097 {
3098     ((CPerlObj*)pPerl)->Perl_sv_report_used();
3099 }
3100
3101 #undef  Perl_sv_reset
3102 void
3103 Perl_sv_reset(pTHXo_ char* s, HV* stash)
3104 {
3105     ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
3106 }
3107
3108 #undef  Perl_sv_setpvf
3109 void
3110 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
3111 {
3112     va_list args;
3113     va_start(args, pat);
3114     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
3115     va_end(args);
3116 }
3117
3118 #undef  Perl_sv_vsetpvf
3119 void
3120 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3121 {
3122     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
3123 }
3124
3125 #undef  Perl_sv_setiv
3126 void
3127 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
3128 {
3129     ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3130 }
3131
3132 #undef  Perl_sv_setpviv
3133 void
3134 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
3135 {
3136     ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3137 }
3138
3139 #undef  Perl_sv_setuv
3140 void
3141 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
3142 {
3143     ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3144 }
3145
3146 #undef  Perl_sv_setnv
3147 void
3148 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
3149 {
3150     ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
3151 }
3152
3153 #undef  Perl_sv_setref_iv
3154 SV*
3155 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
3156 {
3157     return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
3158 }
3159
3160 #undef  Perl_sv_setref_nv
3161 SV*
3162 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
3163 {
3164     return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
3165 }
3166
3167 #undef  Perl_sv_setref_pv
3168 SV*
3169 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
3170 {
3171     return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
3172 }
3173
3174 #undef  Perl_sv_setref_pvn
3175 SV*
3176 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
3177 {
3178     return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
3179 }
3180
3181 #undef  Perl_sv_setpv
3182 void
3183 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
3184 {
3185     ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
3186 }
3187
3188 #undef  Perl_sv_setpvn
3189 void
3190 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3191 {
3192     ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
3193 }
3194
3195 #undef  Perl_sv_setsv
3196 void
3197 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
3198 {
3199     ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3200 }
3201
3202 #undef  Perl_sv_taint
3203 void
3204 Perl_sv_taint(pTHXo_ SV* sv)
3205 {
3206     ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3207 }
3208
3209 #undef  Perl_sv_tainted
3210 bool
3211 Perl_sv_tainted(pTHXo_ SV* sv)
3212 {
3213     return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3214 }
3215
3216 #undef  Perl_sv_unmagic
3217 int
3218 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
3219 {
3220     return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
3221 }
3222
3223 #undef  Perl_sv_unref
3224 void
3225 Perl_sv_unref(pTHXo_ SV* sv)
3226 {
3227     ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3228 }
3229
3230 #undef  Perl_sv_unref_flags
3231 void
3232 Perl_sv_unref_flags(pTHXo_ SV* sv, U32 flags)
3233 {
3234     ((CPerlObj*)pPerl)->Perl_sv_unref_flags(sv, flags);
3235 }
3236
3237 #undef  Perl_sv_untaint
3238 void
3239 Perl_sv_untaint(pTHXo_ SV* sv)
3240 {
3241     ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3242 }
3243
3244 #undef  Perl_sv_upgrade
3245 bool
3246 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
3247 {
3248     return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
3249 }
3250
3251 #undef  Perl_sv_usepvn
3252 void
3253 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
3254 {
3255     ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
3256 }
3257
3258 #undef  Perl_sv_vcatpvfn
3259 void
3260 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3261 {
3262     ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3263 }
3264
3265 #undef  Perl_sv_vsetpvfn
3266 void
3267 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3268 {
3269     ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3270 }
3271
3272 #undef  Perl_str_to_version
3273 NV
3274 Perl_str_to_version(pTHXo_ SV *sv)
3275 {
3276     return ((CPerlObj*)pPerl)->Perl_str_to_version(sv);
3277 }
3278
3279 #undef  Perl_swash_init
3280 SV*
3281 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
3282 {
3283     return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
3284 }
3285
3286 #undef  Perl_swash_fetch
3287 UV
3288 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
3289 {
3290     return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
3291 }
3292
3293 #undef  Perl_taint_env
3294 void
3295 Perl_taint_env(pTHXo)
3296 {
3297     ((CPerlObj*)pPerl)->Perl_taint_env();
3298 }
3299
3300 #undef  Perl_taint_proper
3301 void
3302 Perl_taint_proper(pTHXo_ const char* f, const char* s)
3303 {
3304     ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
3305 }
3306
3307 #undef  Perl_to_utf8_lower
3308 UV
3309 Perl_to_utf8_lower(pTHXo_ U8 *p)
3310 {
3311     return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
3312 }
3313
3314 #undef  Perl_to_utf8_upper
3315 UV
3316 Perl_to_utf8_upper(pTHXo_ U8 *p)
3317 {
3318     return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
3319 }
3320
3321 #undef  Perl_to_utf8_title
3322 UV
3323 Perl_to_utf8_title(pTHXo_ U8 *p)
3324 {
3325     return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
3326 }
3327 #if defined(UNLINK_ALL_VERSIONS)
3328
3329 #undef  Perl_unlnk
3330 I32
3331 Perl_unlnk(pTHXo_ char* f)
3332 {
3333     return ((CPerlObj*)pPerl)->Perl_unlnk(f);
3334 }
3335 #endif
3336 #if defined(USE_THREADS)
3337
3338 #undef  Perl_unlock_condpair
3339 void
3340 Perl_unlock_condpair(pTHXo_ void* svv)
3341 {
3342     ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3343 }
3344 #endif
3345
3346 #undef  Perl_unsharepvn
3347 void
3348 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3349 {
3350     ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
3351 }
3352
3353 #undef  Perl_utf16_to_utf8
3354 U8*
3355 Perl_utf16_to_utf8(pTHXo_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
3356 {
3357     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen, newlen);
3358 }
3359
3360 #undef  Perl_utf16_to_utf8_reversed
3361 U8*
3362 Perl_utf16_to_utf8_reversed(pTHXo_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
3363 {
3364     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen, newlen);
3365 }
3366
3367 #undef  Perl_utf8_length
3368 STRLEN
3369 Perl_utf8_length(pTHXo_ U8* s, U8 *e)
3370 {
3371     return ((CPerlObj*)pPerl)->Perl_utf8_length(s, e);
3372 }
3373
3374 #undef  Perl_utf8_distance
3375 IV
3376 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
3377 {
3378     return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
3379 }
3380
3381 #undef  Perl_utf8_hop
3382 U8*
3383 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
3384 {
3385     return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
3386 }
3387
3388 #undef  Perl_utf8_to_bytes
3389 U8*
3390 Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN *len)
3391 {
3392     return ((CPerlObj*)pPerl)->Perl_utf8_to_bytes(s, len);
3393 }
3394
3395 #undef  Perl_bytes_to_utf8
3396 U8*
3397 Perl_bytes_to_utf8(pTHXo_ U8 *s, STRLEN *len)
3398 {
3399     return ((CPerlObj*)pPerl)->Perl_bytes_to_utf8(s, len);
3400 }
3401
3402 #undef  Perl_utf8_to_uv_simple
3403 UV
3404 Perl_utf8_to_uv_simple(pTHXo_ U8 *s, STRLEN* retlen)
3405 {
3406     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv_simple(s, retlen);
3407 }
3408
3409 #undef  Perl_utf8_to_uv
3410 UV
3411 Perl_utf8_to_uv(pTHXo_ U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags)
3412 {
3413     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, curlen, retlen, flags);
3414 }
3415
3416 #undef  Perl_uv_to_utf8
3417 U8*
3418 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
3419 {
3420     return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
3421 }
3422
3423 #undef  Perl_warn
3424 void
3425 Perl_warn(pTHXo_ const char* pat, ...)
3426 {
3427     va_list args;
3428     va_start(args, pat);
3429     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
3430     va_end(args);
3431 }
3432
3433 #undef  Perl_vwarn
3434 void
3435 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
3436 {
3437     ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
3438 }
3439
3440 #undef  Perl_warner
3441 void
3442 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
3443 {
3444     va_list args;
3445     va_start(args, pat);
3446     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
3447     va_end(args);
3448 }
3449
3450 #undef  Perl_vwarner
3451 void
3452 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
3453 {
3454     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
3455 }
3456
3457 #undef  Perl_whichsig
3458 I32
3459 Perl_whichsig(pTHXo_ char* sig)
3460 {
3461     return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
3462 }
3463 #ifdef USE_PURE_BISON
3464 #else
3465 #endif
3466 #if defined(MYMALLOC)
3467
3468 #undef  Perl_dump_mstats
3469 void
3470 Perl_dump_mstats(pTHXo_ char* s)
3471 {
3472     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
3473 }
3474
3475 #undef  Perl_get_mstats
3476 int
3477 Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level)
3478 {
3479     return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level);
3480 }
3481 #endif
3482
3483 #undef  Perl_safesysmalloc
3484 Malloc_t
3485 Perl_safesysmalloc(MEM_SIZE nbytes)
3486 {
3487     dTHXo;
3488     return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
3489 }
3490
3491 #undef  Perl_safesyscalloc
3492 Malloc_t
3493 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
3494 {
3495     dTHXo;
3496     return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
3497 }
3498
3499 #undef  Perl_safesysrealloc
3500 Malloc_t
3501 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
3502 {
3503     dTHXo;
3504     return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
3505 }
3506
3507 #undef  Perl_safesysfree
3508 Free_t
3509 Perl_safesysfree(Malloc_t where)
3510 {
3511     dTHXo;
3512     ((CPerlObj*)pPerl)->Perl_safesysfree(where);
3513 }
3514 #if defined(LEAKTEST)
3515
3516 #undef  Perl_safexmalloc
3517 Malloc_t
3518 Perl_safexmalloc(I32 x, MEM_SIZE size)
3519 {
3520     dTHXo;
3521     return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
3522 }
3523
3524 #undef  Perl_safexcalloc
3525 Malloc_t
3526 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
3527 {
3528     dTHXo;
3529     return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
3530 }
3531
3532 #undef  Perl_safexrealloc
3533 Malloc_t
3534 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
3535 {
3536     dTHXo;
3537     return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
3538 }
3539
3540 #undef  Perl_safexfree
3541 void
3542 Perl_safexfree(Malloc_t where)
3543 {
3544     dTHXo;
3545     ((CPerlObj*)pPerl)->Perl_safexfree(where);
3546 }
3547 #endif
3548 #if defined(PERL_GLOBAL_STRUCT)
3549
3550 #undef  Perl_GetVars
3551 struct perl_vars *
3552 Perl_GetVars(pTHXo)
3553 {
3554     return ((CPerlObj*)pPerl)->Perl_GetVars();
3555 }
3556 #endif
3557
3558 #undef  Perl_runops_standard
3559 int
3560 Perl_runops_standard(pTHXo)
3561 {
3562     return ((CPerlObj*)pPerl)->Perl_runops_standard();
3563 }
3564
3565 #undef  Perl_runops_debug
3566 int
3567 Perl_runops_debug(pTHXo)
3568 {
3569     return ((CPerlObj*)pPerl)->Perl_runops_debug();
3570 }
3571 #if defined(USE_THREADS)
3572
3573 #undef  Perl_sv_lock
3574 SV*
3575 Perl_sv_lock(pTHXo_ SV *sv)
3576 {
3577     return ((CPerlObj*)pPerl)->Perl_sv_lock(sv);
3578 }
3579 #endif
3580
3581 #undef  Perl_sv_catpvf_mg
3582 void
3583 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3584 {
3585     va_list args;
3586     va_start(args, pat);
3587     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
3588     va_end(args);
3589 }
3590
3591 #undef  Perl_sv_vcatpvf_mg
3592 void
3593 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3594 {
3595     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
3596 }
3597
3598 #undef  Perl_sv_catpv_mg
3599 void
3600 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
3601 {
3602     ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
3603 }
3604
3605 #undef  Perl_sv_catpvn_mg
3606 void
3607 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3608 {
3609     ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
3610 }
3611
3612 #undef  Perl_sv_catsv_mg
3613 void
3614 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
3615 {
3616     ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
3617 }
3618
3619 #undef  Perl_sv_setpvf_mg
3620 void
3621 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3622 {
3623     va_list args;
3624     va_start(args, pat);
3625     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
3626     va_end(args);
3627 }
3628
3629 #undef  Perl_sv_vsetpvf_mg
3630 void
3631 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3632 {
3633     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
3634 }
3635
3636 #undef  Perl_sv_setiv_mg
3637 void
3638 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
3639 {
3640     ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
3641 }
3642
3643 #undef  Perl_sv_setpviv_mg
3644 void
3645 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
3646 {
3647     ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
3648 }
3649
3650 #undef  Perl_sv_setuv_mg
3651 void
3652 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
3653 {
3654     ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
3655 }
3656
3657 #undef  Perl_sv_setnv_mg
3658 void
3659 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
3660 {
3661     ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
3662 }
3663
3664 #undef  Perl_sv_setpv_mg
3665 void
3666 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
3667 {
3668     ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
3669 }
3670
3671 #undef  Perl_sv_setpvn_mg
3672 void
3673 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3674 {
3675     ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
3676 }
3677
3678 #undef  Perl_sv_setsv_mg
3679 void
3680 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
3681 {
3682     ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
3683 }
3684
3685 #undef  Perl_sv_usepvn_mg
3686 void
3687 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
3688 {
3689     ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
3690 }
3691
3692 #undef  Perl_get_vtbl
3693 MGVTBL*
3694 Perl_get_vtbl(pTHXo_ int vtbl_id)
3695 {
3696     return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
3697 }
3698
3699 #undef  Perl_dump_indent
3700 void
3701 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
3702 {
3703     va_list args;
3704     va_start(args, pat);
3705     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
3706     va_end(args);
3707 }
3708
3709 #undef  Perl_dump_vindent
3710 void
3711 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
3712 {
3713     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
3714 }
3715
3716 #undef  Perl_do_gv_dump
3717 void
3718 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3719 {
3720     ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
3721 }
3722
3723 #undef  Perl_do_gvgv_dump
3724 void
3725 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3726 {
3727     ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
3728 }
3729
3730 #undef  Perl_do_hv_dump
3731 void
3732 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
3733 {
3734     ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
3735 }
3736
3737 #undef  Perl_do_magic_dump
3738 void
3739 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3740 {
3741     ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
3742 }
3743
3744 #undef  Perl_do_op_dump
3745 void
3746 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
3747 {
3748     ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
3749 }
3750
3751 #undef  Perl_do_pmop_dump
3752 void
3753 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
3754 {
3755     ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
3756 }
3757
3758 #undef  Perl_do_sv_dump
3759 void
3760 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3761 {
3762     ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
3763 }
3764
3765 #undef  Perl_magic_dump
3766 void
3767 Perl_magic_dump(pTHXo_ MAGIC *mg)
3768 {
3769     ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
3770 }
3771 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
3772
3773 #undef  Perl_default_protect
3774 void*
3775 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
3776 {
3777     void* retval;
3778     va_list args;
3779     va_start(args, body);
3780     retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
3781     va_end(args);
3782     return retval;
3783
3784 }
3785
3786 #undef  Perl_vdefault_protect
3787 void*
3788 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
3789 {
3790     return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
3791 }
3792 #endif
3793
3794 #undef  Perl_reginitcolors
3795 void
3796 Perl_reginitcolors(pTHXo)
3797 {
3798     ((CPerlObj*)pPerl)->Perl_reginitcolors();
3799 }
3800
3801 #undef  Perl_sv_2pv_nolen
3802 char*
3803 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
3804 {
3805     return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
3806 }
3807
3808 #undef  Perl_sv_2pvutf8_nolen
3809 char*
3810 Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv)
3811 {
3812     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv);
3813 }
3814
3815 #undef  Perl_sv_2pvbyte_nolen
3816 char*
3817 Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv)
3818 {
3819     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv);
3820 }
3821
3822 #undef  Perl_sv_pv
3823 char*
3824 Perl_sv_pv(pTHXo_ SV *sv)
3825 {
3826     return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
3827 }
3828
3829 #undef  Perl_sv_pvutf8
3830 char*
3831 Perl_sv_pvutf8(pTHXo_ SV *sv)
3832 {
3833     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv);
3834 }
3835
3836 #undef  Perl_sv_pvbyte
3837 char*
3838 Perl_sv_pvbyte(pTHXo_ SV *sv)
3839 {
3840     return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
3841 }
3842
3843 #undef  Perl_sv_utf8_upgrade
3844 void
3845 Perl_sv_utf8_upgrade(pTHXo_ SV *sv)
3846 {
3847     ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv);
3848 }
3849
3850 #undef  Perl_sv_utf8_downgrade
3851 bool
3852 Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok)
3853 {
3854     return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok);
3855 }
3856
3857 #undef  Perl_sv_utf8_encode
3858 void
3859 Perl_sv_utf8_encode(pTHXo_ SV *sv)
3860 {
3861     ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv);
3862 }
3863
3864 #undef  Perl_sv_utf8_decode
3865 bool
3866 Perl_sv_utf8_decode(pTHXo_ SV *sv)
3867 {
3868     return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv);
3869 }
3870
3871 #undef  Perl_sv_force_normal
3872 void
3873 Perl_sv_force_normal(pTHXo_ SV *sv)
3874 {
3875     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
3876 }
3877
3878 #undef  Perl_sv_force_normal_flags
3879 void
3880 Perl_sv_force_normal_flags(pTHXo_ SV *sv, U32 flags)
3881 {
3882     ((CPerlObj*)pPerl)->Perl_sv_force_normal_flags(sv, flags);
3883 }
3884
3885 #undef  Perl_tmps_grow
3886 void
3887 Perl_tmps_grow(pTHXo_ I32 n)
3888 {
3889     ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
3890 }
3891
3892 #undef  Perl_sv_rvweaken
3893 SV*
3894 Perl_sv_rvweaken(pTHXo_ SV *sv)
3895 {
3896     return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
3897 }
3898
3899 #undef  Perl_newANONATTRSUB
3900 OP*
3901 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
3902 {
3903     return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
3904 }
3905
3906 #undef  Perl_newATTRSUB
3907 CV*
3908 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3909 {
3910     return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
3911 }
3912
3913 #undef  Perl_newMYSUB
3914 void
3915 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3916 {
3917     ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
3918 }
3919 #if defined(USE_ITHREADS)
3920
3921 #undef  Perl_cx_dup
3922 PERL_CONTEXT*
3923 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
3924 {
3925     return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
3926 }
3927
3928 #undef  Perl_si_dup
3929 PERL_SI*
3930 Perl_si_dup(pTHXo_ PERL_SI* si)
3931 {
3932     return ((CPerlObj*)pPerl)->Perl_si_dup(si);
3933 }
3934
3935 #undef  Perl_ss_dup
3936 ANY*
3937 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
3938 {
3939     return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
3940 }
3941
3942 #undef  Perl_any_dup
3943 void*
3944 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
3945 {
3946     return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
3947 }
3948
3949 #undef  Perl_he_dup
3950 HE*
3951 Perl_he_dup(pTHXo_ HE* e, bool shared)
3952 {
3953     return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
3954 }
3955
3956 #undef  Perl_re_dup
3957 REGEXP*
3958 Perl_re_dup(pTHXo_ REGEXP* r)
3959 {
3960     return ((CPerlObj*)pPerl)->Perl_re_dup(r);
3961 }
3962
3963 #undef  Perl_fp_dup
3964 PerlIO*
3965 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
3966 {
3967     return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
3968 }
3969
3970 #undef  Perl_dirp_dup
3971 DIR*
3972 Perl_dirp_dup(pTHXo_ DIR* dp)
3973 {
3974     return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
3975 }
3976
3977 #undef  Perl_gp_dup
3978 GP*
3979 Perl_gp_dup(pTHXo_ GP* gp)
3980 {
3981     return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
3982 }
3983
3984 #undef  Perl_mg_dup
3985 MAGIC*
3986 Perl_mg_dup(pTHXo_ MAGIC* mg)
3987 {
3988     return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
3989 }
3990
3991 #undef  Perl_sv_dup
3992 SV*
3993 Perl_sv_dup(pTHXo_ SV* sstr)
3994 {
3995     return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
3996 }
3997 #if defined(HAVE_INTERP_INTERN)
3998
3999 #undef  Perl_sys_intern_dup
4000 void
4001 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
4002 {
4003     ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
4004 }
4005 #endif
4006
4007 #undef  Perl_ptr_table_new
4008 PTR_TBL_t*
4009 Perl_ptr_table_new(pTHXo)
4010 {
4011     return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
4012 }
4013
4014 #undef  Perl_ptr_table_fetch
4015 void*
4016 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
4017 {
4018     return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
4019 }
4020
4021 #undef  Perl_ptr_table_store
4022 void
4023 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
4024 {
4025     ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
4026 }
4027
4028 #undef  Perl_ptr_table_split
4029 void
4030 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
4031 {
4032     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
4033 }
4034 #endif
4035 #if defined(HAVE_INTERP_INTERN)
4036
4037 #undef  Perl_sys_intern_clear
4038 void
4039 Perl_sys_intern_clear(pTHXo)
4040 {
4041     ((CPerlObj*)pPerl)->Perl_sys_intern_clear();
4042 }
4043
4044 #undef  Perl_sys_intern_init
4045 void
4046 Perl_sys_intern_init(pTHXo)
4047 {
4048     ((CPerlObj*)pPerl)->Perl_sys_intern_init();
4049 }
4050 #endif
4051 #if defined(PERL_OBJECT)
4052 #else
4053 #endif
4054 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
4055 #endif
4056 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
4057 #endif
4058 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
4059 #endif
4060 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
4061 #endif
4062 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
4063 #endif
4064 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
4065 #  if defined(PL_OP_SLAB_ALLOC)
4066 #  endif
4067 #endif
4068 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
4069 #  if defined(IAMSUID)
4070 #  endif
4071 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
4072 #endif
4073 #  if defined(USE_THREADS)
4074 #  endif
4075 #endif
4076 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
4077 #endif
4078 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
4079 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
4080 #endif
4081 #endif
4082 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
4083 #endif
4084 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
4085 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
4086 #  endif
4087 #endif
4088 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
4089 #endif
4090 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
4091 #endif
4092 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
4093 #endif
4094 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
4095 #endif
4096 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
4097 #  if defined(DEBUGGING)
4098 #  endif
4099 #endif
4100 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
4101 #if 0
4102 #endif
4103 #  if defined(CRIPPLED_CC)
4104 #  endif
4105 #  if defined(PERL_CR_FILTER)
4106 #  endif
4107 #endif
4108 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
4109 #endif
4110 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
4111 #  if defined(LEAKTEST)
4112 #  endif
4113 #endif
4114 #if defined(PERL_OBJECT)
4115 #endif
4116
4117 #undef Perl_fprintf_nocontext
4118 int
4119 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
4120 {
4121     dTHXo;
4122     va_list(arglist);
4123     va_start(arglist, format);
4124     return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
4125 }
4126
4127 END_EXTERN_C
4128
4129 #endif /* PERL_OBJECT */
4130 #endif /* PERL_OBJECT || MULTIPLICITY */