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