This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change#3612 was buggy and failed to build Tk; applied Ilya's
[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
10#if defined(PERL_OBJECT)
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
19#define PERLVAR(v,t) t* Perl_##v##_ptr(void *p) \
20 { return &(((CPerlObj*)p)->PL_##v); }
21#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(void *p) \
22 { return &(((CPerlObj*)p)->PL_##v); }
23#define PERLVARI(v,t,i) PERLVAR(v,t)
24#define PERLVARIC(v,t,i) PERLVAR(v,t)
25
26#include "thrdvar.h"
27#include "intrpvar.h"
28#include "perlvars.h"
29
30#undef PERLVAR
31#undef PERLVARA
32#undef PERLVARI
33#undef PERLVARIC
34
35#if defined(PERL_OBJECT)
36#endif
37
38#undef Perl_amagic_call
39SV*
40Perl_amagic_call(void *pPerl, SV* left, SV* right, int method, int dir)
41{
42 return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
43}
44
45#undef Perl_Gv_AMupdate
46bool
47Perl_Gv_AMupdate(void *pPerl, HV* stash)
48{
49 return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
50}
51
52#undef Perl_append_elem
53OP*
54Perl_append_elem(void *pPerl, I32 optype, OP* head, OP* tail)
55{
56 return ((CPerlObj*)pPerl)->Perl_append_elem(optype, head, tail);
57}
58
59#undef Perl_append_list
60OP*
61Perl_append_list(void *pPerl, I32 optype, LISTOP* first, LISTOP* last)
62{
63 return ((CPerlObj*)pPerl)->Perl_append_list(optype, first, last);
64}
65
66#undef Perl_apply
67I32
68Perl_apply(void *pPerl, I32 type, SV** mark, SV** sp)
69{
70 return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
71}
72
73#undef Perl_assertref
74void
75Perl_assertref(void *pPerl, OP* o)
76{
77 ((CPerlObj*)pPerl)->Perl_assertref(o);
78}
79
80#undef Perl_avhv_exists_ent
81bool
82Perl_avhv_exists_ent(void *pPerl, AV *ar, SV* keysv, U32 hash)
83{
84 return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
85}
86
87#undef Perl_avhv_fetch_ent
88SV**
89Perl_avhv_fetch_ent(void *pPerl, AV *ar, SV* keysv, I32 lval, U32 hash)
90{
91 return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
92}
93
94#undef Perl_avhv_iternext
95HE*
96Perl_avhv_iternext(void *pPerl, AV *ar)
97{
98 return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
99}
100
101#undef Perl_avhv_iterval
102SV*
103Perl_avhv_iterval(void *pPerl, AV *ar, HE* entry)
104{
105 return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
106}
107
108#undef Perl_avhv_keys
109HV*
110Perl_avhv_keys(void *pPerl, AV *ar)
111{
112 return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
113}
114
115#undef Perl_av_clear
116void
117Perl_av_clear(void *pPerl, AV* ar)
118{
119 ((CPerlObj*)pPerl)->Perl_av_clear(ar);
120}
121
122#undef Perl_av_extend
123void
124Perl_av_extend(void *pPerl, AV* ar, I32 key)
125{
126 ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
127}
128
129#undef Perl_av_fake
130AV*
131Perl_av_fake(void *pPerl, I32 size, SV** svp)
132{
133 return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
134}
135
136#undef Perl_av_fetch
137SV**
138Perl_av_fetch(void *pPerl, AV* ar, I32 key, I32 lval)
139{
140 return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
141}
142
143#undef Perl_av_fill
144void
145Perl_av_fill(void *pPerl, AV* ar, I32 fill)
146{
147 ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
148}
149
150#undef Perl_av_len
151I32
152Perl_av_len(void *pPerl, AV* ar)
153{
154 return ((CPerlObj*)pPerl)->Perl_av_len(ar);
155}
156
157#undef Perl_av_make
158AV*
159Perl_av_make(void *pPerl, I32 size, SV** svp)
160{
161 return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
162}
163
164#undef Perl_av_pop
165SV*
166Perl_av_pop(void *pPerl, AV* ar)
167{
168 return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
169}
170
171#undef Perl_av_push
172void
173Perl_av_push(void *pPerl, AV* ar, SV* val)
174{
175 ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
176}
177
178#undef Perl_av_reify
179void
180Perl_av_reify(void *pPerl, AV* ar)
181{
182 ((CPerlObj*)pPerl)->Perl_av_reify(ar);
183}
184
185#undef Perl_av_shift
186SV*
187Perl_av_shift(void *pPerl, AV* ar)
188{
189 return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
190}
191
192#undef Perl_av_store
193SV**
194Perl_av_store(void *pPerl, AV* ar, I32 key, SV* val)
195{
196 return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
197}
198
199#undef Perl_av_undef
200void
201Perl_av_undef(void *pPerl, AV* ar)
202{
203 ((CPerlObj*)pPerl)->Perl_av_undef(ar);
204}
205
206#undef Perl_av_unshift
207void
208Perl_av_unshift(void *pPerl, AV* ar, I32 num)
209{
210 ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
211}
212
213#undef Perl_bind_match
214OP*
215Perl_bind_match(void *pPerl, I32 type, OP* left, OP* pat)
216{
217 return ((CPerlObj*)pPerl)->Perl_bind_match(type, left, pat);
218}
219
220#undef Perl_block_end
221OP*
222Perl_block_end(void *pPerl, I32 floor, OP* seq)
223{
224 return ((CPerlObj*)pPerl)->Perl_block_end(floor, seq);
225}
226
227#undef Perl_block_gimme
228I32
229Perl_block_gimme(void *pPerl)
230{
231 return ((CPerlObj*)pPerl)->Perl_block_gimme();
232}
233
234#undef Perl_block_start
235int
236Perl_block_start(void *pPerl, int full)
237{
238 return ((CPerlObj*)pPerl)->Perl_block_start(full);
239}
240
241#undef Perl_boot_core_UNIVERSAL
242void
243Perl_boot_core_UNIVERSAL(void *pPerl)
244{
245 ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL();
246}
247
248#undef Perl_call_list
249void
250Perl_call_list(void *pPerl, I32 oldscope, AV* av_list)
251{
252 ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
253}
254
255#undef Perl_cando
256I32
257Perl_cando(void *pPerl, I32 bit, I32 effective, Stat_t* statbufp)
258{
259 return ((CPerlObj*)pPerl)->Perl_cando(bit, effective, statbufp);
260}
261
262#undef Perl_cast_ulong
263U32
264Perl_cast_ulong(void *pPerl, NV f)
265{
266 return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
267}
268
269#undef Perl_cast_i32
270I32
271Perl_cast_i32(void *pPerl, NV f)
272{
273 return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
274}
275
276#undef Perl_cast_iv
277IV
278Perl_cast_iv(void *pPerl, NV f)
279{
280 return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
281}
282
283#undef Perl_cast_uv
284UV
285Perl_cast_uv(void *pPerl, NV f)
286{
287 return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
288}
289#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
290
291#undef Perl_my_chsize
292I32
293Perl_my_chsize(void *pPerl, int fd, Off_t length)
294{
295 return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
296}
297#endif
298#if defined(USE_THREADS)
299
300#undef Perl_condpair_magic
301MAGIC*
302Perl_condpair_magic(void *pPerl, SV *sv)
303{
304 return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
305}
306#endif
307
308#undef Perl_convert
309OP*
310Perl_convert(void *pPerl, I32 optype, I32 flags, OP* o)
311{
312 return ((CPerlObj*)pPerl)->Perl_convert(optype, flags, o);
313}
314#if defined(PERL_IMPLICIT_CONTEXT)
315#endif
316
317#undef Perl_cv_ckproto
318void
319Perl_cv_ckproto(void *pPerl, CV* cv, GV* gv, char* p)
320{
321 ((CPerlObj*)pPerl)->Perl_cv_ckproto(cv, gv, p);
322}
323
324#undef Perl_cv_clone
325CV*
326Perl_cv_clone(void *pPerl, CV* proto)
327{
328 return ((CPerlObj*)pPerl)->Perl_cv_clone(proto);
329}
330
331#undef Perl_cv_const_sv
332SV*
333Perl_cv_const_sv(void *pPerl, CV* cv)
334{
335 return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
336}
337
338#undef Perl_op_const_sv
339SV*
340Perl_op_const_sv(void *pPerl, OP* o, CV* cv)
341{
342 return ((CPerlObj*)pPerl)->Perl_op_const_sv(o, cv);
343}
344
345#undef Perl_cv_undef
346void
347Perl_cv_undef(void *pPerl, CV* cv)
348{
349 ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
350}
351
352#undef Perl_cx_dump
353void
354Perl_cx_dump(void *pPerl, PERL_CONTEXT* cs)
355{
356 ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
357}
358
359#undef Perl_filter_add
360SV*
361Perl_filter_add(void *pPerl, filter_t funcp, SV* datasv)
362{
363 return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
364}
365
366#undef Perl_filter_del
367void
368Perl_filter_del(void *pPerl, filter_t funcp)
369{
370 ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
371}
372
373#undef Perl_filter_read
374I32
375Perl_filter_read(void *pPerl, int idx, SV* buffer, int maxlen)
376{
377 return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
378}
379
380#undef Perl_get_op_descs
381char**
382Perl_get_op_descs(void *pPerl)
383{
384 return ((CPerlObj*)pPerl)->Perl_get_op_descs();
385}
386
387#undef Perl_get_op_names
388char**
389Perl_get_op_names(void *pPerl)
390{
391 return ((CPerlObj*)pPerl)->Perl_get_op_names();
392}
393
394#undef Perl_get_no_modify
395char*
396Perl_get_no_modify(void *pPerl)
397{
398 return ((CPerlObj*)pPerl)->Perl_get_no_modify();
399}
400
401#undef Perl_get_opargs
402U32*
403Perl_get_opargs(void *pPerl)
404{
405 return ((CPerlObj*)pPerl)->Perl_get_opargs();
406}
407
408#undef Perl_get_ppaddr
409PPADDR_t*
410Perl_get_ppaddr(void *pPerl)
411{
412 return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
413}
414
415#undef Perl_cxinc
416I32
417Perl_cxinc(void *pPerl)
418{
419 return ((CPerlObj*)pPerl)->Perl_cxinc();
420}
421
422#undef Perl_deb_growlevel
423void
424Perl_deb_growlevel(void *pPerl)
425{
426 ((CPerlObj*)pPerl)->Perl_deb_growlevel();
427}
428
429#undef Perl_debprofdump
430void
431Perl_debprofdump(void *pPerl)
432{
433 ((CPerlObj*)pPerl)->Perl_debprofdump();
434}
435
436#undef Perl_debop
437I32
438Perl_debop(void *pPerl, OP* o)
439{
440 return ((CPerlObj*)pPerl)->Perl_debop(o);
441}
442
443#undef Perl_debstack
444I32
445Perl_debstack(void *pPerl)
446{
447 return ((CPerlObj*)pPerl)->Perl_debstack();
448}
449
450#undef Perl_debstackptrs
451I32
452Perl_debstackptrs(void *pPerl)
453{
454 return ((CPerlObj*)pPerl)->Perl_debstackptrs();
455}
456
457#undef Perl_delimcpy
458char*
459Perl_delimcpy(void *pPerl, char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
460{
461 return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
462}
463
464#undef Perl_deprecate
465void
466Perl_deprecate(void *pPerl, char* s)
467{
468 ((CPerlObj*)pPerl)->Perl_deprecate(s);
469}
470
471#undef Perl_die_where
472OP*
473Perl_die_where(void *pPerl, char* message, STRLEN msglen)
474{
475 return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen);
476}
477
478#undef Perl_dounwind
479void
480Perl_dounwind(void *pPerl, I32 cxix)
481{
482 ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
483}
484
485#undef Perl_do_aexec
486bool
487Perl_do_aexec(void *pPerl, SV* really, SV** mark, SV** sp)
488{
489 return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
490}
491
492#undef Perl_do_binmode
493int
494Perl_do_binmode(void *pPerl, PerlIO *fp, int iotype, int flag)
495{
496 return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
497}
498
499#undef Perl_do_chop
500void
501Perl_do_chop(void *pPerl, SV* asv, SV* sv)
502{
503 ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv);
504}
505
506#undef Perl_do_close
507bool
508Perl_do_close(void *pPerl, GV* gv, bool not_implicit)
509{
510 return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
511}
512
513#undef Perl_do_eof
514bool
515Perl_do_eof(void *pPerl, GV* gv)
516{
517 return ((CPerlObj*)pPerl)->Perl_do_eof(gv);
518}
519
520#undef Perl_do_exec
521bool
522Perl_do_exec(void *pPerl, char* cmd)
523{
524 return ((CPerlObj*)pPerl)->Perl_do_exec(cmd);
525}
526#if !defined(WIN32)
527
528#undef Perl_do_exec3
529bool
530Perl_do_exec3(void *pPerl, char* cmd, int fd, int flag)
531{
532 return ((CPerlObj*)pPerl)->Perl_do_exec3(cmd, fd, flag);
533}
534#endif
535
536#undef Perl_do_execfree
537void
538Perl_do_execfree(void *pPerl)
539{
540 ((CPerlObj*)pPerl)->Perl_do_execfree();
541}
542#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
543
544#undef Perl_do_ipcctl
545I32
546Perl_do_ipcctl(void *pPerl, I32 optype, SV** mark, SV** sp)
547{
548 return ((CPerlObj*)pPerl)->Perl_do_ipcctl(optype, mark, sp);
549}
550
551#undef Perl_do_ipcget
552I32
553Perl_do_ipcget(void *pPerl, I32 optype, SV** mark, SV** sp)
554{
555 return ((CPerlObj*)pPerl)->Perl_do_ipcget(optype, mark, sp);
556}
557
558#undef Perl_do_msgrcv
559I32
560Perl_do_msgrcv(void *pPerl, SV** mark, SV** sp)
561{
562 return ((CPerlObj*)pPerl)->Perl_do_msgrcv(mark, sp);
563}
564
565#undef Perl_do_msgsnd
566I32
567Perl_do_msgsnd(void *pPerl, SV** mark, SV** sp)
568{
569 return ((CPerlObj*)pPerl)->Perl_do_msgsnd(mark, sp);
570}
571
572#undef Perl_do_semop
573I32
574Perl_do_semop(void *pPerl, SV** mark, SV** sp)
575{
576 return ((CPerlObj*)pPerl)->Perl_do_semop(mark, sp);
577}
578
579#undef Perl_do_shmio
580I32
581Perl_do_shmio(void *pPerl, I32 optype, SV** mark, SV** sp)
582{
583 return ((CPerlObj*)pPerl)->Perl_do_shmio(optype, mark, sp);
584}
585#endif
586
587#undef Perl_do_join
588void
589Perl_do_join(void *pPerl, SV* sv, SV* del, SV** mark, SV** sp)
590{
591 ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
592}
593
594#undef Perl_do_kv
595OP*
596Perl_do_kv(void *pPerl)
597{
598 return ((CPerlObj*)pPerl)->Perl_do_kv();
599}
600
601#undef Perl_do_open
602bool
603Perl_do_open(void *pPerl, GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
604{
605 return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
606}
607
608#undef Perl_do_pipe
609void
610Perl_do_pipe(void *pPerl, SV* sv, GV* rgv, GV* wgv)
611{
612 ((CPerlObj*)pPerl)->Perl_do_pipe(sv, rgv, wgv);
613}
614
615#undef Perl_do_print
616bool
617Perl_do_print(void *pPerl, SV* sv, PerlIO* fp)
618{
619 return ((CPerlObj*)pPerl)->Perl_do_print(sv, fp);
620}
621
622#undef Perl_do_readline
623OP*
624Perl_do_readline(void *pPerl)
625{
626 return ((CPerlObj*)pPerl)->Perl_do_readline();
627}
628
629#undef Perl_do_chomp
630I32
631Perl_do_chomp(void *pPerl, SV* sv)
632{
633 return ((CPerlObj*)pPerl)->Perl_do_chomp(sv);
634}
635
636#undef Perl_do_seek
637bool
638Perl_do_seek(void *pPerl, GV* gv, Off_t pos, int whence)
639{
640 return ((CPerlObj*)pPerl)->Perl_do_seek(gv, pos, whence);
641}
642
643#undef Perl_do_sprintf
644void
645Perl_do_sprintf(void *pPerl, SV* sv, I32 len, SV** sarg)
646{
647 ((CPerlObj*)pPerl)->Perl_do_sprintf(sv, len, sarg);
648}
649
650#undef Perl_do_sysseek
651Off_t
652Perl_do_sysseek(void *pPerl, GV* gv, Off_t pos, int whence)
653{
654 return ((CPerlObj*)pPerl)->Perl_do_sysseek(gv, pos, whence);
655}
656
657#undef Perl_do_tell
658Off_t
659Perl_do_tell(void *pPerl, GV* gv)
660{
661 return ((CPerlObj*)pPerl)->Perl_do_tell(gv);
662}
663
664#undef Perl_do_trans
665I32
666Perl_do_trans(void *pPerl, SV* sv)
667{
668 return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
669}
670
671#undef Perl_do_vecset
672void
673Perl_do_vecset(void *pPerl, SV* sv)
674{
675 ((CPerlObj*)pPerl)->Perl_do_vecset(sv);
676}
677
678#undef Perl_do_vop
679void
680Perl_do_vop(void *pPerl, I32 optype, SV* sv, SV* left, SV* right)
681{
682 ((CPerlObj*)pPerl)->Perl_do_vop(optype, sv, left, right);
683}
684
685#undef Perl_dofile
686OP*
687Perl_dofile(void *pPerl, OP* term)
688{
689 return ((CPerlObj*)pPerl)->Perl_dofile(term);
690}
691
692#undef Perl_dowantarray
693I32
694Perl_dowantarray(void *pPerl)
695{
696 return ((CPerlObj*)pPerl)->Perl_dowantarray();
697}
698
699#undef Perl_dump_all
700void
701Perl_dump_all(void *pPerl)
702{
703 ((CPerlObj*)pPerl)->Perl_dump_all();
704}
705
706#undef Perl_dump_eval
707void
708Perl_dump_eval(void *pPerl)
709{
710 ((CPerlObj*)pPerl)->Perl_dump_eval();
711}
712#if defined(DUMP_FDS)
713
714#undef Perl_dump_fds
715void
716Perl_dump_fds(void *pPerl, char* s)
717{
718 ((CPerlObj*)pPerl)->Perl_dump_fds(s);
719}
720#endif
721
722#undef Perl_dump_form
723void
724Perl_dump_form(void *pPerl, GV* gv)
725{
726 ((CPerlObj*)pPerl)->Perl_dump_form(gv);
727}
728
729#undef Perl_gv_dump
730void
731Perl_gv_dump(void *pPerl, GV* gv)
732{
733 ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
734}
735
736#undef Perl_op_dump
737void
738Perl_op_dump(void *pPerl, OP* arg)
739{
740 ((CPerlObj*)pPerl)->Perl_op_dump(arg);
741}
742
743#undef Perl_pmop_dump
744void
745Perl_pmop_dump(void *pPerl, PMOP* pm)
746{
747 ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
748}
749
750#undef Perl_dump_packsubs
751void
752Perl_dump_packsubs(void *pPerl, HV* stash)
753{
754 ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
755}
756
757#undef Perl_dump_sub
758void
759Perl_dump_sub(void *pPerl, GV* gv)
760{
761 ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
762}
763
764#undef Perl_fbm_compile
765void
766Perl_fbm_compile(void *pPerl, SV* sv, U32 flags)
767{
768 ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
769}
770
771#undef Perl_fbm_instr
772char*
773Perl_fbm_instr(void *pPerl, unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
774{
775 return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
776}
777
778#undef Perl_find_script
779char*
780Perl_find_script(void *pPerl, char *scriptname, bool dosearch, char **search_ext, I32 flags)
781{
782 return ((CPerlObj*)pPerl)->Perl_find_script(scriptname, dosearch, search_ext, flags);
783}
784#if defined(USE_THREADS)
785
786#undef Perl_find_threadsv
787PADOFFSET
788Perl_find_threadsv(void *pPerl, const char *name)
789{
790 return ((CPerlObj*)pPerl)->Perl_find_threadsv(name);
791}
792#endif
793
794#undef Perl_force_list
795OP*
796Perl_force_list(void *pPerl, OP* arg)
797{
798 return ((CPerlObj*)pPerl)->Perl_force_list(arg);
799}
800
801#undef Perl_fold_constants
802OP*
803Perl_fold_constants(void *pPerl, OP* arg)
804{
805 return ((CPerlObj*)pPerl)->Perl_fold_constants(arg);
806}
807
808#undef Perl_free_tmps
809void
810Perl_free_tmps(void *pPerl)
811{
812 ((CPerlObj*)pPerl)->Perl_free_tmps();
813}
814
815#undef Perl_gen_constant_list
816OP*
817Perl_gen_constant_list(void *pPerl, OP* o)
818{
819 return ((CPerlObj*)pPerl)->Perl_gen_constant_list(o);
820}
821#if !defined(HAS_GETENV_LEN)
822
823#undef Perl_getenv_len
824char*
825Perl_getenv_len(void *pPerl, char* key, unsigned long *len)
826{
827 return ((CPerlObj*)pPerl)->Perl_getenv_len(key, len);
828}
829#endif
830
831#undef Perl_gp_free
832void
833Perl_gp_free(void *pPerl, GV* gv)
834{
835 ((CPerlObj*)pPerl)->Perl_gp_free(gv);
836}
837
838#undef Perl_gp_ref
839GP*
840Perl_gp_ref(void *pPerl, GP* gp)
841{
842 return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
843}
844
845#undef Perl_gv_AVadd
846GV*
847Perl_gv_AVadd(void *pPerl, GV* gv)
848{
849 return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
850}
851
852#undef Perl_gv_HVadd
853GV*
854Perl_gv_HVadd(void *pPerl, GV* gv)
855{
856 return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
857}
858
859#undef Perl_gv_IOadd
860GV*
861Perl_gv_IOadd(void *pPerl, GV* gv)
862{
863 return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
864}
865
866#undef Perl_gv_autoload4
867GV*
868Perl_gv_autoload4(void *pPerl, HV* stash, const char* name, STRLEN len, I32 method)
869{
870 return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
871}
872
873#undef Perl_gv_check
874void
875Perl_gv_check(void *pPerl, HV* stash)
876{
877 ((CPerlObj*)pPerl)->Perl_gv_check(stash);
878}
879
880#undef Perl_gv_efullname
881void
882Perl_gv_efullname(void *pPerl, SV* sv, GV* gv)
883{
884 ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
885}
886
887#undef Perl_gv_efullname3
888void
889Perl_gv_efullname3(void *pPerl, SV* sv, GV* gv, const char* prefix)
890{
891 ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
892}
893
894#undef Perl_gv_fetchfile
895GV*
896Perl_gv_fetchfile(void *pPerl, const char* name)
897{
898 return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
899}
900
901#undef Perl_gv_fetchmeth
902GV*
903Perl_gv_fetchmeth(void *pPerl, HV* stash, const char* name, STRLEN len, I32 level)
904{
905 return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
906}
907
908#undef Perl_gv_fetchmethod
909GV*
910Perl_gv_fetchmethod(void *pPerl, HV* stash, const char* name)
911{
912 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
913}
914
915#undef Perl_gv_fetchmethod_autoload
916GV*
917Perl_gv_fetchmethod_autoload(void *pPerl, HV* stash, const char* name, I32 autoload)
918{
919 return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
920}
921
922#undef Perl_gv_fetchpv
923GV*
924Perl_gv_fetchpv(void *pPerl, const char* name, I32 add, I32 sv_type)
925{
926 return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
927}
928
929#undef Perl_gv_fullname
930void
931Perl_gv_fullname(void *pPerl, SV* sv, GV* gv)
932{
933 ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
934}
935
936#undef Perl_gv_fullname3
937void
938Perl_gv_fullname3(void *pPerl, SV* sv, GV* gv, const char* prefix)
939{
940 ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
941}
942
943#undef Perl_gv_init
944void
945Perl_gv_init(void *pPerl, GV* gv, HV* stash, const char* name, STRLEN len, int multi)
946{
947 ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
948}
949
950#undef Perl_gv_stashpv
951HV*
952Perl_gv_stashpv(void *pPerl, const char* name, I32 create)
953{
954 return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
955}
956
957#undef Perl_gv_stashpvn
958HV*
959Perl_gv_stashpvn(void *pPerl, const char* name, U32 namelen, I32 create)
960{
961 return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
962}
963
964#undef Perl_gv_stashsv
965HV*
966Perl_gv_stashsv(void *pPerl, SV* sv, I32 create)
967{
968 return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
969}
970
971#undef Perl_hv_clear
972void
973Perl_hv_clear(void *pPerl, HV* tb)
974{
975 ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
976}
977
978#undef Perl_hv_delayfree_ent
979void
980Perl_hv_delayfree_ent(void *pPerl, HV* hv, HE* entry)
981{
982 ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
983}
984
985#undef Perl_hv_delete
986SV*
987Perl_hv_delete(void *pPerl, HV* tb, const char* key, U32 klen, I32 flags)
988{
989 return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
990}
991
992#undef Perl_hv_delete_ent
993SV*
994Perl_hv_delete_ent(void *pPerl, HV* tb, SV* key, I32 flags, U32 hash)
995{
996 return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
997}
998
999#undef Perl_hv_exists
1000bool
1001Perl_hv_exists(void *pPerl, HV* tb, const char* key, U32 klen)
1002{
1003 return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
1004}
1005
1006#undef Perl_hv_exists_ent
1007bool
1008Perl_hv_exists_ent(void *pPerl, HV* tb, SV* key, U32 hash)
1009{
1010 return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
1011}
1012
1013#undef Perl_hv_fetch
1014SV**
1015Perl_hv_fetch(void *pPerl, HV* tb, const char* key, U32 klen, I32 lval)
1016{
1017 return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
1018}
1019
1020#undef Perl_hv_fetch_ent
1021HE*
1022Perl_hv_fetch_ent(void *pPerl, HV* tb, SV* key, I32 lval, U32 hash)
1023{
1024 return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
1025}
1026
1027#undef Perl_hv_free_ent
1028void
1029Perl_hv_free_ent(void *pPerl, HV* hv, HE* entry)
1030{
1031 ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
1032}
1033
1034#undef Perl_hv_iterinit
1035I32
1036Perl_hv_iterinit(void *pPerl, HV* tb)
1037{
1038 return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
1039}
1040
1041#undef Perl_hv_iterkey
1042char*
1043Perl_hv_iterkey(void *pPerl, HE* entry, I32* retlen)
1044{
1045 return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
1046}
1047
1048#undef Perl_hv_iterkeysv
1049SV*
1050Perl_hv_iterkeysv(void *pPerl, HE* entry)
1051{
1052 return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
1053}
1054
1055#undef Perl_hv_iternext
1056HE*
1057Perl_hv_iternext(void *pPerl, HV* tb)
1058{
1059 return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
1060}
1061
1062#undef Perl_hv_iternextsv
1063SV*
1064Perl_hv_iternextsv(void *pPerl, HV* hv, char** key, I32* retlen)
1065{
1066 return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
1067}
1068
1069#undef Perl_hv_iterval
1070SV*
1071Perl_hv_iterval(void *pPerl, HV* tb, HE* entry)
1072{
1073 return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
1074}
1075
1076#undef Perl_hv_ksplit
1077void
1078Perl_hv_ksplit(void *pPerl, HV* hv, IV newmax)
1079{
1080 ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1081}
1082
1083#undef Perl_hv_magic
1084void
1085Perl_hv_magic(void *pPerl, HV* hv, GV* gv, int how)
1086{
1087 ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
1088}
1089
1090#undef Perl_hv_store
1091SV**
1092Perl_hv_store(void *pPerl, HV* tb, const char* key, U32 klen, SV* val, U32 hash)
1093{
1094 return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
1095}
1096
1097#undef Perl_hv_store_ent
1098HE*
1099Perl_hv_store_ent(void *pPerl, HV* tb, SV* key, SV* val, U32 hash)
1100{
1101 return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1102}
1103
1104#undef Perl_hv_undef
1105void
1106Perl_hv_undef(void *pPerl, HV* tb)
1107{
1108 ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1109}
1110
1111#undef Perl_ibcmp
1112I32
1113Perl_ibcmp(void *pPerl, const char* a, const char* b, I32 len)
1114{
1115 return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1116}
1117
1118#undef Perl_ibcmp_locale
1119I32
1120Perl_ibcmp_locale(void *pPerl, const char* a, const char* b, I32 len)
1121{
1122 return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1123}
1124
1125#undef Perl_ingroup
1126I32
1127Perl_ingroup(void *pPerl, I32 testgid, I32 effective)
1128{
1129 return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
1130}
1131
1132#undef Perl_init_stacks
1133void
1134Perl_init_stacks(void *pPerl)
1135{
1136 ((CPerlObj*)pPerl)->Perl_init_stacks();
1137}
1138
1139#undef Perl_intro_my
1140U32
1141Perl_intro_my(void *pPerl)
1142{
1143 return ((CPerlObj*)pPerl)->Perl_intro_my();
1144}
1145
1146#undef Perl_instr
1147char*
1148Perl_instr(void *pPerl, const char* big, const char* little)
1149{
1150 return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1151}
1152
1153#undef Perl_io_close
1154bool
1155Perl_io_close(void *pPerl, IO* io)
1156{
1157 return ((CPerlObj*)pPerl)->Perl_io_close(io);
1158}
1159
1160#undef Perl_invert
1161OP*
1162Perl_invert(void *pPerl, OP* cmd)
1163{
1164 return ((CPerlObj*)pPerl)->Perl_invert(cmd);
1165}
1166
1167#undef Perl_is_uni_alnum
1168bool
1169Perl_is_uni_alnum(void *pPerl, U32 c)
1170{
1171 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1172}
1173
1174#undef Perl_is_uni_alnumc
1175bool
1176Perl_is_uni_alnumc(void *pPerl, U32 c)
1177{
1178 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1179}
1180
1181#undef Perl_is_uni_idfirst
1182bool
1183Perl_is_uni_idfirst(void *pPerl, U32 c)
1184{
1185 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1186}
1187
1188#undef Perl_is_uni_alpha
1189bool
1190Perl_is_uni_alpha(void *pPerl, U32 c)
1191{
1192 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1193}
1194
1195#undef Perl_is_uni_ascii
1196bool
1197Perl_is_uni_ascii(void *pPerl, U32 c)
1198{
1199 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1200}
1201
1202#undef Perl_is_uni_space
1203bool
1204Perl_is_uni_space(void *pPerl, U32 c)
1205{
1206 return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1207}
1208
1209#undef Perl_is_uni_cntrl
1210bool
1211Perl_is_uni_cntrl(void *pPerl, U32 c)
1212{
1213 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1214}
1215
1216#undef Perl_is_uni_graph
1217bool
1218Perl_is_uni_graph(void *pPerl, U32 c)
1219{
1220 return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1221}
1222
1223#undef Perl_is_uni_digit
1224bool
1225Perl_is_uni_digit(void *pPerl, U32 c)
1226{
1227 return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1228}
1229
1230#undef Perl_is_uni_upper
1231bool
1232Perl_is_uni_upper(void *pPerl, U32 c)
1233{
1234 return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1235}
1236
1237#undef Perl_is_uni_lower
1238bool
1239Perl_is_uni_lower(void *pPerl, U32 c)
1240{
1241 return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1242}
1243
1244#undef Perl_is_uni_print
1245bool
1246Perl_is_uni_print(void *pPerl, U32 c)
1247{
1248 return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1249}
1250
1251#undef Perl_is_uni_punct
1252bool
1253Perl_is_uni_punct(void *pPerl, U32 c)
1254{
1255 return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1256}
1257
1258#undef Perl_is_uni_xdigit
1259bool
1260Perl_is_uni_xdigit(void *pPerl, U32 c)
1261{
1262 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1263}
1264
1265#undef Perl_to_uni_upper
1266U32
1267Perl_to_uni_upper(void *pPerl, U32 c)
1268{
1269 return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1270}
1271
1272#undef Perl_to_uni_title
1273U32
1274Perl_to_uni_title(void *pPerl, U32 c)
1275{
1276 return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1277}
1278
1279#undef Perl_to_uni_lower
1280U32
1281Perl_to_uni_lower(void *pPerl, U32 c)
1282{
1283 return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1284}
1285
1286#undef Perl_is_uni_alnum_lc
1287bool
1288Perl_is_uni_alnum_lc(void *pPerl, U32 c)
1289{
1290 return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1291}
1292
1293#undef Perl_is_uni_alnumc_lc
1294bool
1295Perl_is_uni_alnumc_lc(void *pPerl, U32 c)
1296{
1297 return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1298}
1299
1300#undef Perl_is_uni_idfirst_lc
1301bool
1302Perl_is_uni_idfirst_lc(void *pPerl, U32 c)
1303{
1304 return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1305}
1306
1307#undef Perl_is_uni_alpha_lc
1308bool
1309Perl_is_uni_alpha_lc(void *pPerl, U32 c)
1310{
1311 return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1312}
1313
1314#undef Perl_is_uni_ascii_lc
1315bool
1316Perl_is_uni_ascii_lc(void *pPerl, U32 c)
1317{
1318 return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1319}
1320
1321#undef Perl_is_uni_space_lc
1322bool
1323Perl_is_uni_space_lc(void *pPerl, U32 c)
1324{
1325 return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1326}
1327
1328#undef Perl_is_uni_cntrl_lc
1329bool
1330Perl_is_uni_cntrl_lc(void *pPerl, U32 c)
1331{
1332 return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1333}
1334
1335#undef Perl_is_uni_graph_lc
1336bool
1337Perl_is_uni_graph_lc(void *pPerl, U32 c)
1338{
1339 return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1340}
1341
1342#undef Perl_is_uni_digit_lc
1343bool
1344Perl_is_uni_digit_lc(void *pPerl, U32 c)
1345{
1346 return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1347}
1348
1349#undef Perl_is_uni_upper_lc
1350bool
1351Perl_is_uni_upper_lc(void *pPerl, U32 c)
1352{
1353 return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1354}
1355
1356#undef Perl_is_uni_lower_lc
1357bool
1358Perl_is_uni_lower_lc(void *pPerl, U32 c)
1359{
1360 return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1361}
1362
1363#undef Perl_is_uni_print_lc
1364bool
1365Perl_is_uni_print_lc(void *pPerl, U32 c)
1366{
1367 return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1368}
1369
1370#undef Perl_is_uni_punct_lc
1371bool
1372Perl_is_uni_punct_lc(void *pPerl, U32 c)
1373{
1374 return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1375}
1376
1377#undef Perl_is_uni_xdigit_lc
1378bool
1379Perl_is_uni_xdigit_lc(void *pPerl, U32 c)
1380{
1381 return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1382}
1383
1384#undef Perl_to_uni_upper_lc
1385U32
1386Perl_to_uni_upper_lc(void *pPerl, U32 c)
1387{
1388 return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1389}
1390
1391#undef Perl_to_uni_title_lc
1392U32
1393Perl_to_uni_title_lc(void *pPerl, U32 c)
1394{
1395 return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1396}
1397
1398#undef Perl_to_uni_lower_lc
1399U32
1400Perl_to_uni_lower_lc(void *pPerl, U32 c)
1401{
1402 return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1403}
1404
1405#undef Perl_is_utf8_alnum
1406bool
1407Perl_is_utf8_alnum(void *pPerl, U8 *p)
1408{
1409 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1410}
1411
1412#undef Perl_is_utf8_alnumc
1413bool
1414Perl_is_utf8_alnumc(void *pPerl, U8 *p)
1415{
1416 return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1417}
1418
1419#undef Perl_is_utf8_idfirst
1420bool
1421Perl_is_utf8_idfirst(void *pPerl, U8 *p)
1422{
1423 return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1424}
1425
1426#undef Perl_is_utf8_alpha
1427bool
1428Perl_is_utf8_alpha(void *pPerl, U8 *p)
1429{
1430 return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1431}
1432
1433#undef Perl_is_utf8_ascii
1434bool
1435Perl_is_utf8_ascii(void *pPerl, U8 *p)
1436{
1437 return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1438}
1439
1440#undef Perl_is_utf8_space
1441bool
1442Perl_is_utf8_space(void *pPerl, U8 *p)
1443{
1444 return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1445}
1446
1447#undef Perl_is_utf8_cntrl
1448bool
1449Perl_is_utf8_cntrl(void *pPerl, U8 *p)
1450{
1451 return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1452}
1453
1454#undef Perl_is_utf8_digit
1455bool
1456Perl_is_utf8_digit(void *pPerl, U8 *p)
1457{
1458 return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1459}
1460
1461#undef Perl_is_utf8_graph
1462bool
1463Perl_is_utf8_graph(void *pPerl, U8 *p)
1464{
1465 return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1466}
1467
1468#undef Perl_is_utf8_upper
1469bool
1470Perl_is_utf8_upper(void *pPerl, U8 *p)
1471{
1472 return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1473}
1474
1475#undef Perl_is_utf8_lower
1476bool
1477Perl_is_utf8_lower(void *pPerl, U8 *p)
1478{
1479 return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1480}
1481
1482#undef Perl_is_utf8_print
1483bool
1484Perl_is_utf8_print(void *pPerl, U8 *p)
1485{
1486 return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1487}
1488
1489#undef Perl_is_utf8_punct
1490bool
1491Perl_is_utf8_punct(void *pPerl, U8 *p)
1492{
1493 return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1494}
1495
1496#undef Perl_is_utf8_xdigit
1497bool
1498Perl_is_utf8_xdigit(void *pPerl, U8 *p)
1499{
1500 return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1501}
1502
1503#undef Perl_is_utf8_mark
1504bool
1505Perl_is_utf8_mark(void *pPerl, U8 *p)
1506{
1507 return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1508}
1509
1510#undef Perl_jmaybe
1511OP*
1512Perl_jmaybe(void *pPerl, OP* arg)
1513{
1514 return ((CPerlObj*)pPerl)->Perl_jmaybe(arg);
1515}
1516
1517#undef Perl_keyword
1518I32
1519Perl_keyword(void *pPerl, char* d, I32 len)
1520{
1521 return ((CPerlObj*)pPerl)->Perl_keyword(d, len);
1522}
1523
1524#undef Perl_leave_scope
1525void
1526Perl_leave_scope(void *pPerl, I32 base)
1527{
1528 ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1529}
1530
1531#undef Perl_lex_end
1532void
1533Perl_lex_end(void *pPerl)
1534{
1535 ((CPerlObj*)pPerl)->Perl_lex_end();
1536}
1537
1538#undef Perl_lex_start
1539void
1540Perl_lex_start(void *pPerl, SV* line)
1541{
1542 ((CPerlObj*)pPerl)->Perl_lex_start(line);
1543}
1544
1545#undef Perl_linklist
1546OP*
1547Perl_linklist(void *pPerl, OP* o)
1548{
1549 return ((CPerlObj*)pPerl)->Perl_linklist(o);
1550}
1551
1552#undef Perl_list
1553OP*
1554Perl_list(void *pPerl, OP* o)
1555{
1556 return ((CPerlObj*)pPerl)->Perl_list(o);
1557}
1558
1559#undef Perl_listkids
1560OP*
1561Perl_listkids(void *pPerl, OP* o)
1562{
1563 return ((CPerlObj*)pPerl)->Perl_listkids(o);
1564}
1565
1566#undef Perl_localize
1567OP*
1568Perl_localize(void *pPerl, OP* arg, I32 lexical)
1569{
1570 return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical);
1571}
1572
1573#undef Perl_looks_like_number
1574I32
1575Perl_looks_like_number(void *pPerl, SV* sv)
1576{
1577 return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1578}
1579
1580#undef Perl_magic_clearenv
1581int
1582Perl_magic_clearenv(void *pPerl, SV* sv, MAGIC* mg)
1583{
1584 return ((CPerlObj*)pPerl)->Perl_magic_clearenv(sv, mg);
1585}
1586
1587#undef Perl_magic_clear_all_env
1588int
1589Perl_magic_clear_all_env(void *pPerl, SV* sv, MAGIC* mg)
1590{
1591 return ((CPerlObj*)pPerl)->Perl_magic_clear_all_env(sv, mg);
1592}
1593
1594#undef Perl_magic_clearpack
1595int
1596Perl_magic_clearpack(void *pPerl, SV* sv, MAGIC* mg)
1597{
1598 return ((CPerlObj*)pPerl)->Perl_magic_clearpack(sv, mg);
1599}
1600
1601#undef Perl_magic_clearsig
1602int
1603Perl_magic_clearsig(void *pPerl, SV* sv, MAGIC* mg)
1604{
1605 return ((CPerlObj*)pPerl)->Perl_magic_clearsig(sv, mg);
1606}
1607
1608#undef Perl_magic_existspack
1609int
1610Perl_magic_existspack(void *pPerl, SV* sv, MAGIC* mg)
1611{
1612 return ((CPerlObj*)pPerl)->Perl_magic_existspack(sv, mg);
1613}
1614
1615#undef Perl_magic_freeregexp
1616int
1617Perl_magic_freeregexp(void *pPerl, SV* sv, MAGIC* mg)
1618{
1619 return ((CPerlObj*)pPerl)->Perl_magic_freeregexp(sv, mg);
1620}
1621
1622#undef Perl_magic_get
1623int
1624Perl_magic_get(void *pPerl, SV* sv, MAGIC* mg)
1625{
1626 return ((CPerlObj*)pPerl)->Perl_magic_get(sv, mg);
1627}
1628
1629#undef Perl_magic_getarylen
1630int
1631Perl_magic_getarylen(void *pPerl, SV* sv, MAGIC* mg)
1632{
1633 return ((CPerlObj*)pPerl)->Perl_magic_getarylen(sv, mg);
1634}
1635
1636#undef Perl_magic_getdefelem
1637int
1638Perl_magic_getdefelem(void *pPerl, SV* sv, MAGIC* mg)
1639{
1640 return ((CPerlObj*)pPerl)->Perl_magic_getdefelem(sv, mg);
1641}
1642
1643#undef Perl_magic_getglob
1644int
1645Perl_magic_getglob(void *pPerl, SV* sv, MAGIC* mg)
1646{
1647 return ((CPerlObj*)pPerl)->Perl_magic_getglob(sv, mg);
1648}
1649
1650#undef Perl_magic_getnkeys
1651int
1652Perl_magic_getnkeys(void *pPerl, SV* sv, MAGIC* mg)
1653{
1654 return ((CPerlObj*)pPerl)->Perl_magic_getnkeys(sv, mg);
1655}
1656
1657#undef Perl_magic_getpack
1658int
1659Perl_magic_getpack(void *pPerl, SV* sv, MAGIC* mg)
1660{
1661 return ((CPerlObj*)pPerl)->Perl_magic_getpack(sv, mg);
1662}
1663
1664#undef Perl_magic_getpos
1665int
1666Perl_magic_getpos(void *pPerl, SV* sv, MAGIC* mg)
1667{
1668 return ((CPerlObj*)pPerl)->Perl_magic_getpos(sv, mg);
1669}
1670
1671#undef Perl_magic_getsig
1672int
1673Perl_magic_getsig(void *pPerl, SV* sv, MAGIC* mg)
1674{
1675 return ((CPerlObj*)pPerl)->Perl_magic_getsig(sv, mg);
1676}
1677
1678#undef Perl_magic_getsubstr
1679int
1680Perl_magic_getsubstr(void *pPerl, SV* sv, MAGIC* mg)
1681{
1682 return ((CPerlObj*)pPerl)->Perl_magic_getsubstr(sv, mg);
1683}
1684
1685#undef Perl_magic_gettaint
1686int
1687Perl_magic_gettaint(void *pPerl, SV* sv, MAGIC* mg)
1688{
1689 return ((CPerlObj*)pPerl)->Perl_magic_gettaint(sv, mg);
1690}
1691
1692#undef Perl_magic_getuvar
1693int
1694Perl_magic_getuvar(void *pPerl, SV* sv, MAGIC* mg)
1695{
1696 return ((CPerlObj*)pPerl)->Perl_magic_getuvar(sv, mg);
1697}
1698
1699#undef Perl_magic_getvec
1700int
1701Perl_magic_getvec(void *pPerl, SV* sv, MAGIC* mg)
1702{
1703 return ((CPerlObj*)pPerl)->Perl_magic_getvec(sv, mg);
1704}
1705
1706#undef Perl_magic_len
1707U32
1708Perl_magic_len(void *pPerl, SV* sv, MAGIC* mg)
1709{
1710 return ((CPerlObj*)pPerl)->Perl_magic_len(sv, mg);
1711}
1712#if defined(USE_THREADS)
1713
1714#undef Perl_magic_mutexfree
1715int
1716Perl_magic_mutexfree(void *pPerl, SV* sv, MAGIC* mg)
1717{
1718 return ((CPerlObj*)pPerl)->Perl_magic_mutexfree(sv, mg);
1719}
1720#endif
1721
1722#undef Perl_magic_nextpack
1723int
1724Perl_magic_nextpack(void *pPerl, SV* sv, MAGIC* mg, SV* key)
1725{
1726 return ((CPerlObj*)pPerl)->Perl_magic_nextpack(sv, mg, key);
1727}
1728
1729#undef Perl_magic_regdata_cnt
1730U32
1731Perl_magic_regdata_cnt(void *pPerl, SV* sv, MAGIC* mg)
1732{
1733 return ((CPerlObj*)pPerl)->Perl_magic_regdata_cnt(sv, mg);
1734}
1735
1736#undef Perl_magic_regdatum_get
1737int
1738Perl_magic_regdatum_get(void *pPerl, SV* sv, MAGIC* mg)
1739{
1740 return ((CPerlObj*)pPerl)->Perl_magic_regdatum_get(sv, mg);
1741}
1742
1743#undef Perl_magic_set
1744int
1745Perl_magic_set(void *pPerl, SV* sv, MAGIC* mg)
1746{
1747 return ((CPerlObj*)pPerl)->Perl_magic_set(sv, mg);
1748}
1749
1750#undef Perl_magic_setamagic
1751int
1752Perl_magic_setamagic(void *pPerl, SV* sv, MAGIC* mg)
1753{
1754 return ((CPerlObj*)pPerl)->Perl_magic_setamagic(sv, mg);
1755}
1756
1757#undef Perl_magic_setarylen
1758int
1759Perl_magic_setarylen(void *pPerl, SV* sv, MAGIC* mg)
1760{
1761 return ((CPerlObj*)pPerl)->Perl_magic_setarylen(sv, mg);
1762}
1763
1764#undef Perl_magic_setbm
1765int
1766Perl_magic_setbm(void *pPerl, SV* sv, MAGIC* mg)
1767{
1768 return ((CPerlObj*)pPerl)->Perl_magic_setbm(sv, mg);
1769}
1770
1771#undef Perl_magic_setdbline
1772int
1773Perl_magic_setdbline(void *pPerl, SV* sv, MAGIC* mg)
1774{
1775 return ((CPerlObj*)pPerl)->Perl_magic_setdbline(sv, mg);
1776}
1777#if defined(USE_LOCALE_COLLATE)
1778
1779#undef Perl_magic_setcollxfrm
1780int
1781Perl_magic_setcollxfrm(void *pPerl, SV* sv, MAGIC* mg)
1782{
1783 return ((CPerlObj*)pPerl)->Perl_magic_setcollxfrm(sv, mg);
1784}
1785#endif
1786
1787#undef Perl_magic_setdefelem
1788int
1789Perl_magic_setdefelem(void *pPerl, SV* sv, MAGIC* mg)
1790{
1791 return ((CPerlObj*)pPerl)->Perl_magic_setdefelem(sv, mg);
1792}
1793
1794#undef Perl_magic_setenv
1795int
1796Perl_magic_setenv(void *pPerl, SV* sv, MAGIC* mg)
1797{
1798 return ((CPerlObj*)pPerl)->Perl_magic_setenv(sv, mg);
1799}
1800
1801#undef Perl_magic_setfm
1802int
1803Perl_magic_setfm(void *pPerl, SV* sv, MAGIC* mg)
1804{
1805 return ((CPerlObj*)pPerl)->Perl_magic_setfm(sv, mg);
1806}
1807
1808#undef Perl_magic_setisa
1809int
1810Perl_magic_setisa(void *pPerl, SV* sv, MAGIC* mg)
1811{
1812 return ((CPerlObj*)pPerl)->Perl_magic_setisa(sv, mg);
1813}
1814
1815#undef Perl_magic_setglob
1816int
1817Perl_magic_setglob(void *pPerl, SV* sv, MAGIC* mg)
1818{
1819 return ((CPerlObj*)pPerl)->Perl_magic_setglob(sv, mg);
1820}
1821
1822#undef Perl_magic_setmglob
1823int
1824Perl_magic_setmglob(void *pPerl, SV* sv, MAGIC* mg)
1825{
1826 return ((CPerlObj*)pPerl)->Perl_magic_setmglob(sv, mg);
1827}
1828
1829#undef Perl_magic_setnkeys
1830int
1831Perl_magic_setnkeys(void *pPerl, SV* sv, MAGIC* mg)
1832{
1833 return ((CPerlObj*)pPerl)->Perl_magic_setnkeys(sv, mg);
1834}
1835
1836#undef Perl_magic_setpack
1837int
1838Perl_magic_setpack(void *pPerl, SV* sv, MAGIC* mg)
1839{
1840 return ((CPerlObj*)pPerl)->Perl_magic_setpack(sv, mg);
1841}
1842
1843#undef Perl_magic_setpos
1844int
1845Perl_magic_setpos(void *pPerl, SV* sv, MAGIC* mg)
1846{
1847 return ((CPerlObj*)pPerl)->Perl_magic_setpos(sv, mg);
1848}
1849
1850#undef Perl_magic_setsig
1851int
1852Perl_magic_setsig(void *pPerl, SV* sv, MAGIC* mg)
1853{
1854 return ((CPerlObj*)pPerl)->Perl_magic_setsig(sv, mg);
1855}
1856
1857#undef Perl_magic_setsubstr
1858int
1859Perl_magic_setsubstr(void *pPerl, SV* sv, MAGIC* mg)
1860{
1861 return ((CPerlObj*)pPerl)->Perl_magic_setsubstr(sv, mg);
1862}
1863
1864#undef Perl_magic_settaint
1865int
1866Perl_magic_settaint(void *pPerl, SV* sv, MAGIC* mg)
1867{
1868 return ((CPerlObj*)pPerl)->Perl_magic_settaint(sv, mg);
1869}
1870
1871#undef Perl_magic_setuvar
1872int
1873Perl_magic_setuvar(void *pPerl, SV* sv, MAGIC* mg)
1874{
1875 return ((CPerlObj*)pPerl)->Perl_magic_setuvar(sv, mg);
1876}
1877
1878#undef Perl_magic_setvec
1879int
1880Perl_magic_setvec(void *pPerl, SV* sv, MAGIC* mg)
1881{
1882 return ((CPerlObj*)pPerl)->Perl_magic_setvec(sv, mg);
1883}
1884
1885#undef Perl_magic_set_all_env
1886int
1887Perl_magic_set_all_env(void *pPerl, SV* sv, MAGIC* mg)
1888{
1889 return ((CPerlObj*)pPerl)->Perl_magic_set_all_env(sv, mg);
1890}
1891
1892#undef Perl_magic_sizepack
1893U32
1894Perl_magic_sizepack(void *pPerl, SV* sv, MAGIC* mg)
1895{
1896 return ((CPerlObj*)pPerl)->Perl_magic_sizepack(sv, mg);
1897}
1898
1899#undef Perl_magic_wipepack
1900int
1901Perl_magic_wipepack(void *pPerl, SV* sv, MAGIC* mg)
1902{
1903 return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg);
1904}
1905
1906#undef Perl_magicname
1907void
1908Perl_magicname(void *pPerl, char* sym, char* name, I32 namlen)
1909{
1910 ((CPerlObj*)pPerl)->Perl_magicname(sym, name, namlen);
1911}
1912#if defined(MYMALLOC)
1913
1914#undef Perl_malloced_size
1915MEM_SIZE
1916Perl_malloced_size(void *pPerl, void *p)
1917{
1918 return ((CPerlObj*)pPerl)->Perl_malloced_size(p);
1919}
1920#endif
1921
1922#undef Perl_markstack_grow
1923void
1924Perl_markstack_grow(void *pPerl)
1925{
1926 ((CPerlObj*)pPerl)->Perl_markstack_grow();
1927}
1928#if defined(USE_LOCALE_COLLATE)
1929
1930#undef Perl_mem_collxfrm
1931char*
1932Perl_mem_collxfrm(void *pPerl, const char* s, STRLEN len, STRLEN* xlen)
1933{
1934 return ((CPerlObj*)pPerl)->Perl_mem_collxfrm(s, len, xlen);
1935}
1936#endif
1937
1938#undef Perl_mess
1939SV*
1940Perl_mess(void *pPerl, const char* pat, va_list* args)
1941{
1942 return ((CPerlObj*)pPerl)->Perl_mess(pat, args);
1943}
1944
1945#undef Perl_mg_clear
1946int
1947Perl_mg_clear(void *pPerl, SV* sv)
1948{
1949 return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
1950}
1951
1952#undef Perl_mg_copy
1953int
1954Perl_mg_copy(void *pPerl, SV* sv, SV* nsv, const char* key, I32 klen)
1955{
1956 return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
1957}
1958
1959#undef Perl_mg_find
1960MAGIC*
1961Perl_mg_find(void *pPerl, SV* sv, int type)
1962{
1963 return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
1964}
1965
1966#undef Perl_mg_free
1967int
1968Perl_mg_free(void *pPerl, SV* sv)
1969{
1970 return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
1971}
1972
1973#undef Perl_mg_get
1974int
1975Perl_mg_get(void *pPerl, SV* sv)
1976{
1977 return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
1978}
1979
1980#undef Perl_mg_length
1981U32
1982Perl_mg_length(void *pPerl, SV* sv)
1983{
1984 return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
1985}
1986
1987#undef Perl_mg_magical
1988void
1989Perl_mg_magical(void *pPerl, SV* sv)
1990{
1991 ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
1992}
1993
1994#undef Perl_mg_set
1995int
1996Perl_mg_set(void *pPerl, SV* sv)
1997{
1998 return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
1999}
2000
2001#undef Perl_mg_size
2002I32
2003Perl_mg_size(void *pPerl, SV* sv)
2004{
2005 return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
2006}
2007
2008#undef Perl_mod
2009OP*
2010Perl_mod(void *pPerl, OP* o, I32 type)
2011{
2012 return ((CPerlObj*)pPerl)->Perl_mod(o, type);
2013}
2014
2015#undef Perl_moreswitches
2016char*
2017Perl_moreswitches(void *pPerl, char* s)
2018{
2019 return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
2020}
2021
2022#undef Perl_my
2023OP*
2024Perl_my(void *pPerl, OP* o)
2025{
2026 return ((CPerlObj*)pPerl)->Perl_my(o);
2027}
2028
2029#undef Perl_my_atof
2030NV
2031Perl_my_atof(void *pPerl, const char *s)
2032{
2033 return ((CPerlObj*)pPerl)->Perl_my_atof(s);
2034}
2035#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
2036
2037#undef Perl_my_bcopy
2038char*
2039Perl_my_bcopy(void *pPerl, const char* from, char* to, I32 len)
2040{
2041 return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
2042}
2043#endif
2044#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
2045
2046#undef Perl_my_bzero
2047char*
2048Perl_my_bzero(void *pPerl, char* loc, I32 len)
2049{
2050 return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
2051}
2052#endif
2053
2054#undef Perl_my_exit
2055void
2056Perl_my_exit(void *pPerl, U32 status)
2057{
2058 ((CPerlObj*)pPerl)->Perl_my_exit(status);
2059}
2060
2061#undef Perl_my_failure_exit
2062void
2063Perl_my_failure_exit(void *pPerl)
2064{
2065 ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2066}
2067
2068#undef Perl_my_fflush_all
2069I32
2070Perl_my_fflush_all(void *pPerl)
2071{
2072 return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2073}
2074
2075#undef Perl_my_lstat
2076I32
2077Perl_my_lstat(void *pPerl)
2078{
2079 return ((CPerlObj*)pPerl)->Perl_my_lstat();
2080}
2081#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
2082
2083#undef Perl_my_memcmp
2084I32
2085Perl_my_memcmp(void *pPerl, const char* s1, const char* s2, I32 len)
2086{
2087 return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
2088}
2089#endif
2090#if !defined(HAS_MEMSET)
2091
2092#undef Perl_my_memset
2093void*
2094Perl_my_memset(void *pPerl, char* loc, I32 ch, I32 len)
2095{
2096 return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
2097}
2098#endif
2099#if !defined(PERL_OBJECT)
2100
2101#undef Perl_my_pclose
2102I32
2103Perl_my_pclose(void *pPerl, PerlIO* ptr)
2104{
2105 return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2106}
2107
2108#undef Perl_my_popen
2109PerlIO*
2110Perl_my_popen(void *pPerl, char* cmd, char* mode)
2111{
2112 return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
2113}
2114#endif
2115
2116#undef Perl_my_setenv
2117void
2118Perl_my_setenv(void *pPerl, char* nam, char* val)
2119{
2120 ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2121}
2122
2123#undef Perl_my_stat
2124I32
2125Perl_my_stat(void *pPerl)
2126{
2127 return ((CPerlObj*)pPerl)->Perl_my_stat();
2128}
2129#if defined(MYSWAP)
2130
2131#undef Perl_my_swap
2132short
2133Perl_my_swap(void *pPerl, short s)
2134{
2135 return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2136}
2137
2138#undef Perl_my_htonl
2139long
2140Perl_my_htonl(void *pPerl, long l)
2141{
2142 return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2143}
2144
2145#undef Perl_my_ntohl
2146long
2147Perl_my_ntohl(void *pPerl, long l)
2148{
2149 return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2150}
2151#endif
2152
2153#undef Perl_my_unexec
2154void
2155Perl_my_unexec(void *pPerl)
2156{
2157 ((CPerlObj*)pPerl)->Perl_my_unexec();
2158}
2159
2160#undef Perl_newANONLIST
2161OP*
2162Perl_newANONLIST(void *pPerl, OP* o)
2163{
2164 return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2165}
2166
2167#undef Perl_newANONHASH
2168OP*
2169Perl_newANONHASH(void *pPerl, OP* o)
2170{
2171 return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2172}
2173
2174#undef Perl_newANONSUB
2175OP*
2176Perl_newANONSUB(void *pPerl, I32 floor, OP* proto, OP* block)
2177{
2178 return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
2179}
2180
2181#undef Perl_newASSIGNOP
2182OP*
2183Perl_newASSIGNOP(void *pPerl, I32 flags, OP* left, I32 optype, OP* right)
2184{
2185 return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
2186}
2187
2188#undef Perl_newCONDOP
2189OP*
2190Perl_newCONDOP(void *pPerl, I32 flags, OP* expr, OP* trueop, OP* falseop)
2191{
2192 return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
2193}
2194
2195#undef Perl_newCONSTSUB
2196void
2197Perl_newCONSTSUB(void *pPerl, HV* stash, char* name, SV* sv)
2198{
2199 ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2200}
2201
2202#undef Perl_newFORM
2203void
2204Perl_newFORM(void *pPerl, I32 floor, OP* o, OP* block)
2205{
2206 ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2207}
2208
2209#undef Perl_newFOROP
2210OP*
2211Perl_newFOROP(void *pPerl, I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
2212{
2213 return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
2214}
2215
2216#undef Perl_newLOGOP
2217OP*
2218Perl_newLOGOP(void *pPerl, I32 optype, I32 flags, OP* left, OP* right)
2219{
2220 return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
2221}
2222
2223#undef Perl_newLOOPEX
2224OP*
2225Perl_newLOOPEX(void *pPerl, I32 type, OP* label)
2226{
2227 return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2228}
2229
2230#undef Perl_newLOOPOP
2231OP*
2232Perl_newLOOPOP(void *pPerl, I32 flags, I32 debuggable, OP* expr, OP* block)
2233{
2234 return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
2235}
2236
2237#undef Perl_newNULLLIST
2238OP*
2239Perl_newNULLLIST(void *pPerl)
2240{
2241 return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2242}
2243
2244#undef Perl_newOP
2245OP*
2246Perl_newOP(void *pPerl, I32 optype, I32 flags)
2247{
2248 return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2249}
2250
2251#undef Perl_newPROG
2252void
2253Perl_newPROG(void *pPerl, OP* o)
2254{
2255 ((CPerlObj*)pPerl)->Perl_newPROG(o);
2256}
2257
2258#undef Perl_newRANGE
2259OP*
2260Perl_newRANGE(void *pPerl, I32 flags, OP* left, OP* right)
2261{
2262 return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
2263}
2264
2265#undef Perl_newSLICEOP
2266OP*
2267Perl_newSLICEOP(void *pPerl, I32 flags, OP* subscript, OP* listop)
2268{
2269 return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
2270}
2271
2272#undef Perl_newSTATEOP
2273OP*
2274Perl_newSTATEOP(void *pPerl, I32 flags, char* label, OP* o)
2275{
2276 return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
2277}
2278
2279#undef Perl_newSUB
2280CV*
2281Perl_newSUB(void *pPerl, I32 floor, OP* o, OP* proto, OP* block)
2282{
2283 return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
2284}
2285
2286#undef Perl_newXS
2287CV*
2288Perl_newXS(void *pPerl, char* name, XSUBADDR_t f, char* filename)
2289{
2290 return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
2291}
2292
2293#undef Perl_newAV
2294AV*
2295Perl_newAV(void *pPerl)
2296{
2297 return ((CPerlObj*)pPerl)->Perl_newAV();
2298}
2299
2300#undef Perl_newAVREF
2301OP*
2302Perl_newAVREF(void *pPerl, OP* o)
2303{
2304 return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2305}
2306
2307#undef Perl_newBINOP
2308OP*
2309Perl_newBINOP(void *pPerl, I32 type, I32 flags, OP* first, OP* last)
2310{
2311 return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
2312}
2313
2314#undef Perl_newCVREF
2315OP*
2316Perl_newCVREF(void *pPerl, I32 flags, OP* o)
2317{
2318 return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2319}
2320
2321#undef Perl_newGVOP
2322OP*
2323Perl_newGVOP(void *pPerl, I32 type, I32 flags, GV* gv)
2324{
2325 return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
2326}
2327
2328#undef Perl_newGVgen
2329GV*
2330Perl_newGVgen(void *pPerl, char* pack)
2331{
2332 return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2333}
2334
2335#undef Perl_newGVREF
2336OP*
2337Perl_newGVREF(void *pPerl, I32 type, OP* o)
2338{
2339 return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2340}
2341
2342#undef Perl_newHVREF
2343OP*
2344Perl_newHVREF(void *pPerl, OP* o)
2345{
2346 return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2347}
2348
2349#undef Perl_newHV
2350HV*
2351Perl_newHV(void *pPerl)
2352{
2353 return ((CPerlObj*)pPerl)->Perl_newHV();
2354}
2355
2356#undef Perl_newHVhv
2357HV*
2358Perl_newHVhv(void *pPerl, HV* hv)
2359{
2360 return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2361}
2362
2363#undef Perl_newIO
2364IO*
2365Perl_newIO(void *pPerl)
2366{
2367 return ((CPerlObj*)pPerl)->Perl_newIO();
2368}
2369
2370#undef Perl_newLISTOP
2371OP*
2372Perl_newLISTOP(void *pPerl, I32 type, I32 flags, OP* first, OP* last)
2373{
2374 return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
2375}
2376
2377#undef Perl_newPMOP
2378OP*
2379Perl_newPMOP(void *pPerl, I32 type, I32 flags)
2380{
2381 return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2382}
2383
2384#undef Perl_newPVOP
2385OP*
2386Perl_newPVOP(void *pPerl, I32 type, I32 flags, char* pv)
2387{
2388 return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
2389}
2390
2391#undef Perl_newRV
2392SV*
2393Perl_newRV(void *pPerl, SV* pref)
2394{
2395 return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2396}
2397
2398#undef Perl_newRV_noinc
2399SV*
2400Perl_newRV_noinc(void *pPerl, SV *sv)
2401{
2402 return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2403}
2404
2405#undef Perl_newSV
2406SV*
2407Perl_newSV(void *pPerl, STRLEN len)
2408{
2409 return ((CPerlObj*)pPerl)->Perl_newSV(len);
2410}
2411
2412#undef Perl_newSVREF
2413OP*
2414Perl_newSVREF(void *pPerl, OP* o)
2415{
2416 return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2417}
2418
2419#undef Perl_newSVOP
2420OP*
2421Perl_newSVOP(void *pPerl, I32 type, I32 flags, SV* sv)
2422{
2423 return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
2424}
2425
2426#undef Perl_newSViv
2427SV*
2428Perl_newSViv(void *pPerl, IV i)
2429{
2430 return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2431}
2432
2433#undef Perl_newSVnv
2434SV*
2435Perl_newSVnv(void *pPerl, NV n)
2436{
2437 return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2438}
2439
2440#undef Perl_newSVpv
2441SV*
2442Perl_newSVpv(void *pPerl, const char* s, STRLEN len)
2443{
2444 return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2445}
2446
2447#undef Perl_newSVpvn
2448SV*
2449Perl_newSVpvn(void *pPerl, const char* s, STRLEN len)
2450{
2451 return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2452}
2453
2454#undef Perl_newSVrv
2455SV*
2456Perl_newSVrv(void *pPerl, SV* rv, const char* classname)
2457{
2458 return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2459}
2460
2461#undef Perl_newSVsv
2462SV*
2463Perl_newSVsv(void *pPerl, SV* old)
2464{
2465 return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2466}
2467
2468#undef Perl_newUNOP
2469OP*
2470Perl_newUNOP(void *pPerl, I32 type, I32 flags, OP* first)
2471{
2472 return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2473}
2474
2475#undef Perl_newWHILEOP
2476OP*
2477Perl_newWHILEOP(void *pPerl, I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2478{
2479 return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2480}
2481#if defined(USE_THREADS)
2482
2483#undef Perl_new_struct_thread
2484struct perl_thread*
2485Perl_new_struct_thread(void *pPerl, struct perl_thread *t)
2486{
2487 return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2488}
2489#endif
2490
2491#undef Perl_new_stackinfo
2492PERL_SI*
2493Perl_new_stackinfo(void *pPerl, I32 stitems, I32 cxitems)
2494{
2495 return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2496}
2497
2498#undef Perl_nextargv
2499PerlIO*
2500Perl_nextargv(void *pPerl, GV* gv)
2501{
2502 return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2503}
2504
2505#undef Perl_ninstr
2506char*
2507Perl_ninstr(void *pPerl, const char* big, const char* bigend, const char* little, const char* lend)
2508{
2509 return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2510}
2511
2512#undef Perl_oopsCV
2513OP*
2514Perl_oopsCV(void *pPerl, OP* o)
2515{
2516 return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2517}
2518
2519#undef Perl_op_free
2520void
2521Perl_op_free(void *pPerl, OP* arg)
2522{
2523 ((CPerlObj*)pPerl)->Perl_op_free(arg);
2524}
2525
2526#undef Perl_package
2527void
2528Perl_package(void *pPerl, OP* o)
2529{
2530 ((CPerlObj*)pPerl)->Perl_package(o);
2531}
2532
2533#undef Perl_pad_alloc
2534PADOFFSET
2535Perl_pad_alloc(void *pPerl, I32 optype, U32 tmptype)
2536{
2537 return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype);
2538}
2539
2540#undef Perl_pad_allocmy
2541PADOFFSET
2542Perl_pad_allocmy(void *pPerl, char* name)
2543{
2544 return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2545}
2546
2547#undef Perl_pad_findmy
2548PADOFFSET
2549Perl_pad_findmy(void *pPerl, char* name)
2550{
2551 return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2552}
2553
2554#undef Perl_oopsAV
2555OP*
2556Perl_oopsAV(void *pPerl, OP* o)
2557{
2558 return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2559}
2560
2561#undef Perl_oopsHV
2562OP*
2563Perl_oopsHV(void *pPerl, OP* o)
2564{
2565 return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2566}
2567
2568#undef Perl_pad_leavemy
2569void
2570Perl_pad_leavemy(void *pPerl, I32 fill)
2571{
2572 ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2573}
2574
2575#undef Perl_pad_sv
2576SV*
2577Perl_pad_sv(void *pPerl, PADOFFSET po)
2578{
2579 return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2580}
2581
2582#undef Perl_pad_free
2583void
2584Perl_pad_free(void *pPerl, PADOFFSET po)
2585{
2586 ((CPerlObj*)pPerl)->Perl_pad_free(po);
2587}
2588
2589#undef Perl_pad_reset
2590void
2591Perl_pad_reset(void *pPerl)
2592{
2593 ((CPerlObj*)pPerl)->Perl_pad_reset();
2594}
2595
2596#undef Perl_pad_swipe
2597void
2598Perl_pad_swipe(void *pPerl, PADOFFSET po)
2599{
2600 ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2601}
2602
2603#undef Perl_peep
2604void
2605Perl_peep(void *pPerl, OP* o)
2606{
2607 ((CPerlObj*)pPerl)->Perl_peep(o);
2608}
2609#if defined(PERL_OBJECT)
2610#else
2611
2612#undef perl_alloc
2613PerlInterpreter*
2614perl_alloc(void *pPerl)
2615{
2616 return ((CPerlObj*)pPerl)->perl_alloc();
2617}
2618#endif
2619
2620#undef Perl_call_atexit
2621void
2622Perl_call_atexit(void *pPerl, ATEXIT_t fn, void *ptr)
2623{
2624 ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2625}
2626
2627#undef Perl_call_argv
2628I32
2629Perl_call_argv(void *pPerl, const char* sub_name, I32 flags, char** argv)
2630{
2631 return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2632}
2633
2634#undef Perl_call_method
2635I32
2636Perl_call_method(void *pPerl, const char* methname, I32 flags)
2637{
2638 return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2639}
2640
2641#undef Perl_call_pv
2642I32
2643Perl_call_pv(void *pPerl, const char* sub_name, I32 flags)
2644{
2645 return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2646}
2647
2648#undef Perl_call_sv
2649I32
2650Perl_call_sv(void *pPerl, SV* sv, I32 flags)
2651{
2652 return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2653}
2654
2655#undef Perl_eval_pv
2656SV*
2657Perl_eval_pv(void *pPerl, const char* p, I32 croak_on_error)
2658{
2659 return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2660}
2661
2662#undef Perl_eval_sv
2663I32
2664Perl_eval_sv(void *pPerl, SV* sv, I32 flags)
2665{
2666 return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2667}
2668
2669#undef Perl_get_sv
2670SV*
2671Perl_get_sv(void *pPerl, const char* name, I32 create)
2672{
2673 return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2674}
2675
2676#undef Perl_get_av
2677AV*
2678Perl_get_av(void *pPerl, const char* name, I32 create)
2679{
2680 return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2681}
2682
2683#undef Perl_get_hv
2684HV*
2685Perl_get_hv(void *pPerl, const char* name, I32 create)
2686{
2687 return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
2688}
2689
2690#undef Perl_get_cv
2691CV*
2692Perl_get_cv(void *pPerl, const char* name, I32 create)
2693{
2694 return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
2695}
2696
2697#undef Perl_init_i18nl10n
2698int
2699Perl_init_i18nl10n(void *pPerl, int printwarn)
2700{
2701 return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2702}
2703
2704#undef Perl_init_i18nl14n
2705int
2706Perl_init_i18nl14n(void *pPerl, int printwarn)
2707{
2708 return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2709}
2710
2711#undef Perl_new_collate
2712void
2713Perl_new_collate(void *pPerl, const char* newcoll)
2714{
2715 ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2716}
2717
2718#undef Perl_new_ctype
2719void
2720Perl_new_ctype(void *pPerl, const char* newctype)
2721{
2722 ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2723}
2724
2725#undef Perl_new_numeric
2726void
2727Perl_new_numeric(void *pPerl, const char* newcoll)
2728{
2729 ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2730}
2731
2732#undef Perl_set_numeric_local
2733void
2734Perl_set_numeric_local(void *pPerl)
2735{
2736 ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2737}
2738
2739#undef Perl_set_numeric_radix
2740void
2741Perl_set_numeric_radix(void *pPerl)
2742{
2743 ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2744}
2745
2746#undef Perl_set_numeric_standard
2747void
2748Perl_set_numeric_standard(void *pPerl)
2749{
2750 ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2751}
2752
2753#undef Perl_require_pv
2754void
2755Perl_require_pv(void *pPerl, const char* pv)
2756{
2757 ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2758}
2759
2760#undef Perl_pidgone
2761void
2762Perl_pidgone(void *pPerl, int pid, int status)
2763{
2764 ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
2765}
2766
2767#undef Perl_pmflag
2768void
2769Perl_pmflag(void *pPerl, U16* pmfl, int ch)
2770{
2771 ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2772}
2773
2774#undef Perl_pmruntime
2775OP*
2776Perl_pmruntime(void *pPerl, OP* pm, OP* expr, OP* repl)
2777{
2778 return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl);
2779}
2780
2781#undef Perl_pmtrans
2782OP*
2783Perl_pmtrans(void *pPerl, OP* o, OP* expr, OP* repl)
2784{
2785 return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl);
2786}
2787
2788#undef Perl_pop_return
2789OP*
2790Perl_pop_return(void *pPerl)
2791{
2792 return ((CPerlObj*)pPerl)->Perl_pop_return();
2793}
2794
2795#undef Perl_pop_scope
2796void
2797Perl_pop_scope(void *pPerl)
2798{
2799 ((CPerlObj*)pPerl)->Perl_pop_scope();
2800}
2801
2802#undef Perl_prepend_elem
2803OP*
2804Perl_prepend_elem(void *pPerl, I32 optype, OP* head, OP* tail)
2805{
2806 return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail);
2807}
2808
2809#undef Perl_push_return
2810void
2811Perl_push_return(void *pPerl, OP* o)
2812{
2813 ((CPerlObj*)pPerl)->Perl_push_return(o);
2814}
2815
2816#undef Perl_push_scope
2817void
2818Perl_push_scope(void *pPerl)
2819{
2820 ((CPerlObj*)pPerl)->Perl_push_scope();
2821}
2822
2823#undef Perl_ref
2824OP*
2825Perl_ref(void *pPerl, OP* o, I32 type)
2826{
2827 return ((CPerlObj*)pPerl)->Perl_ref(o, type);
2828}
2829
2830#undef Perl_refkids
2831OP*
2832Perl_refkids(void *pPerl, OP* o, I32 type)
2833{
2834 return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
2835}
2836
2837#undef Perl_regdump
2838void
2839Perl_regdump(void *pPerl, regexp* r)
2840{
2841 ((CPerlObj*)pPerl)->Perl_regdump(r);
2842}
2843
2844#undef Perl_pregexec
2845I32
2846Perl_pregexec(void *pPerl, regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2847{
2848 return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
2849}
2850
2851#undef Perl_pregfree
2852void
2853Perl_pregfree(void *pPerl, struct regexp* r)
2854{
2855 ((CPerlObj*)pPerl)->Perl_pregfree(r);
2856}
2857
2858#undef Perl_pregcomp
2859regexp*
2860Perl_pregcomp(void *pPerl, char* exp, char* xend, PMOP* pm)
2861{
2862 return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
2863}
2864
2865#undef Perl_re_intuit_start
2866char*
2867Perl_re_intuit_start(void *pPerl, regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
2868{
2869 return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
2870}
2871
2872#undef Perl_re_intuit_string
2873SV*
2874Perl_re_intuit_string(void *pPerl, regexp* prog)
2875{
2876 return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2877}
2878
2879#undef Perl_regexec_flags
2880I32
2881Perl_regexec_flags(void *pPerl, regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
2882{
2883 return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
2884}
2885
2886#undef Perl_regnext
2887regnode*
2888Perl_regnext(void *pPerl, regnode* p)
2889{
2890 return ((CPerlObj*)pPerl)->Perl_regnext(p);
2891}
2892
2893#undef Perl_regprop
2894void
2895Perl_regprop(void *pPerl, SV* sv, regnode* o)
2896{
2897 ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
2898}
2899
2900#undef Perl_repeatcpy
2901void
2902Perl_repeatcpy(void *pPerl, char* to, const char* from, I32 len, I32 count)
2903{
2904 ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
2905}
2906
2907#undef Perl_rninstr
2908char*
2909Perl_rninstr(void *pPerl, const char* big, const char* bigend, const char* little, const char* lend)
2910{
2911 return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
2912}
2913
2914#undef Perl_rsignal
2915Sighandler_t
2916Perl_rsignal(void *pPerl, int i, Sighandler_t t)
2917{
2918 return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
2919}
2920
2921#undef Perl_rsignal_restore
2922int
2923Perl_rsignal_restore(void *pPerl, int i, Sigsave_t* t)
2924{
2925 return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t);
2926}
2927
2928#undef Perl_rsignal_save
2929int
2930Perl_rsignal_save(void *pPerl, int i, Sighandler_t t1, Sigsave_t* t2)
2931{
2932 return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2);
2933}
2934
2935#undef Perl_rsignal_state
2936Sighandler_t
2937Perl_rsignal_state(void *pPerl, int i)
2938{
2939 return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
2940}
2941
2942#undef Perl_rxres_free
2943void
2944Perl_rxres_free(void *pPerl, void** rsp)
2945{
2946 ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
2947}
2948
2949#undef Perl_rxres_restore
2950void
2951Perl_rxres_restore(void *pPerl, void** rsp, REGEXP* prx)
2952{
2953 ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
2954}
2955
2956#undef Perl_rxres_save
2957void
2958Perl_rxres_save(void *pPerl, void** rsp, REGEXP* prx)
2959{
2960 ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx);
2961}
2962#if !defined(HAS_RENAME)
2963
2964#undef Perl_same_dirent
2965I32
2966Perl_same_dirent(void *pPerl, char* a, char* b)
2967{
2968 return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b);
2969}
2970#endif
2971
2972#undef Perl_savepv
2973char*
2974Perl_savepv(void *pPerl, const char* sv)
2975{
2976 return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2977}
2978
2979#undef Perl_savepvn
2980char*
2981Perl_savepvn(void *pPerl, const char* sv, I32 len)
2982{
2983 return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2984}
2985
2986#undef Perl_savestack_grow
2987void
2988Perl_savestack_grow(void *pPerl)
2989{
2990 ((CPerlObj*)pPerl)->Perl_savestack_grow();
2991}
2992
2993#undef Perl_save_aelem
2994void
2995Perl_save_aelem(void *pPerl, AV* av, I32 idx, SV **sptr)
2996{
2997 ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
2998}
2999
3000#undef Perl_save_alloc
3001I32
3002Perl_save_alloc(void *pPerl, I32 size, I32 pad)
3003{
3004 return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
3005}
3006
3007#undef Perl_save_aptr
3008void
3009Perl_save_aptr(void *pPerl, AV** aptr)
3010{
3011 ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3012}
3013
3014#undef Perl_save_ary
3015AV*
3016Perl_save_ary(void *pPerl, GV* gv)
3017{
3018 return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3019}
3020
3021#undef Perl_save_clearsv
3022void
3023Perl_save_clearsv(void *pPerl, SV** svp)
3024{
3025 ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3026}
3027
3028#undef Perl_save_delete
3029void
3030Perl_save_delete(void *pPerl, HV* hv, char* key, I32 klen)
3031{
3032 ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
3033}
3034
3035#undef Perl_save_destructor
3036void
3037Perl_save_destructor(void *pPerl, DESTRUCTORFUNC_t f, void* p)
3038{
3039 ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
3040}
3041
3042#undef Perl_save_freesv
3043void
3044Perl_save_freesv(void *pPerl, SV* sv)
3045{
3046 ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3047}
3048
3049#undef Perl_save_freeop
3050void
3051Perl_save_freeop(void *pPerl, OP* o)
3052{
3053 ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3054}
3055
3056#undef Perl_save_freepv
3057void
3058Perl_save_freepv(void *pPerl, char* pv)
3059{
3060 ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3061}
3062
3063#undef Perl_save_generic_svref
3064void
3065Perl_save_generic_svref(void *pPerl, SV** sptr)
3066{
3067 ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3068}
3069
3070#undef Perl_save_gp
3071void
3072Perl_save_gp(void *pPerl, GV* gv, I32 empty)
3073{
3074 ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3075}
3076
3077#undef Perl_save_hash
3078HV*
3079Perl_save_hash(void *pPerl, GV* gv)
3080{
3081 return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3082}
3083
3084#undef Perl_save_helem
3085void
3086Perl_save_helem(void *pPerl, HV* hv, SV *key, SV **sptr)
3087{
3088 ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
3089}
3090
3091#undef Perl_save_hints
3092void
3093Perl_save_hints(void *pPerl)
3094{
3095 ((CPerlObj*)pPerl)->Perl_save_hints();
3096}
3097
3098#undef Perl_save_hptr
3099void
3100Perl_save_hptr(void *pPerl, HV** hptr)
3101{
3102 ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3103}
3104
3105#undef Perl_save_I16
3106void
3107Perl_save_I16(void *pPerl, I16* intp)
3108{
3109 ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3110}
3111
3112#undef Perl_save_I32
3113void
3114Perl_save_I32(void *pPerl, I32* intp)
3115{
3116 ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3117}
3118
3119#undef Perl_save_int
3120void
3121Perl_save_int(void *pPerl, int* intp)
3122{
3123 ((CPerlObj*)pPerl)->Perl_save_int(intp);
3124}
3125
3126#undef Perl_save_item
3127void
3128Perl_save_item(void *pPerl, SV* item)
3129{
3130 ((CPerlObj*)pPerl)->Perl_save_item(item);
3131}
3132
3133#undef Perl_save_iv
3134void
3135Perl_save_iv(void *pPerl, IV* iv)
3136{
3137 ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3138}
3139
3140#undef Perl_save_list
3141void
3142Perl_save_list(void *pPerl, SV** sarg, I32 maxsarg)
3143{
3144 ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3145}
3146
3147#undef Perl_save_long
3148void
3149Perl_save_long(void *pPerl, long* longp)
3150{
3151 ((CPerlObj*)pPerl)->Perl_save_long(longp);
3152}
3153
3154#undef Perl_save_nogv
3155void
3156Perl_save_nogv(void *pPerl, GV* gv)
3157{
3158 ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3159}
3160
3161#undef Perl_save_op
3162void
3163Perl_save_op(void *pPerl)
3164{
3165 ((CPerlObj*)pPerl)->Perl_save_op();
3166}
3167
3168#undef Perl_save_scalar
3169SV*
3170Perl_save_scalar(void *pPerl, GV* gv)
3171{
3172 return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3173}
3174
3175#undef Perl_save_pptr
3176void
3177Perl_save_pptr(void *pPerl, char** pptr)
3178{
3179 ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3180}
3181
3182#undef Perl_save_re_context
3183void
3184Perl_save_re_context(void *pPerl)
3185{
3186 ((CPerlObj*)pPerl)->Perl_save_re_context();
3187}
3188
3189#undef Perl_save_sptr
3190void
3191Perl_save_sptr(void *pPerl, SV** sptr)
3192{
3193 ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3194}
3195
3196#undef Perl_save_svref
3197SV*
3198Perl_save_svref(void *pPerl, SV** sptr)
3199{
3200 return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3201}
3202
3203#undef Perl_save_threadsv
3204SV**
3205Perl_save_threadsv(void *pPerl, PADOFFSET i)
3206{
3207 return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3208}
3209
3210#undef Perl_sawparens
3211OP*
3212Perl_sawparens(void *pPerl, OP* o)
3213{
3214 return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3215}
3216
3217#undef Perl_scalar
3218OP*
3219Perl_scalar(void *pPerl, OP* o)
3220{
3221 return ((CPerlObj*)pPerl)->Perl_scalar(o);
3222}
3223
3224#undef Perl_scalarkids
3225OP*
3226Perl_scalarkids(void *pPerl, OP* o)
3227{
3228 return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3229}
3230
3231#undef Perl_scalarseq
3232OP*
3233Perl_scalarseq(void *pPerl, OP* o)
3234{
3235 return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3236}
3237
3238#undef Perl_scalarvoid
3239OP*
3240Perl_scalarvoid(void *pPerl, OP* o)
3241{
3242 return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3243}
3244
3245#undef Perl_scan_bin
3246UV
3247Perl_scan_bin(void *pPerl, char* start, I32 len, I32* retlen)
3248{
3249 return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
3250}
3251
3252#undef Perl_scan_hex
3253UV
3254Perl_scan_hex(void *pPerl, char* start, I32 len, I32* retlen)
3255{
3256 return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
3257}
3258
3259#undef Perl_scan_num
3260char*
3261Perl_scan_num(void *pPerl, char* s)
3262{
3263 return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3264}
3265
3266#undef Perl_scan_oct
3267UV
3268Perl_scan_oct(void *pPerl, char* start, I32 len, I32* retlen)
3269{
3270 return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
3271}
3272
3273#undef Perl_scope
3274OP*
3275Perl_scope(void *pPerl, OP* o)
3276{
3277 return ((CPerlObj*)pPerl)->Perl_scope(o);
3278}
3279
3280#undef Perl_screaminstr
3281char*
3282Perl_screaminstr(void *pPerl, SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
3283{
3284 return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
3285}
3286#if !defined(VMS)
3287
3288#undef Perl_setenv_getix
3289I32
3290Perl_setenv_getix(void *pPerl, char* nam)
3291{
3292 return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3293}
3294#endif
3295
3296#undef Perl_setdefout
3297void
3298Perl_setdefout(void *pPerl, GV* gv)
3299{
3300 ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3301}
3302
3303#undef Perl_sharepvn
3304char*
3305Perl_sharepvn(void *pPerl, const char* sv, I32 len, U32 hash)
3306{
3307 return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
3308}
3309
3310#undef Perl_share_hek
3311HEK*
3312Perl_share_hek(void *pPerl, const char* sv, I32 len, U32 hash)
3313{
3314 return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash);
3315}
3316
3317#undef Perl_sighandler
3318Signal_t
3319Perl_sighandler(void *pPerl, int sig)
3320{
3321 ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3322}
3323
3324#undef Perl_stack_grow
3325SV**
3326Perl_stack_grow(void *pPerl, SV** sp, SV**p, int n)
3327{
3328 return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
3329}
3330
3331#undef Perl_start_subparse
3332I32
3333Perl_start_subparse(void *pPerl, I32 is_format, U32 flags)
3334{
3335 return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
3336}
3337
3338#undef Perl_sub_crush_depth
3339void
3340Perl_sub_crush_depth(void *pPerl, CV* cv)
3341{
3342 ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3343}
3344
3345#undef Perl_sv_2bool
3346bool
3347Perl_sv_2bool(void *pPerl, SV* sv)
3348{
3349 return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3350}
3351
3352#undef Perl_sv_2cv
3353CV*
3354Perl_sv_2cv(void *pPerl, SV* sv, HV** st, GV** gvp, I32 lref)
3355{
3356 return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
3357}
3358
3359#undef Perl_sv_2io
3360IO*
3361Perl_sv_2io(void *pPerl, SV* sv)
3362{
3363 return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3364}
3365
3366#undef Perl_sv_2iv
3367IV
3368Perl_sv_2iv(void *pPerl, SV* sv)
3369{
3370 return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3371}
3372
3373#undef Perl_sv_2mortal
3374SV*
3375Perl_sv_2mortal(void *pPerl, SV* sv)
3376{
3377 return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3378}
3379
3380#undef Perl_sv_2nv
3381NV
3382Perl_sv_2nv(void *pPerl, SV* sv)
3383{
3384 return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3385}
3386
3387#undef Perl_sv_2pv
3388char*
3389Perl_sv_2pv(void *pPerl, SV* sv, STRLEN* lp)
3390{
3391 return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
3392}
3393
3394#undef Perl_sv_2uv
3395UV
3396Perl_sv_2uv(void *pPerl, SV* sv)
3397{
3398 return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3399}
3400
3401#undef Perl_sv_iv
3402IV
3403Perl_sv_iv(void *pPerl, SV* sv)
3404{
3405 return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3406}
3407
3408#undef Perl_sv_uv
3409UV
3410Perl_sv_uv(void *pPerl, SV* sv)
3411{
3412 return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3413}
3414
3415#undef Perl_sv_nv
3416NV
3417Perl_sv_nv(void *pPerl, SV* sv)
3418{
3419 return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3420}
3421
3422#undef Perl_sv_pvn
3423char*
3424Perl_sv_pvn(void *pPerl, SV *sv, STRLEN *len)
3425{
3426 return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
3427}
3428
3429#undef Perl_sv_true
3430I32
3431Perl_sv_true(void *pPerl, SV *sv)
3432{
3433 return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3434}
3435
3436#undef Perl_sv_add_arena
3437void
3438Perl_sv_add_arena(void *pPerl, char* ptr, U32 size, U32 flags)
3439{
3440 ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags);
3441}
3442
3443#undef Perl_sv_backoff
3444int
3445Perl_sv_backoff(void *pPerl, SV* sv)
3446{
3447 return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3448}
3449
3450#undef Perl_sv_bless
3451SV*
3452Perl_sv_bless(void *pPerl, SV* sv, HV* stash)
3453{
3454 return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
3455}
3456
3457#undef Perl_sv_catpv
3458void
3459Perl_sv_catpv(void *pPerl, SV* sv, const char* ptr)
3460{
3461 ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
3462}
3463
3464#undef Perl_sv_catpvn
3465void
3466Perl_sv_catpvn(void *pPerl, SV* sv, const char* ptr, STRLEN len)
3467{
3468 ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
3469}
3470
3471#undef Perl_sv_catsv
3472void
3473Perl_sv_catsv(void *pPerl, SV* dsv, SV* ssv)
3474{
3475 ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3476}
3477
3478#undef Perl_sv_chop
3479void
3480Perl_sv_chop(void *pPerl, SV* sv, char* ptr)
3481{
3482 ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
3483}
3484
3485#undef Perl_sv_clean_all
3486void
3487Perl_sv_clean_all(void *pPerl)
3488{
3489 ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3490}
3491
3492#undef Perl_sv_clean_objs
3493void
3494Perl_sv_clean_objs(void *pPerl)
3495{
3496 ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3497}
3498
3499#undef Perl_sv_clear
3500void
3501Perl_sv_clear(void *pPerl, SV* sv)
3502{
3503 ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3504}
3505
3506#undef Perl_sv_cmp
3507I32
3508Perl_sv_cmp(void *pPerl, SV* sv1, SV* sv2)
3509{
3510 return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
3511}
3512
3513#undef Perl_sv_cmp_locale
3514I32
3515Perl_sv_cmp_locale(void *pPerl, SV* sv1, SV* sv2)
3516{
3517 return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
3518}
3519#if defined(USE_LOCALE_COLLATE)
3520
3521#undef Perl_sv_collxfrm
3522char*
3523Perl_sv_collxfrm(void *pPerl, SV* sv, STRLEN* nxp)
3524{
3525 return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
3526}
3527#endif
3528
3529#undef Perl_sv_compile_2op
3530OP*
3531Perl_sv_compile_2op(void *pPerl, SV* sv, OP** startp, char* code, AV** avp)
3532{
3533 return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
3534}
3535
3536#undef Perl_sv_dec
3537void
3538Perl_sv_dec(void *pPerl, SV* sv)
3539{
3540 ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3541}
3542
3543#undef Perl_sv_dump
3544void
3545Perl_sv_dump(void *pPerl, SV* sv)
3546{
3547 ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3548}
3549
3550#undef Perl_sv_derived_from
3551bool
3552Perl_sv_derived_from(void *pPerl, SV* sv, const char* name)
3553{
3554 return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
3555}
3556
3557#undef Perl_sv_eq
3558I32
3559Perl_sv_eq(void *pPerl, SV* sv1, SV* sv2)
3560{
3561 return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
3562}
3563
3564#undef Perl_sv_free
3565void
3566Perl_sv_free(void *pPerl, SV* sv)
3567{
3568 ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3569}
3570
3571#undef Perl_sv_free_arenas
3572void
3573Perl_sv_free_arenas(void *pPerl)
3574{
3575 ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3576}
3577
3578#undef Perl_sv_gets
3579char*
3580Perl_sv_gets(void *pPerl, SV* sv, PerlIO* fp, I32 append)
3581{
3582 return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
3583}
3584
3585#undef Perl_sv_grow
3586char*
3587Perl_sv_grow(void *pPerl, SV* sv, STRLEN newlen)
3588{
3589 return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
3590}
3591
3592#undef Perl_sv_inc
3593void
3594Perl_sv_inc(void *pPerl, SV* sv)
3595{
3596 ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3597}
3598
3599#undef Perl_sv_insert
3600void
3601Perl_sv_insert(void *pPerl, SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
3602{
3603 ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
3604}
3605
3606#undef Perl_sv_isa
3607int
3608Perl_sv_isa(void *pPerl, SV* sv, const char* name)
3609{
3610 return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
3611}
3612
3613#undef Perl_sv_isobject
3614int
3615Perl_sv_isobject(void *pPerl, SV* sv)
3616{
3617 return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
3618}
3619
3620#undef Perl_sv_len
3621STRLEN
3622Perl_sv_len(void *pPerl, SV* sv)
3623{
3624 return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
3625}
3626
3627#undef Perl_sv_len_utf8
3628STRLEN
3629Perl_sv_len_utf8(void *pPerl, SV* sv)
3630{
3631 return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
3632}
3633
3634#undef Perl_sv_magic
3635void
3636Perl_sv_magic(void *pPerl, SV* sv, SV* obj, int how, const char* name, I32 namlen)
3637{
3638 ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
3639}
3640
3641#undef Perl_sv_mortalcopy
3642SV*
3643Perl_sv_mortalcopy(void *pPerl, SV* oldsv)
3644{
3645 return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
3646}
3647
3648#undef Perl_sv_newmortal
3649SV*
3650Perl_sv_newmortal(void *pPerl)
3651{
3652 return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
3653}
3654
3655#undef Perl_sv_newref
3656SV*
3657Perl_sv_newref(void *pPerl, SV* sv)
3658{
3659 return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
3660}
3661
3662#undef Perl_sv_peek
3663char*
3664Perl_sv_peek(void *pPerl, SV* sv)
3665{
3666 return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
3667}
3668
3669#undef Perl_sv_pos_u2b
3670void
3671Perl_sv_pos_u2b(void *pPerl, SV* sv, I32* offsetp, I32* lenp)
3672{
3673 ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
3674}
3675
3676#undef Perl_sv_pos_b2u
3677void
3678Perl_sv_pos_b2u(void *pPerl, SV* sv, I32* offsetp)
3679{
3680 ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
3681}
3682
3683#undef Perl_sv_pvn_force
3684char*
3685Perl_sv_pvn_force(void *pPerl, SV* sv, STRLEN* lp)
3686{
3687 return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
3688}
3689
3690#undef Perl_sv_reftype
3691char*
3692Perl_sv_reftype(void *pPerl, SV* sv, int ob)
3693{
3694 return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
3695}
3696
3697#undef Perl_sv_replace
3698void
3699Perl_sv_replace(void *pPerl, SV* sv, SV* nsv)
3700{
3701 ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
3702}
3703
3704#undef Perl_sv_report_used
3705void
3706Perl_sv_report_used(void *pPerl)
3707{
3708 ((CPerlObj*)pPerl)->Perl_sv_report_used();
3709}
3710
3711#undef Perl_sv_reset
3712void
3713Perl_sv_reset(void *pPerl, char* s, HV* stash)
3714{
3715 ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
3716}
3717
3718#undef Perl_sv_setiv
3719void
3720Perl_sv_setiv(void *pPerl, SV* sv, IV num)
3721{
3722 ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3723}
3724
3725#undef Perl_sv_setpviv
3726void
3727Perl_sv_setpviv(void *pPerl, SV* sv, IV num)
3728{
3729 ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3730}
3731
3732#undef Perl_sv_setuv
3733void
3734Perl_sv_setuv(void *pPerl, SV* sv, UV num)
3735{
3736 ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3737}
3738
3739#undef Perl_sv_setnv
3740void
3741Perl_sv_setnv(void *pPerl, SV* sv, NV num)
3742{
3743 ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
3744}
3745
3746#undef Perl_sv_setref_iv
3747SV*
3748Perl_sv_setref_iv(void *pPerl, SV* rv, const char* classname, IV iv)
3749{
3750 return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
3751}
3752
3753#undef Perl_sv_setref_nv
3754SV*
3755Perl_sv_setref_nv(void *pPerl, SV* rv, const char* classname, NV nv)
3756{
3757 return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
3758}
3759
3760#undef Perl_sv_setref_pv
3761SV*
3762Perl_sv_setref_pv(void *pPerl, SV* rv, const char* classname, void* pv)
3763{
3764 return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
3765}
3766
3767#undef Perl_sv_setref_pvn
3768SV*
3769Perl_sv_setref_pvn(void *pPerl, SV* rv, const char* classname, char* pv, STRLEN n)
3770{
3771 return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
3772}
3773
3774#undef Perl_sv_setpv
3775void
3776Perl_sv_setpv(void *pPerl, SV* sv, const char* ptr)
3777{
3778 ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
3779}
3780
3781#undef Perl_sv_setpvn
3782void
3783Perl_sv_setpvn(void *pPerl, SV* sv, const char* ptr, STRLEN len)
3784{
3785 ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
3786}
3787
3788#undef Perl_sv_setsv
3789void
3790Perl_sv_setsv(void *pPerl, SV* dsv, SV* ssv)
3791{
3792 ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3793}
3794
3795#undef Perl_sv_taint
3796void
3797Perl_sv_taint(void *pPerl, SV* sv)
3798{
3799 ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3800}
3801
3802#undef Perl_sv_tainted
3803bool
3804Perl_sv_tainted(void *pPerl, SV* sv)
3805{
3806 return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3807}
3808
3809#undef Perl_sv_unmagic
3810int
3811Perl_sv_unmagic(void *pPerl, SV* sv, int type)
3812{
3813 return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
3814}
3815
3816#undef Perl_sv_unref
3817void
3818Perl_sv_unref(void *pPerl, SV* sv)
3819{
3820 ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3821}
3822
3823#undef Perl_sv_untaint
3824void
3825Perl_sv_untaint(void *pPerl, SV* sv)
3826{
3827 ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3828}
3829
3830#undef Perl_sv_upgrade
3831bool
3832Perl_sv_upgrade(void *pPerl, SV* sv, U32 mt)
3833{
3834 return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
3835}
3836
3837#undef Perl_sv_usepvn
3838void
3839Perl_sv_usepvn(void *pPerl, SV* sv, char* ptr, STRLEN len)
3840{
3841 ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
3842}
3843
3844#undef Perl_sv_vcatpvfn
3845void
3846Perl_sv_vcatpvfn(void *pPerl, SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)
3847{
3848 ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
3849}
3850
3851#undef Perl_sv_vsetpvfn
3852void
3853Perl_sv_vsetpvfn(void *pPerl, SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)
3854{
3855 ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
3856}
3857
3858#undef Perl_swash_init
3859SV*
3860Perl_swash_init(void *pPerl, char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
3861{
3862 return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
3863}
3864
3865#undef Perl_swash_fetch
3866UV
3867Perl_swash_fetch(void *pPerl, SV *sv, U8 *ptr)
3868{
3869 return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
3870}
3871
3872#undef Perl_taint_env
3873void
3874Perl_taint_env(void *pPerl)
3875{
3876 ((CPerlObj*)pPerl)->Perl_taint_env();
3877}
3878
3879#undef Perl_taint_proper
3880void
3881Perl_taint_proper(void *pPerl, const char* f, char* s)
3882{
3883 ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
3884}
3885
3886#undef Perl_to_utf8_lower
3887UV
3888Perl_to_utf8_lower(void *pPerl, U8 *p)
3889{
3890 return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
3891}
3892
3893#undef Perl_to_utf8_upper
3894UV
3895Perl_to_utf8_upper(void *pPerl, U8 *p)
3896{
3897 return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
3898}
3899
3900#undef Perl_to_utf8_title
3901UV
3902Perl_to_utf8_title(void *pPerl, U8 *p)
3903{
3904 return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
3905}
3906#if defined(UNLINK_ALL_VERSIONS)
3907
3908#undef Perl_unlnk
3909I32
3910Perl_unlnk(void *pPerl, char* f)
3911{
3912 return ((CPerlObj*)pPerl)->Perl_unlnk(f);
3913}
3914#endif
3915#if defined(USE_THREADS)
3916
3917#undef Perl_unlock_condpair
3918void
3919Perl_unlock_condpair(void *pPerl, void* svv)
3920{
3921 ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3922}
3923#endif
3924
3925#undef Perl_unsharepvn
3926void
3927Perl_unsharepvn(void *pPerl, const char* sv, I32 len, U32 hash)
3928{
3929 ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
3930}
3931
3932#undef Perl_unshare_hek
3933void
3934Perl_unshare_hek(void *pPerl, HEK* hek)
3935{
3936 ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
3937}
3938
3939#undef Perl_utilize
3940void
3941Perl_utilize(void *pPerl, int aver, I32 floor, OP* version, OP* id, OP* arg)
3942{
3943 ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg);
3944}
3945
3946#undef Perl_utf16_to_utf8
3947U8*
3948Perl_utf16_to_utf8(void *pPerl, U16* p, U8 *d, I32 bytelen)
3949{
3950 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
3951}
3952
3953#undef Perl_utf16_to_utf8_reversed
3954U8*
3955Perl_utf16_to_utf8_reversed(void *pPerl, U16* p, U8 *d, I32 bytelen)
3956{
3957 return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
3958}
3959
3960#undef Perl_utf8_distance
3961I32
3962Perl_utf8_distance(void *pPerl, U8 *a, U8 *b)
3963{
3964 return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
3965}
3966
3967#undef Perl_utf8_hop
3968U8*
3969Perl_utf8_hop(void *pPerl, U8 *s, I32 off)
3970{
3971 return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
3972}
3973
3974#undef Perl_utf8_to_uv
3975UV
3976Perl_utf8_to_uv(void *pPerl, U8 *s, I32* retlen)
3977{
3978 return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
3979}
3980
3981#undef Perl_uv_to_utf8
3982U8*
3983Perl_uv_to_utf8(void *pPerl, U8 *d, UV uv)
3984{
3985 return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
3986}
3987
3988#undef Perl_vivify_defelem
3989void
3990Perl_vivify_defelem(void *pPerl, SV* sv)
3991{
3992 ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
3993}
3994
3995#undef Perl_vivify_ref
3996void
3997Perl_vivify_ref(void *pPerl, SV* sv, U32 to_what)
3998{
3999 ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what);
4000}
4001
4002#undef Perl_wait4pid
4003I32
4004Perl_wait4pid(void *pPerl, int pid, int* statusp, int flags)
4005{
4006 return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
4007}
4008
4009#undef Perl_watch
4010void
4011Perl_watch(void *pPerl, char** addr)
4012{
4013 ((CPerlObj*)pPerl)->Perl_watch(addr);
4014}
4015
4016#undef Perl_whichsig
4017I32
4018Perl_whichsig(void *pPerl, char* sig)
4019{
4020 return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4021}
4022
4023#undef Perl_yyerror
4024int
4025Perl_yyerror(void *pPerl, char* s)
4026{
4027 return ((CPerlObj*)pPerl)->Perl_yyerror(s);
4028}
4029#if defined(USE_PURE_BISON)
4030
4031#undef Perl_yylex
4032int
4033Perl_yylex(void *pPerl, YYSTYPE *lvalp, int *lcharp)
4034{
4035 return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4036}
4037#else
4038
4039#undef Perl_yylex
4040int
4041Perl_yylex(void *pPerl)
4042{
4043 return ((CPerlObj*)pPerl)->Perl_yylex();
4044}
4045#endif
4046
4047#undef Perl_yyparse
4048int
4049Perl_yyparse(void *pPerl)
4050{
4051 return ((CPerlObj*)pPerl)->Perl_yyparse();
4052}
4053
4054#undef Perl_yywarn
4055int
4056Perl_yywarn(void *pPerl, char* s)
4057{
4058 return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4059}
4060#if defined(MYMALLOC)
4061
4062#undef Perl_dump_mstats
4063void
4064Perl_dump_mstats(void *pPerl, char* s)
4065{
4066 ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4067}
4068
4069#undef Perl_malloc
4070Malloc_t
4071Perl_malloc(void *pPerl, MEM_SIZE nbytes)
4072{
4073 return ((CPerlObj*)pPerl)->Perl_malloc(nbytes);
4074}
4075
4076#undef Perl_calloc
4077Malloc_t
4078Perl_calloc(void *pPerl, MEM_SIZE elements, MEM_SIZE size)
4079{
4080 return ((CPerlObj*)pPerl)->Perl_calloc(elements, size);
4081}
4082
4083#undef Perl_realloc
4084Malloc_t
4085Perl_realloc(void *pPerl, Malloc_t where, MEM_SIZE nbytes)
4086{
4087 return ((CPerlObj*)pPerl)->Perl_realloc(where, nbytes);
4088}
4089
4090#undef Perl_mfree
4091Free_t
4092Perl_mfree(void *pPerl, Malloc_t where)
4093{
4094 ((CPerlObj*)pPerl)->Perl_mfree(where);
4095}
4096#endif
4097
4098#undef Perl_safesysmalloc
4099Malloc_t
4100Perl_safesysmalloc(void *pPerl, MEM_SIZE nbytes)
4101{
4102 return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4103}
4104
4105#undef Perl_safesyscalloc
4106Malloc_t
4107Perl_safesyscalloc(void *pPerl, MEM_SIZE elements, MEM_SIZE size)
4108{
4109 return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4110}
4111
4112#undef Perl_safesysrealloc
4113Malloc_t
4114Perl_safesysrealloc(void *pPerl, Malloc_t where, MEM_SIZE nbytes)
4115{
4116 return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4117}
4118
4119#undef Perl_safesysfree
4120Free_t
4121Perl_safesysfree(void *pPerl, Malloc_t where)
4122{
4123 ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4124}
4125#if defined(LEAKTEST)
4126
4127#undef Perl_safexmalloc
4128Malloc_t
4129Perl_safexmalloc(void *pPerl, I32 x, MEM_SIZE size)
4130{
4131 return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4132}
4133
4134#undef Perl_safexcalloc
4135Malloc_t
4136Perl_safexcalloc(void *pPerl, I32 x, MEM_SIZE elements, MEM_SIZE size)
4137{
4138 return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
4139}
4140
4141#undef Perl_safexrealloc
4142Malloc_t
4143Perl_safexrealloc(void *pPerl, Malloc_t where, MEM_SIZE size)
4144{
4145 return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4146}
4147
4148#undef Perl_safexfree
4149void
4150Perl_safexfree(void *pPerl, Malloc_t where)
4151{
4152 ((CPerlObj*)pPerl)->Perl_safexfree(where);
4153}
4154#endif
4155#if defined(PERL_GLOBAL_STRUCT)
4156
4157#undef Perl_GetVars
4158struct perl_vars *
4159Perl_GetVars(void *pPerl)
4160{
4161 return ((CPerlObj*)pPerl)->Perl_GetVars();
4162}
4163#endif
4164
4165#undef Perl_runops_standard
4166int
4167Perl_runops_standard(void *pPerl)
4168{
4169 return ((CPerlObj*)pPerl)->Perl_runops_standard();
4170}
4171
4172#undef Perl_runops_debug
4173int
4174Perl_runops_debug(void *pPerl)
4175{
4176 return ((CPerlObj*)pPerl)->Perl_runops_debug();
4177}
4178
4179#undef Perl_sv_catpv_mg
4180void
4181Perl_sv_catpv_mg(void *pPerl, SV *sv, const char *ptr)
4182{
4183 ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
4184}
4185
4186#undef Perl_sv_catpvn_mg
4187void
4188Perl_sv_catpvn_mg(void *pPerl, SV *sv, const char *ptr, STRLEN len)
4189{
4190 ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
4191}
4192
4193#undef Perl_sv_catsv_mg
4194void
4195Perl_sv_catsv_mg(void *pPerl, SV *dstr, SV *sstr)
4196{
4197 ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
4198}
4199
4200#undef Perl_sv_setiv_mg
4201void
4202Perl_sv_setiv_mg(void *pPerl, SV *sv, IV i)
4203{
4204 ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
4205}
4206
4207#undef Perl_sv_setpviv_mg
4208void
4209Perl_sv_setpviv_mg(void *pPerl, SV *sv, IV iv)
4210{
4211 ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
4212}
4213
4214#undef Perl_sv_setuv_mg
4215void
4216Perl_sv_setuv_mg(void *pPerl, SV *sv, UV u)
4217{
4218 ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
4219}
4220
4221#undef Perl_sv_setnv_mg
4222void
4223Perl_sv_setnv_mg(void *pPerl, SV *sv, NV num)
4224{
4225 ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
4226}
4227
4228#undef Perl_sv_setpv_mg
4229void
4230Perl_sv_setpv_mg(void *pPerl, SV *sv, const char *ptr)
4231{
4232 ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
4233}
4234
4235#undef Perl_sv_setpvn_mg
4236void
4237Perl_sv_setpvn_mg(void *pPerl, SV *sv, const char *ptr, STRLEN len)
4238{
4239 ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
4240}
4241
4242#undef Perl_sv_setsv_mg
4243void
4244Perl_sv_setsv_mg(void *pPerl, SV *dstr, SV *sstr)
4245{
4246 ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
4247}
4248
4249#undef Perl_sv_usepvn_mg
4250void
4251Perl_sv_usepvn_mg(void *pPerl, SV *sv, char *ptr, STRLEN len)
4252{
4253 ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
4254}
4255
4256#undef Perl_get_vtbl
4257MGVTBL*
4258Perl_get_vtbl(void *pPerl, int vtbl_id)
4259{
4260 return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4261}
4262
4263#undef Perl_pv_display
4264char*
4265Perl_pv_display(void *pPerl, SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4266{
4267 return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim);
4268}
4269
4270#undef Perl_do_gv_dump
4271void
4272Perl_do_gv_dump(void *pPerl, I32 level, PerlIO *file, char *name, GV *sv)
4273{
4274 ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
4275}
4276
4277#undef Perl_do_gvgv_dump
4278void
4279Perl_do_gvgv_dump(void *pPerl, I32 level, PerlIO *file, char *name, GV *sv)
4280{
4281 ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
4282}
4283
4284#undef Perl_do_hv_dump
4285void
4286Perl_do_hv_dump(void *pPerl, I32 level, PerlIO *file, char *name, HV *sv)
4287{
4288 ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
4289}
4290
4291#undef Perl_do_magic_dump
4292void
4293Perl_do_magic_dump(void *pPerl, I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4294{
4295 ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
4296}
4297
4298#undef Perl_do_op_dump
4299void
4300Perl_do_op_dump(void *pPerl, I32 level, PerlIO *file, OP *o)
4301{
4302 ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
4303}
4304
4305#undef Perl_do_pmop_dump
4306void
4307Perl_do_pmop_dump(void *pPerl, I32 level, PerlIO *file, PMOP *pm)
4308{
4309 ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
4310}
4311
4312#undef Perl_do_sv_dump
4313void
4314Perl_do_sv_dump(void *pPerl, I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4315{
4316 ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
4317}
4318
4319#undef Perl_magic_dump
4320void
4321Perl_magic_dump(void *pPerl, MAGIC *mg)
4322{
4323 ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4324}
4325
4326#undef Perl_reginitcolors
4327void
4328Perl_reginitcolors(void *pPerl)
4329{
4330 ((CPerlObj*)pPerl)->Perl_reginitcolors();
4331}
4332
4333#undef Perl_sv_2pv_nolen
4334char*
4335Perl_sv_2pv_nolen(void *pPerl, SV* sv)
4336{
4337 return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4338}
4339
4340#undef Perl_sv_pv
4341char*
4342Perl_sv_pv(void *pPerl, SV *sv)
4343{
4344 return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4345}
4346
4347#undef Perl_sv_force_normal
4348void
4349Perl_sv_force_normal(void *pPerl, SV *sv)
4350{
4351 ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4352}
4353
4354#undef Perl_tmps_grow
4355void
4356Perl_tmps_grow(void *pPerl, I32 n)
4357{
4358 ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4359}
4360
4361#undef Perl_sv_rvweaken
4362SV*
4363Perl_sv_rvweaken(void *pPerl, SV *sv)
4364{
4365 return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4366}
4367
4368#undef Perl_magic_killbackrefs
4369int
4370Perl_magic_killbackrefs(void *pPerl, SV *sv, MAGIC *mg)
4371{
4372 return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
4373}
4374#if defined(PERL_OBJECT)
4375#endif
4376#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
4377#endif
4378#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
4379#endif
4380#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
4381#endif
4382#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
4383#endif
4384#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
4385#endif
4386#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
4387# if defined(PL_OP_SLAB_ALLOC)
4388# endif
4389#endif
4390#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
4391# if defined(IAMSUID)
4392# endif
4393# if defined(USE_THREADS)
4394# endif
4395#endif
4396#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
4397#endif
4398#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
4399#endif
4400#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
4401#endif
4402#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
4403# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
4404# endif
4405#endif
4406#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
4407#endif
4408#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
4409#endif
4410#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
4411#endif
4412#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
4413#endif
4414#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
4415# if defined(PURIFY)
4416# else
4417# endif
4418# if defined(DEBUGGING)
4419# endif
4420#endif
4421#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
4422# if defined(CRIPPLED_CC)
4423# endif
4424# if defined(WIN32)
4425# endif
4426#endif
4427#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
4428#endif
4429#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
4430# if defined(LEAKTEST)
4431# endif
4432#endif
4433
4434#undef Perl_ck_anoncode
4435OP *
4436Perl_ck_anoncode(void *pPerl, OP *o)
4437{
4438 return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
4439}
4440
4441#undef Perl_ck_bitop
4442OP *
4443Perl_ck_bitop(void *pPerl, OP *o)
4444{
4445 return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
4446}
4447
4448#undef Perl_ck_concat
4449OP *
4450Perl_ck_concat(void *pPerl, OP *o)
4451{
4452 return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
4453}
4454
4455#undef Perl_ck_defined
4456OP *
4457Perl_ck_defined(void *pPerl, OP *o)
4458{
4459 return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
4460}
4461
4462#undef Perl_ck_delete
4463OP *
4464Perl_ck_delete(void *pPerl, OP *o)
4465{
4466 return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
4467}
4468
4469#undef Perl_ck_eof
4470OP *
4471Perl_ck_eof(void *pPerl, OP *o)
4472{
4473 return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
4474}
4475
4476#undef Perl_ck_eval
4477OP *
4478Perl_ck_eval(void *pPerl, OP *o)
4479{
4480 return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
4481}
4482
4483#undef Perl_ck_exec
4484OP *
4485Perl_ck_exec(void *pPerl, OP *o)
4486{
4487 return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
4488}
4489
4490#undef Perl_ck_exists
4491OP *
4492Perl_ck_exists(void *pPerl, OP *o)
4493{
4494 return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
4495}
4496
4497#undef Perl_ck_ftst
4498OP *
4499Perl_ck_ftst(void *pPerl, OP *o)
4500{
4501 return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
4502}
4503
4504#undef Perl_ck_fun
4505OP *
4506Perl_ck_fun(void *pPerl, OP *o)
4507{
4508 return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
4509}
4510
4511#undef Perl_ck_fun_locale
4512OP *
4513Perl_ck_fun_locale(void *pPerl, OP *o)
4514{
4515 return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
4516}
4517
4518#undef Perl_ck_glob
4519OP *
4520Perl_ck_glob(void *pPerl, OP *o)
4521{
4522 return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
4523}
4524
4525#undef Perl_ck_grep
4526OP *
4527Perl_ck_grep(void *pPerl, OP *o)
4528{
4529 return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
4530}
4531
4532#undef Perl_ck_index
4533OP *
4534Perl_ck_index(void *pPerl, OP *o)
4535{
4536 return ((CPerlObj*)pPerl)->Perl_ck_index(o);
4537}
4538
4539#undef Perl_ck_lengthconst
4540OP *
4541Perl_ck_lengthconst(void *pPerl, OP *o)
4542{
4543 return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
4544}
4545
4546#undef Perl_ck_lfun
4547OP *
4548Perl_ck_lfun(void *pPerl, OP *o)
4549{
4550 return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
4551}
4552
4553#undef Perl_ck_listiob
4554OP *
4555Perl_ck_listiob(void *pPerl, OP *o)
4556{
4557 return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
4558}
4559
4560#undef Perl_ck_match
4561OP *
4562Perl_ck_match(void *pPerl, OP *o)
4563{
4564 return ((CPerlObj*)pPerl)->Perl_ck_match(o);
4565}
4566
4567#undef Perl_ck_null
4568OP *
4569Perl_ck_null(void *pPerl, OP *o)
4570{
4571 return ((CPerlObj*)pPerl)->Perl_ck_null(o);
4572}
4573
4574#undef Perl_ck_repeat
4575OP *
4576Perl_ck_repeat(void *pPerl, OP *o)
4577{
4578 return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
4579}
4580
4581#undef Perl_ck_require
4582OP *
4583Perl_ck_require(void *pPerl, OP *o)
4584{
4585 return ((CPerlObj*)pPerl)->Perl_ck_require(o);
4586}
4587
4588#undef Perl_ck_rfun
4589OP *
4590Perl_ck_rfun(void *pPerl, OP *o)
4591{
4592 return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
4593}
4594
4595#undef Perl_ck_rvconst
4596OP *
4597Perl_ck_rvconst(void *pPerl, OP *o)
4598{
4599 return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
4600}
4601
4602#undef Perl_ck_sassign
4603OP *
4604Perl_ck_sassign(void *pPerl, OP *o)
4605{
4606 return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
4607}
4608
4609#undef Perl_ck_scmp
4610OP *
4611Perl_ck_scmp(void *pPerl, OP *o)
4612{
4613 return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
4614}
4615
4616#undef Perl_ck_select
4617OP *
4618Perl_ck_select(void *pPerl, OP *o)
4619{
4620 return ((CPerlObj*)pPerl)->Perl_ck_select(o);
4621}
4622
4623#undef Perl_ck_shift
4624OP *
4625Perl_ck_shift(void *pPerl, OP *o)
4626{
4627 return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
4628}
4629
4630#undef Perl_ck_sort
4631OP *
4632Perl_ck_sort(void *pPerl, OP *o)
4633{
4634 return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
4635}
4636
4637#undef Perl_ck_spair
4638OP *
4639Perl_ck_spair(void *pPerl, OP *o)
4640{
4641 return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
4642}
4643
4644#undef Perl_ck_split
4645OP *
4646Perl_ck_split(void *pPerl, OP *o)
4647{
4648 return ((CPerlObj*)pPerl)->Perl_ck_split(o);
4649}
4650
4651#undef Perl_ck_subr
4652OP *
4653Perl_ck_subr(void *pPerl, OP *o)
4654{
4655 return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
4656}
4657
4658#undef Perl_ck_svconst
4659OP *
4660Perl_ck_svconst(void *pPerl, OP *o)
4661{
4662 return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
4663}
4664
4665#undef Perl_ck_trunc
4666OP *
4667Perl_ck_trunc(void *pPerl, OP *o)
4668{
4669 return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
4670}
4671
4672#undef Perl_pp_aassign
4673OP *
4674Perl_pp_aassign(void *pPerl)
4675{
4676 return ((CPerlObj*)pPerl)->Perl_pp_aassign();
4677}
4678
4679#undef Perl_pp_abs
4680OP *
4681Perl_pp_abs(void *pPerl)
4682{
4683 return ((CPerlObj*)pPerl)->Perl_pp_abs();
4684}
4685
4686#undef Perl_pp_accept
4687OP *
4688Perl_pp_accept(void *pPerl)
4689{
4690 return ((CPerlObj*)pPerl)->Perl_pp_accept();
4691}
4692
4693#undef Perl_pp_add
4694OP *
4695Perl_pp_add(void *pPerl)
4696{
4697 return ((CPerlObj*)pPerl)->Perl_pp_add();
4698}
4699
4700#undef Perl_pp_aelem
4701OP *
4702Perl_pp_aelem(void *pPerl)
4703{
4704 return ((CPerlObj*)pPerl)->Perl_pp_aelem();
4705}
4706
4707#undef Perl_pp_aelemfast
4708OP *
4709Perl_pp_aelemfast(void *pPerl)
4710{
4711 return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
4712}
4713
4714#undef Perl_pp_alarm
4715OP *
4716Perl_pp_alarm(void *pPerl)
4717{
4718 return ((CPerlObj*)pPerl)->Perl_pp_alarm();
4719}
4720
4721#undef Perl_pp_and
4722OP *
4723Perl_pp_and(void *pPerl)
4724{
4725 return ((CPerlObj*)pPerl)->Perl_pp_and();
4726}
4727
4728#undef Perl_pp_andassign
4729OP *
4730Perl_pp_andassign(void *pPerl)
4731{
4732 return ((CPerlObj*)pPerl)->Perl_pp_andassign();
4733}
4734
4735#undef Perl_pp_anoncode
4736OP *
4737Perl_pp_anoncode(void *pPerl)
4738{
4739 return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
4740}
4741
4742#undef Perl_pp_anonhash
4743OP *
4744Perl_pp_anonhash(void *pPerl)
4745{
4746 return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
4747}
4748
4749#undef Perl_pp_anonlist
4750OP *
4751Perl_pp_anonlist(void *pPerl)
4752{
4753 return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
4754}
4755
4756#undef Perl_pp_aslice
4757OP *
4758Perl_pp_aslice(void *pPerl)
4759{
4760 return ((CPerlObj*)pPerl)->Perl_pp_aslice();
4761}
4762
4763#undef Perl_pp_atan2
4764OP *