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