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