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