more PERL_OBJECT cleanups (changes still untested on Unix!)
[p5sagit/p5-mst-13.2.git] / perlapi.c
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) */
13 START_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
39 SV*
40 Perl_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
46 bool
47 Perl_Gv_AMupdate(void *pPerl, HV* stash)
48 {
49     return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
50 }
51
52 #undef  Perl_append_elem
53 OP*
54 Perl_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
60 OP*
61 Perl_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
67 I32
68 Perl_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
74 void
75 Perl_assertref(void *pPerl, OP* o)
76 {
77     ((CPerlObj*)pPerl)->Perl_assertref(o);
78 }
79
80 #undef  Perl_avhv_exists_ent
81 bool
82 Perl_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
88 SV**
89 Perl_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
95 HE*
96 Perl_avhv_iternext(void *pPerl, AV *ar)
97 {
98     return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
99 }
100
101 #undef  Perl_avhv_iterval
102 SV*
103 Perl_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
109 HV*
110 Perl_avhv_keys(void *pPerl, AV *ar)
111 {
112     return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
113 }
114
115 #undef  Perl_av_clear
116 void
117 Perl_av_clear(void *pPerl, AV* ar)
118 {
119     ((CPerlObj*)pPerl)->Perl_av_clear(ar);
120 }
121
122 #undef  Perl_av_extend
123 void
124 Perl_av_extend(void *pPerl, AV* ar, I32 key)
125 {
126     ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
127 }
128
129 #undef  Perl_av_fake
130 AV*
131 Perl_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
137 SV**
138 Perl_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
144 void
145 Perl_av_fill(void *pPerl, AV* ar, I32 fill)
146 {
147     ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
148 }
149
150 #undef  Perl_av_len
151 I32
152 Perl_av_len(void *pPerl, AV* ar)
153 {
154     return ((CPerlObj*)pPerl)->Perl_av_len(ar);
155 }
156
157 #undef  Perl_av_make
158 AV*
159 Perl_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
165 SV*
166 Perl_av_pop(void *pPerl, AV* ar)
167 {
168     return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
169 }
170
171 #undef  Perl_av_push
172 void
173 Perl_av_push(void *pPerl, AV* ar, SV* val)
174 {
175     ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
176 }
177
178 #undef  Perl_av_reify
179 void
180 Perl_av_reify(void *pPerl, AV* ar)
181 {
182     ((CPerlObj*)pPerl)->Perl_av_reify(ar);
183 }
184
185 #undef  Perl_av_shift
186 SV*
187 Perl_av_shift(void *pPerl, AV* ar)
188 {
189     return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
190 }
191
192 #undef  Perl_av_store
193 SV**
194 Perl_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
200 void
201 Perl_av_undef(void *pPerl, AV* ar)
202 {
203     ((CPerlObj*)pPerl)->Perl_av_undef(ar);
204 }
205
206 #undef  Perl_av_unshift
207 void
208 Perl_av_unshift(void *pPerl, AV* ar, I32 num)
209 {
210     ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
211 }
212
213 #undef  Perl_bind_match
214 OP*
215 Perl_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
221 OP*
222 Perl_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
228 I32
229 Perl_block_gimme(void *pPerl)
230 {
231     return ((CPerlObj*)pPerl)->Perl_block_gimme();
232 }
233
234 #undef  Perl_block_start
235 int
236 Perl_block_start(void *pPerl, int full)
237 {
238     return ((CPerlObj*)pPerl)->Perl_block_start(full);
239 }
240
241 #undef  Perl_boot_core_UNIVERSAL
242 void
243 Perl_boot_core_UNIVERSAL(void *pPerl)
244 {
245     ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL();
246 }
247
248 #undef  Perl_call_list
249 void
250 Perl_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
256 I32
257 Perl_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
263 U32
264 Perl_cast_ulong(void *pPerl, NV f)
265 {
266     return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
267 }
268
269 #undef  Perl_cast_i32
270 I32
271 Perl_cast_i32(void *pPerl, NV f)
272 {
273     return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
274 }
275
276 #undef  Perl_cast_iv
277 IV
278 Perl_cast_iv(void *pPerl, NV f)
279 {
280     return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
281 }
282
283 #undef  Perl_cast_uv
284 UV
285 Perl_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
292 I32
293 Perl_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
301 MAGIC*
302 Perl_condpair_magic(void *pPerl, SV *sv)
303 {
304     return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
305 }
306 #endif
307
308 #undef  Perl_convert
309 OP*
310 Perl_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
318 void
319 Perl_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
325 CV*
326 Perl_cv_clone(void *pPerl, CV* proto)
327 {
328     return ((CPerlObj*)pPerl)->Perl_cv_clone(proto);
329 }
330
331 #undef  Perl_cv_const_sv
332 SV*
333 Perl_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
339 SV*
340 Perl_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
346 void
347 Perl_cv_undef(void *pPerl, CV* cv)
348 {
349     ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
350 }
351
352 #undef  Perl_cx_dump
353 void
354 Perl_cx_dump(void *pPerl, PERL_CONTEXT* cs)
355 {
356     ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
357 }
358
359 #undef  Perl_filter_add
360 SV*
361 Perl_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
367 void
368 Perl_filter_del(void *pPerl, filter_t funcp)
369 {
370     ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
371 }
372
373 #undef  Perl_filter_read
374 I32
375 Perl_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
381 char**
382 Perl_get_op_descs(void *pPerl)
383 {
384     return ((CPerlObj*)pPerl)->Perl_get_op_descs();
385 }
386
387 #undef  Perl_get_op_names
388 char**
389 Perl_get_op_names(void *pPerl)
390 {
391     return ((CPerlObj*)pPerl)->Perl_get_op_names();
392 }
393
394 #undef  Perl_get_no_modify
395 char*
396 Perl_get_no_modify(void *pPerl)
397 {
398     return ((CPerlObj*)pPerl)->Perl_get_no_modify();
399 }
400
401 #undef  Perl_get_opargs
402 U32*
403 Perl_get_opargs(void *pPerl)
404 {
405     return ((CPerlObj*)pPerl)->Perl_get_opargs();
406 }
407
408 #undef  Perl_get_ppaddr
409 PPADDR_t*
410 Perl_get_ppaddr(void *pPerl)
411 {
412     return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
413 }
414
415 #undef  Perl_cxinc
416 I32
417 Perl_cxinc(void *pPerl)
418 {
419     return ((CPerlObj*)pPerl)->Perl_cxinc();
420 }
421
422 #undef  Perl_deb_growlevel
423 void
424 Perl_deb_growlevel(void *pPerl)
425 {
426     ((CPerlObj*)pPerl)->Perl_deb_growlevel();
427 }
428
429 #undef  Perl_debprofdump
430 void
431 Perl_debprofdump(void *pPerl)
432 {
433     ((CPerlObj*)pPerl)->Perl_debprofdump();
434 }
435
436 #undef  Perl_debop
437 I32
438 Perl_debop(void *pPerl, OP* o)
439 {
440     return ((CPerlObj*)pPerl)->Perl_debop(o);
441 }
442
443 #undef  Perl_debstack
444 I32
445 Perl_debstack(void *pPerl)
446 {
447     return ((CPerlObj*)pPerl)->Perl_debstack();
448 }
449
450 #undef  Perl_debstackptrs
451 I32
452 Perl_debstackptrs(void *pPerl)
453 {
454     return ((CPerlObj*)pPerl)->Perl_debstackptrs();
455 }
456
457 #undef  Perl_delimcpy
458 char*
459 Perl_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
465 void
466 Perl_deprecate(void *pPerl, char* s)
467 {
468     ((CPerlObj*)pPerl)->Perl_deprecate(s);
469 }
470
471 #undef  Perl_die_where
472 OP*
473 Perl_die_where(void *pPerl, char* message, STRLEN msglen)
474 {
475     return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen);
476 }
477
478 #undef  Perl_dounwind
479 void
480 Perl_dounwind(void *pPerl, I32 cxix)
481 {
482     ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
483 }
484
485 #undef  Perl_do_aexec
486 bool
487 Perl_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
493 int
494 Perl_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
500 void
501 Perl_do_chop(void *pPerl, SV* asv, SV* sv)
502 {
503     ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv);
504 }
505
506 #undef  Perl_do_close
507 bool
508 Perl_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
514 bool
515 Perl_do_eof(void *pPerl, GV* gv)
516 {
517     return ((CPerlObj*)pPerl)->Perl_do_eof(gv);
518 }
519
520 #undef  Perl_do_exec
521 bool
522 Perl_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
529 bool
530 Perl_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
537 void
538 Perl_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
545 I32
546 Perl_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
552 I32
553 Perl_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
559 I32
560 Perl_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
566 I32
567 Perl_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
573 I32
574 Perl_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
580 I32
581 Perl_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
588 void
589 Perl_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
595 OP*
596 Perl_do_kv(void *pPerl)
597 {
598     return ((CPerlObj*)pPerl)->Perl_do_kv();
599 }
600
601 #undef  Perl_do_open
602 bool
603 Perl_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
609 void
610 Perl_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
616 bool
617 Perl_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
623 OP*
624 Perl_do_readline(void *pPerl)
625 {
626     return ((CPerlObj*)pPerl)->Perl_do_readline();
627 }
628
629 #undef  Perl_do_chomp
630 I32
631 Perl_do_chomp(void *pPerl, SV* sv)
632 {
633     return ((CPerlObj*)pPerl)->Perl_do_chomp(sv);
634 }
635
636 #undef  Perl_do_seek
637 bool
638 Perl_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
644 void
645 Perl_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
651 Off_t
652 Perl_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
658 Off_t
659 Perl_do_tell(void *pPerl, GV* gv)
660 {
661     return ((CPerlObj*)pPerl)->Perl_do_tell(gv);
662 }
663
664 #undef  Perl_do_trans
665 I32
666 Perl_do_trans(void *pPerl, SV* sv)
667 {
668     return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
669 }
670
671 #undef  Perl_do_vecset
672 void
673 Perl_do_vecset(void *pPerl, SV* sv)
674 {
675     ((CPerlObj*)pPerl)->Perl_do_vecset(sv);
676 }
677
678 #undef  Perl_do_vop
679 void
680 Perl_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
686 OP*
687 Perl_dofile(void *pPerl, OP* term)
688 {
689     return ((CPerlObj*)pPerl)->Perl_dofile(term);
690 }
691
692 #undef  Perl_dowantarray
693 I32
694 Perl_dowantarray(void *pPerl)
695 {
696     return ((CPerlObj*)pPerl)->Perl_dowantarray();
697 }
698
699 #undef  Perl_dump_all
700 void
701 Perl_dump_all(void *pPerl)
702 {
703     ((CPerlObj*)pPerl)->Perl_dump_all();
704 }
705
706 #undef  Perl_dump_eval
707 void
708 Perl_dump_eval(void *pPerl)
709 {
710     ((CPerlObj*)pPerl)->Perl_dump_eval();
711 }
712 #if defined(DUMP_FDS)
713
714 #undef  Perl_dump_fds
715 void
716 Perl_dump_fds(void *pPerl, char* s)
717 {
718     ((CPerlObj*)pPerl)->Perl_dump_fds(s);
719 }
720 #endif
721
722 #undef  Perl_dump_form
723 void
724 Perl_dump_form(void *pPerl, GV* gv)
725 {
726     ((CPerlObj*)pPerl)->Perl_dump_form(gv);
727 }
728
729 #undef  Perl_gv_dump
730 void
731 Perl_gv_dump(void *pPerl, GV* gv)
732 {
733     ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
734 }
735
736 #undef  Perl_op_dump
737 void
738 Perl_op_dump(void *pPerl, OP* arg)
739 {
740     ((CPerlObj*)pPerl)->Perl_op_dump(arg);
741 }
742
743 #undef  Perl_pmop_dump
744 void
745 Perl_pmop_dump(void *pPerl, PMOP* pm)
746 {
747     ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
748 }
749
750 #undef  Perl_dump_packsubs
751 void
752 Perl_dump_packsubs(void *pPerl, HV* stash)
753 {
754     ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
755 }
756
757 #undef  Perl_dump_sub
758 void
759 Perl_dump_sub(void *pPerl, GV* gv)
760 {
761     ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
762 }
763
764 #undef  Perl_fbm_compile
765 void
766 Perl_fbm_compile(void *pPerl, SV* sv, U32 flags)
767 {
768     ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
769 }
770
771 #undef  Perl_fbm_instr
772 char*
773 Perl_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
779 char*
780 Perl_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
787 PADOFFSET
788 Perl_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
795 OP*
796 Perl_force_list(void *pPerl, OP* arg)
797 {
798     return ((CPerlObj*)pPerl)->Perl_force_list(arg);
799 }
800
801 #undef  Perl_fold_constants
802 OP*
803 Perl_fold_constants(void *pPerl, OP* arg)
804 {
805     return ((CPerlObj*)pPerl)->Perl_fold_constants(arg);
806 }
807
808 #undef  Perl_free_tmps
809 void
810 Perl_free_tmps(void *pPerl)
811 {
812     ((CPerlObj*)pPerl)->Perl_free_tmps();
813 }
814
815 #undef  Perl_gen_constant_list
816 OP*
817 Perl_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
824 char*
825 Perl_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
832 void
833 Perl_gp_free(void *pPerl, GV* gv)
834 {
835     ((CPerlObj*)pPerl)->Perl_gp_free(gv);
836 }
837
838 #undef  Perl_gp_ref
839 GP*
840 Perl_gp_ref(void *pPerl, GP* gp)
841 {
842     return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
843 }
844
845 #undef  Perl_gv_AVadd
846 GV*
847 Perl_gv_AVadd(void *pPerl, GV* gv)
848 {
849     return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
850 }
851
852 #undef  Perl_gv_HVadd
853 GV*
854 Perl_gv_HVadd(void *pPerl, GV* gv)
855 {
856     return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
857 }
858
859 #undef  Perl_gv_IOadd
860 GV*
861 Perl_gv_IOadd(void *pPerl, GV* gv)
862 {
863     return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
864 }
865
866 #undef  Perl_gv_autoload4
867 GV*
868 Perl_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
874 void
875 Perl_gv_check(void *pPerl, HV* stash)
876 {
877     ((CPerlObj*)pPerl)->Perl_gv_check(stash);
878 }
879
880 #undef  Perl_gv_efullname
881 void
882 Perl_gv_efullname(void *pPerl, SV* sv, GV* gv)
883 {
884     ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
885 }
886
887 #undef  Perl_gv_efullname3
888 void
889 Perl_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
895 GV*
896 Perl_gv_fetchfile(void *pPerl, const char* name)
897 {
898     return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
899 }
900
901 #undef  Perl_gv_fetchmeth
902 GV*
903 Perl_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
909 GV*
910 Perl_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
916 GV*
917 Perl_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
923 GV*
924 Perl_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
930 void
931 Perl_gv_fullname(void *pPerl, SV* sv, GV* gv)
932 {
933     ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
934 }
935
936 #undef  Perl_gv_fullname3
937 void
938 Perl_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
944 void
945 Perl_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
951 HV*
952 Perl_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
958 HV*
959 Perl_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
965 HV*
966 Perl_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
972 void
973 Perl_hv_clear(void *pPerl, HV* tb)
974 {
975     ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
976 }
977
978 #undef  Perl_hv_delayfree_ent
979 void
980 Perl_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
986 SV*
987 Perl_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
993 SV*
994 Perl_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
1000 bool
1001 Perl_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
1007 bool
1008 Perl_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
1014 SV**
1015 Perl_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
1021 HE*
1022 Perl_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
1028 void
1029 Perl_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
1035 I32
1036 Perl_hv_iterinit(void *pPerl, HV* tb)
1037 {
1038     return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
1039 }
1040
1041 #undef  Perl_hv_iterkey
1042 char*
1043 Perl_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
1049 SV*
1050 Perl_hv_iterkeysv(void *pPerl, HE* entry)
1051 {
1052     return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
1053 }
1054
1055 #undef  Perl_hv_iternext
1056 HE*
1057 Perl_hv_iternext(void *pPerl, HV* tb)
1058 {
1059     return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
1060 }
1061
1062 #undef  Perl_hv_iternextsv
1063 SV*
1064 Perl_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
1070 SV*
1071 Perl_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
1077 void
1078 Perl_hv_ksplit(void *pPerl, HV* hv, IV newmax)
1079 {
1080     ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1081 }
1082
1083 #undef  Perl_hv_magic
1084 void
1085 Perl_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
1091 SV**
1092 Perl_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
1098 HE*
1099 Perl_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
1105 void
1106 Perl_hv_undef(void *pPerl, HV* tb)
1107 {
1108     ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1109 }
1110
1111 #undef  Perl_ibcmp
1112 I32
1113 Perl_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
1119 I32
1120 Perl_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
1126 I32
1127 Perl_ingroup(void *pPerl, I32 testgid, I32 effective)
1128 {
1129     return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
1130 }
1131
1132 #undef  Perl_init_stacks
1133 void
1134 Perl_init_stacks(void *pPerl)
1135 {
1136     ((CPerlObj*)pPerl)->Perl_init_stacks();
1137 }
1138
1139 #undef  Perl_intro_my
1140 U32
1141 Perl_intro_my(void *pPerl)
1142 {
1143     return ((CPerlObj*)pPerl)->Perl_intro_my();
1144 }
1145
1146 #undef  Perl_instr
1147 char*
1148 Perl_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
1154 bool
1155 Perl_io_close(void *pPerl, IO* io)
1156 {
1157     return ((CPerlObj*)pPerl)->Perl_io_close(io);
1158 }
1159
1160 #undef  Perl_invert
1161 OP*
1162 Perl_invert(void *pPerl, OP* cmd)
1163 {
1164     return ((CPerlObj*)pPerl)->Perl_invert(cmd);
1165 }
1166
1167 #undef  Perl_is_uni_alnum
1168 bool
1169 Perl_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
1175 bool
1176 Perl_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
1182 bool
1183 Perl_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
1189 bool
1190 Perl_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
1196 bool
1197 Perl_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
1203 bool
1204 Perl_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
1210 bool
1211 Perl_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
1217 bool
1218 Perl_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
1224 bool
1225 Perl_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
1231 bool
1232 Perl_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
1238 bool
1239 Perl_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
1245 bool
1246 Perl_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
1252 bool
1253 Perl_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
1259 bool
1260 Perl_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
1266 U32
1267 Perl_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
1273 U32
1274 Perl_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
1280 U32
1281 Perl_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
1287 bool
1288 Perl_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
1294 bool
1295 Perl_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
1301 bool
1302 Perl_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
1308 bool
1309 Perl_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
1315 bool
1316 Perl_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
1322 bool
1323 Perl_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
1329 bool
1330 Perl_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
1336 bool
1337 Perl_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
1343 bool
1344 Perl_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
1350 bool
1351 Perl_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
1357 bool
1358 Perl_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
1364 bool
1365 Perl_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
1371 bool
1372 Perl_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
1378 bool
1379 Perl_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
1385 U32
1386 Perl_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
1392 U32
1393 Perl_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
1399 U32
1400 Perl_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
1406 bool
1407 Perl_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
1413 bool
1414 Perl_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
1420 bool
1421 Perl_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
1427 bool
1428 Perl_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
1434 bool
1435 Perl_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
1441 bool
1442 Perl_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
1448 bool
1449 Perl_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
1455 bool
1456 Perl_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
1462 bool
1463 Perl_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
1469 bool
1470 Perl_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
1476 bool
1477 Perl_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
1483 bool
1484 Perl_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
1490 bool
1491 Perl_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
1497 bool
1498 Perl_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
1504 bool
1505 Perl_is_utf8_mark(void *pPerl, U8 *p)
1506 {
1507     return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1508 }
1509
1510 #undef  Perl_jmaybe
1511 OP*
1512 Perl_jmaybe(void *pPerl, OP* arg)
1513 {
1514     return ((CPerlObj*)pPerl)->Perl_jmaybe(arg);
1515 }
1516
1517 #undef  Perl_keyword
1518 I32
1519 Perl_keyword(void *pPerl, char* d, I32 len)
1520 {
1521     return ((CPerlObj*)pPerl)->Perl_keyword(d, len);
1522 }
1523
1524 #undef  Perl_leave_scope
1525 void
1526 Perl_leave_scope(void *pPerl, I32 base)
1527 {
1528     ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1529 }
1530
1531 #undef  Perl_lex_end
1532 void
1533 Perl_lex_end(void *pPerl)
1534 {
1535     ((CPerlObj*)pPerl)->Perl_lex_end();
1536 }
1537
1538 #undef  Perl_lex_start
1539 void
1540 Perl_lex_start(void *pPerl, SV* line)
1541 {
1542     ((CPerlObj*)pPerl)->Perl_lex_start(line);
1543 }
1544
1545 #undef  Perl_linklist
1546 OP*
1547 Perl_linklist(void *pPerl, OP* o)
1548 {
1549     return ((CPerlObj*)pPerl)->Perl_linklist(o);
1550 }
1551
1552 #undef  Perl_list
1553 OP*
1554 Perl_list(void *pPerl, OP* o)
1555 {
1556     return ((CPerlObj*)pPerl)->Perl_list(o);
1557 }
1558
1559 #undef  Perl_listkids
1560 OP*
1561 Perl_listkids(void *pPerl, OP* o)
1562 {
1563     return ((CPerlObj*)pPerl)->Perl_listkids(o);
1564 }
1565
1566 #undef  Perl_localize
1567 OP*
1568 Perl_localize(void *pPerl, OP* arg, I32 lexical)
1569 {
1570     return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical);
1571 }
1572
1573 #undef  Perl_looks_like_number
1574 I32
1575 Perl_looks_like_number(void *pPerl, SV* sv)
1576 {
1577     return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1578 }
1579
1580 #undef  Perl_magic_clearenv
1581 int
1582 Perl_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
1588 int
1589 Perl_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
1595 int
1596 Perl_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
1602 int
1603 Perl_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
1609 int
1610 Perl_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
1616 int
1617 Perl_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
1623 int
1624 Perl_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
1630 int
1631 Perl_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
1637 int
1638 Perl_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
1644 int
1645 Perl_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
1651 int
1652 Perl_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
1658 int
1659 Perl_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
1665 int
1666 Perl_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
1672 int
1673 Perl_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
1679 int
1680 Perl_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
1686 int
1687 Perl_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
1693 int
1694 Perl_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
1700 int
1701 Perl_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
1707 U32
1708 Perl_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
1715 int
1716 Perl_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
1723 int
1724 Perl_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
1730 U32
1731 Perl_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
1737 int
1738 Perl_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
1744 int
1745 Perl_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
1751 int
1752 Perl_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
1758 int
1759 Perl_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
1765 int
1766 Perl_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
1772 int
1773 Perl_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
1780 int
1781 Perl_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
1788 int
1789 Perl_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
1795 int
1796 Perl_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
1802 int
1803 Perl_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
1809 int
1810 Perl_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
1816 int
1817 Perl_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
1823 int
1824 Perl_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
1830 int
1831 Perl_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
1837 int
1838 Perl_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
1844 int
1845 Perl_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
1851 int
1852 Perl_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
1858 int
1859 Perl_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
1865 int
1866 Perl_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
1872 int
1873 Perl_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
1879 int
1880 Perl_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
1886 int
1887 Perl_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
1893 U32
1894 Perl_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
1900 int
1901 Perl_magic_wipepack(void *pPerl, SV* sv, MAGIC* mg)
1902 {
1903     return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg);
1904 }
1905
1906 #undef  Perl_magicname
1907 void
1908 Perl_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
1915 MEM_SIZE
1916 Perl_malloced_size(void *pPerl, void *p)
1917 {
1918     return ((CPerlObj*)pPerl)->Perl_malloced_size(p);
1919 }
1920 #endif
1921
1922 #undef  Perl_markstack_grow
1923 void
1924 Perl_markstack_grow(void *pPerl)
1925 {
1926     ((CPerlObj*)pPerl)->Perl_markstack_grow();
1927 }
1928 #if defined(USE_LOCALE_COLLATE)
1929
1930 #undef  Perl_mem_collxfrm
1931 char*
1932 Perl_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
1939 SV*
1940 Perl_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
1946 int
1947 Perl_mg_clear(void *pPerl, SV* sv)
1948 {
1949     return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
1950 }
1951
1952 #undef  Perl_mg_copy
1953 int
1954 Perl_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
1960 MAGIC*
1961 Perl_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
1967 int
1968 Perl_mg_free(void *pPerl, SV* sv)
1969 {
1970     return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
1971 }
1972
1973 #undef  Perl_mg_get
1974 int
1975 Perl_mg_get(void *pPerl, SV* sv)
1976 {
1977     return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
1978 }
1979
1980 #undef  Perl_mg_length
1981 U32
1982 Perl_mg_length(void *pPerl, SV* sv)
1983 {
1984     return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
1985 }
1986
1987 #undef  Perl_mg_magical
1988 void
1989 Perl_mg_magical(void *pPerl, SV* sv)
1990 {
1991     ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
1992 }
1993
1994 #undef  Perl_mg_set
1995 int
1996 Perl_mg_set(void *pPerl, SV* sv)
1997 {
1998     return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
1999 }
2000
2001 #undef  Perl_mg_size
2002 I32
2003 Perl_mg_size(void *pPerl, SV* sv)
2004 {
2005     return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
2006 }
2007
2008 #undef  Perl_mod
2009 OP*
2010 Perl_mod(void *pPerl, OP* o, I32 type)
2011 {
2012     return ((CPerlObj*)pPerl)->Perl_mod(o, type);
2013 }
2014
2015 #undef  Perl_moreswitches
2016 char*
2017 Perl_moreswitches(void *pPerl, char* s)
2018 {
2019     return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
2020 }
2021
2022 #undef  Perl_my
2023 OP*
2024 Perl_my(void *pPerl, OP* o)
2025 {
2026     return ((CPerlObj*)pPerl)->Perl_my(o);
2027 }
2028
2029 #undef  Perl_my_atof
2030 NV
2031 Perl_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
2038 char*
2039 Perl_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
2047 char*
2048 Perl_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
2055 void
2056 Perl_my_exit(void *pPerl, U32 status)
2057 {
2058     ((CPerlObj*)pPerl)->Perl_my_exit(status);
2059 }
2060
2061 #undef  Perl_my_failure_exit
2062 void
2063 Perl_my_failure_exit(void *pPerl)
2064 {
2065     ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2066 }
2067
2068 #undef  Perl_my_fflush_all
2069 I32
2070 Perl_my_fflush_all(void *pPerl)
2071 {
2072     return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2073 }
2074
2075 #undef  Perl_my_lstat
2076 I32
2077 Perl_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
2084 I32
2085 Perl_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
2093 void*
2094 Perl_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
2102 I32
2103 Perl_my_pclose(void *pPerl, PerlIO* ptr)
2104 {
2105     return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2106 }
2107
2108 #undef  Perl_my_popen
2109 PerlIO*
2110 Perl_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
2117 void
2118 Perl_my_setenv(void *pPerl, char* nam, char* val)
2119 {
2120     ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2121 }
2122
2123 #undef  Perl_my_stat
2124 I32
2125 Perl_my_stat(void *pPerl)
2126 {
2127     return ((CPerlObj*)pPerl)->Perl_my_stat();
2128 }
2129 #if defined(MYSWAP)
2130
2131 #undef  Perl_my_swap
2132 short
2133 Perl_my_swap(void *pPerl, short s)
2134 {
2135     return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2136 }
2137
2138 #undef  Perl_my_htonl
2139 long
2140 Perl_my_htonl(void *pPerl, long l)
2141 {
2142     return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2143 }
2144
2145 #undef  Perl_my_ntohl
2146 long
2147 Perl_my_ntohl(void *pPerl, long l)
2148 {
2149     return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2150 }
2151 #endif
2152
2153 #undef  Perl_my_unexec
2154 void
2155 Perl_my_unexec(void *pPerl)
2156 {
2157     ((CPerlObj*)pPerl)->Perl_my_unexec();
2158 }
2159
2160 #undef  Perl_newANONLIST
2161 OP*
2162 Perl_newANONLIST(void *pPerl, OP* o)
2163 {
2164     return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2165 }
2166
2167 #undef  Perl_newANONHASH
2168 OP*
2169 Perl_newANONHASH(void *pPerl, OP* o)
2170 {
2171     return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2172 }
2173
2174 #undef  Perl_newANONSUB
2175 OP*
2176 Perl_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
2182 OP*
2183 Perl_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
2189 OP*
2190 Perl_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
2196 void
2197 Perl_newCONSTSUB(void *pPerl, HV* stash, char* name, SV* sv)
2198 {
2199     ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2200 }
2201
2202 #undef  Perl_newFORM
2203 void
2204 Perl_newFORM(void *pPerl, I32 floor, OP* o, OP* block)
2205 {
2206     ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2207 }
2208
2209 #undef  Perl_newFOROP
2210 OP*
2211 Perl_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
2217 OP*
2218 Perl_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
2224 OP*
2225 Perl_newLOOPEX(void *pPerl, I32 type, OP* label)
2226 {
2227     return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2228 }
2229
2230 #undef  Perl_newLOOPOP
2231 OP*
2232 Perl_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
2238 OP*
2239 Perl_newNULLLIST(void *pPerl)
2240 {
2241     return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2242 }
2243
2244 #undef  Perl_newOP
2245 OP*
2246 Perl_newOP(void *pPerl, I32 optype, I32 flags)
2247 {
2248     return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2249 }
2250
2251 #undef  Perl_newPROG
2252 void
2253 Perl_newPROG(void *pPerl, OP* o)
2254 {
2255     ((CPerlObj*)pPerl)->Perl_newPROG(o);
2256 }
2257
2258 #undef  Perl_newRANGE
2259 OP*
2260 Perl_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
2266 OP*
2267 Perl_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
2273 OP*
2274 Perl_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
2280 CV*
2281 Perl_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
2287 CV*
2288 Perl_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
2294 AV*
2295 Perl_newAV(void *pPerl)
2296 {
2297     return ((CPerlObj*)pPerl)->Perl_newAV();
2298 }
2299
2300 #undef  Perl_newAVREF
2301 OP*
2302 Perl_newAVREF(void *pPerl, OP* o)
2303 {
2304     return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2305 }
2306
2307 #undef  Perl_newBINOP
2308 OP*
2309 Perl_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
2315 OP*
2316 Perl_newCVREF(void *pPerl, I32 flags, OP* o)
2317 {
2318     return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2319 }
2320
2321 #undef  Perl_newGVOP
2322 OP*
2323 Perl_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
2329 GV*
2330 Perl_newGVgen(void *pPerl, char* pack)
2331 {
2332     return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2333 }
2334
2335 #undef  Perl_newGVREF
2336 OP*
2337 Perl_newGVREF(void *pPerl, I32 type, OP* o)
2338 {
2339     return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2340 }
2341
2342 #undef  Perl_newHVREF
2343 OP*
2344 Perl_newHVREF(void *pPerl, OP* o)
2345 {
2346     return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2347 }
2348
2349 #undef  Perl_newHV
2350 HV*
2351 Perl_newHV(void *pPerl)
2352 {
2353     return ((CPerlObj*)pPerl)->Perl_newHV();
2354 }
2355
2356 #undef  Perl_newHVhv
2357 HV*
2358 Perl_newHVhv(void *pPerl, HV* hv)
2359 {
2360     return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2361 }
2362
2363 #undef  Perl_newIO
2364 IO*
2365 Perl_newIO(void *pPerl)
2366 {
2367     return ((CPerlObj*)pPerl)->Perl_newIO();
2368 }
2369
2370 #undef  Perl_newLISTOP
2371 OP*
2372 Perl_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
2378 OP*
2379 Perl_newPMOP(void *pPerl, I32 type, I32 flags)
2380 {
2381     return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2382 }
2383
2384 #undef  Perl_newPVOP
2385 OP*
2386 Perl_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
2392 SV*
2393 Perl_newRV(void *pPerl, SV* pref)
2394 {
2395     return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2396 }
2397
2398 #undef  Perl_newRV_noinc
2399 SV*
2400 Perl_newRV_noinc(void *pPerl, SV *sv)
2401 {
2402     return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2403 }
2404
2405 #undef  Perl_newSV
2406 SV*
2407 Perl_newSV(void *pPerl, STRLEN len)
2408 {
2409     return ((CPerlObj*)pPerl)->Perl_newSV(len);
2410 }
2411
2412 #undef  Perl_newSVREF
2413 OP*
2414 Perl_newSVREF(void *pPerl, OP* o)
2415 {
2416     return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2417 }
2418
2419 #undef  Perl_newSVOP
2420 OP*
2421 Perl_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
2427 SV*
2428 Perl_newSViv(void *pPerl, IV i)
2429 {
2430     return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2431 }
2432
2433 #undef  Perl_newSVnv
2434 SV*
2435 Perl_newSVnv(void *pPerl, NV n)
2436 {
2437     return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2438 }
2439
2440 #undef  Perl_newSVpv
2441 SV*
2442 Perl_newSVpv(void *pPerl, const char* s, STRLEN len)
2443 {
2444     return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2445 }
2446
2447 #undef  Perl_newSVpvn
2448 SV*
2449 Perl_newSVpvn(void *pPerl, const char* s, STRLEN len)
2450 {
2451     return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2452 }
2453
2454 #undef  Perl_newSVrv
2455 SV*
2456 Perl_newSVrv(void *pPerl, SV* rv, const char* classname)
2457 {
2458     return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2459 }
2460
2461 #undef  Perl_newSVsv
2462 SV*
2463 Perl_newSVsv(void *pPerl, SV* old)
2464 {
2465     return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2466 }
2467
2468 #undef  Perl_newUNOP
2469 OP*
2470 Perl_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
2476 OP*
2477 Perl_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
2484 struct perl_thread*
2485 Perl_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
2492 PERL_SI*
2493 Perl_new_stackinfo(void *pPerl, I32 stitems, I32 cxitems)
2494 {
2495     return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2496 }
2497
2498 #undef  Perl_nextargv
2499 PerlIO*
2500 Perl_nextargv(void *pPerl, GV* gv)
2501 {
2502     return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2503 }
2504
2505 #undef  Perl_ninstr
2506 char*
2507 Perl_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
2513 OP*
2514 Perl_oopsCV(void *pPerl, OP* o)
2515 {
2516     return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2517 }
2518
2519 #undef  Perl_op_free
2520 void
2521 Perl_op_free(void *pPerl, OP* arg)
2522 {
2523     ((CPerlObj*)pPerl)->Perl_op_free(arg);
2524 }
2525
2526 #undef  Perl_package
2527 void
2528 Perl_package(void *pPerl, OP* o)
2529 {
2530     ((CPerlObj*)pPerl)->Perl_package(o);
2531 }
2532
2533 #undef  Perl_pad_alloc
2534 PADOFFSET
2535 Perl_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
2541 PADOFFSET
2542 Perl_pad_allocmy(void *pPerl, char* name)
2543 {
2544     return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2545 }
2546
2547 #undef  Perl_pad_findmy
2548 PADOFFSET
2549 Perl_pad_findmy(void *pPerl, char* name)
2550 {
2551     return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2552 }
2553
2554 #undef  Perl_oopsAV
2555 OP*
2556 Perl_oopsAV(void *pPerl, OP* o)
2557 {
2558     return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2559 }
2560
2561 #undef  Perl_oopsHV
2562 OP*
2563 Perl_oopsHV(void *pPerl, OP* o)
2564 {
2565     return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2566 }
2567
2568 #undef  Perl_pad_leavemy
2569 void
2570 Perl_pad_leavemy(void *pPerl, I32 fill)
2571 {
2572     ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2573 }
2574
2575 #undef  Perl_pad_sv
2576 SV*
2577 Perl_pad_sv(void *pPerl, PADOFFSET po)
2578 {
2579     return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2580 }
2581
2582 #undef  Perl_pad_free
2583 void
2584 Perl_pad_free(void *pPerl, PADOFFSET po)
2585 {
2586     ((CPerlObj*)pPerl)->Perl_pad_free(po);
2587 }
2588
2589 #undef  Perl_pad_reset
2590 void
2591 Perl_pad_reset(void *pPerl)
2592 {
2593     ((CPerlObj*)pPerl)->Perl_pad_reset();
2594 }
2595
2596 #undef  Perl_pad_swipe
2597 void
2598 Perl_pad_swipe(void *pPerl, PADOFFSET po)
2599 {
2600     ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2601 }
2602
2603 #undef  Perl_peep
2604 void
2605 Perl_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
2613 PerlInterpreter*
2614 perl_alloc(void *pPerl)
2615 {
2616     return ((CPerlObj*)pPerl)->perl_alloc();
2617 }
2618 #endif
2619
2620 #undef  Perl_call_atexit
2621 void
2622 Perl_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
2628 I32
2629 Perl_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
2635 I32
2636 Perl_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
2642 I32
2643 Perl_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
2649 I32
2650 Perl_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
2656 SV*
2657 Perl_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
2663 I32
2664 Perl_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
2670 SV*
2671 Perl_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
2677 AV*
2678 Perl_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
2684 HV*
2685 Perl_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
2691 CV*
2692 Perl_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
2698 int
2699 Perl_init_i18nl10n(void *pPerl, int printwarn)
2700 {
2701     return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2702 }
2703
2704 #undef  Perl_init_i18nl14n
2705 int
2706 Perl_init_i18nl14n(void *pPerl, int printwarn)
2707 {
2708     return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2709 }
2710
2711 #undef  Perl_new_collate
2712 void
2713 Perl_new_collate(void *pPerl, const char* newcoll)
2714 {
2715     ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2716 }
2717
2718 #undef  Perl_new_ctype
2719 void
2720 Perl_new_ctype(void *pPerl, const char* newctype)
2721 {
2722     ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2723 }
2724
2725 #undef  Perl_new_numeric
2726 void
2727 Perl_new_numeric(void *pPerl, const char* newcoll)
2728 {
2729     ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2730 }
2731
2732 #undef  Perl_set_numeric_local
2733 void
2734 Perl_set_numeric_local(void *pPerl)
2735 {
2736     ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2737 }
2738
2739 #undef  Perl_set_numeric_radix
2740 void
2741 Perl_set_numeric_radix(void *pPerl)
2742 {
2743     ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2744 }
2745
2746 #undef  Perl_set_numeric_standard
2747 void
2748 Perl_set_numeric_standard(void *pPerl)
2749 {
2750     ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2751 }
2752
2753 #undef  Perl_require_pv
2754 void
2755 Perl_require_pv(void *pPerl, const char* pv)
2756 {
2757     ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2758 }
2759
2760 #undef  Perl_pidgone
2761 void
2762 Perl_pidgone(void *pPerl, int pid, int status)
2763 {
2764     ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
2765 }
2766
2767 #undef  Perl_pmflag
2768 void
2769 Perl_pmflag(void *pPerl, U16* pmfl, int ch)
2770 {
2771     ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2772 }
2773
2774 #undef  Perl_pmruntime
2775 OP*
2776 Perl_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
2782 OP*
2783 Perl_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
2789 OP*
2790 Perl_pop_return(void *pPerl)
2791 {
2792     return ((CPerlObj*)pPerl)->Perl_pop_return();
2793 }
2794
2795 #undef  Perl_pop_scope
2796 void
2797 Perl_pop_scope(void *pPerl)
2798 {
2799     ((CPerlObj*)pPerl)->Perl_pop_scope();
2800 }
2801
2802 #undef  Perl_prepend_elem
2803 OP*
2804 Perl_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
2810 void
2811 Perl_push_return(void *pPerl, OP* o)
2812 {
2813     ((CPerlObj*)pPerl)->Perl_push_return(o);
2814 }
2815
2816 #undef  Perl_push_scope
2817 void
2818 Perl_push_scope(void *pPerl)
2819 {
2820     ((CPerlObj*)pPerl)->Perl_push_scope();
2821 }
2822
2823 #undef  Perl_ref
2824 OP*
2825 Perl_ref(void *pPerl, OP* o, I32 type)
2826 {
2827     return ((CPerlObj*)pPerl)->Perl_ref(o, type);
2828 }
2829
2830 #undef  Perl_refkids
2831 OP*
2832 Perl_refkids(void *pPerl, OP* o, I32 type)
2833 {
2834     return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
2835 }
2836
2837 #undef  Perl_regdump
2838 void
2839 Perl_regdump(void *pPerl, regexp* r)
2840 {
2841     ((CPerlObj*)pPerl)->Perl_regdump(r);
2842 }
2843
2844 #undef  Perl_pregexec
2845 I32
2846 Perl_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
2852 void
2853 Perl_pregfree(void *pPerl, struct regexp* r)
2854 {
2855     ((CPerlObj*)pPerl)->Perl_pregfree(r);
2856 }
2857
2858 #undef  Perl_pregcomp
2859 regexp*
2860 Perl_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
2866 char*
2867 Perl_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
2873 SV*
2874 Perl_re_intuit_string(void *pPerl, regexp* prog)
2875 {
2876     return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2877 }
2878
2879 #undef  Perl_regexec_flags
2880 I32
2881 Perl_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
2887 regnode*
2888 Perl_regnext(void *pPerl, regnode* p)
2889 {
2890     return ((CPerlObj*)pPerl)->Perl_regnext(p);
2891 }
2892
2893 #undef  Perl_regprop
2894 void
2895 Perl_regprop(void *pPerl, SV* sv, regnode* o)
2896 {
2897     ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
2898 }
2899
2900 #undef  Perl_repeatcpy
2901 void
2902 Perl_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
2908 char*
2909 Perl_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
2915 Sighandler_t
2916 Perl_rsignal(void *pPerl, int i, Sighandler_t t)
2917 {
2918     return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
2919 }
2920
2921 #undef  Perl_rsignal_restore
2922 int
2923 Perl_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
2929 int
2930 Perl_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
2936 Sighandler_t
2937 Perl_rsignal_state(void *pPerl, int i)
2938 {
2939     return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
2940 }
2941
2942 #undef  Perl_rxres_free
2943 void
2944 Perl_rxres_free(void *pPerl, void** rsp)
2945 {
2946     ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
2947 }
2948
2949 #undef  Perl_rxres_restore
2950 void
2951 Perl_rxres_restore(void *pPerl, void** rsp, REGEXP* prx)
2952 {
2953     ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
2954 }
2955
2956 #undef  Perl_rxres_save
2957 void
2958 Perl_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
2965 I32
2966 Perl_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
2973 char*
2974 Perl_savepv(void *pPerl, const char* sv)
2975 {
2976     return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2977 }
2978
2979 #undef  Perl_savepvn
2980 char*
2981 Perl_savepvn(void *pPerl, const char* sv, I32 len)
2982 {
2983     return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2984 }
2985
2986 #undef  Perl_savestack_grow
2987 void
2988 Perl_savestack_grow(void *pPerl)
2989 {
2990     ((CPerlObj*)pPerl)->Perl_savestack_grow();
2991 }
2992
2993 #undef  Perl_save_aelem
2994 void
2995 Perl_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
3001 I32
3002 Perl_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
3008 void
3009 Perl_save_aptr(void *pPerl, AV** aptr)
3010 {
3011     ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3012 }
3013
3014 #undef  Perl_save_ary
3015 AV*
3016 Perl_save_ary(void *pPerl, GV* gv)
3017 {
3018     return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3019 }
3020
3021 #undef  Perl_save_clearsv
3022 void
3023 Perl_save_clearsv(void *pPerl, SV** svp)
3024 {
3025     ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3026 }
3027
3028 #undef  Perl_save_delete
3029 void
3030 Perl_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
3036 void
3037 Perl_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
3043 void
3044 Perl_save_freesv(void *pPerl, SV* sv)
3045 {
3046     ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3047 }
3048
3049 #undef  Perl_save_freeop
3050 void
3051 Perl_save_freeop(void *pPerl, OP* o)
3052 {
3053     ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3054 }
3055
3056 #undef  Perl_save_freepv
3057 void
3058 Perl_save_freepv(void *pPerl, char* pv)
3059 {
3060     ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3061 }
3062
3063 #undef  Perl_save_generic_svref
3064 void
3065 Perl_save_generic_svref(void *pPerl, SV** sptr)
3066 {
3067     ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3068 }
3069
3070 #undef  Perl_save_gp
3071 void
3072 Perl_save_gp(void *pPerl, GV* gv, I32 empty)
3073 {
3074     ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3075 }
3076
3077 #undef  Perl_save_hash
3078 HV*
3079 Perl_save_hash(void *pPerl, GV* gv)
3080 {
3081     return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3082 }
3083
3084 #undef  Perl_save_helem
3085 void
3086 Perl_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
3092 void
3093 Perl_save_hints(void *pPerl)
3094 {
3095     ((CPerlObj*)pPerl)->Perl_save_hints();
3096 }
3097
3098 #undef  Perl_save_hptr
3099 void
3100 Perl_save_hptr(void *pPerl, HV** hptr)
3101 {
3102     ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3103 }
3104
3105 #undef  Perl_save_I16
3106 void
3107 Perl_save_I16(void *pPerl, I16* intp)
3108 {
3109     ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3110 }
3111
3112 #undef  Perl_save_I32
3113 void
3114 Perl_save_I32(void *pPerl, I32* intp)
3115 {
3116     ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3117 }
3118
3119 #undef  Perl_save_int
3120 void
3121 Perl_save_int(void *pPerl, int* intp)
3122 {
3123     ((CPerlObj*)pPerl)->Perl_save_int(intp);
3124 }
3125
3126 #undef  Perl_save_item
3127 void
3128 Perl_save_item(void *pPerl, SV* item)
3129 {
3130     ((CPerlObj*)pPerl)->Perl_save_item(item);
3131 }
3132
3133 #undef  Perl_save_iv
3134 void
3135 Perl_save_iv(void *pPerl, IV* iv)
3136 {
3137     ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3138 }
3139
3140 #undef  Perl_save_list
3141 void
3142 Perl_save_list(void *pPerl, SV** sarg, I32 maxsarg)
3143 {
3144     ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3145 }
3146
3147 #undef  Perl_save_long
3148 void
3149 Perl_save_long(void *pPerl, long* longp)
3150 {
3151     ((CPerlObj*)pPerl)->Perl_save_long(longp);
3152 }
3153
3154 #undef  Perl_save_nogv
3155 void
3156 Perl_save_nogv(void *pPerl, GV* gv)
3157 {
3158     ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3159 }
3160
3161 #undef  Perl_save_op
3162 void
3163 Perl_save_op(void *pPerl)
3164 {
3165     ((CPerlObj*)pPerl)->Perl_save_op();
3166 }
3167
3168 #undef  Perl_save_scalar
3169 SV*
3170 Perl_save_scalar(void *pPerl, GV* gv)
3171 {
3172     return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3173 }
3174
3175 #undef  Perl_save_pptr
3176 void
3177 Perl_save_pptr(void *pPerl, char** pptr)
3178 {
3179     ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3180 }
3181
3182 #undef  Perl_save_re_context
3183 void
3184 Perl_save_re_context(void *pPerl)
3185 {
3186     ((CPerlObj*)pPerl)->Perl_save_re_context();
3187 }
3188
3189 #undef  Perl_save_sptr
3190 void
3191 Perl_save_sptr(void *pPerl, SV** sptr)
3192 {
3193     ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3194 }
3195
3196 #undef  Perl_save_svref
3197 SV*
3198 Perl_save_svref(void *pPerl, SV** sptr)
3199 {
3200     return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3201 }
3202
3203 #undef  Perl_save_threadsv
3204 SV**
3205 Perl_save_threadsv(void *pPerl, PADOFFSET i)
3206 {
3207     return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3208 }
3209
3210 #undef  Perl_sawparens
3211 OP*
3212 Perl_sawparens(void *pPerl, OP* o)
3213 {
3214     return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3215 }
3216
3217 #undef  Perl_scalar
3218 OP*
3219 Perl_scalar(void *pPerl, OP* o)
3220 {
3221     return ((CPerlObj*)pPerl)->Perl_scalar(o);
3222 }
3223
3224 #undef  Perl_scalarkids
3225 OP*
3226 Perl_scalarkids(void *pPerl, OP* o)
3227 {
3228     return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3229 }
3230
3231 #undef  Perl_scalarseq
3232 OP*
3233 Perl_scalarseq(void *pPerl, OP* o)
3234 {
3235     return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3236 }
3237
3238 #undef  Perl_scalarvoid
3239 OP*
3240 Perl_scalarvoid(void *pPerl, OP* o)
3241 {
3242     return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3243 }
3244
3245 #undef  Perl_scan_bin
3246 UV
3247 Perl_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
3253 UV
3254 Perl_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
3260 char*
3261 Perl_scan_num(void *pPerl, char* s)
3262 {
3263     return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3264 }
3265
3266 #undef  Perl_scan_oct
3267 UV
3268 Perl_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
3274 OP*
3275 Perl_scope(void *pPerl, OP* o)
3276 {
3277     return ((CPerlObj*)pPerl)->Perl_scope(o);
3278 }
3279
3280 #undef  Perl_screaminstr
3281 char*
3282 Perl_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
3289 I32
3290 Perl_setenv_getix(void *pPerl, char* nam)
3291 {
3292     return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3293 }
3294 #endif
3295
3296 #undef  Perl_setdefout
3297 void
3298 Perl_setdefout(void *pPerl, GV* gv)
3299 {
3300     ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3301 }
3302
3303 #undef  Perl_sharepvn
3304 char*
3305 Perl_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
3311 HEK*
3312 Perl_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
3318 Signal_t
3319 Perl_sighandler(void *pPerl, int sig)
3320 {
3321     ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3322 }
3323
3324 #undef  Perl_stack_grow
3325 SV**
3326 Perl_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
3332 I32
3333 Perl_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
3339 void
3340 Perl_sub_crush_depth(void *pPerl, CV* cv)
3341 {
3342     ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3343 }
3344
3345 #undef  Perl_sv_2bool
3346 bool
3347 Perl_sv_2bool(void *pPerl, SV* sv)
3348 {
3349     return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3350 }
3351
3352 #undef  Perl_sv_2cv
3353 CV*
3354 Perl_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
3360 IO*
3361 Perl_sv_2io(void *pPerl, SV* sv)
3362 {
3363     return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3364 }
3365
3366 #undef  Perl_sv_2iv
3367 IV
3368 Perl_sv_2iv(void *pPerl, SV* sv)
3369 {
3370     return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3371 }
3372
3373 #undef  Perl_sv_2mortal
3374 SV*
3375 Perl_sv_2mortal(void *pPerl, SV* sv)
3376 {
3377     return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3378 }
3379
3380 #undef  Perl_sv_2nv
3381 NV
3382 Perl_sv_2nv(void *pPerl, SV* sv)
3383 {
3384     return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3385 }
3386
3387 #undef  Perl_sv_2pv
3388 char*
3389 Perl_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
3395 UV
3396 Perl_sv_2uv(void *pPerl, SV* sv)
3397 {
3398     return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3399 }
3400
3401 #undef  Perl_sv_iv
3402 IV
3403 Perl_sv_iv(void *pPerl, SV* sv)
3404 {
3405     return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3406 }
3407
3408 #undef  Perl_sv_uv
3409 UV
3410 Perl_sv_uv(void *pPerl, SV* sv)
3411 {
3412     return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3413 }
3414
3415 #undef  Perl_sv_nv
3416 NV
3417 Perl_sv_nv(void *pPerl, SV* sv)
3418 {
3419     return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3420 }
3421
3422 #undef  Perl_sv_pvn
3423 char*
3424 Perl_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
3430 I32
3431 Perl_sv_true(void *pPerl, SV *sv)
3432 {
3433     return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3434 }
3435
3436 #undef  Perl_sv_add_arena
3437 void
3438 Perl_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
3444 int
3445 Perl_sv_backoff(void *pPerl, SV* sv)
3446 {
3447     return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3448 }
3449
3450 #undef  Perl_sv_bless
3451 SV*
3452 Perl_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
3458 void
3459 Perl_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
3465 void
3466 Perl_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
3472 void
3473 Perl_sv_catsv(void *pPerl, SV* dsv, SV* ssv)
3474 {
3475     ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3476 }
3477
3478 #undef  Perl_sv_chop
3479 void
3480 Perl_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
3486 void
3487 Perl_sv_clean_all(void *pPerl)
3488 {
3489     ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3490 }
3491
3492 #undef  Perl_sv_clean_objs
3493 void
3494 Perl_sv_clean_objs(void *pPerl)
3495 {
3496     ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3497 }
3498
3499 #undef  Perl_sv_clear
3500 void
3501 Perl_sv_clear(void *pPerl, SV* sv)
3502 {
3503     ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3504 }
3505
3506 #undef  Perl_sv_cmp
3507 I32
3508 Perl_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
3514 I32
3515 Perl_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
3522 char*
3523 Perl_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
3530 OP*
3531 Perl_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
3537 void
3538 Perl_sv_dec(void *pPerl, SV* sv)
3539 {
3540     ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3541 }
3542
3543 #undef  Perl_sv_dump
3544 void
3545 Perl_sv_dump(void *pPerl, SV* sv)
3546 {
3547     ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3548 }
3549
3550 #undef  Perl_sv_derived_from
3551 bool
3552 Perl_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
3558 I32
3559 Perl_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
3565 void
3566 Perl_sv_free(void *pPerl, SV* sv)
3567 {
3568     ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3569 }
3570
3571 #undef  Perl_sv_free_arenas
3572 void
3573 Perl_sv_free_arenas(void *pPerl)
3574 {
3575     ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3576 }
3577
3578 #undef  Perl_sv_gets
3579 char*
3580 Perl_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
3586 char*
3587 Perl_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
3593 void
3594 Perl_sv_inc(void *pPerl, SV* sv)
3595 {
3596     ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3597 }
3598
3599 #undef  Perl_sv_insert
3600 void
3601 Perl_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
3607 int
3608 Perl_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
3614 int
3615 Perl_sv_isobject(void *pPerl, SV* sv)
3616 {
3617     return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
3618 }
3619
3620 #undef  Perl_sv_len
3621 STRLEN
3622 Perl_sv_len(void *pPerl, SV* sv)
3623 {
3624     return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
3625 }
3626
3627 #undef  Perl_sv_len_utf8
3628 STRLEN
3629 Perl_sv_len_utf8(void *pPerl, SV* sv)
3630 {
3631     return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
3632 }
3633
3634 #undef  Perl_sv_magic
3635 void
3636 Perl_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
3642 SV*
3643 Perl_sv_mortalcopy(void *pPerl, SV* oldsv)
3644 {
3645     return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
3646 }
3647
3648 #undef  Perl_sv_newmortal
3649 SV*
3650 Perl_sv_newmortal(void *pPerl)
3651 {
3652     return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
3653 }
3654
3655 #undef  Perl_sv_newref
3656 SV*
3657 Perl_sv_newref(void *pPerl, SV* sv)
3658 {
3659     return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
3660 }
3661
3662 #undef  Perl_sv_peek
3663 char*
3664 Perl_sv_peek(void *pPerl, SV* sv)
3665 {
3666     return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
3667 }
3668
3669 #undef  Perl_sv_pos_u2b
3670 void
3671 Perl_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
3677 void
3678 Perl_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
3684 char*
3685 Perl_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
3691 char*
3692 Perl_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
3698 void
3699 Perl_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
3705 void
3706 Perl_sv_report_used(void *pPerl)
3707 {
3708     ((CPerlObj*)pPerl)->Perl_sv_report_used();
3709 }
3710
3711 #undef  Perl_sv_reset
3712 void
3713 Perl_sv_reset(void *pPerl, char* s, HV* stash)
3714 {
3715     ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
3716 }
3717
3718 #undef  Perl_sv_setiv
3719 void
3720 Perl_sv_setiv(void *pPerl, SV* sv, IV num)
3721 {
3722     ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3723 }
3724
3725 #undef  Perl_sv_setpviv
3726 void
3727 Perl_sv_setpviv(void *pPerl, SV* sv, IV num)
3728 {
3729     ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3730 }
3731
3732 #undef  Perl_sv_setuv
3733 void
3734 Perl_sv_setuv(void *pPerl, SV* sv, UV num)
3735 {
3736     ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3737 }
3738
3739 #undef  Perl_sv_setnv
3740 void
3741 Perl_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
3747 SV*
3748 Perl_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
3754 SV*
3755 Perl_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
3761 SV*
3762 Perl_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
3768 SV*
3769 Perl_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
3775 void
3776 Perl_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
3782 void
3783 Perl_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
3789 void
3790 Perl_sv_setsv(void *pPerl, SV* dsv, SV* ssv)
3791 {
3792     ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3793 }
3794
3795 #undef  Perl_sv_taint
3796 void
3797 Perl_sv_taint(void *pPerl, SV* sv)
3798 {
3799     ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3800 }
3801
3802 #undef  Perl_sv_tainted
3803 bool
3804 Perl_sv_tainted(void *pPerl, SV* sv)
3805 {
3806     return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3807 }
3808
3809 #undef  Perl_sv_unmagic
3810 int
3811 Perl_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
3817 void
3818 Perl_sv_unref(void *pPerl, SV* sv)
3819 {
3820     ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3821 }
3822
3823 #undef  Perl_sv_untaint
3824 void
3825 Perl_sv_untaint(void *pPerl, SV* sv)
3826 {
3827     ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3828 }
3829
3830 #undef  Perl_sv_upgrade
3831 bool
3832 Perl_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
3838 void
3839 Perl_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
3845 void
3846 Perl_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
3852 void
3853 Perl_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
3859 SV*
3860 Perl_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
3866 UV
3867 Perl_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
3873 void
3874 Perl_taint_env(void *pPerl)
3875 {
3876     ((CPerlObj*)pPerl)->Perl_taint_env();
3877 }
3878
3879 #undef  Perl_taint_proper
3880 void
3881 Perl_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
3887 UV
3888 Perl_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
3894 UV
3895 Perl_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
3901 UV
3902 Perl_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
3909 I32
3910 Perl_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
3918 void
3919 Perl_unlock_condpair(void *pPerl, void* svv)
3920 {
3921     ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3922 }
3923 #endif
3924
3925 #undef  Perl_unsharepvn
3926 void
3927 Perl_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
3933 void
3934 Perl_unshare_hek(void *pPerl, HEK* hek)
3935 {
3936     ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
3937 }
3938
3939 #undef  Perl_utilize
3940 void
3941 Perl_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
3947 U8*
3948 Perl_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
3954 U8*
3955 Perl_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
3961 I32
3962 Perl_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
3968 U8*
3969 Perl_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
3975 UV
3976 Perl_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
3982 U8*
3983 Perl_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
3989 void
3990 Perl_vivify_defelem(void *pPerl, SV* sv)
3991 {
3992     ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
3993 }
3994
3995 #undef  Perl_vivify_ref
3996 void
3997 Perl_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
4003 I32
4004 Perl_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
4010 void
4011 Perl_watch(void *pPerl, char** addr)
4012 {
4013     ((CPerlObj*)pPerl)->Perl_watch(addr);
4014 }
4015
4016 #undef  Perl_whichsig
4017 I32
4018 Perl_whichsig(void *pPerl, char* sig)
4019 {
4020     return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4021 }
4022
4023 #undef  Perl_yyerror
4024 int
4025 Perl_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
4032 int
4033 Perl_yylex(void *pPerl, YYSTYPE *lvalp, int *lcharp)
4034 {
4035     return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4036 }
4037 #else
4038
4039 #undef  Perl_yylex
4040 int
4041 Perl_yylex(void *pPerl)
4042 {
4043     return ((CPerlObj*)pPerl)->Perl_yylex();
4044 }
4045 #endif
4046
4047 #undef  Perl_yyparse
4048 int
4049 Perl_yyparse(void *pPerl)
4050 {
4051     return ((CPerlObj*)pPerl)->Perl_yyparse();
4052 }
4053
4054 #undef  Perl_yywarn
4055 int
4056 Perl_yywarn(void *pPerl, char* s)
4057 {
4058     return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4059 }
4060 #if defined(MYMALLOC)
4061
4062 #undef  Perl_dump_mstats
4063 void
4064 Perl_dump_mstats(void *pPerl, char* s)
4065 {
4066     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4067 }
4068
4069 #undef  Perl_malloc
4070 Malloc_t
4071 Perl_malloc(void *pPerl, MEM_SIZE nbytes)
4072 {
4073     return ((CPerlObj*)pPerl)->Perl_malloc(nbytes);
4074 }
4075
4076 #undef  Perl_calloc
4077 Malloc_t
4078 Perl_calloc(void *pPerl, MEM_SIZE elements, MEM_SIZE size)
4079 {
4080     return ((CPerlObj*)pPerl)->Perl_calloc(elements, size);
4081 }
4082
4083 #undef  Perl_realloc
4084 Malloc_t
4085 Perl_realloc(void *pPerl, Malloc_t where, MEM_SIZE nbytes)
4086 {
4087     return ((CPerlObj*)pPerl)->Perl_realloc(where, nbytes);
4088 }
4089
4090 #undef  Perl_mfree
4091 Free_t
4092 Perl_mfree(void *pPerl, Malloc_t where)
4093 {
4094     ((CPerlObj*)pPerl)->Perl_mfree(where);
4095 }
4096 #endif
4097
4098 #undef  Perl_safesysmalloc
4099 Malloc_t
4100 Perl_safesysmalloc(void *pPerl, MEM_SIZE nbytes)
4101 {
4102     return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4103 }
4104
4105 #undef  Perl_safesyscalloc
4106 Malloc_t
4107 Perl_safesyscalloc(void *pPerl, MEM_SIZE elements, MEM_SIZE size)
4108 {
4109     return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4110 }
4111
4112 #undef  Perl_safesysrealloc
4113 Malloc_t
4114 Perl_safesysrealloc(void *pPerl, Malloc_t where, MEM_SIZE nbytes)
4115 {
4116     return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4117 }
4118
4119 #undef  Perl_safesysfree
4120 Free_t
4121 Perl_safesysfree(void *pPerl, Malloc_t where)
4122 {
4123     ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4124 }
4125 #if defined(LEAKTEST)
4126
4127 #undef  Perl_safexmalloc
4128 Malloc_t
4129 Perl_safexmalloc(void *pPerl, I32 x, MEM_SIZE size)
4130 {
4131     return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4132 }
4133
4134 #undef  Perl_safexcalloc
4135 Malloc_t
4136 Perl_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
4142 Malloc_t
4143 Perl_safexrealloc(void *pPerl, Malloc_t where, MEM_SIZE size)
4144 {
4145     return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4146 }
4147
4148 #undef  Perl_safexfree
4149 void
4150 Perl_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
4158 struct perl_vars *
4159 Perl_GetVars(void *pPerl)
4160 {
4161     return ((CPerlObj*)pPerl)->Perl_GetVars();
4162 }
4163 #endif
4164
4165 #undef  Perl_runops_standard
4166 int
4167 Perl_runops_standard(void *pPerl)
4168 {
4169     return ((CPerlObj*)pPerl)->Perl_runops_standard();
4170 }
4171
4172 #undef  Perl_runops_debug
4173 int
4174 Perl_runops_debug(void *pPerl)
4175 {
4176     return ((CPerlObj*)pPerl)->Perl_runops_debug();
4177 }
4178
4179 #undef  Perl_sv_catpv_mg
4180 void
4181 Perl_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
4187 void
4188 Perl_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
4194 void
4195 Perl_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
4201 void
4202 Perl_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
4208 void
4209 Perl_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
4215 void
4216 Perl_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
4222 void
4223 Perl_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
4229 void
4230 Perl_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
4236 void
4237 Perl_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
4243 void
4244 Perl_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
4250 void
4251 Perl_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
4257 MGVTBL*
4258 Perl_get_vtbl(void *pPerl, int vtbl_id)
4259 {
4260     return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4261 }
4262
4263 #undef  Perl_pv_display
4264 char*
4265 Perl_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
4271 void
4272 Perl_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
4278 void
4279 Perl_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
4285 void
4286 Perl_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
4292 void
4293 Perl_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
4299 void
4300 Perl_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
4306 void
4307 Perl_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
4313 void
4314 Perl_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
4320 void
4321 Perl_magic_dump(void *pPerl, MAGIC *mg)
4322 {
4323     ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4324 }
4325
4326 #undef  Perl_reginitcolors
4327 void
4328 Perl_reginitcolors(void *pPerl)
4329 {
4330     ((CPerlObj*)pPerl)->Perl_reginitcolors();
4331 }
4332
4333 #undef  Perl_sv_2pv_nolen
4334 char*
4335 Perl_sv_2pv_nolen(void *pPerl, SV* sv)
4336 {
4337     return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4338 }
4339
4340 #undef  Perl_sv_pv
4341 char*
4342 Perl_sv_pv(void *pPerl, SV *sv)
4343 {
4344     return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4345 }
4346
4347 #undef  Perl_sv_force_normal
4348 void
4349 Perl_sv_force_normal(void *pPerl, SV *sv)
4350 {
4351     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4352 }
4353
4354 #undef  Perl_tmps_grow
4355 void
4356 Perl_tmps_grow(void *pPerl, I32 n)
4357 {
4358     ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4359 }
4360
4361 #undef  Perl_sv_rvweaken
4362 SV*
4363 Perl_sv_rvweaken(void *pPerl, SV *sv)
4364 {
4365     return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4366 }
4367
4368 #undef  Perl_magic_killbackrefs
4369 int
4370 Perl_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
4435 OP *
4436 Perl_ck_anoncode(void *pPerl, OP *o)
4437 {
4438     return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
4439 }
4440
4441 #undef  Perl_ck_bitop
4442 OP *
4443 Perl_ck_bitop(void *pPerl, OP *o)
4444 {
4445     return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
4446 }
4447
4448 #undef  Perl_ck_concat
4449 OP *
4450 Perl_ck_concat(void *pPerl, OP *o)
4451 {
4452     return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
4453 }
4454
4455 #undef  Perl_ck_defined
4456 OP *
4457 Perl_ck_defined(void *pPerl, OP *o)
4458 {
4459     return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
4460 }
4461
4462 #undef  Perl_ck_delete
4463 OP *
4464 Perl_ck_delete(void *pPerl, OP *o)
4465 {
4466     return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
4467 }
4468
4469 #undef  Perl_ck_eof
4470 OP *
4471 Perl_ck_eof(void *pPerl, OP *o)
4472 {
4473     return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
4474 }
4475
4476 #undef  Perl_ck_eval
4477 OP *
4478 Perl_ck_eval(void *pPerl, OP *o)
4479 {
4480     return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
4481 }
4482
4483 #undef  Perl_ck_exec
4484 OP *
4485 Perl_ck_exec(void *pPerl, OP *o)
4486 {
4487     return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
4488 }
4489
4490 #undef  Perl_ck_exists
4491 OP *
4492 Perl_ck_exists(void *pPerl, OP *o)
4493 {
4494     return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
4495 }
4496
4497 #undef  Perl_ck_ftst
4498 OP *
4499 Perl_ck_ftst(void *pPerl, OP *o)
4500 {
4501     return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
4502 }
4503
4504 #undef  Perl_ck_fun
4505 OP *
4506 Perl_ck_fun(void *pPerl, OP *o)
4507 {
4508     return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
4509 }
4510
4511 #undef  Perl_ck_fun_locale
4512 OP *
4513 Perl_ck_fun_locale(void *pPerl, OP *o)
4514 {
4515     return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
4516 }
4517
4518 #undef  Perl_ck_glob
4519 OP *
4520 Perl_ck_glob(void *pPerl, OP *o)
4521 {
4522     return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
4523 }
4524
4525 #undef  Perl_ck_grep
4526 OP *
4527 Perl_ck_grep(void *pPerl, OP *o)
4528 {
4529     return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
4530 }
4531
4532 #undef  Perl_ck_index
4533 OP *
4534 Perl_ck_index(void *pPerl, OP *o)
4535 {
4536     return ((CPerlObj*)pPerl)->Perl_ck_index(o);
4537 }
4538
4539 #undef  Perl_ck_lengthconst
4540 OP *
4541 Perl_ck_lengthconst(void *pPerl, OP *o)
4542 {
4543     return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
4544 }
4545
4546 #undef  Perl_ck_lfun
4547 OP *
4548 Perl_ck_lfun(void *pPerl, OP *o)
4549 {
4550     return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
4551 }
4552
4553 #undef  Perl_ck_listiob
4554 OP *
4555 Perl_ck_listiob(void *pPerl, OP *o)
4556 {
4557     return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
4558 }
4559
4560 #undef  Perl_ck_match
4561 OP *
4562 Perl_ck_match(void *pPerl, OP *o)
4563 {
4564     return ((CPerlObj*)pPerl)->Perl_ck_match(o);
4565 }
4566
4567 #undef  Perl_ck_null
4568 OP *
4569 Perl_ck_null(void *pPerl, OP *o)
4570 {
4571     return ((CPerlObj*)pPerl)->Perl_ck_null(o);
4572 }
4573
4574 #undef  Perl_ck_repeat
4575 OP *
4576 Perl_ck_repeat(void *pPerl, OP *o)
4577 {
4578     return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
4579 }
4580
4581 #undef  Perl_ck_require
4582 OP *
4583 Perl_ck_require(void *pPerl, OP *o)
4584 {
4585     return ((CPerlObj*)pPerl)->Perl_ck_require(o);
4586 }
4587
4588 #undef  Perl_ck_rfun
4589 OP *
4590 Perl_ck_rfun(void *pPerl, OP *o)
4591 {
4592     return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
4593 }
4594
4595 #undef  Perl_ck_rvconst
4596 OP *
4597 Perl_ck_rvconst(void *pPerl, OP *o)
4598 {
4599     return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
4600 }
4601
4602 #undef  Perl_ck_sassign
4603 OP *
4604 Perl_ck_sassign(void *pPerl, OP *o)
4605 {
4606     return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
4607 }
4608
4609 #undef  Perl_ck_scmp
4610 OP *
4611 Perl_ck_scmp(void *pPerl, OP *o)
4612 {
4613     return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
4614 }
4615
4616 #undef  Perl_ck_select
4617 OP *
4618 Perl_ck_select(void *pPerl, OP *o)
4619 {
4620     return ((CPerlObj*)pPerl)->Perl_ck_select(o);
4621 }
4622
4623 #undef  Perl_ck_shift
4624 OP *
4625 Perl_ck_shift(void *pPerl, OP *o)
4626 {
4627     return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
4628 }
4629
4630 #undef  Perl_ck_sort
4631 OP *
4632 Perl_ck_sort(void *pPerl, OP *o)
4633 {
4634     return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
4635 }
4636
4637 #undef  Perl_ck_spair
4638 OP *
4639 Perl_ck_spair(void *pPerl, OP *o)
4640 {
4641     return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
4642 }
4643
4644 #undef  Perl_ck_split
4645 OP *
4646 Perl_ck_split(void *pPerl, OP *o)
4647 {
4648     return ((CPerlObj*)pPerl)->Perl_ck_split(o);
4649 }
4650
4651 #undef  Perl_ck_subr
4652 OP *
4653 Perl_ck_subr(void *pPerl, OP *o)
4654 {
4655     return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
4656 }
4657
4658 #undef  Perl_ck_svconst
4659 OP *
4660 Perl_ck_svconst(void *pPerl, OP *o)
4661 {
4662     return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
4663 }
4664
4665 #undef  Perl_ck_trunc
4666 OP *
4667 Perl_ck_trunc(void *pPerl, OP *o)
4668 {
4669     return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
4670 }
4671
4672 #undef  Perl_pp_aassign
4673 OP *
4674 Perl_pp_aassign(void *pPerl)
4675 {
4676     return ((CPerlObj*)pPerl)->Perl_pp_aassign();
4677 }
4678
4679 #undef  Perl_pp_abs
4680 OP *
4681 Perl_pp_abs(void *pPerl)
4682 {
4683     return ((CPerlObj*)pPerl)->Perl_pp_abs();
4684 }
4685
4686 #undef  Perl_pp_accept
4687 OP *
4688 Perl_pp_accept(void *pPerl)
4689 {
4690     return ((CPerlObj*)pPerl)->Perl_pp_accept();
4691 }
4692
4693 #undef  Perl_pp_add
4694 OP *
4695 Perl_pp_add(void *pPerl)
4696 {
4697     return ((CPerlObj*)pPerl)->Perl_pp_add();
4698 }
4699
4700 #undef  Perl_pp_aelem
4701 OP *
4702 Perl_pp_aelem(void *pPerl)
4703 {
4704     return ((CPerlObj*)pPerl)->Perl_pp_aelem();
4705 }
4706
4707 #undef  Perl_pp_aelemfast
4708 OP *
4709 Perl_pp_aelemfast(void *pPerl)
4710 {
4711     return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
4712 }
4713
4714 #undef  Perl_pp_alarm
4715 OP *
4716 Perl_pp_alarm(void *pPerl)
4717 {
4718     return ((CPerlObj*)pPerl)->Perl_pp_alarm();
4719 }
4720
4721 #undef  Perl_pp_and
4722 OP *
4723 Perl_pp_and(void *pPerl)
4724 {
4725     return ((CPerlObj*)pPerl)->Perl_pp_and();
4726 }
4727
4728 #undef  Perl_pp_andassign
4729 OP *
4730 Perl_pp_andassign(void *pPerl)
4731 {
4732     return ((CPerlObj*)pPerl)->Perl_pp_andassign();
4733 }
4734
4735 #undef  Perl_pp_anoncode
4736 OP *
4737 Perl_pp_anoncode(void *pPerl)
4738 {
4739     return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
4740 }
4741
4742 #undef  Perl_pp_anonhash
4743 OP *
4744 Perl_pp_anonhash(void *pPerl)
4745 {
4746     return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
4747 }
4748
4749 #undef  Perl_pp_anonlist
4750 OP *
4751 Perl_pp_anonlist(void *pPerl)
4752 {
4753     return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
4754 }
4755
4756 #undef  Perl_pp_aslice
4757 OP *
4758 Perl_pp_aslice(void *pPerl)
4759 {
4760     return ((CPerlObj*)pPerl)->Perl_pp_aslice();
4761 }
4762
4763 #undef  Perl_pp_atan2
4764 OP *
4765 Perl_pp_atan2(void *pPerl)
4766 {
4767     return ((CPerlObj*)pPerl)->Perl_pp_atan2();
4768 }
4769
4770 #undef  Perl_pp_av2arylen
4771 OP *
4772 Perl_pp_av2arylen(void *pPerl)
4773 {
4774     return ((CPerlObj*)pPerl)->Perl_pp_av2arylen();
4775 }
4776
4777 #undef  Perl_pp_backtick
4778 OP *
4779 Perl_pp_backtick(void *pPerl)
4780 {
4781     return ((CPerlObj*)pPerl)->Perl_pp_backtick();
4782 }
4783
4784 #undef  Perl_pp_bind
4785 OP *
4786 Perl_pp_bind(void *pPerl)
4787 {
4788     return ((CPerlObj*)pPerl)->Perl_pp_bind();
4789 }
4790
4791 #undef  Perl_pp_binmode
4792 OP *
4793 Perl_pp_binmode(void *pPerl)
4794 {
4795     return ((CPerlObj*)pPerl)->Perl_pp_binmode();
4796 }
4797
4798 #undef  Perl_pp_bit_and
4799 OP *
4800 Perl_pp_bit_and(void *pPerl)
4801 {
4802     return ((CPerlObj*)pPerl)->Perl_pp_bit_and();
4803 }
4804
4805 #undef  Perl_pp_bit_or
4806 OP *
4807 Perl_pp_bit_or(void *pPerl)
4808 {
4809     return ((CPerlObj*)pPerl)->Perl_pp_bit_or();
4810 }
4811
4812 #undef  Perl_pp_bit_xor
4813 OP *
4814 Perl_pp_bit_xor(void *pPerl)
4815 {
4816     return ((CPerlObj*)pPerl)->Perl_pp_bit_xor();
4817 }
4818
4819 #undef  Perl_pp_bless
4820 OP *
4821 Perl_pp_bless(void *pPerl)
4822 {
4823     return ((CPerlObj*)pPerl)->Perl_pp_bless();
4824 }
4825
4826 #undef  Perl_pp_caller
4827 OP *
4828 Perl_pp_caller(void *pPerl)
4829 {
4830     return ((CPerlObj*)pPerl)->Perl_pp_caller();
4831 }
4832
4833 #undef  Perl_pp_chdir
4834 OP *
4835 Perl_pp_chdir(void *pPerl)
4836 {
4837     return ((CPerlObj*)pPerl)->Perl_pp_chdir();
4838 }
4839
4840 #undef  Perl_pp_chmod
4841 OP *
4842 Perl_pp_chmod(void *pPerl)
4843 {
4844     return ((CPerlObj*)pPerl)->Perl_pp_chmod();
4845 }
4846
4847 #undef  Perl_pp_chomp
4848 OP *
4849 Perl_pp_chomp(void *pPerl)
4850 {
4851     return ((CPerlObj*)pPerl)->Perl_pp_chomp();
4852 }
4853
4854 #undef  Perl_pp_chop
4855 OP *
4856 Perl_pp_chop(void *pPerl)
4857 {
4858     return ((CPerlObj*)pPerl)->Perl_pp_chop();
4859 }
4860
4861 #undef  Perl_pp_chown
4862 OP *
4863 Perl_pp_chown(void *pPerl)
4864 {
4865     return ((CPerlObj*)pPerl)->Perl_pp_chown();
4866 }
4867
4868 #undef  Perl_pp_chr
4869 OP *
4870 Perl_pp_chr(void *pPerl)
4871 {
4872     return ((CPerlObj*)pPerl)->Perl_pp_chr();
4873 }
4874
4875 #undef  Perl_pp_chroot
4876 OP *
4877 Perl_pp_chroot(void *pPerl)
4878 {
4879     return ((CPerlObj*)pPerl)->Perl_pp_chroot();
4880 }
4881
4882 #undef  Perl_pp_close
4883 OP *
4884 Perl_pp_close(void *pPerl)
4885 {
4886     return ((CPerlObj*)pPerl)->Perl_pp_close();
4887 }
4888
4889 #undef  Perl_pp_closedir
4890 OP *
4891 Perl_pp_closedir(void *pPerl)
4892 {
4893     return ((CPerlObj*)pPerl)->Perl_pp_closedir();
4894 }
4895
4896 #undef  Perl_pp_complement
4897 OP *
4898 Perl_pp_complement(void *pPerl)
4899 {
4900     return ((CPerlObj*)pPerl)->Perl_pp_complement();
4901 }
4902
4903 #undef  Perl_pp_concat
4904 OP *
4905 Perl_pp_concat(void *pPerl)
4906 {
4907     return ((CPerlObj*)pPerl)->Perl_pp_concat();
4908 }
4909
4910 #undef  Perl_pp_cond_expr
4911 OP *
4912 Perl_pp_cond_expr(void *pPerl)
4913 {
4914     return ((CPerlObj*)pPerl)->Perl_pp_cond_expr();
4915 }
4916
4917 #undef  Perl_pp_connect
4918 OP *
4919 Perl_pp_connect(void *pPerl)
4920 {
4921     return ((CPerlObj*)pPerl)->Perl_pp_connect();
4922 }
4923
4924 #undef  Perl_pp_const
4925 OP *
4926 Perl_pp_const(void *pPerl)
4927 {
4928     return ((CPerlObj*)pPerl)->Perl_pp_const();
4929 }
4930
4931 #undef  Perl_pp_cos
4932 OP *
4933 Perl_pp_cos(void *pPerl)
4934 {
4935     return ((CPerlObj*)pPerl)->Perl_pp_cos();
4936 }
4937
4938 #undef  Perl_pp_crypt
4939 OP *
4940 Perl_pp_crypt(void *pPerl)
4941 {
4942     return ((CPerlObj*)pPerl)->Perl_pp_crypt();
4943 }
4944
4945 #undef  Perl_pp_dbmclose
4946 OP *
4947 Perl_pp_dbmclose(void *pPerl)
4948 {
4949     return ((CPerlObj*)pPerl)->Perl_pp_dbmclose();
4950 }
4951
4952 #undef  Perl_pp_dbmopen
4953 OP *
4954 Perl_pp_dbmopen(void *pPerl)
4955 {
4956     return ((CPerlObj*)pPerl)->Perl_pp_dbmopen();
4957 }
4958
4959 #undef  Perl_pp_dbstate
4960 OP *
4961 Perl_pp_dbstate(void *pPerl)
4962 {
4963     return ((CPerlObj*)pPerl)->Perl_pp_dbstate();
4964 }
4965
4966 #undef  Perl_pp_defined
4967 OP *
4968 Perl_pp_defined(void *pPerl)
4969 {
4970     return ((CPerlObj*)pPerl)->Perl_pp_defined();
4971 }
4972
4973 #undef  Perl_pp_delete
4974 OP *
4975 Perl_pp_delete(void *pPerl)
4976 {
4977     return ((CPerlObj*)pPerl)->Perl_pp_delete();
4978 }
4979
4980 #undef  Perl_pp_die
4981 OP *
4982 Perl_pp_die(void *pPerl)
4983 {
4984     return ((CPerlObj*)pPerl)->Perl_pp_die();
4985 }
4986
4987 #undef  Perl_pp_divide
4988 OP *
4989 Perl_pp_divide(void *pPerl)
4990 {
4991     return ((CPerlObj*)pPerl)->Perl_pp_divide();
4992 }
4993
4994 #undef  Perl_pp_dofile
4995 OP *
4996 Perl_pp_dofile(void *pPerl)
4997 {
4998     return ((CPerlObj*)pPerl)->Perl_pp_dofile();
4999 }
5000
5001 #undef  Perl_pp_dump
5002 OP *
5003 Perl_pp_dump(void *pPerl)
5004 {
5005     return ((CPerlObj*)pPerl)->Perl_pp_dump();
5006 }
5007
5008 #undef  Perl_pp_each
5009 OP *
5010 Perl_pp_each(void *pPerl)
5011 {
5012     return ((CPerlObj*)pPerl)->Perl_pp_each();
5013 }
5014
5015 #undef  Perl_pp_egrent
5016 OP *
5017 Perl_pp_egrent(void *pPerl)
5018 {
5019     return ((CPerlObj*)pPerl)->Perl_pp_egrent();
5020 }
5021
5022 #undef  Perl_pp_ehostent
5023 OP *
5024 Perl_pp_ehostent(void *pPerl)
5025 {
5026     return ((CPerlObj*)pPerl)->Perl_pp_ehostent();
5027 }
5028
5029 #undef  Perl_pp_enetent
5030 OP *
5031 Perl_pp_enetent(void *pPerl)
5032 {
5033     return ((CPerlObj*)pPerl)->Perl_pp_enetent();
5034 }
5035
5036 #undef  Perl_pp_enter
5037 OP *
5038 Perl_pp_enter(void *pPerl)
5039 {
5040     return ((CPerlObj*)pPerl)->Perl_pp_enter();
5041 }
5042
5043 #undef  Perl_pp_entereval
5044 OP *
5045 Perl_pp_entereval(void *pPerl)
5046 {
5047     return ((CPerlObj*)pPerl)->Perl_pp_entereval();
5048 }
5049
5050 #undef  Perl_pp_enteriter
5051 OP *
5052 Perl_pp_enteriter(void *pPerl)
5053 {
5054     return ((CPerlObj*)pPerl)->Perl_pp_enteriter();
5055 }
5056
5057 #undef  Perl_pp_enterloop
5058 OP *
5059 Perl_pp_enterloop(void *pPerl)
5060 {
5061     return ((CPerlObj*)pPerl)->Perl_pp_enterloop();
5062 }
5063
5064 #undef  Perl_pp_entersub
5065 OP *
5066 Perl_pp_entersub(void *pPerl)
5067 {
5068     return ((CPerlObj*)pPerl)->Perl_pp_entersub();
5069 }
5070
5071 #undef  Perl_pp_entertry
5072 OP *
5073 Perl_pp_entertry(void *pPerl)
5074 {
5075     return ((CPerlObj*)pPerl)->Perl_pp_entertry();
5076 }
5077
5078 #undef  Perl_pp_enterwrite
5079 OP *
5080 Perl_pp_enterwrite(void *pPerl)
5081 {
5082     return ((CPerlObj*)pPerl)->Perl_pp_enterwrite();
5083 }
5084
5085 #undef  Perl_pp_eof
5086 OP *
5087 Perl_pp_eof(void *pPerl)
5088 {
5089     return ((CPerlObj*)pPerl)->Perl_pp_eof();
5090 }
5091
5092 #undef  Perl_pp_eprotoent
5093 OP *
5094 Perl_pp_eprotoent(void *pPerl)
5095 {
5096     return ((CPerlObj*)pPerl)->Perl_pp_eprotoent();
5097 }
5098
5099 #undef  Perl_pp_epwent
5100 OP *
5101 Perl_pp_epwent(void *pPerl)
5102 {
5103     return ((CPerlObj*)pPerl)->Perl_pp_epwent();
5104 }
5105
5106 #undef  Perl_pp_eq
5107 OP *
5108 Perl_pp_eq(void *pPerl)
5109 {
5110     return ((CPerlObj*)pPerl)->Perl_pp_eq();
5111 }
5112
5113 #undef  Perl_pp_eservent
5114 OP *
5115 Perl_pp_eservent(void *pPerl)
5116 {
5117     return ((CPerlObj*)pPerl)->Perl_pp_eservent();
5118 }
5119
5120 #undef  Perl_pp_exec
5121 OP *
5122 Perl_pp_exec(void *pPerl)
5123 {
5124     return ((CPerlObj*)pPerl)->Perl_pp_exec();
5125 }
5126
5127 #undef  Perl_pp_exists
5128 OP *
5129 Perl_pp_exists(void *pPerl)
5130 {
5131     return ((CPerlObj*)pPerl)->Perl_pp_exists();
5132 }
5133
5134 #undef  Perl_pp_exit
5135 OP *
5136 Perl_pp_exit(void *pPerl)
5137 {
5138     return ((CPerlObj*)pPerl)->Perl_pp_exit();
5139 }
5140
5141 #undef  Perl_pp_exp
5142 OP *
5143 Perl_pp_exp(void *pPerl)
5144 {
5145     return ((CPerlObj*)pPerl)->Perl_pp_exp();
5146 }
5147
5148 #undef  Perl_pp_fcntl
5149 OP *
5150 Perl_pp_fcntl(void *pPerl)
5151 {
5152     return ((CPerlObj*)pPerl)->Perl_pp_fcntl();
5153 }
5154
5155 #undef  Perl_pp_fileno
5156 OP *
5157 Perl_pp_fileno(void *pPerl)
5158 {
5159     return ((CPerlObj*)pPerl)->Perl_pp_fileno();
5160 }
5161
5162 #undef  Perl_pp_flip
5163 OP *
5164 Perl_pp_flip(void *pPerl)
5165 {
5166     return ((CPerlObj*)pPerl)->Perl_pp_flip();
5167 }
5168
5169 #undef  Perl_pp_flock
5170 OP *
5171 Perl_pp_flock(void *pPerl)
5172 {
5173     return ((CPerlObj*)pPerl)->Perl_pp_flock();
5174 }
5175
5176 #undef  Perl_pp_flop
5177 OP *
5178 Perl_pp_flop(void *pPerl)
5179 {
5180     return ((CPerlObj*)pPerl)->Perl_pp_flop();
5181 }
5182
5183 #undef  Perl_pp_fork
5184 OP *
5185 Perl_pp_fork(void *pPerl)
5186 {
5187     return ((CPerlObj*)pPerl)->Perl_pp_fork();
5188 }
5189
5190 #undef  Perl_pp_formline
5191 OP *
5192 Perl_pp_formline(void *pPerl)
5193 {
5194     return ((CPerlObj*)pPerl)->Perl_pp_formline();
5195 }
5196
5197 #undef  Perl_pp_ftatime
5198 OP *
5199 Perl_pp_ftatime(void *pPerl)
5200 {
5201     return ((CPerlObj*)pPerl)->Perl_pp_ftatime();
5202 }
5203
5204 #undef  Perl_pp_ftbinary
5205 OP *
5206 Perl_pp_ftbinary(void *pPerl)
5207 {
5208     return ((CPerlObj*)pPerl)->Perl_pp_ftbinary();
5209 }
5210
5211 #undef  Perl_pp_ftblk
5212 OP *
5213 Perl_pp_ftblk(void *pPerl)
5214 {
5215     return ((CPerlObj*)pPerl)->Perl_pp_ftblk();
5216 }
5217
5218 #undef  Perl_pp_ftchr
5219 OP *
5220 Perl_pp_ftchr(void *pPerl)
5221 {
5222     return ((CPerlObj*)pPerl)->Perl_pp_ftchr();
5223 }
5224
5225 #undef  Perl_pp_ftctime
5226 OP *
5227 Perl_pp_ftctime(void *pPerl)
5228 {
5229     return ((CPerlObj*)pPerl)->Perl_pp_ftctime();
5230 }
5231
5232 #undef  Perl_pp_ftdir
5233 OP *
5234 Perl_pp_ftdir(void *pPerl)
5235 {
5236     return ((CPerlObj*)pPerl)->Perl_pp_ftdir();
5237 }
5238
5239 #undef  Perl_pp_fteexec
5240 OP *
5241 Perl_pp_fteexec(void *pPerl)
5242 {
5243     return ((CPerlObj*)pPerl)->Perl_pp_fteexec();
5244 }
5245
5246 #undef  Perl_pp_fteowned
5247 OP *
5248 Perl_pp_fteowned(void *pPerl)
5249 {
5250     return ((CPerlObj*)pPerl)->Perl_pp_fteowned();
5251 }
5252
5253 #undef  Perl_pp_fteread
5254 OP *
5255 Perl_pp_fteread(void *pPerl)
5256 {
5257     return ((CPerlObj*)pPerl)->Perl_pp_fteread();
5258 }
5259
5260 #undef  Perl_pp_ftewrite
5261 OP *
5262 Perl_pp_ftewrite(void *pPerl)
5263 {
5264     return ((CPerlObj*)pPerl)->Perl_pp_ftewrite();
5265 }
5266
5267 #undef  Perl_pp_ftfile
5268 OP *
5269 Perl_pp_ftfile(void *pPerl)
5270 {
5271     return ((CPerlObj*)pPerl)->Perl_pp_ftfile();
5272 }
5273
5274 #undef  Perl_pp_ftis
5275 OP *
5276 Perl_pp_ftis(void *pPerl)
5277 {
5278     return ((CPerlObj*)pPerl)->Perl_pp_ftis();
5279 }
5280
5281 #undef  Perl_pp_ftlink
5282 OP *
5283 Perl_pp_ftlink(void *pPerl)
5284 {
5285     return ((CPerlObj*)pPerl)->Perl_pp_ftlink();
5286 }
5287
5288 #undef  Perl_pp_ftmtime
5289 OP *
5290 Perl_pp_ftmtime(void *pPerl)
5291 {
5292     return ((CPerlObj*)pPerl)->Perl_pp_ftmtime();
5293 }
5294
5295 #undef  Perl_pp_ftpipe
5296 OP *
5297 Perl_pp_ftpipe(void *pPerl)
5298 {
5299     return ((CPerlObj*)pPerl)->Perl_pp_ftpipe();
5300 }
5301
5302 #undef  Perl_pp_ftrexec
5303 OP *
5304 Perl_pp_ftrexec(void *pPerl)
5305 {
5306     return ((CPerlObj*)pPerl)->Perl_pp_ftrexec();
5307 }
5308
5309 #undef  Perl_pp_ftrowned
5310 OP *
5311 Perl_pp_ftrowned(void *pPerl)
5312 {
5313     return ((CPerlObj*)pPerl)->Perl_pp_ftrowned();
5314 }
5315
5316 #undef  Perl_pp_ftrread
5317 OP *
5318 Perl_pp_ftrread(void *pPerl)
5319 {
5320     return ((CPerlObj*)pPerl)->Perl_pp_ftrread();
5321 }
5322
5323 #undef  Perl_pp_ftrwrite
5324 OP *
5325 Perl_pp_ftrwrite(void *pPerl)
5326 {
5327     return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite();
5328 }
5329
5330 #undef  Perl_pp_ftsgid
5331 OP *
5332 Perl_pp_ftsgid(void *pPerl)
5333 {
5334     return ((CPerlObj*)pPerl)->Perl_pp_ftsgid();
5335 }
5336
5337 #undef  Perl_pp_ftsize
5338 OP *
5339 Perl_pp_ftsize(void *pPerl)
5340 {
5341     return ((CPerlObj*)pPerl)->Perl_pp_ftsize();
5342 }
5343
5344 #undef  Perl_pp_ftsock
5345 OP *
5346 Perl_pp_ftsock(void *pPerl)
5347 {
5348     return ((CPerlObj*)pPerl)->Perl_pp_ftsock();
5349 }
5350
5351 #undef  Perl_pp_ftsuid
5352 OP *
5353 Perl_pp_ftsuid(void *pPerl)
5354 {
5355     return ((CPerlObj*)pPerl)->Perl_pp_ftsuid();
5356 }
5357
5358 #undef  Perl_pp_ftsvtx
5359 OP *
5360 Perl_pp_ftsvtx(void *pPerl)
5361 {
5362     return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx();
5363 }
5364
5365 #undef  Perl_pp_fttext
5366 OP *
5367 Perl_pp_fttext(void *pPerl)
5368 {
5369     return ((CPerlObj*)pPerl)->Perl_pp_fttext();
5370 }
5371
5372 #undef  Perl_pp_fttty
5373 OP *
5374 Perl_pp_fttty(void *pPerl)
5375 {
5376     return ((CPerlObj*)pPerl)->Perl_pp_fttty();
5377 }
5378
5379 #undef  Perl_pp_ftzero
5380 OP *
5381 Perl_pp_ftzero(void *pPerl)
5382 {
5383     return ((CPerlObj*)pPerl)->Perl_pp_ftzero();
5384 }
5385
5386 #undef  Perl_pp_ge
5387 OP *
5388 Perl_pp_ge(void *pPerl)
5389 {
5390     return ((CPerlObj*)pPerl)->Perl_pp_ge();
5391 }
5392
5393 #undef  Perl_pp_gelem
5394 OP *
5395 Perl_pp_gelem(void *pPerl)
5396 {
5397     return ((CPerlObj*)pPerl)->Perl_pp_gelem();
5398 }
5399
5400 #undef  Perl_pp_getc
5401 OP *
5402 Perl_pp_getc(void *pPerl)
5403 {
5404     return ((CPerlObj*)pPerl)->Perl_pp_getc();
5405 }
5406
5407 #undef  Perl_pp_getlogin
5408 OP *
5409 Perl_pp_getlogin(void *pPerl)
5410 {
5411     return ((CPerlObj*)pPerl)->Perl_pp_getlogin();
5412 }
5413
5414 #undef  Perl_pp_getpeername
5415 OP *
5416 Perl_pp_getpeername(void *pPerl)
5417 {
5418     return ((CPerlObj*)pPerl)->Perl_pp_getpeername();
5419 }
5420
5421 #undef  Perl_pp_getpgrp
5422 OP *
5423 Perl_pp_getpgrp(void *pPerl)
5424 {
5425     return ((CPerlObj*)pPerl)->Perl_pp_getpgrp();
5426 }
5427
5428 #undef  Perl_pp_getppid
5429 OP *
5430 Perl_pp_getppid(void *pPerl)
5431 {
5432     return ((CPerlObj*)pPerl)->Perl_pp_getppid();
5433 }
5434
5435 #undef  Perl_pp_getpriority
5436 OP *
5437 Perl_pp_getpriority(void *pPerl)
5438 {
5439     return ((CPerlObj*)pPerl)->Perl_pp_getpriority();
5440 }
5441
5442 #undef  Perl_pp_getsockname
5443 OP *
5444 Perl_pp_getsockname(void *pPerl)
5445 {
5446     return ((CPerlObj*)pPerl)->Perl_pp_getsockname();
5447 }
5448
5449 #undef  Perl_pp_ggrent
5450 OP *
5451 Perl_pp_ggrent(void *pPerl)
5452 {
5453     return ((CPerlObj*)pPerl)->Perl_pp_ggrent();
5454 }
5455
5456 #undef  Perl_pp_ggrgid
5457 OP *
5458 Perl_pp_ggrgid(void *pPerl)
5459 {
5460     return ((CPerlObj*)pPerl)->Perl_pp_ggrgid();
5461 }
5462
5463 #undef  Perl_pp_ggrnam
5464 OP *
5465 Perl_pp_ggrnam(void *pPerl)
5466 {
5467     return ((CPerlObj*)pPerl)->Perl_pp_ggrnam();
5468 }
5469
5470 #undef  Perl_pp_ghbyaddr
5471 OP *
5472 Perl_pp_ghbyaddr(void *pPerl)
5473 {
5474     return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr();
5475 }
5476
5477 #undef  Perl_pp_ghbyname
5478 OP *
5479 Perl_pp_ghbyname(void *pPerl)
5480 {
5481     return ((CPerlObj*)pPerl)->Perl_pp_ghbyname();
5482 }
5483
5484 #undef  Perl_pp_ghostent
5485 OP *
5486 Perl_pp_ghostent(void *pPerl)
5487 {
5488     return ((CPerlObj*)pPerl)->Perl_pp_ghostent();
5489 }
5490
5491 #undef  Perl_pp_glob
5492 OP *
5493 Perl_pp_glob(void *pPerl)
5494 {
5495     return ((CPerlObj*)pPerl)->Perl_pp_glob();
5496 }
5497
5498 #undef  Perl_pp_gmtime
5499 OP *
5500 Perl_pp_gmtime(void *pPerl)
5501 {
5502     return ((CPerlObj*)pPerl)->Perl_pp_gmtime();
5503 }
5504
5505 #undef  Perl_pp_gnbyaddr
5506 OP *
5507 Perl_pp_gnbyaddr(void *pPerl)
5508 {
5509     return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr();
5510 }
5511
5512 #undef  Perl_pp_gnbyname
5513 OP *
5514 Perl_pp_gnbyname(void *pPerl)
5515 {
5516     return ((CPerlObj*)pPerl)->Perl_pp_gnbyname();
5517 }
5518
5519 #undef  Perl_pp_gnetent
5520 OP *
5521 Perl_pp_gnetent(void *pPerl)
5522 {
5523     return ((CPerlObj*)pPerl)->Perl_pp_gnetent();
5524 }
5525
5526 #undef  Perl_pp_goto
5527 OP *
5528 Perl_pp_goto(void *pPerl)
5529 {
5530     return ((CPerlObj*)pPerl)->Perl_pp_goto();
5531 }
5532
5533 #undef  Perl_pp_gpbyname
5534 OP *
5535 Perl_pp_gpbyname(void *pPerl)
5536 {
5537     return ((CPerlObj*)pPerl)->Perl_pp_gpbyname();
5538 }
5539
5540 #undef  Perl_pp_gpbynumber
5541 OP *
5542 Perl_pp_gpbynumber(void *pPerl)
5543 {
5544     return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber();
5545 }
5546
5547 #undef  Perl_pp_gprotoent
5548 OP *
5549 Perl_pp_gprotoent(void *pPerl)
5550 {
5551     return ((CPerlObj*)pPerl)->Perl_pp_gprotoent();
5552 }
5553
5554 #undef  Perl_pp_gpwent
5555 OP *
5556 Perl_pp_gpwent(void *pPerl)
5557 {
5558     return ((CPerlObj*)pPerl)->Perl_pp_gpwent();
5559 }
5560
5561 #undef  Perl_pp_gpwnam
5562 OP *
5563 Perl_pp_gpwnam(void *pPerl)
5564 {
5565     return ((CPerlObj*)pPerl)->Perl_pp_gpwnam();
5566 }
5567
5568 #undef  Perl_pp_gpwuid
5569 OP *
5570 Perl_pp_gpwuid(void *pPerl)
5571 {
5572     return ((CPerlObj*)pPerl)->Perl_pp_gpwuid();
5573 }
5574
5575 #undef  Perl_pp_grepstart
5576 OP *
5577 Perl_pp_grepstart(void *pPerl)
5578 {
5579     return ((CPerlObj*)pPerl)->Perl_pp_grepstart();
5580 }
5581
5582 #undef  Perl_pp_grepwhile
5583 OP *
5584 Perl_pp_grepwhile(void *pPerl)
5585 {
5586     return ((CPerlObj*)pPerl)->Perl_pp_grepwhile();
5587 }
5588
5589 #undef  Perl_pp_gsbyname
5590 OP *
5591 Perl_pp_gsbyname(void *pPerl)
5592 {
5593     return ((CPerlObj*)pPerl)->Perl_pp_gsbyname();
5594 }
5595
5596 #undef  Perl_pp_gsbyport
5597 OP *
5598 Perl_pp_gsbyport(void *pPerl)
5599 {
5600     return ((CPerlObj*)pPerl)->Perl_pp_gsbyport();
5601 }
5602
5603 #undef  Perl_pp_gservent
5604 OP *
5605 Perl_pp_gservent(void *pPerl)
5606 {
5607     return ((CPerlObj*)pPerl)->Perl_pp_gservent();
5608 }
5609
5610 #undef  Perl_pp_gsockopt
5611 OP *
5612 Perl_pp_gsockopt(void *pPerl)
5613 {
5614     return ((CPerlObj*)pPerl)->Perl_pp_gsockopt();
5615 }
5616
5617 #undef  Perl_pp_gt
5618 OP *
5619 Perl_pp_gt(void *pPerl)
5620 {
5621     return ((CPerlObj*)pPerl)->Perl_pp_gt();
5622 }
5623
5624 #undef  Perl_pp_gv
5625 OP *
5626 Perl_pp_gv(void *pPerl)
5627 {
5628     return ((CPerlObj*)pPerl)->Perl_pp_gv();
5629 }
5630
5631 #undef  Perl_pp_gvsv
5632 OP *
5633 Perl_pp_gvsv(void *pPerl)
5634 {
5635     return ((CPerlObj*)pPerl)->Perl_pp_gvsv();
5636 }
5637
5638 #undef  Perl_pp_helem
5639 OP *
5640 Perl_pp_helem(void *pPerl)
5641 {
5642     return ((CPerlObj*)pPerl)->Perl_pp_helem();
5643 }
5644
5645 #undef  Perl_pp_hex
5646 OP *
5647 Perl_pp_hex(void *pPerl)
5648 {
5649     return ((CPerlObj*)pPerl)->Perl_pp_hex();
5650 }
5651
5652 #undef  Perl_pp_hslice
5653 OP *
5654 Perl_pp_hslice(void *pPerl)
5655 {
5656     return ((CPerlObj*)pPerl)->Perl_pp_hslice();
5657 }
5658
5659 #undef  Perl_pp_i_add
5660 OP *
5661 Perl_pp_i_add(void *pPerl)
5662 {
5663     return ((CPerlObj*)pPerl)->Perl_pp_i_add();
5664 }
5665
5666 #undef  Perl_pp_i_divide
5667 OP *
5668 Perl_pp_i_divide(void *pPerl)
5669 {
5670     return ((CPerlObj*)pPerl)->Perl_pp_i_divide();
5671 }
5672
5673 #undef  Perl_pp_i_eq
5674 OP *
5675 Perl_pp_i_eq(void *pPerl)
5676 {
5677     return ((CPerlObj*)pPerl)->Perl_pp_i_eq();
5678 }
5679
5680 #undef  Perl_pp_i_ge
5681 OP *
5682 Perl_pp_i_ge(void *pPerl)
5683 {
5684     return ((CPerlObj*)pPerl)->Perl_pp_i_ge();
5685 }
5686
5687 #undef  Perl_pp_i_gt
5688 OP *
5689 Perl_pp_i_gt(void *pPerl)
5690 {
5691     return ((CPerlObj*)pPerl)->Perl_pp_i_gt();
5692 }
5693
5694 #undef  Perl_pp_i_le
5695 OP *
5696 Perl_pp_i_le(void *pPerl)
5697 {
5698     return ((CPerlObj*)pPerl)->Perl_pp_i_le();
5699 }
5700
5701 #undef  Perl_pp_i_lt
5702 OP *
5703 Perl_pp_i_lt(void *pPerl)
5704 {
5705     return ((CPerlObj*)pPerl)->Perl_pp_i_lt();
5706 }
5707
5708 #undef  Perl_pp_i_modulo
5709 OP *
5710 Perl_pp_i_modulo(void *pPerl)
5711 {
5712     return ((CPerlObj*)pPerl)->Perl_pp_i_modulo();
5713 }
5714
5715 #undef  Perl_pp_i_multiply
5716 OP *
5717 Perl_pp_i_multiply(void *pPerl)
5718 {
5719     return ((CPerlObj*)pPerl)->Perl_pp_i_multiply();
5720 }
5721
5722 #undef  Perl_pp_i_ncmp
5723 OP *
5724 Perl_pp_i_ncmp(void *pPerl)
5725 {
5726     return ((CPerlObj*)pPerl)->Perl_pp_i_ncmp();
5727 }
5728
5729 #undef  Perl_pp_i_ne
5730 OP *
5731 Perl_pp_i_ne(void *pPerl)
5732 {
5733     return ((CPerlObj*)pPerl)->Perl_pp_i_ne();
5734 }
5735
5736 #undef  Perl_pp_i_negate
5737 OP *
5738 Perl_pp_i_negate(void *pPerl)
5739 {
5740     return ((CPerlObj*)pPerl)->Perl_pp_i_negate();
5741 }
5742
5743 #undef  Perl_pp_i_subtract
5744 OP *
5745 Perl_pp_i_subtract(void *pPerl)
5746 {
5747     return ((CPerlObj*)pPerl)->Perl_pp_i_subtract();
5748 }
5749
5750 #undef  Perl_pp_index
5751 OP *
5752 Perl_pp_index(void *pPerl)
5753 {
5754     return ((CPerlObj*)pPerl)->Perl_pp_index();
5755 }
5756
5757 #undef  Perl_pp_int
5758 OP *
5759 Perl_pp_int(void *pPerl)
5760 {
5761     return ((CPerlObj*)pPerl)->Perl_pp_int();
5762 }
5763
5764 #undef  Perl_pp_ioctl
5765 OP *
5766 Perl_pp_ioctl(void *pPerl)
5767 {
5768     return ((CPerlObj*)pPerl)->Perl_pp_ioctl();
5769 }
5770
5771 #undef  Perl_pp_iter
5772 OP *
5773 Perl_pp_iter(void *pPerl)
5774 {
5775     return ((CPerlObj*)pPerl)->Perl_pp_iter();
5776 }
5777
5778 #undef  Perl_pp_join
5779 OP *
5780 Perl_pp_join(void *pPerl)
5781 {
5782     return ((CPerlObj*)pPerl)->Perl_pp_join();
5783 }
5784
5785 #undef  Perl_pp_keys
5786 OP *
5787 Perl_pp_keys(void *pPerl)
5788 {
5789     return ((CPerlObj*)pPerl)->Perl_pp_keys();
5790 }
5791
5792 #undef  Perl_pp_kill
5793 OP *
5794 Perl_pp_kill(void *pPerl)
5795 {
5796     return ((CPerlObj*)pPerl)->Perl_pp_kill();
5797 }
5798
5799 #undef  Perl_pp_last
5800 OP *
5801 Perl_pp_last(void *pPerl)
5802 {
5803     return ((CPerlObj*)pPerl)->Perl_pp_last();
5804 }
5805
5806 #undef  Perl_pp_lc
5807 OP *
5808 Perl_pp_lc(void *pPerl)
5809 {
5810     return ((CPerlObj*)pPerl)->Perl_pp_lc();
5811 }
5812
5813 #undef  Perl_pp_lcfirst
5814 OP *
5815 Perl_pp_lcfirst(void *pPerl)
5816 {
5817     return ((CPerlObj*)pPerl)->Perl_pp_lcfirst();
5818 }
5819
5820 #undef  Perl_pp_le
5821 OP *
5822 Perl_pp_le(void *pPerl)
5823 {
5824     return ((CPerlObj*)pPerl)->Perl_pp_le();
5825 }
5826
5827 #undef  Perl_pp_leave
5828 OP *
5829 Perl_pp_leave(void *pPerl)
5830 {
5831     return ((CPerlObj*)pPerl)->Perl_pp_leave();
5832 }
5833
5834 #undef  Perl_pp_leaveeval
5835 OP *
5836 Perl_pp_leaveeval(void *pPerl)
5837 {
5838     return ((CPerlObj*)pPerl)->Perl_pp_leaveeval();
5839 }
5840
5841 #undef  Perl_pp_leaveloop
5842 OP *
5843 Perl_pp_leaveloop(void *pPerl)
5844 {
5845     return ((CPerlObj*)pPerl)->Perl_pp_leaveloop();
5846 }
5847
5848 #undef  Perl_pp_leavesub
5849 OP *
5850 Perl_pp_leavesub(void *pPerl)
5851 {
5852     return ((CPerlObj*)pPerl)->Perl_pp_leavesub();
5853 }
5854
5855 #undef  Perl_pp_leavetry
5856 OP *
5857 Perl_pp_leavetry(void *pPerl)
5858 {
5859     return ((CPerlObj*)pPerl)->Perl_pp_leavetry();
5860 }
5861
5862 #undef  Perl_pp_leavewrite
5863 OP *
5864 Perl_pp_leavewrite(void *pPerl)
5865 {
5866     return ((CPerlObj*)pPerl)->Perl_pp_leavewrite();
5867 }
5868
5869 #undef  Perl_pp_left_shift
5870 OP *
5871 Perl_pp_left_shift(void *pPerl)
5872 {
5873     return ((CPerlObj*)pPerl)->Perl_pp_left_shift();
5874 }
5875
5876 #undef  Perl_pp_length
5877 OP *
5878 Perl_pp_length(void *pPerl)
5879 {
5880     return ((CPerlObj*)pPerl)->Perl_pp_length();
5881 }
5882
5883 #undef  Perl_pp_lineseq
5884 OP *
5885 Perl_pp_lineseq(void *pPerl)
5886 {
5887     return ((CPerlObj*)pPerl)->Perl_pp_lineseq();
5888 }
5889
5890 #undef  Perl_pp_link
5891 OP *
5892 Perl_pp_link(void *pPerl)
5893 {
5894     return ((CPerlObj*)pPerl)->Perl_pp_link();
5895 }
5896
5897 #undef  Perl_pp_list
5898 OP *
5899 Perl_pp_list(void *pPerl)
5900 {
5901     return ((CPerlObj*)pPerl)->Perl_pp_list();
5902 }
5903
5904 #undef  Perl_pp_listen
5905 OP *
5906 Perl_pp_listen(void *pPerl)
5907 {
5908     return ((CPerlObj*)pPerl)->Perl_pp_listen();
5909 }
5910
5911 #undef  Perl_pp_localtime
5912 OP *
5913 Perl_pp_localtime(void *pPerl)
5914 {
5915     return ((CPerlObj*)pPerl)->Perl_pp_localtime();
5916 }
5917
5918 #undef  Perl_pp_lock
5919 OP *
5920 Perl_pp_lock(void *pPerl)
5921 {
5922     return ((CPerlObj*)pPerl)->Perl_pp_lock();
5923 }
5924
5925 #undef  Perl_pp_log
5926 OP *
5927 Perl_pp_log(void *pPerl)
5928 {
5929     return ((CPerlObj*)pPerl)->Perl_pp_log();
5930 }
5931
5932 #undef  Perl_pp_lslice
5933 OP *
5934 Perl_pp_lslice(void *pPerl)
5935 {
5936     return ((CPerlObj*)pPerl)->Perl_pp_lslice();
5937 }
5938
5939 #undef  Perl_pp_lstat
5940 OP *
5941 Perl_pp_lstat(void *pPerl)
5942 {
5943     return ((CPerlObj*)pPerl)->Perl_pp_lstat();
5944 }
5945
5946 #undef  Perl_pp_lt
5947 OP *
5948 Perl_pp_lt(void *pPerl)
5949 {
5950     return ((CPerlObj*)pPerl)->Perl_pp_lt();
5951 }
5952
5953 #undef  Perl_pp_mapstart
5954 OP *
5955 Perl_pp_mapstart(void *pPerl)
5956 {
5957     return ((CPerlObj*)pPerl)->Perl_pp_mapstart();
5958 }
5959
5960 #undef  Perl_pp_mapwhile
5961 OP *
5962 Perl_pp_mapwhile(void *pPerl)
5963 {
5964     return ((CPerlObj*)pPerl)->Perl_pp_mapwhile();
5965 }
5966
5967 #undef  Perl_pp_match
5968 OP *
5969 Perl_pp_match(void *pPerl)
5970 {
5971     return ((CPerlObj*)pPerl)->Perl_pp_match();
5972 }
5973
5974 #undef  Perl_pp_method
5975 OP *
5976 Perl_pp_method(void *pPerl)
5977 {
5978     return ((CPerlObj*)pPerl)->Perl_pp_method();
5979 }
5980
5981 #undef  Perl_pp_mkdir
5982 OP *
5983 Perl_pp_mkdir(void *pPerl)
5984 {
5985     return ((CPerlObj*)pPerl)->Perl_pp_mkdir();
5986 }
5987
5988 #undef  Perl_pp_modulo
5989 OP *
5990 Perl_pp_modulo(void *pPerl)
5991 {
5992     return ((CPerlObj*)pPerl)->Perl_pp_modulo();
5993 }
5994
5995 #undef  Perl_pp_msgctl
5996 OP *
5997 Perl_pp_msgctl(void *pPerl)
5998 {
5999     return ((CPerlObj*)pPerl)->Perl_pp_msgctl();
6000 }
6001
6002 #undef  Perl_pp_msgget
6003 OP *
6004 Perl_pp_msgget(void *pPerl)
6005 {
6006     return ((CPerlObj*)pPerl)->Perl_pp_msgget();
6007 }
6008
6009 #undef  Perl_pp_msgrcv
6010 OP *
6011 Perl_pp_msgrcv(void *pPerl)
6012 {
6013     return ((CPerlObj*)pPerl)->Perl_pp_msgrcv();
6014 }
6015
6016 #undef  Perl_pp_msgsnd
6017 OP *
6018 Perl_pp_msgsnd(void *pPerl)
6019 {
6020     return ((CPerlObj*)pPerl)->Perl_pp_msgsnd();
6021 }
6022
6023 #undef  Perl_pp_multiply
6024 OP *
6025 Perl_pp_multiply(void *pPerl)
6026 {
6027     return ((CPerlObj*)pPerl)->Perl_pp_multiply();
6028 }
6029
6030 #undef  Perl_pp_ncmp
6031 OP *
6032 Perl_pp_ncmp(void *pPerl)
6033 {
6034     return ((CPerlObj*)pPerl)->Perl_pp_ncmp();
6035 }
6036
6037 #undef  Perl_pp_ne
6038 OP *
6039 Perl_pp_ne(void *pPerl)
6040 {
6041     return ((CPerlObj*)pPerl)->Perl_pp_ne();
6042 }
6043
6044 #undef  Perl_pp_negate
6045 OP *
6046 Perl_pp_negate(void *pPerl)
6047 {
6048     return ((CPerlObj*)pPerl)->Perl_pp_negate();
6049 }
6050
6051 #undef  Perl_pp_next
6052 OP *
6053 Perl_pp_next(void *pPerl)
6054 {
6055     return ((CPerlObj*)pPerl)->Perl_pp_next();
6056 }
6057
6058 #undef  Perl_pp_nextstate
6059 OP *
6060 Perl_pp_nextstate(void *pPerl)
6061 {
6062     return ((CPerlObj*)pPerl)->Perl_pp_nextstate();
6063 }
6064
6065 #undef  Perl_pp_not
6066 OP *
6067 Perl_pp_not(void *pPerl)
6068 {
6069     return ((CPerlObj*)pPerl)->Perl_pp_not();
6070 }
6071
6072 #undef  Perl_pp_null
6073 OP *
6074 Perl_pp_null(void *pPerl)
6075 {
6076     return ((CPerlObj*)pPerl)->Perl_pp_null();
6077 }
6078
6079 #undef  Perl_pp_oct
6080 OP *
6081 Perl_pp_oct(void *pPerl)
6082 {
6083     return ((CPerlObj*)pPerl)->Perl_pp_oct();
6084 }
6085
6086 #undef  Perl_pp_open
6087 OP *
6088 Perl_pp_open(void *pPerl)
6089 {
6090     return ((CPerlObj*)pPerl)->Perl_pp_open();
6091 }
6092
6093 #undef  Perl_pp_open_dir
6094 OP *
6095 Perl_pp_open_dir(void *pPerl)
6096 {
6097     return ((CPerlObj*)pPerl)->Perl_pp_open_dir();
6098 }
6099
6100 #undef  Perl_pp_or
6101 OP *
6102 Perl_pp_or(void *pPerl)
6103 {
6104     return ((CPerlObj*)pPerl)->Perl_pp_or();
6105 }
6106
6107 #undef  Perl_pp_orassign
6108 OP *
6109 Perl_pp_orassign(void *pPerl)
6110 {
6111     return ((CPerlObj*)pPerl)->Perl_pp_orassign();
6112 }
6113
6114 #undef  Perl_pp_ord
6115 OP *
6116 Perl_pp_ord(void *pPerl)
6117 {
6118     return ((CPerlObj*)pPerl)->Perl_pp_ord();
6119 }
6120
6121 #undef  Perl_pp_pack
6122 OP *
6123 Perl_pp_pack(void *pPerl)
6124 {
6125     return ((CPerlObj*)pPerl)->Perl_pp_pack();
6126 }
6127
6128 #undef  Perl_pp_padany
6129 OP *
6130 Perl_pp_padany(void *pPerl)
6131 {
6132     return ((CPerlObj*)pPerl)->Perl_pp_padany();
6133 }
6134
6135 #undef  Perl_pp_padav
6136 OP *
6137 Perl_pp_padav(void *pPerl)
6138 {
6139     return ((CPerlObj*)pPerl)->Perl_pp_padav();
6140 }
6141
6142 #undef  Perl_pp_padhv
6143 OP *
6144 Perl_pp_padhv(void *pPerl)
6145 {
6146     return ((CPerlObj*)pPerl)->Perl_pp_padhv();
6147 }
6148
6149 #undef  Perl_pp_padsv
6150 OP *
6151 Perl_pp_padsv(void *pPerl)
6152 {
6153     return ((CPerlObj*)pPerl)->Perl_pp_padsv();
6154 }
6155
6156 #undef  Perl_pp_pipe_op
6157 OP *
6158 Perl_pp_pipe_op(void *pPerl)
6159 {
6160     return ((CPerlObj*)pPerl)->Perl_pp_pipe_op();
6161 }
6162
6163 #undef  Perl_pp_pop
6164 OP *
6165 Perl_pp_pop(void *pPerl)
6166 {
6167     return ((CPerlObj*)pPerl)->Perl_pp_pop();
6168 }
6169
6170 #undef  Perl_pp_pos
6171 OP *
6172 Perl_pp_pos(void *pPerl)
6173 {
6174     return ((CPerlObj*)pPerl)->Perl_pp_pos();
6175 }
6176
6177 #undef  Perl_pp_postdec
6178 OP *
6179 Perl_pp_postdec(void *pPerl)
6180 {
6181     return ((CPerlObj*)pPerl)->Perl_pp_postdec();
6182 }
6183
6184 #undef  Perl_pp_postinc
6185 OP *
6186 Perl_pp_postinc(void *pPerl)
6187 {
6188     return ((CPerlObj*)pPerl)->Perl_pp_postinc();
6189 }
6190
6191 #undef  Perl_pp_pow
6192 OP *
6193 Perl_pp_pow(void *pPerl)
6194 {
6195     return ((CPerlObj*)pPerl)->Perl_pp_pow();
6196 }
6197
6198 #undef  Perl_pp_predec
6199 OP *
6200 Perl_pp_predec(void *pPerl)
6201 {
6202     return ((CPerlObj*)pPerl)->Perl_pp_predec();
6203 }
6204
6205 #undef  Perl_pp_preinc
6206 OP *
6207 Perl_pp_preinc(void *pPerl)
6208 {
6209     return ((CPerlObj*)pPerl)->Perl_pp_preinc();
6210 }
6211
6212 #undef  Perl_pp_print
6213 OP *
6214 Perl_pp_print(void *pPerl)
6215 {
6216     return ((CPerlObj*)pPerl)->Perl_pp_print();
6217 }
6218
6219 #undef  Perl_pp_prototype
6220 OP *
6221 Perl_pp_prototype(void *pPerl)
6222 {
6223     return ((CPerlObj*)pPerl)->Perl_pp_prototype();
6224 }
6225
6226 #undef  Perl_pp_prtf
6227 OP *
6228 Perl_pp_prtf(void *pPerl)
6229 {
6230     return ((CPerlObj*)pPerl)->Perl_pp_prtf();
6231 }
6232
6233 #undef  Perl_pp_push
6234 OP *
6235 Perl_pp_push(void *pPerl)
6236 {
6237     return ((CPerlObj*)pPerl)->Perl_pp_push();
6238 }
6239
6240 #undef  Perl_pp_pushmark
6241 OP *
6242 Perl_pp_pushmark(void *pPerl)
6243 {
6244     return ((CPerlObj*)pPerl)->Perl_pp_pushmark();
6245 }
6246
6247 #undef  Perl_pp_pushre
6248 OP *
6249 Perl_pp_pushre(void *pPerl)
6250 {
6251     return ((CPerlObj*)pPerl)->Perl_pp_pushre();
6252 }
6253
6254 #undef  Perl_pp_qr
6255 OP *
6256 Perl_pp_qr(void *pPerl)
6257 {
6258     return ((CPerlObj*)pPerl)->Perl_pp_qr();
6259 }
6260
6261 #undef  Perl_pp_quotemeta
6262 OP *
6263 Perl_pp_quotemeta(void *pPerl)
6264 {
6265     return ((CPerlObj*)pPerl)->Perl_pp_quotemeta();
6266 }
6267
6268 #undef  Perl_pp_rand
6269 OP *
6270 Perl_pp_rand(void *pPerl)
6271 {
6272     return ((CPerlObj*)pPerl)->Perl_pp_rand();
6273 }
6274
6275 #undef  Perl_pp_range
6276 OP *
6277 Perl_pp_range(void *pPerl)
6278 {
6279     return ((CPerlObj*)pPerl)->Perl_pp_range();
6280 }
6281
6282 #undef  Perl_pp_rcatline
6283 OP *
6284 Perl_pp_rcatline(void *pPerl)
6285 {
6286     return ((CPerlObj*)pPerl)->Perl_pp_rcatline();
6287 }
6288
6289 #undef  Perl_pp_read
6290 OP *
6291 Perl_pp_read(void *pPerl)
6292 {
6293     return ((CPerlObj*)pPerl)->Perl_pp_read();
6294 }
6295
6296 #undef  Perl_pp_readdir
6297 OP *
6298 Perl_pp_readdir(void *pPerl)
6299 {
6300     return ((CPerlObj*)pPerl)->Perl_pp_readdir();
6301 }
6302
6303 #undef  Perl_pp_readline
6304 OP *
6305 Perl_pp_readline(void *pPerl)
6306 {
6307     return ((CPerlObj*)pPerl)->Perl_pp_readline();
6308 }
6309
6310 #undef  Perl_pp_readlink
6311 OP *
6312 Perl_pp_readlink(void *pPerl)
6313 {
6314     return ((CPerlObj*)pPerl)->Perl_pp_readlink();
6315 }
6316
6317 #undef  Perl_pp_recv
6318 OP *
6319 Perl_pp_recv(void *pPerl)
6320 {
6321     return ((CPerlObj*)pPerl)->Perl_pp_recv();
6322 }
6323
6324 #undef  Perl_pp_redo
6325 OP *
6326 Perl_pp_redo(void *pPerl)
6327 {
6328     return ((CPerlObj*)pPerl)->Perl_pp_redo();
6329 }
6330
6331 #undef  Perl_pp_ref
6332 OP *
6333 Perl_pp_ref(void *pPerl)
6334 {
6335     return ((CPerlObj*)pPerl)->Perl_pp_ref();
6336 }
6337
6338 #undef  Perl_pp_refgen
6339 OP *
6340 Perl_pp_refgen(void *pPerl)
6341 {
6342     return ((CPerlObj*)pPerl)->Perl_pp_refgen();
6343 }
6344
6345 #undef  Perl_pp_regcmaybe
6346 OP *
6347 Perl_pp_regcmaybe(void *pPerl)
6348 {
6349     return ((CPerlObj*)pPerl)->Perl_pp_regcmaybe();
6350 }
6351
6352 #undef  Perl_pp_regcomp
6353 OP *
6354 Perl_pp_regcomp(void *pPerl)
6355 {
6356     return ((CPerlObj*)pPerl)->Perl_pp_regcomp();
6357 }
6358
6359 #undef  Perl_pp_regcreset
6360 OP *
6361 Perl_pp_regcreset(void *pPerl)
6362 {
6363     return ((CPerlObj*)pPerl)->Perl_pp_regcreset();
6364 }
6365
6366 #undef  Perl_pp_rename
6367 OP *
6368 Perl_pp_rename(void *pPerl)
6369 {
6370     return ((CPerlObj*)pPerl)->Perl_pp_rename();
6371 }
6372
6373 #undef  Perl_pp_repeat
6374 OP *
6375 Perl_pp_repeat(void *pPerl)
6376 {
6377     return ((CPerlObj*)pPerl)->Perl_pp_repeat();
6378 }
6379
6380 #undef  Perl_pp_require
6381 OP *
6382 Perl_pp_require(void *pPerl)
6383 {
6384     return ((CPerlObj*)pPerl)->Perl_pp_require();
6385 }
6386
6387 #undef  Perl_pp_reset
6388 OP *
6389 Perl_pp_reset(void *pPerl)
6390 {
6391     return ((CPerlObj*)pPerl)->Perl_pp_reset();
6392 }
6393
6394 #undef  Perl_pp_return
6395 OP *
6396 Perl_pp_return(void *pPerl)
6397 {
6398     return ((CPerlObj*)pPerl)->Perl_pp_return();
6399 }
6400
6401 #undef  Perl_pp_reverse
6402 OP *
6403 Perl_pp_reverse(void *pPerl)
6404 {
6405     return ((CPerlObj*)pPerl)->Perl_pp_reverse();
6406 }
6407
6408 #undef  Perl_pp_rewinddir
6409 OP *
6410 Perl_pp_rewinddir(void *pPerl)
6411 {
6412     return ((CPerlObj*)pPerl)->Perl_pp_rewinddir();
6413 }
6414
6415 #undef  Perl_pp_right_shift
6416 OP *
6417 Perl_pp_right_shift(void *pPerl)
6418 {
6419     return ((CPerlObj*)pPerl)->Perl_pp_right_shift();
6420 }
6421
6422 #undef  Perl_pp_rindex
6423 OP *
6424 Perl_pp_rindex(void *pPerl)
6425 {
6426     return ((CPerlObj*)pPerl)->Perl_pp_rindex();
6427 }
6428
6429 #undef  Perl_pp_rmdir
6430 OP *
6431 Perl_pp_rmdir(void *pPerl)
6432 {
6433     return ((CPerlObj*)pPerl)->Perl_pp_rmdir();
6434 }
6435
6436 #undef  Perl_pp_rv2av
6437 OP *
6438 Perl_pp_rv2av(void *pPerl)
6439 {
6440     return ((CPerlObj*)pPerl)->Perl_pp_rv2av();
6441 }
6442
6443 #undef  Perl_pp_rv2cv
6444 OP *
6445 Perl_pp_rv2cv(void *pPerl)
6446 {
6447     return ((CPerlObj*)pPerl)->Perl_pp_rv2cv();
6448 }
6449
6450 #undef  Perl_pp_rv2gv
6451 OP *
6452 Perl_pp_rv2gv(void *pPerl)
6453 {
6454     return ((CPerlObj*)pPerl)->Perl_pp_rv2gv();
6455 }
6456
6457 #undef  Perl_pp_rv2hv
6458 OP *
6459 Perl_pp_rv2hv(void *pPerl)
6460 {
6461     return ((CPerlObj*)pPerl)->Perl_pp_rv2hv();
6462 }
6463
6464 #undef  Perl_pp_rv2sv
6465 OP *
6466 Perl_pp_rv2sv(void *pPerl)
6467 {
6468     return ((CPerlObj*)pPerl)->Perl_pp_rv2sv();
6469 }
6470
6471 #undef  Perl_pp_sassign
6472 OP *
6473 Perl_pp_sassign(void *pPerl)
6474 {
6475     return ((CPerlObj*)pPerl)->Perl_pp_sassign();
6476 }
6477
6478 #undef  Perl_pp_scalar
6479 OP *
6480 Perl_pp_scalar(void *pPerl)
6481 {
6482     return ((CPerlObj*)pPerl)->Perl_pp_scalar();
6483 }
6484
6485 #undef  Perl_pp_schomp
6486 OP *
6487 Perl_pp_schomp(void *pPerl)
6488 {
6489     return ((CPerlObj*)pPerl)->Perl_pp_schomp();
6490 }
6491
6492 #undef  Perl_pp_schop
6493 OP *
6494 Perl_pp_schop(void *pPerl)
6495 {
6496     return ((CPerlObj*)pPerl)->Perl_pp_schop();
6497 }
6498
6499 #undef  Perl_pp_scmp
6500 OP *
6501 Perl_pp_scmp(void *pPerl)
6502 {
6503     return ((CPerlObj*)pPerl)->Perl_pp_scmp();
6504 }
6505
6506 #undef  Perl_pp_scope
6507 OP *
6508 Perl_pp_scope(void *pPerl)
6509 {
6510     return ((CPerlObj*)pPerl)->Perl_pp_scope();
6511 }
6512
6513 #undef  Perl_pp_seek
6514 OP *
6515 Perl_pp_seek(void *pPerl)
6516 {
6517     return ((CPerlObj*)pPerl)->Perl_pp_seek();
6518 }
6519
6520 #undef  Perl_pp_seekdir
6521 OP *
6522 Perl_pp_seekdir(void *pPerl)
6523 {
6524     return ((CPerlObj*)pPerl)->Perl_pp_seekdir();
6525 }
6526
6527 #undef  Perl_pp_select
6528 OP *
6529 Perl_pp_select(void *pPerl)
6530 {
6531     return ((CPerlObj*)pPerl)->Perl_pp_select();
6532 }
6533
6534 #undef  Perl_pp_semctl
6535 OP *
6536 Perl_pp_semctl(void *pPerl)
6537 {
6538     return ((CPerlObj*)pPerl)->Perl_pp_semctl();
6539 }
6540
6541 #undef  Perl_pp_semget
6542 OP *
6543 Perl_pp_semget(void *pPerl)
6544 {
6545     return ((CPerlObj*)pPerl)->Perl_pp_semget();
6546 }
6547
6548 #undef  Perl_pp_semop
6549 OP *
6550 Perl_pp_semop(void *pPerl)
6551 {
6552     return ((CPerlObj*)pPerl)->Perl_pp_semop();
6553 }
6554
6555 #undef  Perl_pp_send
6556 OP *
6557 Perl_pp_send(void *pPerl)
6558 {
6559     return ((CPerlObj*)pPerl)->Perl_pp_send();
6560 }
6561
6562 #undef  Perl_pp_seq
6563 OP *
6564 Perl_pp_seq(void *pPerl)
6565 {
6566     return ((CPerlObj*)pPerl)->Perl_pp_seq();
6567 }
6568
6569 #undef  Perl_pp_setpgrp
6570 OP *
6571 Perl_pp_setpgrp(void *pPerl)
6572 {
6573     return ((CPerlObj*)pPerl)->Perl_pp_setpgrp();
6574 }
6575
6576 #undef  Perl_pp_setpriority
6577 OP *
6578 Perl_pp_setpriority(void *pPerl)
6579 {
6580     return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
6581 }
6582
6583 #undef  Perl_pp_sge
6584 OP *
6585 Perl_pp_sge(void *pPerl)
6586 {
6587     return ((CPerlObj*)pPerl)->Perl_pp_sge();
6588 }
6589
6590 #undef  Perl_pp_sgrent
6591 OP *
6592 Perl_pp_sgrent(void *pPerl)
6593 {
6594     return ((CPerlObj*)pPerl)->Perl_pp_sgrent();
6595 }
6596
6597 #undef  Perl_pp_sgt
6598 OP *
6599 Perl_pp_sgt(void *pPerl)
6600 {
6601     return ((CPerlObj*)pPerl)->Perl_pp_sgt();
6602 }
6603
6604 #undef  Perl_pp_shift
6605 OP *
6606 Perl_pp_shift(void *pPerl)
6607 {
6608     return ((CPerlObj*)pPerl)->Perl_pp_shift();
6609 }
6610
6611 #undef  Perl_pp_shmctl
6612 OP *
6613 Perl_pp_shmctl(void *pPerl)
6614 {
6615     return ((CPerlObj*)pPerl)->Perl_pp_shmctl();
6616 }
6617
6618 #undef  Perl_pp_shmget
6619 OP *
6620 Perl_pp_shmget(void *pPerl)
6621 {
6622     return ((CPerlObj*)pPerl)->Perl_pp_shmget();
6623 }
6624
6625 #undef  Perl_pp_shmread
6626 OP *
6627 Perl_pp_shmread(void *pPerl)
6628 {
6629     return ((CPerlObj*)pPerl)->Perl_pp_shmread();
6630 }
6631
6632 #undef  Perl_pp_shmwrite
6633 OP *
6634 Perl_pp_shmwrite(void *pPerl)
6635 {
6636     return ((CPerlObj*)pPerl)->Perl_pp_shmwrite();
6637 }
6638
6639 #undef  Perl_pp_shostent
6640 OP *
6641 Perl_pp_shostent(void *pPerl)
6642 {
6643     return ((CPerlObj*)pPerl)->Perl_pp_shostent();
6644 }
6645
6646 #undef  Perl_pp_shutdown
6647 OP *
6648 Perl_pp_shutdown(void *pPerl)
6649 {
6650     return ((CPerlObj*)pPerl)->Perl_pp_shutdown();
6651 }
6652
6653 #undef  Perl_pp_sin
6654 OP *
6655 Perl_pp_sin(void *pPerl)
6656 {
6657     return ((CPerlObj*)pPerl)->Perl_pp_sin();
6658 }
6659
6660 #undef  Perl_pp_sle
6661 OP *
6662 Perl_pp_sle(void *pPerl)
6663 {
6664     return ((CPerlObj*)pPerl)->Perl_pp_sle();
6665 }
6666
6667 #undef  Perl_pp_sleep
6668 OP *
6669 Perl_pp_sleep(void *pPerl)
6670 {
6671     return ((CPerlObj*)pPerl)->Perl_pp_sleep();
6672 }
6673
6674 #undef  Perl_pp_slt
6675 OP *
6676 Perl_pp_slt(void *pPerl)
6677 {
6678     return ((CPerlObj*)pPerl)->Perl_pp_slt();
6679 }
6680
6681 #undef  Perl_pp_sne
6682 OP *
6683 Perl_pp_sne(void *pPerl)
6684 {
6685     return ((CPerlObj*)pPerl)->Perl_pp_sne();
6686 }
6687
6688 #undef  Perl_pp_snetent
6689 OP *
6690 Perl_pp_snetent(void *pPerl)
6691 {
6692     return ((CPerlObj*)pPerl)->Perl_pp_snetent();
6693 }
6694
6695 #undef  Perl_pp_socket
6696 OP *
6697 Perl_pp_socket(void *pPerl)
6698 {
6699     return ((CPerlObj*)pPerl)->Perl_pp_socket();
6700 }
6701
6702 #undef  Perl_pp_sockpair
6703 OP *
6704 Perl_pp_sockpair(void *pPerl)
6705 {
6706     return ((CPerlObj*)pPerl)->Perl_pp_sockpair();
6707 }
6708
6709 #undef  Perl_pp_sort
6710 OP *
6711 Perl_pp_sort(void *pPerl)
6712 {
6713     return ((CPerlObj*)pPerl)->Perl_pp_sort();
6714 }
6715
6716 #undef  Perl_pp_splice
6717 OP *
6718 Perl_pp_splice(void *pPerl)
6719 {
6720     return ((CPerlObj*)pPerl)->Perl_pp_splice();
6721 }
6722
6723 #undef  Perl_pp_split
6724 OP *
6725 Perl_pp_split(void *pPerl)
6726 {
6727     return ((CPerlObj*)pPerl)->Perl_pp_split();
6728 }
6729
6730 #undef  Perl_pp_sprintf
6731 OP *
6732 Perl_pp_sprintf(void *pPerl)
6733 {
6734     return ((CPerlObj*)pPerl)->Perl_pp_sprintf();
6735 }
6736
6737 #undef  Perl_pp_sprotoent
6738 OP *
6739 Perl_pp_sprotoent(void *pPerl)
6740 {
6741     return ((CPerlObj*)pPerl)->Perl_pp_sprotoent();
6742 }
6743
6744 #undef  Perl_pp_spwent
6745 OP *
6746 Perl_pp_spwent(void *pPerl)
6747 {
6748     return ((CPerlObj*)pPerl)->Perl_pp_spwent();
6749 }
6750
6751 #undef  Perl_pp_sqrt
6752 OP *
6753 Perl_pp_sqrt(void *pPerl)
6754 {
6755     return ((CPerlObj*)pPerl)->Perl_pp_sqrt();
6756 }
6757
6758 #undef  Perl_pp_srand
6759 OP *
6760 Perl_pp_srand(void *pPerl)
6761 {
6762     return ((CPerlObj*)pPerl)->Perl_pp_srand();
6763 }
6764
6765 #undef  Perl_pp_srefgen
6766 OP *
6767 Perl_pp_srefgen(void *pPerl)
6768 {
6769     return ((CPerlObj*)pPerl)->Perl_pp_srefgen();
6770 }
6771
6772 #undef  Perl_pp_sselect
6773 OP *
6774 Perl_pp_sselect(void *pPerl)
6775 {
6776     return ((CPerlObj*)pPerl)->Perl_pp_sselect();
6777 }
6778
6779 #undef  Perl_pp_sservent
6780 OP *
6781 Perl_pp_sservent(void *pPerl)
6782 {
6783     return ((CPerlObj*)pPerl)->Perl_pp_sservent();
6784 }
6785
6786 #undef  Perl_pp_ssockopt
6787 OP *
6788 Perl_pp_ssockopt(void *pPerl)
6789 {
6790     return ((CPerlObj*)pPerl)->Perl_pp_ssockopt();
6791 }
6792
6793 #undef  Perl_pp_stat
6794 OP *
6795 Perl_pp_stat(void *pPerl)
6796 {
6797     return ((CPerlObj*)pPerl)->Perl_pp_stat();
6798 }
6799
6800 #undef  Perl_pp_stringify
6801 OP *
6802 Perl_pp_stringify(void *pPerl)
6803 {
6804     return ((CPerlObj*)pPerl)->Perl_pp_stringify();
6805 }
6806
6807 #undef  Perl_pp_stub
6808 OP *
6809 Perl_pp_stub(void *pPerl)
6810 {
6811     return ((CPerlObj*)pPerl)->Perl_pp_stub();
6812 }
6813
6814 #undef  Perl_pp_study
6815 OP *
6816 Perl_pp_study(void *pPerl)
6817 {
6818     return ((CPerlObj*)pPerl)->Perl_pp_study();
6819 }
6820
6821 #undef  Perl_pp_subst
6822 OP *
6823 Perl_pp_subst(void *pPerl)
6824 {
6825     return ((CPerlObj*)pPerl)->Perl_pp_subst();
6826 }
6827
6828 #undef  Perl_pp_substcont
6829 OP *
6830 Perl_pp_substcont(void *pPerl)
6831 {
6832     return ((CPerlObj*)pPerl)->Perl_pp_substcont();
6833 }
6834
6835 #undef  Perl_pp_substr
6836 OP *
6837 Perl_pp_substr(void *pPerl)
6838 {
6839     return ((CPerlObj*)pPerl)->Perl_pp_substr();
6840 }
6841
6842 #undef  Perl_pp_subtract
6843 OP *
6844 Perl_pp_subtract(void *pPerl)
6845 {
6846     return ((CPerlObj*)pPerl)->Perl_pp_subtract();
6847 }
6848
6849 #undef  Perl_pp_symlink
6850 OP *
6851 Perl_pp_symlink(void *pPerl)
6852 {
6853     return ((CPerlObj*)pPerl)->Perl_pp_symlink();
6854 }
6855
6856 #undef  Perl_pp_syscall
6857 OP *
6858 Perl_pp_syscall(void *pPerl)
6859 {
6860     return ((CPerlObj*)pPerl)->Perl_pp_syscall();
6861 }
6862
6863 #undef  Perl_pp_sysopen
6864 OP *
6865 Perl_pp_sysopen(void *pPerl)
6866 {
6867     return ((CPerlObj*)pPerl)->Perl_pp_sysopen();
6868 }
6869
6870 #undef  Perl_pp_sysread
6871 OP *
6872 Perl_pp_sysread(void *pPerl)
6873 {
6874     return ((CPerlObj*)pPerl)->Perl_pp_sysread();
6875 }
6876
6877 #undef  Perl_pp_sysseek
6878 OP *
6879 Perl_pp_sysseek(void *pPerl)
6880 {
6881     return ((CPerlObj*)pPerl)->Perl_pp_sysseek();
6882 }
6883
6884 #undef  Perl_pp_system
6885 OP *
6886 Perl_pp_system(void *pPerl)
6887 {
6888     return ((CPerlObj*)pPerl)->Perl_pp_system();
6889 }
6890
6891 #undef  Perl_pp_syswrite
6892 OP *
6893 Perl_pp_syswrite(void *pPerl)
6894 {
6895     return ((CPerlObj*)pPerl)->Perl_pp_syswrite();
6896 }
6897
6898 #undef  Perl_pp_tell
6899 OP *
6900 Perl_pp_tell(void *pPerl)
6901 {
6902     return ((CPerlObj*)pPerl)->Perl_pp_tell();
6903 }
6904
6905 #undef  Perl_pp_telldir
6906 OP *
6907 Perl_pp_telldir(void *pPerl)
6908 {
6909     return ((CPerlObj*)pPerl)->Perl_pp_telldir();
6910 }
6911
6912 #undef  Perl_pp_threadsv
6913 OP *
6914 Perl_pp_threadsv(void *pPerl)
6915 {
6916     return ((CPerlObj*)pPerl)->Perl_pp_threadsv();
6917 }
6918
6919 #undef  Perl_pp_tie
6920 OP *
6921 Perl_pp_tie(void *pPerl)
6922 {
6923     return ((CPerlObj*)pPerl)->Perl_pp_tie();
6924 }
6925
6926 #undef  Perl_pp_tied
6927 OP *
6928 Perl_pp_tied(void *pPerl)
6929 {
6930     return ((CPerlObj*)pPerl)->Perl_pp_tied();
6931 }
6932
6933 #undef  Perl_pp_time
6934 OP *
6935 Perl_pp_time(void *pPerl)
6936 {
6937     return ((CPerlObj*)pPerl)->Perl_pp_time();
6938 }
6939
6940 #undef  Perl_pp_tms
6941 OP *
6942 Perl_pp_tms(void *pPerl)
6943 {
6944     return ((CPerlObj*)pPerl)->Perl_pp_tms();
6945 }
6946
6947 #undef  Perl_pp_trans
6948 OP *
6949 Perl_pp_trans(void *pPerl)
6950 {
6951     return ((CPerlObj*)pPerl)->Perl_pp_trans();
6952 }
6953
6954 #undef  Perl_pp_truncate
6955 OP *
6956 Perl_pp_truncate(void *pPerl)
6957 {
6958     return ((CPerlObj*)pPerl)->Perl_pp_truncate();
6959 }
6960
6961 #undef  Perl_pp_uc
6962 OP *
6963 Perl_pp_uc(void *pPerl)
6964 {
6965     return ((CPerlObj*)pPerl)->Perl_pp_uc();
6966 }
6967
6968 #undef  Perl_pp_ucfirst
6969 OP *
6970 Perl_pp_ucfirst(void *pPerl)
6971 {
6972     return ((CPerlObj*)pPerl)->Perl_pp_ucfirst();
6973 }
6974
6975 #undef  Perl_pp_umask
6976 OP *
6977 Perl_pp_umask(void *pPerl)
6978 {
6979     return ((CPerlObj*)pPerl)->Perl_pp_umask();
6980 }
6981
6982 #undef  Perl_pp_undef
6983 OP *
6984 Perl_pp_undef(void *pPerl)
6985 {
6986     return ((CPerlObj*)pPerl)->Perl_pp_undef();
6987 }
6988
6989 #undef  Perl_pp_unlink
6990 OP *
6991 Perl_pp_unlink(void *pPerl)
6992 {
6993     return ((CPerlObj*)pPerl)->Perl_pp_unlink();
6994 }
6995
6996 #undef  Perl_pp_unpack
6997 OP *
6998 Perl_pp_unpack(void *pPerl)
6999 {
7000     return ((CPerlObj*)pPerl)->Perl_pp_unpack();
7001 }
7002
7003 #undef  Perl_pp_unshift
7004 OP *
7005 Perl_pp_unshift(void *pPerl)
7006 {
7007     return ((CPerlObj*)pPerl)->Perl_pp_unshift();
7008 }
7009
7010 #undef  Perl_pp_unstack
7011 OP *
7012 Perl_pp_unstack(void *pPerl)
7013 {
7014     return ((CPerlObj*)pPerl)->Perl_pp_unstack();
7015 }
7016
7017 #undef  Perl_pp_untie
7018 OP *
7019 Perl_pp_untie(void *pPerl)
7020 {
7021     return ((CPerlObj*)pPerl)->Perl_pp_untie();
7022 }
7023
7024 #undef  Perl_pp_utime
7025 OP *
7026 Perl_pp_utime(void *pPerl)
7027 {
7028     return ((CPerlObj*)pPerl)->Perl_pp_utime();
7029 }
7030
7031 #undef  Perl_pp_values
7032 OP *
7033 Perl_pp_values(void *pPerl)
7034 {
7035     return ((CPerlObj*)pPerl)->Perl_pp_values();
7036 }
7037
7038 #undef  Perl_pp_vec
7039 OP *
7040 Perl_pp_vec(void *pPerl)
7041 {
7042     return ((CPerlObj*)pPerl)->Perl_pp_vec();
7043 }
7044
7045 #undef  Perl_pp_wait
7046 OP *
7047 Perl_pp_wait(void *pPerl)
7048 {
7049     return ((CPerlObj*)pPerl)->Perl_pp_wait();
7050 }
7051
7052 #undef  Perl_pp_waitpid
7053 OP *
7054 Perl_pp_waitpid(void *pPerl)
7055 {
7056     return ((CPerlObj*)pPerl)->Perl_pp_waitpid();
7057 }
7058
7059 #undef  Perl_pp_wantarray
7060 OP *
7061 Perl_pp_wantarray(void *pPerl)
7062 {
7063     return ((CPerlObj*)pPerl)->Perl_pp_wantarray();
7064 }
7065
7066 #undef  Perl_pp_warn
7067 OP *
7068 Perl_pp_warn(void *pPerl)
7069 {
7070     return ((CPerlObj*)pPerl)->Perl_pp_warn();
7071 }
7072
7073 #undef  Perl_pp_xor
7074 OP *
7075 Perl_pp_xor(void *pPerl)
7076 {
7077     return ((CPerlObj*)pPerl)->Perl_pp_xor();
7078 }
7079
7080 END_EXTERN_C
7081
7082 #endif /* PERL_OBJECT */