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