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