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