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