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(pTHXo)                        \
  20                         { return &(aTHXo->interp.v); }
  21 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
  22                         { return &(aTHXo->interp.v); }
  23 #define PERLVARI(v,t,i) PERLVAR(v,t)
  24 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
  25
  26 #include "thrdvar.h"
  27 #include "intrpvar.h"
  28
  29 #undef PERLVAR
  30 #undef PERLVARA
  31 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
  32                         { return &(PL_##v); }
  33 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
  34                         { return &(PL_##v); }
  35 #include "perlvars.h"
  36
  37 #undef PERLVAR
  38 #undef PERLVARA
  39 #undef PERLVARI
  40 #undef PERLVARIC
  41
  42 #if defined(PERL_IMPLICIT_SYS)
  43 #else
  44 #endif
  45 #if defined(USE_ITHREADS)
  46 #  if defined(PERL_IMPLICIT_SYS)
  47 #  endif
  48 #endif
  49 #if defined(MYMALLOC)
  50 #endif
  51 #if defined(PERL_OBJECT)
  52 #endif
  53 #if defined(PERL_OBJECT)
  54 #else
  55 #endif
  56
  57 #undef  Perl_amagic_call
  58 SV*
  59 Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
  60 {
  61     return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
  62 }
  63
  64 #undef  Perl_Gv_AMupdate
  65 bool
  66 Perl_Gv_AMupdate(pTHXo_ HV* stash)
  67 {
  68     return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
  69 }
  70
  71 #undef  Perl_append_elem
  72 OP*
  73 Perl_append_elem(pTHXo_ I32 optype, OP* head, OP* tail)
  74 {
  75     return ((CPerlObj*)pPerl)->Perl_append_elem(optype, head, tail);
  76 }
  77
  78 #undef  Perl_append_list
  79 OP*
  80 Perl_append_list(pTHXo_ I32 optype, LISTOP* first, LISTOP* last)
  81 {
  82     return ((CPerlObj*)pPerl)->Perl_append_list(optype, first, last);
  83 }
  84
  85 #undef  Perl_apply
  86 I32
  87 Perl_apply(pTHXo_ I32 type, SV** mark, SV** sp)
  88 {
  89     return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
  90 }
  91
  92 #undef  Perl_avhv_exists_ent
  93 bool
  94 Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)
  95 {
  96     return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
  97 }
  98
  99 #undef  Perl_avhv_fetch_ent
 100 SV**
 101 Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash)
 102 {
 103     return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
 104 }
 105
 106 #undef  Perl_avhv_iternext
 107 HE*
 108 Perl_avhv_iternext(pTHXo_ AV *ar)
 109 {
 110     return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
 111 }
 112
 113 #undef  Perl_avhv_iterval
 114 SV*
 115 Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry)
 116 {
 117     return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
 118 }
 119
 120 #undef  Perl_avhv_keys
 121 HV*
 122 Perl_avhv_keys(pTHXo_ AV *ar)
 123 {
 124     return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
 125 }
 126
 127 #undef  Perl_av_clear
 128 void
 129 Perl_av_clear(pTHXo_ AV* ar)
 130 {
 131     ((CPerlObj*)pPerl)->Perl_av_clear(ar);
 132 }
 133
 134 #undef  Perl_av_extend
 135 void
 136 Perl_av_extend(pTHXo_ AV* ar, I32 key)
 137 {
 138     ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
 139 }
 140
 141 #undef  Perl_av_fake
 142 AV*
 143 Perl_av_fake(pTHXo_ I32 size, SV** svp)
 144 {
 145     return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
 146 }
 147
 148 #undef  Perl_av_fetch
 149 SV**
 150 Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
 151 {
 152     return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
 153 }
 154
 155 #undef  Perl_av_fill
 156 void
 157 Perl_av_fill(pTHXo_ AV* ar, I32 fill)
 158 {
 159     ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
 160 }
 161
 162 #undef  Perl_av_len
 163 I32
 164 Perl_av_len(pTHXo_ AV* ar)
 165 {
 166     return ((CPerlObj*)pPerl)->Perl_av_len(ar);
 167 }
 168
 169 #undef  Perl_av_make
 170 AV*
 171 Perl_av_make(pTHXo_ I32 size, SV** svp)
 172 {
 173     return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
 174 }
 175
 176 #undef  Perl_av_pop
 177 SV*
 178 Perl_av_pop(pTHXo_ AV* ar)
 179 {
 180     return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
 181 }
 182
 183 #undef  Perl_av_push
 184 void
 185 Perl_av_push(pTHXo_ AV* ar, SV* val)
 186 {
 187     ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
 188 }
 189
 190 #undef  Perl_av_reify
 191 void
 192 Perl_av_reify(pTHXo_ AV* ar)
 193 {
 194     ((CPerlObj*)pPerl)->Perl_av_reify(ar);
 195 }
 196
 197 #undef  Perl_av_shift
 198 SV*
 199 Perl_av_shift(pTHXo_ AV* ar)
 200 {
 201     return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
 202 }
 203
 204 #undef  Perl_av_store
 205 SV**
 206 Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val)
 207 {
 208     return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
 209 }
 210
 211 #undef  Perl_av_undef
 212 void
 213 Perl_av_undef(pTHXo_ AV* ar)
 214 {
 215     ((CPerlObj*)pPerl)->Perl_av_undef(ar);
 216 }
 217
 218 #undef  Perl_av_unshift
 219 void
 220 Perl_av_unshift(pTHXo_ AV* ar, I32 num)
 221 {
 222     ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
 223 }
 224
 225 #undef  Perl_bind_match
 226 OP*
 227 Perl_bind_match(pTHXo_ I32 type, OP* left, OP* pat)
 228 {
 229     return ((CPerlObj*)pPerl)->Perl_bind_match(type, left, pat);
 230 }
 231
 232 #undef  Perl_block_end
 233 OP*
 234 Perl_block_end(pTHXo_ I32 floor, OP* seq)
 235 {
 236     return ((CPerlObj*)pPerl)->Perl_block_end(floor, seq);
 237 }
 238
 239 #undef  Perl_block_gimme
 240 I32
 241 Perl_block_gimme(pTHXo)
 242 {
 243     return ((CPerlObj*)pPerl)->Perl_block_gimme();
 244 }
 245
 246 #undef  Perl_block_start
 247 int
 248 Perl_block_start(pTHXo_ int full)
 249 {
 250     return ((CPerlObj*)pPerl)->Perl_block_start(full);
 251 }
 252
 253 #undef  Perl_boot_core_UNIVERSAL
 254 void
 255 Perl_boot_core_UNIVERSAL(pTHXo)
 256 {
 257     ((CPerlObj*)pPerl)->Perl_boot_core_UNIVERSAL();
 258 }
 259
 260 #undef  Perl_call_list
 261 void
 262 Perl_call_list(pTHXo_ I32 oldscope, AV* av_list)
 263 {
 264     ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
 265 }
 266
 267 #undef  Perl_cando
 268 bool
 269 Perl_cando(pTHXo_ Mode_t mode, Uid_t effective, Stat_t* statbufp)
 270 {
 271     return ((CPerlObj*)pPerl)->Perl_cando(mode, effective, statbufp);
 272 }
 273
 274 #undef  Perl_cast_ulong
 275 U32
 276 Perl_cast_ulong(pTHXo_ NV f)
 277 {
 278     return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
 279 }
 280
 281 #undef  Perl_cast_i32
 282 I32
 283 Perl_cast_i32(pTHXo_ NV f)
 284 {
 285     return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
 286 }
 287
 288 #undef  Perl_cast_iv
 289 IV
 290 Perl_cast_iv(pTHXo_ NV f)
 291 {
 292     return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
 293 }
 294
 295 #undef  Perl_cast_uv
 296 UV
 297 Perl_cast_uv(pTHXo_ NV f)
 298 {
 299     return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
 300 }
 301 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 302
 303 #undef  Perl_my_chsize
 304 I32
 305 Perl_my_chsize(pTHXo_ int fd, Off_t length)
 306 {
 307     return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
 308 }
 309 #endif
 310 #if defined(USE_THREADS)
 311
 312 #undef  Perl_condpair_magic
 313 MAGIC*
 314 Perl_condpair_magic(pTHXo_ SV *sv)
 315 {
 316     return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
 317 }
 318 #endif
 319
 320 #undef  Perl_convert
 321 OP*
 322 Perl_convert(pTHXo_ I32 optype, I32 flags, OP* o)
 323 {
 324     return ((CPerlObj*)pPerl)->Perl_convert(optype, flags, o);
 325 }
 326
 327 #undef  Perl_croak
 328 void
 329 Perl_croak(pTHXo_ const char* pat, ...)
 330 {
 331     va_list args;
 332     va_start(args, pat);
 333     ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
 334     va_end(args);
 335 }
 336
 337 #undef  Perl_vcroak
 338 void
 339 Perl_vcroak(pTHXo_ const char* pat, va_list* args)
 340 {
 341     ((CPerlObj*)pPerl)->Perl_vcroak(pat, args);
 342 }
 343 #if defined(PERL_IMPLICIT_CONTEXT)
 344
 345 #undef  Perl_croak_nocontext
 346 void
 347 Perl_croak_nocontext(const char* pat, ...)
 348 {
 349     dTHXo;
 350     va_list args;
 351     va_start(args, pat);
 352     ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
 353     va_end(args);
 354 }
 355
 356 #undef  Perl_die_nocontext
 357 OP*
 358 Perl_die_nocontext(const char* pat, ...)
 359 {
 360     dTHXo;
 361     OP* retval;
 362     va_list args;
 363     va_start(args, pat);
 364     retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
 365     va_end(args);
 366     return retval;
 367
 368 }
 369
 370 #undef  Perl_deb_nocontext
 371 void
 372 Perl_deb_nocontext(const char* pat, ...)
 373 {
 374     dTHXo;
 375     va_list args;
 376     va_start(args, pat);
 377     ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
 378     va_end(args);
 379 }
 380
 381 #undef  Perl_form_nocontext
 382 char*
 383 Perl_form_nocontext(const char* pat, ...)
 384 {
 385     dTHXo;
 386     char* retval;
 387     va_list args;
 388     va_start(args, pat);
 389     retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
 390     va_end(args);
 391     return retval;
 392
 393 }
 394
 395 #undef  Perl_mess_nocontext
 396 SV*
 397 Perl_mess_nocontext(const char* pat, ...)
 398 {
 399     dTHXo;
 400     SV* retval;
 401     va_list args;
 402     va_start(args, pat);
 403     retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
 404     va_end(args);
 405     return retval;
 406
 407 }
 408
 409 #undef  Perl_warn_nocontext
 410 void
 411 Perl_warn_nocontext(const char* pat, ...)
 412 {
 413     dTHXo;
 414     va_list args;
 415     va_start(args, pat);
 416     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
 417     va_end(args);
 418 }
 419
 420 #undef  Perl_warner_nocontext
 421 void
 422 Perl_warner_nocontext(U32 err, const char* pat, ...)
 423 {
 424     dTHXo;
 425     va_list args;
 426     va_start(args, pat);
 427     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
 428     va_end(args);
 429 }
 430
 431 #undef  Perl_newSVpvf_nocontext
 432 SV*
 433 Perl_newSVpvf_nocontext(const char* pat, ...)
 434 {
 435     dTHXo;
 436     SV* retval;
 437     va_list args;
 438     va_start(args, pat);
 439     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
 440     va_end(args);
 441     return retval;
 442
 443 }
 444
 445 #undef  Perl_sv_catpvf_nocontext
 446 void
 447 Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
 448 {
 449     dTHXo;
 450     va_list args;
 451     va_start(args, pat);
 452     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
 453     va_end(args);
 454 }
 455
 456 #undef  Perl_sv_setpvf_nocontext
 457 void
 458 Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
 459 {
 460     dTHXo;
 461     va_list args;
 462     va_start(args, pat);
 463     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
 464     va_end(args);
 465 }
 466
 467 #undef  Perl_sv_catpvf_mg_nocontext
 468 void
 469 Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
 470 {
 471     dTHXo;
 472     va_list args;
 473     va_start(args, pat);
 474     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
 475     va_end(args);
 476 }
 477
 478 #undef  Perl_sv_setpvf_mg_nocontext
 479 void
 480 Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
 481 {
 482     dTHXo;
 483     va_list args;
 484     va_start(args, pat);
 485     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
 486     va_end(args);
 487 }
 488
 489 #undef  Perl_fprintf_nocontext
 490 #endif
 491
 492 #undef  Perl_cv_ckproto
 493 void
 494 Perl_cv_ckproto(pTHXo_ CV* cv, GV* gv, char* p)
 495 {
 496     ((CPerlObj*)pPerl)->Perl_cv_ckproto(cv, gv, p);
 497 }
 498
 499 #undef  Perl_cv_clone
 500 CV*
 501 Perl_cv_clone(pTHXo_ CV* proto)
 502 {
 503     return ((CPerlObj*)pPerl)->Perl_cv_clone(proto);
 504 }
 505
 506 #undef  Perl_cv_const_sv
 507 SV*
 508 Perl_cv_const_sv(pTHXo_ CV* cv)
 509 {
 510     return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
 511 }
 512
 513 #undef  Perl_op_const_sv
 514 SV*
 515 Perl_op_const_sv(pTHXo_ OP* o, CV* cv)
 516 {
 517     return ((CPerlObj*)pPerl)->Perl_op_const_sv(o, cv);
 518 }
 519
 520 #undef  Perl_cv_undef
 521 void
 522 Perl_cv_undef(pTHXo_ CV* cv)
 523 {
 524     ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
 525 }
 526
 527 #undef  Perl_cx_dump
 528 void
 529 Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
 530 {
 531     ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
 532 }
 533
 534 #undef  Perl_filter_add
 535 SV*
 536 Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv)
 537 {
 538     return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
 539 }
 540
 541 #undef  Perl_filter_del
 542 void
 543 Perl_filter_del(pTHXo_ filter_t funcp)
 544 {
 545     ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
 546 }
 547
 548 #undef  Perl_filter_read
 549 I32
 550 Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen)
 551 {
 552     return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
 553 }
 554
 555 #undef  Perl_get_op_descs
 556 char**
 557 Perl_get_op_descs(pTHXo)
 558 {
 559     return ((CPerlObj*)pPerl)->Perl_get_op_descs();
 560 }
 561
 562 #undef  Perl_get_op_names
 563 char**
 564 Perl_get_op_names(pTHXo)
 565 {
 566     return ((CPerlObj*)pPerl)->Perl_get_op_names();
 567 }
 568
 569 #undef  Perl_get_no_modify
 570 char*
 571 Perl_get_no_modify(pTHXo)
 572 {
 573     return ((CPerlObj*)pPerl)->Perl_get_no_modify();
 574 }
 575
 576 #undef  Perl_get_opargs
 577 U32*
 578 Perl_get_opargs(pTHXo)
 579 {
 580     return ((CPerlObj*)pPerl)->Perl_get_opargs();
 581 }
 582
 583 #undef  Perl_get_ppaddr
 584 PPADDR_t*
 585 Perl_get_ppaddr(pTHXo)
 586 {
 587     return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
 588 }
 589
 590 #undef  Perl_cxinc
 591 I32
 592 Perl_cxinc(pTHXo)
 593 {
 594     return ((CPerlObj*)pPerl)->Perl_cxinc();
 595 }
 596
 597 #undef  Perl_deb
 598 void
 599 Perl_deb(pTHXo_ const char* pat, ...)
 600 {
 601     va_list args;
 602     va_start(args, pat);
 603     ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
 604     va_end(args);
 605 }
 606
 607 #undef  Perl_vdeb
 608 void
 609 Perl_vdeb(pTHXo_ const char* pat, va_list* args)
 610 {
 611     ((CPerlObj*)pPerl)->Perl_vdeb(pat, args);
 612 }
 613
 614 #undef  Perl_debprofdump
 615 void
 616 Perl_debprofdump(pTHXo)
 617 {
 618     ((CPerlObj*)pPerl)->Perl_debprofdump();
 619 }
 620
 621 #undef  Perl_debop
 622 I32
 623 Perl_debop(pTHXo_ OP* o)
 624 {
 625     return ((CPerlObj*)pPerl)->Perl_debop(o);
 626 }
 627
 628 #undef  Perl_debstack
 629 I32
 630 Perl_debstack(pTHXo)
 631 {
 632     return ((CPerlObj*)pPerl)->Perl_debstack();
 633 }
 634
 635 #undef  Perl_debstackptrs
 636 I32
 637 Perl_debstackptrs(pTHXo)
 638 {
 639     return ((CPerlObj*)pPerl)->Perl_debstackptrs();
 640 }
 641
 642 #undef  Perl_delimcpy
 643 char*
 644 Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
 645 {
 646     return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
 647 }
 648
 649 #undef  Perl_deprecate
 650 void
 651 Perl_deprecate(pTHXo_ char* s)
 652 {
 653     ((CPerlObj*)pPerl)->Perl_deprecate(s);
 654 }
 655
 656 #undef  Perl_die
 657 OP*
 658 Perl_die(pTHXo_ const char* pat, ...)
 659 {
 660     OP* retval;
 661     va_list args;
 662     va_start(args, pat);
 663     retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
 664     va_end(args);
 665     return retval;
 666
 667 }
 668
 669 #undef  Perl_vdie
 670 OP*
 671 Perl_vdie(pTHXo_ const char* pat, va_list* args)
 672 {
 673     return ((CPerlObj*)pPerl)->Perl_vdie(pat, args);
 674 }
 675
 676 #undef  Perl_die_where
 677 OP*
 678 Perl_die_where(pTHXo_ char* message, STRLEN msglen)
 679 {
 680     return ((CPerlObj*)pPerl)->Perl_die_where(message, msglen);
 681 }
 682
 683 #undef  Perl_dounwind
 684 void
 685 Perl_dounwind(pTHXo_ I32 cxix)
 686 {
 687     ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
 688 }
 689
 690 #undef  Perl_do_aexec
 691 bool
 692 Perl_do_aexec(pTHXo_ SV* really, SV** mark, SV** sp)
 693 {
 694     return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
 695 }
 696
 697 #undef  Perl_do_aexec5
 698 bool
 699 Perl_do_aexec5(pTHXo_ SV* really, SV** mark, SV** sp, int fd, int flag)
 700 {
 701     return ((CPerlObj*)pPerl)->Perl_do_aexec5(really, mark, sp, fd, flag);
 702 }
 703
 704 #undef  Perl_do_binmode
 705 int
 706 Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
 707 {
 708     return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
 709 }
 710
 711 #undef  Perl_do_chop
 712 void
 713 Perl_do_chop(pTHXo_ SV* asv, SV* sv)
 714 {
 715     ((CPerlObj*)pPerl)->Perl_do_chop(asv, sv);
 716 }
 717
 718 #undef  Perl_do_close
 719 bool
 720 Perl_do_close(pTHXo_ GV* gv, bool not_implicit)
 721 {
 722     return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
 723 }
 724
 725 #undef  Perl_do_eof
 726 bool
 727 Perl_do_eof(pTHXo_ GV* gv)
 728 {
 729     return ((CPerlObj*)pPerl)->Perl_do_eof(gv);
 730 }
 731
 732 #undef  Perl_do_exec
 733 bool
 734 Perl_do_exec(pTHXo_ char* cmd)
 735 {
 736     return ((CPerlObj*)pPerl)->Perl_do_exec(cmd);
 737 }
 738 #if !defined(WIN32)
 739
 740 #undef  Perl_do_exec3
 741 bool
 742 Perl_do_exec3(pTHXo_ char* cmd, int fd, int flag)
 743 {
 744     return ((CPerlObj*)pPerl)->Perl_do_exec3(cmd, fd, flag);
 745 }
 746 #endif
 747
 748 #undef  Perl_do_execfree
 749 void
 750 Perl_do_execfree(pTHXo)
 751 {
 752     ((CPerlObj*)pPerl)->Perl_do_execfree();
 753 }
 754 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 755
 756 #undef  Perl_do_ipcctl
 757 I32
 758 Perl_do_ipcctl(pTHXo_ I32 optype, SV** mark, SV** sp)
 759 {
 760     return ((CPerlObj*)pPerl)->Perl_do_ipcctl(optype, mark, sp);
 761 }
 762
 763 #undef  Perl_do_ipcget
 764 I32
 765 Perl_do_ipcget(pTHXo_ I32 optype, SV** mark, SV** sp)
 766 {
 767     return ((CPerlObj*)pPerl)->Perl_do_ipcget(optype, mark, sp);
 768 }
 769
 770 #undef  Perl_do_msgrcv
 771 I32
 772 Perl_do_msgrcv(pTHXo_ SV** mark, SV** sp)
 773 {
 774     return ((CPerlObj*)pPerl)->Perl_do_msgrcv(mark, sp);
 775 }
 776
 777 #undef  Perl_do_msgsnd
 778 I32
 779 Perl_do_msgsnd(pTHXo_ SV** mark, SV** sp)
 780 {
 781     return ((CPerlObj*)pPerl)->Perl_do_msgsnd(mark, sp);
 782 }
 783
 784 #undef  Perl_do_semop
 785 I32
 786 Perl_do_semop(pTHXo_ SV** mark, SV** sp)
 787 {
 788     return ((CPerlObj*)pPerl)->Perl_do_semop(mark, sp);
 789 }
 790
 791 #undef  Perl_do_shmio
 792 I32
 793 Perl_do_shmio(pTHXo_ I32 optype, SV** mark, SV** sp)
 794 {
 795     return ((CPerlObj*)pPerl)->Perl_do_shmio(optype, mark, sp);
 796 }
 797 #endif
 798
 799 #undef  Perl_do_join
 800 void
 801 Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp)
 802 {
 803     ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
 804 }
 805
 806 #undef  Perl_do_kv
 807 OP*
 808 Perl_do_kv(pTHXo)
 809 {
 810     return ((CPerlObj*)pPerl)->Perl_do_kv();
 811 }
 812
 813 #undef  Perl_do_open
 814 bool
 815 Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
 816 {
 817     return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
 818 }
 819
 820 #undef  Perl_do_open9
 821 bool
 822 Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
 823 {
 824     return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
 825 }
 826
 827 #undef  Perl_do_pipe
 828 void
 829 Perl_do_pipe(pTHXo_ SV* sv, GV* rgv, GV* wgv)
 830 {
 831     ((CPerlObj*)pPerl)->Perl_do_pipe(sv, rgv, wgv);
 832 }
 833
 834 #undef  Perl_do_print
 835 bool
 836 Perl_do_print(pTHXo_ SV* sv, PerlIO* fp)
 837 {
 838     return ((CPerlObj*)pPerl)->Perl_do_print(sv, fp);
 839 }
 840
 841 #undef  Perl_do_readline
 842 OP*
 843 Perl_do_readline(pTHXo)
 844 {
 845     return ((CPerlObj*)pPerl)->Perl_do_readline();
 846 }
 847
 848 #undef  Perl_do_chomp
 849 I32
 850 Perl_do_chomp(pTHXo_ SV* sv)
 851 {
 852     return ((CPerlObj*)pPerl)->Perl_do_chomp(sv);
 853 }
 854
 855 #undef  Perl_do_seek
 856 bool
 857 Perl_do_seek(pTHXo_ GV* gv, Off_t pos, int whence)
 858 {
 859     return ((CPerlObj*)pPerl)->Perl_do_seek(gv, pos, whence);
 860 }
 861
 862 #undef  Perl_do_sprintf
 863 void
 864 Perl_do_sprintf(pTHXo_ SV* sv, I32 len, SV** sarg)
 865 {
 866     ((CPerlObj*)pPerl)->Perl_do_sprintf(sv, len, sarg);
 867 }
 868
 869 #undef  Perl_do_sysseek
 870 Off_t
 871 Perl_do_sysseek(pTHXo_ GV* gv, Off_t pos, int whence)
 872 {
 873     return ((CPerlObj*)pPerl)->Perl_do_sysseek(gv, pos, whence);
 874 }
 875
 876 #undef  Perl_do_tell
 877 Off_t
 878 Perl_do_tell(pTHXo_ GV* gv)
 879 {
 880     return ((CPerlObj*)pPerl)->Perl_do_tell(gv);
 881 }
 882
 883 #undef  Perl_do_trans
 884 I32
 885 Perl_do_trans(pTHXo_ SV* sv)
 886 {
 887     return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
 888 }
 889
 890 #undef  Perl_do_vecget
 891 UV
 892 Perl_do_vecget(pTHXo_ SV* sv, I32 offset, I32 size)
 893 {
 894     return ((CPerlObj*)pPerl)->Perl_do_vecget(sv, offset, size);
 895 }
 896
 897 #undef  Perl_do_vecset
 898 void
 899 Perl_do_vecset(pTHXo_ SV* sv)
 900 {
 901     ((CPerlObj*)pPerl)->Perl_do_vecset(sv);
 902 }
 903
 904 #undef  Perl_do_vop
 905 void
 906 Perl_do_vop(pTHXo_ I32 optype, SV* sv, SV* left, SV* right)
 907 {
 908     ((CPerlObj*)pPerl)->Perl_do_vop(optype, sv, left, right);
 909 }
 910
 911 #undef  Perl_dofile
 912 OP*
 913 Perl_dofile(pTHXo_ OP* term)
 914 {
 915     return ((CPerlObj*)pPerl)->Perl_dofile(term);
 916 }
 917
 918 #undef  Perl_dowantarray
 919 I32
 920 Perl_dowantarray(pTHXo)
 921 {
 922     return ((CPerlObj*)pPerl)->Perl_dowantarray();
 923 }
 924
 925 #undef  Perl_dump_all
 926 void
 927 Perl_dump_all(pTHXo)
 928 {
 929     ((CPerlObj*)pPerl)->Perl_dump_all();
 930 }
 931
 932 #undef  Perl_dump_eval
 933 void
 934 Perl_dump_eval(pTHXo)
 935 {
 936     ((CPerlObj*)pPerl)->Perl_dump_eval();
 937 }
 938 #if defined(DUMP_FDS)
 939
 940 #undef  Perl_dump_fds
 941 void
 942 Perl_dump_fds(pTHXo_ char* s)
 943 {
 944     ((CPerlObj*)pPerl)->Perl_dump_fds(s);
 945 }
 946 #endif
 947
 948 #undef  Perl_dump_form
 949 void
 950 Perl_dump_form(pTHXo_ GV* gv)
 951 {
 952     ((CPerlObj*)pPerl)->Perl_dump_form(gv);
 953 }
 954
 955 #undef  Perl_gv_dump
 956 void
 957 Perl_gv_dump(pTHXo_ GV* gv)
 958 {
 959     ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
 960 }
 961
 962 #undef  Perl_op_dump
 963 void
 964 Perl_op_dump(pTHXo_ OP* arg)
 965 {
 966     ((CPerlObj*)pPerl)->Perl_op_dump(arg);
 967 }
 968
 969 #undef  Perl_pmop_dump
 970 void
 971 Perl_pmop_dump(pTHXo_ PMOP* pm)
 972 {
 973     ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
 974 }
 975
 976 #undef  Perl_dump_packsubs
 977 void
 978 Perl_dump_packsubs(pTHXo_ HV* stash)
 979 {
 980     ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
 981 }
 982
 983 #undef  Perl_dump_sub
 984 void
 985 Perl_dump_sub(pTHXo_ GV* gv)
 986 {
 987     ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
 988 }
 989
 990 #undef  Perl_fbm_compile
 991 void
 992 Perl_fbm_compile(pTHXo_ SV* sv, U32 flags)
 993 {
 994     ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
 995 }
 996
 997 #undef  Perl_fbm_instr
 998 char*
 999 Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
1000 {
1001     return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
1002 }
1003
1004 #undef  Perl_find_script
1005 char*
1006 Perl_find_script(pTHXo_ char *scriptname, bool dosearch, char **search_ext, I32 flags)
1007 {
1008     return ((CPerlObj*)pPerl)->Perl_find_script(scriptname, dosearch, search_ext, flags);
1009 }
1010 #if defined(USE_THREADS)
1011
1012 #undef  Perl_find_threadsv
1013 PADOFFSET
1014 Perl_find_threadsv(pTHXo_ const char *name)
1015 {
1016     return ((CPerlObj*)pPerl)->Perl_find_threadsv(name);
1017 }
1018 #endif
1019
1020 #undef  Perl_force_list
1021 OP*
1022 Perl_force_list(pTHXo_ OP* arg)
1023 {
1024     return ((CPerlObj*)pPerl)->Perl_force_list(arg);
1025 }
1026
1027 #undef  Perl_fold_constants
1028 OP*
1029 Perl_fold_constants(pTHXo_ OP* arg)
1030 {
1031     return ((CPerlObj*)pPerl)->Perl_fold_constants(arg);
1032 }
1033
1034 #undef  Perl_form
1035 char*
1036 Perl_form(pTHXo_ const char* pat, ...)
1037 {
1038     char* retval;
1039     va_list args;
1040     va_start(args, pat);
1041     retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
1042     va_end(args);
1043     return retval;
1044
1045 }
1046
1047 #undef  Perl_vform
1048 char*
1049 Perl_vform(pTHXo_ const char* pat, va_list* args)
1050 {
1051     return ((CPerlObj*)pPerl)->Perl_vform(pat, args);
1052 }
1053
1054 #undef  Perl_free_tmps
1055 void
1056 Perl_free_tmps(pTHXo)
1057 {
1058     ((CPerlObj*)pPerl)->Perl_free_tmps();
1059 }
1060
1061 #undef  Perl_gen_constant_list
1062 OP*
1063 Perl_gen_constant_list(pTHXo_ OP* o)
1064 {
1065     return ((CPerlObj*)pPerl)->Perl_gen_constant_list(o);
1066 }
1067 #if !defined(HAS_GETENV_LEN)
1068
1069 #undef  Perl_getenv_len
1070 char*
1071 Perl_getenv_len(pTHXo_ char* key, unsigned long *len)
1072 {
1073     return ((CPerlObj*)pPerl)->Perl_getenv_len(key, len);
1074 }
1075 #endif
1076
1077 #undef  Perl_gp_free
1078 void
1079 Perl_gp_free(pTHXo_ GV* gv)
1080 {
1081     ((CPerlObj*)pPerl)->Perl_gp_free(gv);
1082 }
1083
1084 #undef  Perl_gp_ref
1085 GP*
1086 Perl_gp_ref(pTHXo_ GP* gp)
1087 {
1088     return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
1089 }
1090
1091 #undef  Perl_gv_AVadd
1092 GV*
1093 Perl_gv_AVadd(pTHXo_ GV* gv)
1094 {
1095     return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
1096 }
1097
1098 #undef  Perl_gv_HVadd
1099 GV*
1100 Perl_gv_HVadd(pTHXo_ GV* gv)
1101 {
1102     return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
1103 }
1104
1105 #undef  Perl_gv_IOadd
1106 GV*
1107 Perl_gv_IOadd(pTHXo_ GV* gv)
1108 {
1109     return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
1110 }
1111
1112 #undef  Perl_gv_autoload4
1113 GV*
1114 Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method)
1115 {
1116     return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
1117 }
1118
1119 #undef  Perl_gv_check
1120 void
1121 Perl_gv_check(pTHXo_ HV* stash)
1122 {
1123     ((CPerlObj*)pPerl)->Perl_gv_check(stash);
1124 }
1125
1126 #undef  Perl_gv_efullname
1127 void
1128 Perl_gv_efullname(pTHXo_ SV* sv, GV* gv)
1129 {
1130     ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
1131 }
1132
1133 #undef  Perl_gv_efullname3
1134 void
1135 Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
1136 {
1137     ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
1138 }
1139
1140 #undef  Perl_gv_fetchfile
1141 GV*
1142 Perl_gv_fetchfile(pTHXo_ const char* name)
1143 {
1144     return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
1145 }
1146
1147 #undef  Perl_gv_fetchmeth
1148 GV*
1149 Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level)
1150 {
1151     return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
1152 }
1153
1154 #undef  Perl_gv_fetchmethod
1155 GV*
1156 Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name)
1157 {
1158     return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
1159 }
1160
1161 #undef  Perl_gv_fetchmethod_autoload
1162 GV*
1163 Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload)
1164 {
1165     return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
1166 }
1167
1168 #undef  Perl_gv_fetchpv
1169 GV*
1170 Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type)
1171 {
1172     return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
1173 }
1174
1175 #undef  Perl_gv_fullname
1176 void
1177 Perl_gv_fullname(pTHXo_ SV* sv, GV* gv)
1178 {
1179     ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
1180 }
1181
1182 #undef  Perl_gv_fullname3
1183 void
1184 Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
1185 {
1186     ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
1187 }
1188
1189 #undef  Perl_gv_init
1190 void
1191 Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
1192 {
1193     ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
1194 }
1195
1196 #undef  Perl_gv_stashpv
1197 HV*
1198 Perl_gv_stashpv(pTHXo_ const char* name, I32 create)
1199 {
1200     return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
1201 }
1202
1203 #undef  Perl_gv_stashpvn
1204 HV*
1205 Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create)
1206 {
1207     return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
1208 }
1209
1210 #undef  Perl_gv_stashsv
1211 HV*
1212 Perl_gv_stashsv(pTHXo_ SV* sv, I32 create)
1213 {
1214     return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
1215 }
1216
1217 #undef  Perl_hv_clear
1218 void
1219 Perl_hv_clear(pTHXo_ HV* tb)
1220 {
1221     ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
1222 }
1223
1224 #undef  Perl_hv_delayfree_ent
1225 void
1226 Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
1227 {
1228     ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
1229 }
1230
1231 #undef  Perl_hv_delete
1232 SV*
1233 Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags)
1234 {
1235     return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
1236 }
1237
1238 #undef  Perl_hv_delete_ent
1239 SV*
1240 Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
1241 {
1242     return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
1243 }
1244
1245 #undef  Perl_hv_exists
1246 bool
1247 Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen)
1248 {
1249     return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
1250 }
1251
1252 #undef  Perl_hv_exists_ent
1253 bool
1254 Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
1255 {
1256     return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
1257 }
1258
1259 #undef  Perl_hv_fetch
1260 SV**
1261 Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval)
1262 {
1263     return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
1264 }
1265
1266 #undef  Perl_hv_fetch_ent
1267 HE*
1268 Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash)
1269 {
1270     return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
1271 }
1272
1273 #undef  Perl_hv_free_ent
1274 void
1275 Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry)
1276 {
1277     ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
1278 }
1279
1280 #undef  Perl_hv_iterinit
1281 I32
1282 Perl_hv_iterinit(pTHXo_ HV* tb)
1283 {
1284     return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
1285 }
1286
1287 #undef  Perl_hv_iterkey
1288 char*
1289 Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen)
1290 {
1291     return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
1292 }
1293
1294 #undef  Perl_hv_iterkeysv
1295 SV*
1296 Perl_hv_iterkeysv(pTHXo_ HE* entry)
1297 {
1298     return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
1299 }
1300
1301 #undef  Perl_hv_iternext
1302 HE*
1303 Perl_hv_iternext(pTHXo_ HV* tb)
1304 {
1305     return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
1306 }
1307
1308 #undef  Perl_hv_iternextsv
1309 SV*
1310 Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen)
1311 {
1312     return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
1313 }
1314
1315 #undef  Perl_hv_iterval
1316 SV*
1317 Perl_hv_iterval(pTHXo_ HV* tb, HE* entry)
1318 {
1319     return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
1320 }
1321
1322 #undef  Perl_hv_ksplit
1323 void
1324 Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax)
1325 {
1326     ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
1327 }
1328
1329 #undef  Perl_hv_magic
1330 void
1331 Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
1332 {
1333     ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
1334 }
1335
1336 #undef  Perl_hv_store
1337 SV**
1338 Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash)
1339 {
1340     return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
1341 }
1342
1343 #undef  Perl_hv_store_ent
1344 HE*
1345 Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash)
1346 {
1347     return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
1348 }
1349
1350 #undef  Perl_hv_undef
1351 void
1352 Perl_hv_undef(pTHXo_ HV* tb)
1353 {
1354     ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1355 }
1356
1357 #undef  Perl_ibcmp
1358 I32
1359 Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len)
1360 {
1361     return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1362 }
1363
1364 #undef  Perl_ibcmp_locale
1365 I32
1366 Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len)
1367 {
1368     return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1369 }
1370
1371 #undef  Perl_ingroup
1372 bool
1373 Perl_ingroup(pTHXo_ Gid_t testgid, Uid_t effective)
1374 {
1375     return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
1376 }
1377
1378 #undef  Perl_init_debugger
1379 void
1380 Perl_init_debugger(pTHXo)
1381 {
1382     ((CPerlObj*)pPerl)->Perl_init_debugger();
1383 }
1384
1385 #undef  Perl_init_stacks
1386 void
1387 Perl_init_stacks(pTHXo)
1388 {
1389     ((CPerlObj*)pPerl)->Perl_init_stacks();
1390 }
1391
1392 #undef  Perl_intro_my
1393 U32
1394 Perl_intro_my(pTHXo)
1395 {
1396     return ((CPerlObj*)pPerl)->Perl_intro_my();
1397 }
1398
1399 #undef  Perl_instr
1400 char*
1401 Perl_instr(pTHXo_ const char* big, const char* little)
1402 {
1403     return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1404 }
1405
1406 #undef  Perl_io_close
1407 bool
1408 Perl_io_close(pTHXo_ IO* io, bool not_implicit)
1409 {
1410     return ((CPerlObj*)pPerl)->Perl_io_close(io, not_implicit);
1411 }
1412
1413 #undef  Perl_invert
1414 OP*
1415 Perl_invert(pTHXo_ OP* cmd)
1416 {
1417     return ((CPerlObj*)pPerl)->Perl_invert(cmd);
1418 }
1419
1420 #undef  Perl_is_uni_alnum
1421 bool
1422 Perl_is_uni_alnum(pTHXo_ U32 c)
1423 {
1424     return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1425 }
1426
1427 #undef  Perl_is_uni_alnumc
1428 bool
1429 Perl_is_uni_alnumc(pTHXo_ U32 c)
1430 {
1431     return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1432 }
1433
1434 #undef  Perl_is_uni_idfirst
1435 bool
1436 Perl_is_uni_idfirst(pTHXo_ U32 c)
1437 {
1438     return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1439 }
1440
1441 #undef  Perl_is_uni_alpha
1442 bool
1443 Perl_is_uni_alpha(pTHXo_ U32 c)
1444 {
1445     return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1446 }
1447
1448 #undef  Perl_is_uni_ascii
1449 bool
1450 Perl_is_uni_ascii(pTHXo_ U32 c)
1451 {
1452     return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1453 }
1454
1455 #undef  Perl_is_uni_space
1456 bool
1457 Perl_is_uni_space(pTHXo_ U32 c)
1458 {
1459     return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1460 }
1461
1462 #undef  Perl_is_uni_cntrl
1463 bool
1464 Perl_is_uni_cntrl(pTHXo_ U32 c)
1465 {
1466     return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1467 }
1468
1469 #undef  Perl_is_uni_graph
1470 bool
1471 Perl_is_uni_graph(pTHXo_ U32 c)
1472 {
1473     return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1474 }
1475
1476 #undef  Perl_is_uni_digit
1477 bool
1478 Perl_is_uni_digit(pTHXo_ U32 c)
1479 {
1480     return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1481 }
1482
1483 #undef  Perl_is_uni_upper
1484 bool
1485 Perl_is_uni_upper(pTHXo_ U32 c)
1486 {
1487     return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1488 }
1489
1490 #undef  Perl_is_uni_lower
1491 bool
1492 Perl_is_uni_lower(pTHXo_ U32 c)
1493 {
1494     return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1495 }
1496
1497 #undef  Perl_is_uni_print
1498 bool
1499 Perl_is_uni_print(pTHXo_ U32 c)
1500 {
1501     return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1502 }
1503
1504 #undef  Perl_is_uni_punct
1505 bool
1506 Perl_is_uni_punct(pTHXo_ U32 c)
1507 {
1508     return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1509 }
1510
1511 #undef  Perl_is_uni_xdigit
1512 bool
1513 Perl_is_uni_xdigit(pTHXo_ U32 c)
1514 {
1515     return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1516 }
1517
1518 #undef  Perl_to_uni_upper
1519 U32
1520 Perl_to_uni_upper(pTHXo_ U32 c)
1521 {
1522     return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1523 }
1524
1525 #undef  Perl_to_uni_title
1526 U32
1527 Perl_to_uni_title(pTHXo_ U32 c)
1528 {
1529     return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1530 }
1531
1532 #undef  Perl_to_uni_lower
1533 U32
1534 Perl_to_uni_lower(pTHXo_ U32 c)
1535 {
1536     return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1537 }
1538
1539 #undef  Perl_is_uni_alnum_lc
1540 bool
1541 Perl_is_uni_alnum_lc(pTHXo_ U32 c)
1542 {
1543     return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1544 }
1545
1546 #undef  Perl_is_uni_alnumc_lc
1547 bool
1548 Perl_is_uni_alnumc_lc(pTHXo_ U32 c)
1549 {
1550     return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1551 }
1552
1553 #undef  Perl_is_uni_idfirst_lc
1554 bool
1555 Perl_is_uni_idfirst_lc(pTHXo_ U32 c)
1556 {
1557     return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1558 }
1559
1560 #undef  Perl_is_uni_alpha_lc
1561 bool
1562 Perl_is_uni_alpha_lc(pTHXo_ U32 c)
1563 {
1564     return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1565 }
1566
1567 #undef  Perl_is_uni_ascii_lc
1568 bool
1569 Perl_is_uni_ascii_lc(pTHXo_ U32 c)
1570 {
1571     return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1572 }
1573
1574 #undef  Perl_is_uni_space_lc
1575 bool
1576 Perl_is_uni_space_lc(pTHXo_ U32 c)
1577 {
1578     return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1579 }
1580
1581 #undef  Perl_is_uni_cntrl_lc
1582 bool
1583 Perl_is_uni_cntrl_lc(pTHXo_ U32 c)
1584 {
1585     return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1586 }
1587
1588 #undef  Perl_is_uni_graph_lc
1589 bool
1590 Perl_is_uni_graph_lc(pTHXo_ U32 c)
1591 {
1592     return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1593 }
1594
1595 #undef  Perl_is_uni_digit_lc
1596 bool
1597 Perl_is_uni_digit_lc(pTHXo_ U32 c)
1598 {
1599     return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1600 }
1601
1602 #undef  Perl_is_uni_upper_lc
1603 bool
1604 Perl_is_uni_upper_lc(pTHXo_ U32 c)
1605 {
1606     return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1607 }
1608
1609 #undef  Perl_is_uni_lower_lc
1610 bool
1611 Perl_is_uni_lower_lc(pTHXo_ U32 c)
1612 {
1613     return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1614 }
1615
1616 #undef  Perl_is_uni_print_lc
1617 bool
1618 Perl_is_uni_print_lc(pTHXo_ U32 c)
1619 {
1620     return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1621 }
1622
1623 #undef  Perl_is_uni_punct_lc
1624 bool
1625 Perl_is_uni_punct_lc(pTHXo_ U32 c)
1626 {
1627     return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1628 }
1629
1630 #undef  Perl_is_uni_xdigit_lc
1631 bool
1632 Perl_is_uni_xdigit_lc(pTHXo_ U32 c)
1633 {
1634     return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1635 }
1636
1637 #undef  Perl_to_uni_upper_lc
1638 U32
1639 Perl_to_uni_upper_lc(pTHXo_ U32 c)
1640 {
1641     return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1642 }
1643
1644 #undef  Perl_to_uni_title_lc
1645 U32
1646 Perl_to_uni_title_lc(pTHXo_ U32 c)
1647 {
1648     return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1649 }
1650
1651 #undef  Perl_to_uni_lower_lc
1652 U32
1653 Perl_to_uni_lower_lc(pTHXo_ U32 c)
1654 {
1655     return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1656 }
1657
1658 #undef  Perl_is_utf8_alnum
1659 bool
1660 Perl_is_utf8_alnum(pTHXo_ U8 *p)
1661 {
1662     return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1663 }
1664
1665 #undef  Perl_is_utf8_alnumc
1666 bool
1667 Perl_is_utf8_alnumc(pTHXo_ U8 *p)
1668 {
1669     return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1670 }
1671
1672 #undef  Perl_is_utf8_idfirst
1673 bool
1674 Perl_is_utf8_idfirst(pTHXo_ U8 *p)
1675 {
1676     return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1677 }
1678
1679 #undef  Perl_is_utf8_alpha
1680 bool
1681 Perl_is_utf8_alpha(pTHXo_ U8 *p)
1682 {
1683     return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1684 }
1685
1686 #undef  Perl_is_utf8_ascii
1687 bool
1688 Perl_is_utf8_ascii(pTHXo_ U8 *p)
1689 {
1690     return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1691 }
1692
1693 #undef  Perl_is_utf8_space
1694 bool
1695 Perl_is_utf8_space(pTHXo_ U8 *p)
1696 {
1697     return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1698 }
1699
1700 #undef  Perl_is_utf8_cntrl
1701 bool
1702 Perl_is_utf8_cntrl(pTHXo_ U8 *p)
1703 {
1704     return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1705 }
1706
1707 #undef  Perl_is_utf8_digit
1708 bool
1709 Perl_is_utf8_digit(pTHXo_ U8 *p)
1710 {
1711     return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1712 }
1713
1714 #undef  Perl_is_utf8_graph
1715 bool
1716 Perl_is_utf8_graph(pTHXo_ U8 *p)
1717 {
1718     return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1719 }
1720
1721 #undef  Perl_is_utf8_upper
1722 bool
1723 Perl_is_utf8_upper(pTHXo_ U8 *p)
1724 {
1725     return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1726 }
1727
1728 #undef  Perl_is_utf8_lower
1729 bool
1730 Perl_is_utf8_lower(pTHXo_ U8 *p)
1731 {
1732     return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1733 }
1734
1735 #undef  Perl_is_utf8_print
1736 bool
1737 Perl_is_utf8_print(pTHXo_ U8 *p)
1738 {
1739     return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1740 }
1741
1742 #undef  Perl_is_utf8_punct
1743 bool
1744 Perl_is_utf8_punct(pTHXo_ U8 *p)
1745 {
1746     return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1747 }
1748
1749 #undef  Perl_is_utf8_xdigit
1750 bool
1751 Perl_is_utf8_xdigit(pTHXo_ U8 *p)
1752 {
1753     return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1754 }
1755
1756 #undef  Perl_is_utf8_mark
1757 bool
1758 Perl_is_utf8_mark(pTHXo_ U8 *p)
1759 {
1760     return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1761 }
1762
1763 #undef  Perl_jmaybe
1764 OP*
1765 Perl_jmaybe(pTHXo_ OP* arg)
1766 {
1767     return ((CPerlObj*)pPerl)->Perl_jmaybe(arg);
1768 }
1769
1770 #undef  Perl_keyword
1771 I32
1772 Perl_keyword(pTHXo_ char* d, I32 len)
1773 {
1774     return ((CPerlObj*)pPerl)->Perl_keyword(d, len);
1775 }
1776
1777 #undef  Perl_leave_scope
1778 void
1779 Perl_leave_scope(pTHXo_ I32 base)
1780 {
1781     ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1782 }
1783
1784 #undef  Perl_lex_end
1785 void
1786 Perl_lex_end(pTHXo)
1787 {
1788     ((CPerlObj*)pPerl)->Perl_lex_end();
1789 }
1790
1791 #undef  Perl_lex_start
1792 void
1793 Perl_lex_start(pTHXo_ SV* line)
1794 {
1795     ((CPerlObj*)pPerl)->Perl_lex_start(line);
1796 }
1797
1798 #undef  Perl_linklist
1799 OP*
1800 Perl_linklist(pTHXo_ OP* o)
1801 {
1802     return ((CPerlObj*)pPerl)->Perl_linklist(o);
1803 }
1804
1805 #undef  Perl_list
1806 OP*
1807 Perl_list(pTHXo_ OP* o)
1808 {
1809     return ((CPerlObj*)pPerl)->Perl_list(o);
1810 }
1811
1812 #undef  Perl_listkids
1813 OP*
1814 Perl_listkids(pTHXo_ OP* o)
1815 {
1816     return ((CPerlObj*)pPerl)->Perl_listkids(o);
1817 }
1818
1819 #undef  Perl_localize
1820 OP*
1821 Perl_localize(pTHXo_ OP* arg, I32 lexical)
1822 {
1823     return ((CPerlObj*)pPerl)->Perl_localize(arg, lexical);
1824 }
1825
1826 #undef  Perl_looks_like_number
1827 I32
1828 Perl_looks_like_number(pTHXo_ SV* sv)
1829 {
1830     return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1831 }
1832
1833 #undef  Perl_magic_clearenv
1834 int
1835 Perl_magic_clearenv(pTHXo_ SV* sv, MAGIC* mg)
1836 {
1837     return ((CPerlObj*)pPerl)->Perl_magic_clearenv(sv, mg);
1838 }
1839
1840 #undef  Perl_magic_clear_all_env
1841 int
1842 Perl_magic_clear_all_env(pTHXo_ SV* sv, MAGIC* mg)
1843 {
1844     return ((CPerlObj*)pPerl)->Perl_magic_clear_all_env(sv, mg);
1845 }
1846
1847 #undef  Perl_magic_clearpack
1848 int
1849 Perl_magic_clearpack(pTHXo_ SV* sv, MAGIC* mg)
1850 {
1851     return ((CPerlObj*)pPerl)->Perl_magic_clearpack(sv, mg);
1852 }
1853
1854 #undef  Perl_magic_clearsig
1855 int
1856 Perl_magic_clearsig(pTHXo_ SV* sv, MAGIC* mg)
1857 {
1858     return ((CPerlObj*)pPerl)->Perl_magic_clearsig(sv, mg);
1859 }
1860
1861 #undef  Perl_magic_existspack
1862 int
1863 Perl_magic_existspack(pTHXo_ SV* sv, MAGIC* mg)
1864 {
1865     return ((CPerlObj*)pPerl)->Perl_magic_existspack(sv, mg);
1866 }
1867
1868 #undef  Perl_magic_freeregexp
1869 int
1870 Perl_magic_freeregexp(pTHXo_ SV* sv, MAGIC* mg)
1871 {
1872     return ((CPerlObj*)pPerl)->Perl_magic_freeregexp(sv, mg);
1873 }
1874
1875 #undef  Perl_magic_get
1876 int
1877 Perl_magic_get(pTHXo_ SV* sv, MAGIC* mg)
1878 {
1879     return ((CPerlObj*)pPerl)->Perl_magic_get(sv, mg);
1880 }
1881
1882 #undef  Perl_magic_getarylen
1883 int
1884 Perl_magic_getarylen(pTHXo_ SV* sv, MAGIC* mg)
1885 {
1886     return ((CPerlObj*)pPerl)->Perl_magic_getarylen(sv, mg);
1887 }
1888
1889 #undef  Perl_magic_getdefelem
1890 int
1891 Perl_magic_getdefelem(pTHXo_ SV* sv, MAGIC* mg)
1892 {
1893     return ((CPerlObj*)pPerl)->Perl_magic_getdefelem(sv, mg);
1894 }
1895
1896 #undef  Perl_magic_getglob
1897 int
1898 Perl_magic_getglob(pTHXo_ SV* sv, MAGIC* mg)
1899 {
1900     return ((CPerlObj*)pPerl)->Perl_magic_getglob(sv, mg);
1901 }
1902
1903 #undef  Perl_magic_getnkeys
1904 int
1905 Perl_magic_getnkeys(pTHXo_ SV* sv, MAGIC* mg)
1906 {
1907     return ((CPerlObj*)pPerl)->Perl_magic_getnkeys(sv, mg);
1908 }
1909
1910 #undef  Perl_magic_getpack
1911 int
1912 Perl_magic_getpack(pTHXo_ SV* sv, MAGIC* mg)
1913 {
1914     return ((CPerlObj*)pPerl)->Perl_magic_getpack(sv, mg);
1915 }
1916
1917 #undef  Perl_magic_getpos
1918 int
1919 Perl_magic_getpos(pTHXo_ SV* sv, MAGIC* mg)
1920 {
1921     return ((CPerlObj*)pPerl)->Perl_magic_getpos(sv, mg);
1922 }
1923
1924 #undef  Perl_magic_getsig
1925 int
1926 Perl_magic_getsig(pTHXo_ SV* sv, MAGIC* mg)
1927 {
1928     return ((CPerlObj*)pPerl)->Perl_magic_getsig(sv, mg);
1929 }
1930
1931 #undef  Perl_magic_getsubstr
1932 int
1933 Perl_magic_getsubstr(pTHXo_ SV* sv, MAGIC* mg)
1934 {
1935     return ((CPerlObj*)pPerl)->Perl_magic_getsubstr(sv, mg);
1936 }
1937
1938 #undef  Perl_magic_gettaint
1939 int
1940 Perl_magic_gettaint(pTHXo_ SV* sv, MAGIC* mg)
1941 {
1942     return ((CPerlObj*)pPerl)->Perl_magic_gettaint(sv, mg);
1943 }
1944
1945 #undef  Perl_magic_getuvar
1946 int
1947 Perl_magic_getuvar(pTHXo_ SV* sv, MAGIC* mg)
1948 {
1949     return ((CPerlObj*)pPerl)->Perl_magic_getuvar(sv, mg);
1950 }
1951
1952 #undef  Perl_magic_getvec
1953 int
1954 Perl_magic_getvec(pTHXo_ SV* sv, MAGIC* mg)
1955 {
1956     return ((CPerlObj*)pPerl)->Perl_magic_getvec(sv, mg);
1957 }
1958
1959 #undef  Perl_magic_len
1960 U32
1961 Perl_magic_len(pTHXo_ SV* sv, MAGIC* mg)
1962 {
1963     return ((CPerlObj*)pPerl)->Perl_magic_len(sv, mg);
1964 }
1965 #if defined(USE_THREADS)
1966
1967 #undef  Perl_magic_mutexfree
1968 int
1969 Perl_magic_mutexfree(pTHXo_ SV* sv, MAGIC* mg)
1970 {
1971     return ((CPerlObj*)pPerl)->Perl_magic_mutexfree(sv, mg);
1972 }
1973 #endif
1974
1975 #undef  Perl_magic_nextpack
1976 int
1977 Perl_magic_nextpack(pTHXo_ SV* sv, MAGIC* mg, SV* key)
1978 {
1979     return ((CPerlObj*)pPerl)->Perl_magic_nextpack(sv, mg, key);
1980 }
1981
1982 #undef  Perl_magic_regdata_cnt
1983 U32
1984 Perl_magic_regdata_cnt(pTHXo_ SV* sv, MAGIC* mg)
1985 {
1986     return ((CPerlObj*)pPerl)->Perl_magic_regdata_cnt(sv, mg);
1987 }
1988
1989 #undef  Perl_magic_regdatum_get
1990 int
1991 Perl_magic_regdatum_get(pTHXo_ SV* sv, MAGIC* mg)
1992 {
1993     return ((CPerlObj*)pPerl)->Perl_magic_regdatum_get(sv, mg);
1994 }
1995
1996 #undef  Perl_magic_set
1997 int
1998 Perl_magic_set(pTHXo_ SV* sv, MAGIC* mg)
1999 {
2000     return ((CPerlObj*)pPerl)->Perl_magic_set(sv, mg);
2001 }
2002
2003 #undef  Perl_magic_setamagic
2004 int
2005 Perl_magic_setamagic(pTHXo_ SV* sv, MAGIC* mg)
2006 {
2007     return ((CPerlObj*)pPerl)->Perl_magic_setamagic(sv, mg);
2008 }
2009
2010 #undef  Perl_magic_setarylen
2011 int
2012 Perl_magic_setarylen(pTHXo_ SV* sv, MAGIC* mg)
2013 {
2014     return ((CPerlObj*)pPerl)->Perl_magic_setarylen(sv, mg);
2015 }
2016
2017 #undef  Perl_magic_setbm
2018 int
2019 Perl_magic_setbm(pTHXo_ SV* sv, MAGIC* mg)
2020 {
2021     return ((CPerlObj*)pPerl)->Perl_magic_setbm(sv, mg);
2022 }
2023
2024 #undef  Perl_magic_setdbline
2025 int
2026 Perl_magic_setdbline(pTHXo_ SV* sv, MAGIC* mg)
2027 {
2028     return ((CPerlObj*)pPerl)->Perl_magic_setdbline(sv, mg);
2029 }
2030 #if defined(USE_LOCALE_COLLATE)
2031
2032 #undef  Perl_magic_setcollxfrm
2033 int
2034 Perl_magic_setcollxfrm(pTHXo_ SV* sv, MAGIC* mg)
2035 {
2036     return ((CPerlObj*)pPerl)->Perl_magic_setcollxfrm(sv, mg);
2037 }
2038 #endif
2039
2040 #undef  Perl_magic_setdefelem
2041 int
2042 Perl_magic_setdefelem(pTHXo_ SV* sv, MAGIC* mg)
2043 {
2044     return ((CPerlObj*)pPerl)->Perl_magic_setdefelem(sv, mg);
2045 }
2046
2047 #undef  Perl_magic_setenv
2048 int
2049 Perl_magic_setenv(pTHXo_ SV* sv, MAGIC* mg)
2050 {
2051     return ((CPerlObj*)pPerl)->Perl_magic_setenv(sv, mg);
2052 }
2053
2054 #undef  Perl_magic_setfm
2055 int
2056 Perl_magic_setfm(pTHXo_ SV* sv, MAGIC* mg)
2057 {
2058     return ((CPerlObj*)pPerl)->Perl_magic_setfm(sv, mg);
2059 }
2060
2061 #undef  Perl_magic_setisa
2062 int
2063 Perl_magic_setisa(pTHXo_ SV* sv, MAGIC* mg)
2064 {
2065     return ((CPerlObj*)pPerl)->Perl_magic_setisa(sv, mg);
2066 }
2067
2068 #undef  Perl_magic_setglob
2069 int
2070 Perl_magic_setglob(pTHXo_ SV* sv, MAGIC* mg)
2071 {
2072     return ((CPerlObj*)pPerl)->Perl_magic_setglob(sv, mg);
2073 }
2074
2075 #undef  Perl_magic_setmglob
2076 int
2077 Perl_magic_setmglob(pTHXo_ SV* sv, MAGIC* mg)
2078 {
2079     return ((CPerlObj*)pPerl)->Perl_magic_setmglob(sv, mg);
2080 }
2081
2082 #undef  Perl_magic_setnkeys
2083 int
2084 Perl_magic_setnkeys(pTHXo_ SV* sv, MAGIC* mg)
2085 {
2086     return ((CPerlObj*)pPerl)->Perl_magic_setnkeys(sv, mg);
2087 }
2088
2089 #undef  Perl_magic_setpack
2090 int
2091 Perl_magic_setpack(pTHXo_ SV* sv, MAGIC* mg)
2092 {
2093     return ((CPerlObj*)pPerl)->Perl_magic_setpack(sv, mg);
2094 }
2095
2096 #undef  Perl_magic_setpos
2097 int
2098 Perl_magic_setpos(pTHXo_ SV* sv, MAGIC* mg)
2099 {
2100     return ((CPerlObj*)pPerl)->Perl_magic_setpos(sv, mg);
2101 }
2102
2103 #undef  Perl_magic_setsig
2104 int
2105 Perl_magic_setsig(pTHXo_ SV* sv, MAGIC* mg)
2106 {
2107     return ((CPerlObj*)pPerl)->Perl_magic_setsig(sv, mg);
2108 }
2109
2110 #undef  Perl_magic_setsubstr
2111 int
2112 Perl_magic_setsubstr(pTHXo_ SV* sv, MAGIC* mg)
2113 {
2114     return ((CPerlObj*)pPerl)->Perl_magic_setsubstr(sv, mg);
2115 }
2116
2117 #undef  Perl_magic_settaint
2118 int
2119 Perl_magic_settaint(pTHXo_ SV* sv, MAGIC* mg)
2120 {
2121     return ((CPerlObj*)pPerl)->Perl_magic_settaint(sv, mg);
2122 }
2123
2124 #undef  Perl_magic_setuvar
2125 int
2126 Perl_magic_setuvar(pTHXo_ SV* sv, MAGIC* mg)
2127 {
2128     return ((CPerlObj*)pPerl)->Perl_magic_setuvar(sv, mg);
2129 }
2130
2131 #undef  Perl_magic_setvec
2132 int
2133 Perl_magic_setvec(pTHXo_ SV* sv, MAGIC* mg)
2134 {
2135     return ((CPerlObj*)pPerl)->Perl_magic_setvec(sv, mg);
2136 }
2137
2138 #undef  Perl_magic_set_all_env
2139 int
2140 Perl_magic_set_all_env(pTHXo_ SV* sv, MAGIC* mg)
2141 {
2142     return ((CPerlObj*)pPerl)->Perl_magic_set_all_env(sv, mg);
2143 }
2144
2145 #undef  Perl_magic_sizepack
2146 U32
2147 Perl_magic_sizepack(pTHXo_ SV* sv, MAGIC* mg)
2148 {
2149     return ((CPerlObj*)pPerl)->Perl_magic_sizepack(sv, mg);
2150 }
2151
2152 #undef  Perl_magic_wipepack
2153 int
2154 Perl_magic_wipepack(pTHXo_ SV* sv, MAGIC* mg)
2155 {
2156     return ((CPerlObj*)pPerl)->Perl_magic_wipepack(sv, mg);
2157 }
2158
2159 #undef  Perl_magicname
2160 void
2161 Perl_magicname(pTHXo_ char* sym, char* name, I32 namlen)
2162 {
2163     ((CPerlObj*)pPerl)->Perl_magicname(sym, name, namlen);
2164 }
2165
2166 #undef  Perl_markstack_grow
2167 void
2168 Perl_markstack_grow(pTHXo)
2169 {
2170     ((CPerlObj*)pPerl)->Perl_markstack_grow();
2171 }
2172 #if defined(USE_LOCALE_COLLATE)
2173
2174 #undef  Perl_mem_collxfrm
2175 char*
2176 Perl_mem_collxfrm(pTHXo_ const char* s, STRLEN len, STRLEN* xlen)
2177 {
2178     return ((CPerlObj*)pPerl)->Perl_mem_collxfrm(s, len, xlen);
2179 }
2180 #endif
2181
2182 #undef  Perl_mess
2183 SV*
2184 Perl_mess(pTHXo_ const char* pat, ...)
2185 {
2186     SV* retval;
2187     va_list args;
2188     va_start(args, pat);
2189     retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
2190     va_end(args);
2191     return retval;
2192
2193 }
2194
2195 #undef  Perl_vmess
2196 SV*
2197 Perl_vmess(pTHXo_ const char* pat, va_list* args)
2198 {
2199     return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
2200 }
2201
2202 #undef  Perl_qerror
2203 void
2204 Perl_qerror(pTHXo_ SV* err)
2205 {
2206     ((CPerlObj*)pPerl)->Perl_qerror(err);
2207 }
2208
2209 #undef  Perl_mg_clear
2210 int
2211 Perl_mg_clear(pTHXo_ SV* sv)
2212 {
2213     return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
2214 }
2215
2216 #undef  Perl_mg_copy
2217 int
2218 Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen)
2219 {
2220     return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
2221 }
2222
2223 #undef  Perl_mg_find
2224 MAGIC*
2225 Perl_mg_find(pTHXo_ SV* sv, int type)
2226 {
2227     return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
2228 }
2229
2230 #undef  Perl_mg_free
2231 int
2232 Perl_mg_free(pTHXo_ SV* sv)
2233 {
2234     return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
2235 }
2236
2237 #undef  Perl_mg_get
2238 int
2239 Perl_mg_get(pTHXo_ SV* sv)
2240 {
2241     return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
2242 }
2243
2244 #undef  Perl_mg_length
2245 U32
2246 Perl_mg_length(pTHXo_ SV* sv)
2247 {
2248     return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
2249 }
2250
2251 #undef  Perl_mg_magical
2252 void
2253 Perl_mg_magical(pTHXo_ SV* sv)
2254 {
2255     ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
2256 }
2257
2258 #undef  Perl_mg_set
2259 int
2260 Perl_mg_set(pTHXo_ SV* sv)
2261 {
2262     return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
2263 }
2264
2265 #undef  Perl_mg_size
2266 I32
2267 Perl_mg_size(pTHXo_ SV* sv)
2268 {
2269     return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
2270 }
2271
2272 #undef  Perl_mod
2273 OP*
2274 Perl_mod(pTHXo_ OP* o, I32 type)
2275 {
2276     return ((CPerlObj*)pPerl)->Perl_mod(o, type);
2277 }
2278
2279 #undef  Perl_moreswitches
2280 char*
2281 Perl_moreswitches(pTHXo_ char* s)
2282 {
2283     return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
2284 }
2285
2286 #undef  Perl_my
2287 OP*
2288 Perl_my(pTHXo_ OP* o)
2289 {
2290     return ((CPerlObj*)pPerl)->Perl_my(o);
2291 }
2292
2293 #undef  Perl_my_atof
2294 NV
2295 Perl_my_atof(pTHXo_ const char *s)
2296 {
2297     return ((CPerlObj*)pPerl)->Perl_my_atof(s);
2298 }
2299 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
2300
2301 #undef  Perl_my_bcopy
2302 char*
2303 Perl_my_bcopy(pTHXo_ const char* from, char* to, I32 len)
2304 {
2305     return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
2306 }
2307 #endif
2308 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
2309
2310 #undef  Perl_my_bzero
2311 char*
2312 Perl_my_bzero(pTHXo_ char* loc, I32 len)
2313 {
2314     return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
2315 }
2316 #endif
2317
2318 #undef  Perl_my_exit
2319 void
2320 Perl_my_exit(pTHXo_ U32 status)
2321 {
2322     ((CPerlObj*)pPerl)->Perl_my_exit(status);
2323 }
2324
2325 #undef  Perl_my_failure_exit
2326 void
2327 Perl_my_failure_exit(pTHXo)
2328 {
2329     ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2330 }
2331
2332 #undef  Perl_my_fflush_all
2333 I32
2334 Perl_my_fflush_all(pTHXo)
2335 {
2336     return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2337 }
2338
2339 #undef  Perl_my_lstat
2340 I32
2341 Perl_my_lstat(pTHXo)
2342 {
2343     return ((CPerlObj*)pPerl)->Perl_my_lstat();
2344 }
2345 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
2346
2347 #undef  Perl_my_memcmp
2348 I32
2349 Perl_my_memcmp(pTHXo_ const char* s1, const char* s2, I32 len)
2350 {
2351     return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
2352 }
2353 #endif
2354 #if !defined(HAS_MEMSET)
2355
2356 #undef  Perl_my_memset
2357 void*
2358 Perl_my_memset(pTHXo_ char* loc, I32 ch, I32 len)
2359 {
2360     return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
2361 }
2362 #endif
2363 #if !defined(PERL_OBJECT)
2364
2365 #undef  Perl_my_pclose
2366 I32
2367 Perl_my_pclose(pTHXo_ PerlIO* ptr)
2368 {
2369     return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2370 }
2371
2372 #undef  Perl_my_popen
2373 PerlIO*
2374 Perl_my_popen(pTHXo_ char* cmd, char* mode)
2375 {
2376     return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
2377 }
2378 #endif
2379
2380 #undef  Perl_my_setenv
2381 void
2382 Perl_my_setenv(pTHXo_ char* nam, char* val)
2383 {
2384     ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2385 }
2386
2387 #undef  Perl_my_stat
2388 I32
2389 Perl_my_stat(pTHXo)
2390 {
2391     return ((CPerlObj*)pPerl)->Perl_my_stat();
2392 }
2393 #if defined(MYSWAP)
2394
2395 #undef  Perl_my_swap
2396 short
2397 Perl_my_swap(pTHXo_ short s)
2398 {
2399     return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2400 }
2401
2402 #undef  Perl_my_htonl
2403 long
2404 Perl_my_htonl(pTHXo_ long l)
2405 {
2406     return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2407 }
2408
2409 #undef  Perl_my_ntohl
2410 long
2411 Perl_my_ntohl(pTHXo_ long l)
2412 {
2413     return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2414 }
2415 #endif
2416
2417 #undef  Perl_my_unexec
2418 void
2419 Perl_my_unexec(pTHXo)
2420 {
2421     ((CPerlObj*)pPerl)->Perl_my_unexec();
2422 }
2423
2424 #undef  Perl_newANONLIST
2425 OP*
2426 Perl_newANONLIST(pTHXo_ OP* o)
2427 {
2428     return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2429 }
2430
2431 #undef  Perl_newANONHASH
2432 OP*
2433 Perl_newANONHASH(pTHXo_ OP* o)
2434 {
2435     return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2436 }
2437
2438 #undef  Perl_newANONSUB
2439 OP*
2440 Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
2441 {
2442     return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
2443 }
2444
2445 #undef  Perl_newASSIGNOP
2446 OP*
2447 Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
2448 {
2449     return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
2450 }
2451
2452 #undef  Perl_newCONDOP
2453 OP*
2454 Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
2455 {
2456     return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
2457 }
2458
2459 #undef  Perl_newCONSTSUB
2460 void
2461 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
2462 {
2463     ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2464 }
2465
2466 #undef  Perl_newFORM
2467 void
2468 Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
2469 {
2470     ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2471 }
2472
2473 #undef  Perl_newFOROP
2474 OP*
2475 Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
2476 {
2477     return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
2478 }
2479
2480 #undef  Perl_newLOGOP
2481 OP*
2482 Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
2483 {
2484     return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
2485 }
2486
2487 #undef  Perl_newLOOPEX
2488 OP*
2489 Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
2490 {
2491     return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2492 }
2493
2494 #undef  Perl_newLOOPOP
2495 OP*
2496 Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
2497 {
2498     return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
2499 }
2500
2501 #undef  Perl_newNULLLIST
2502 OP*
2503 Perl_newNULLLIST(pTHXo)
2504 {
2505     return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2506 }
2507
2508 #undef  Perl_newOP
2509 OP*
2510 Perl_newOP(pTHXo_ I32 optype, I32 flags)
2511 {
2512     return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2513 }
2514
2515 #undef  Perl_newPROG
2516 void
2517 Perl_newPROG(pTHXo_ OP* o)
2518 {
2519     ((CPerlObj*)pPerl)->Perl_newPROG(o);
2520 }
2521
2522 #undef  Perl_newRANGE
2523 OP*
2524 Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
2525 {
2526     return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
2527 }
2528
2529 #undef  Perl_newSLICEOP
2530 OP*
2531 Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
2532 {
2533     return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
2534 }
2535
2536 #undef  Perl_newSTATEOP
2537 OP*
2538 Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
2539 {
2540     return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
2541 }
2542
2543 #undef  Perl_newSUB
2544 CV*
2545 Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
2546 {
2547     return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
2548 }
2549
2550 #undef  Perl_newXS
2551 CV*
2552 Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
2553 {
2554     return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
2555 }
2556
2557 #undef  Perl_newAV
2558 AV*
2559 Perl_newAV(pTHXo)
2560 {
2561     return ((CPerlObj*)pPerl)->Perl_newAV();
2562 }
2563
2564 #undef  Perl_newAVREF
2565 OP*
2566 Perl_newAVREF(pTHXo_ OP* o)
2567 {
2568     return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2569 }
2570
2571 #undef  Perl_newBINOP
2572 OP*
2573 Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2574 {
2575     return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
2576 }
2577
2578 #undef  Perl_newCVREF
2579 OP*
2580 Perl_newCVREF(pTHXo_ I32 flags, OP* o)
2581 {
2582     return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2583 }
2584
2585 #undef  Perl_newGVOP
2586 OP*
2587 Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
2588 {
2589     return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
2590 }
2591
2592 #undef  Perl_newGVgen
2593 GV*
2594 Perl_newGVgen(pTHXo_ char* pack)
2595 {
2596     return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2597 }
2598
2599 #undef  Perl_newGVREF
2600 OP*
2601 Perl_newGVREF(pTHXo_ I32 type, OP* o)
2602 {
2603     return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2604 }
2605
2606 #undef  Perl_newHVREF
2607 OP*
2608 Perl_newHVREF(pTHXo_ OP* o)
2609 {
2610     return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2611 }
2612
2613 #undef  Perl_newHV
2614 HV*
2615 Perl_newHV(pTHXo)
2616 {
2617     return ((CPerlObj*)pPerl)->Perl_newHV();
2618 }
2619
2620 #undef  Perl_newHVhv
2621 HV*
2622 Perl_newHVhv(pTHXo_ HV* hv)
2623 {
2624     return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2625 }
2626
2627 #undef  Perl_newIO
2628 IO*
2629 Perl_newIO(pTHXo)
2630 {
2631     return ((CPerlObj*)pPerl)->Perl_newIO();
2632 }
2633
2634 #undef  Perl_newLISTOP
2635 OP*
2636 Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2637 {
2638     return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
2639 }
2640
2641 #undef  Perl_newPADOP
2642 OP*
2643 Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
2644 {
2645     return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
2646 }
2647
2648 #undef  Perl_newPMOP
2649 OP*
2650 Perl_newPMOP(pTHXo_ I32 type, I32 flags)
2651 {
2652     return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2653 }
2654
2655 #undef  Perl_newPVOP
2656 OP*
2657 Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
2658 {
2659     return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
2660 }
2661
2662 #undef  Perl_newRV
2663 SV*
2664 Perl_newRV(pTHXo_ SV* pref)
2665 {
2666     return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2667 }
2668
2669 #undef  Perl_newRV_noinc
2670 SV*
2671 Perl_newRV_noinc(pTHXo_ SV *sv)
2672 {
2673     return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2674 }
2675
2676 #undef  Perl_newSV
2677 SV*
2678 Perl_newSV(pTHXo_ STRLEN len)
2679 {
2680     return ((CPerlObj*)pPerl)->Perl_newSV(len);
2681 }
2682
2683 #undef  Perl_newSVREF
2684 OP*
2685 Perl_newSVREF(pTHXo_ OP* o)
2686 {
2687     return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2688 }
2689
2690 #undef  Perl_newSVOP
2691 OP*
2692 Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
2693 {
2694     return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
2695 }
2696
2697 #undef  Perl_newSViv
2698 SV*
2699 Perl_newSViv(pTHXo_ IV i)
2700 {
2701     return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2702 }
2703
2704 #undef  Perl_newSVnv
2705 SV*
2706 Perl_newSVnv(pTHXo_ NV n)
2707 {
2708     return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2709 }
2710
2711 #undef  Perl_newSVpv
2712 SV*
2713 Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
2714 {
2715     return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2716 }
2717
2718 #undef  Perl_newSVpvn
2719 SV*
2720 Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
2721 {
2722     return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2723 }
2724
2725 #undef  Perl_newSVpvf
2726 SV*
2727 Perl_newSVpvf(pTHXo_ const char* pat, ...)
2728 {
2729     SV* retval;
2730     va_list args;
2731     va_start(args, pat);
2732     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
2733     va_end(args);
2734     return retval;
2735
2736 }
2737
2738 #undef  Perl_vnewSVpvf
2739 SV*
2740 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
2741 {
2742     return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
2743 }
2744
2745 #undef  Perl_newSVrv
2746 SV*
2747 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
2748 {
2749     return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2750 }
2751
2752 #undef  Perl_newSVsv
2753 SV*
2754 Perl_newSVsv(pTHXo_ SV* old)
2755 {
2756     return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2757 }
2758
2759 #undef  Perl_newUNOP
2760 OP*
2761 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
2762 {
2763     return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2764 }
2765
2766 #undef  Perl_newWHILEOP
2767 OP*
2768 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2769 {
2770     return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2771 }
2772
2773 #undef  Perl_new_stackinfo
2774 PERL_SI*
2775 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
2776 {
2777     return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2778 }
2779
2780 #undef  Perl_nextargv
2781 PerlIO*
2782 Perl_nextargv(pTHXo_ GV* gv)
2783 {
2784     return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2785 }
2786
2787 #undef  Perl_ninstr
2788 char*
2789 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2790 {
2791     return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2792 }
2793
2794 #undef  Perl_oopsCV
2795 OP*
2796 Perl_oopsCV(pTHXo_ OP* o)
2797 {
2798     return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2799 }
2800
2801 #undef  Perl_op_free
2802 void
2803 Perl_op_free(pTHXo_ OP* arg)
2804 {
2805     ((CPerlObj*)pPerl)->Perl_op_free(arg);
2806 }
2807
2808 #undef  Perl_package
2809 void
2810 Perl_package(pTHXo_ OP* o)
2811 {
2812     ((CPerlObj*)pPerl)->Perl_package(o);
2813 }
2814
2815 #undef  Perl_pad_alloc
2816 PADOFFSET
2817 Perl_pad_alloc(pTHXo_ I32 optype, U32 tmptype)
2818 {
2819     return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype);
2820 }
2821
2822 #undef  Perl_pad_allocmy
2823 PADOFFSET
2824 Perl_pad_allocmy(pTHXo_ char* name)
2825 {
2826     return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2827 }
2828
2829 #undef  Perl_pad_findmy
2830 PADOFFSET
2831 Perl_pad_findmy(pTHXo_ char* name)
2832 {
2833     return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2834 }
2835
2836 #undef  Perl_oopsAV
2837 OP*
2838 Perl_oopsAV(pTHXo_ OP* o)
2839 {
2840     return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2841 }
2842
2843 #undef  Perl_oopsHV
2844 OP*
2845 Perl_oopsHV(pTHXo_ OP* o)
2846 {
2847     return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2848 }
2849
2850 #undef  Perl_pad_leavemy
2851 void
2852 Perl_pad_leavemy(pTHXo_ I32 fill)
2853 {
2854     ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2855 }
2856
2857 #undef  Perl_pad_sv
2858 SV*
2859 Perl_pad_sv(pTHXo_ PADOFFSET po)
2860 {
2861     return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2862 }
2863
2864 #undef  Perl_pad_free
2865 void
2866 Perl_pad_free(pTHXo_ PADOFFSET po)
2867 {
2868     ((CPerlObj*)pPerl)->Perl_pad_free(po);
2869 }
2870
2871 #undef  Perl_pad_reset
2872 void
2873 Perl_pad_reset(pTHXo)
2874 {
2875     ((CPerlObj*)pPerl)->Perl_pad_reset();
2876 }
2877
2878 #undef  Perl_pad_swipe
2879 void
2880 Perl_pad_swipe(pTHXo_ PADOFFSET po)
2881 {
2882     ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2883 }
2884
2885 #undef  Perl_peep
2886 void
2887 Perl_peep(pTHXo_ OP* o)
2888 {
2889     ((CPerlObj*)pPerl)->Perl_peep(o);
2890 }
2891 #if defined(PERL_OBJECT)
2892
2893 #undef  Perl_construct
2894 void
2895 Perl_construct(pTHXo)
2896 {
2897     ((CPerlObj*)pPerl)->Perl_construct();
2898 }
2899
2900 #undef  Perl_destruct
2901 void
2902 Perl_destruct(pTHXo)
2903 {
2904     ((CPerlObj*)pPerl)->Perl_destruct();
2905 }
2906
2907 #undef  Perl_free
2908 void
2909 Perl_free(pTHXo)
2910 {
2911     ((CPerlObj*)pPerl)->Perl_free();
2912 }
2913
2914 #undef  Perl_run
2915 int
2916 Perl_run(pTHXo)
2917 {
2918     return ((CPerlObj*)pPerl)->Perl_run();
2919 }
2920
2921 #undef  Perl_parse
2922 int
2923 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2924 {
2925     return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2926 }
2927 #endif
2928 #if defined(USE_THREADS)
2929
2930 #undef  Perl_new_struct_thread
2931 struct perl_thread*
2932 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2933 {
2934     return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2935 }
2936 #endif
2937
2938 #undef  Perl_call_atexit
2939 void
2940 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2941 {
2942     ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2943 }
2944
2945 #undef  Perl_call_argv
2946 I32
2947 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2948 {
2949     return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2950 }
2951
2952 #undef  Perl_call_method
2953 I32
2954 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2955 {
2956     return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2957 }
2958
2959 #undef  Perl_call_pv
2960 I32
2961 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2962 {
2963     return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2964 }
2965
2966 #undef  Perl_call_sv
2967 I32
2968 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2969 {
2970     return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2971 }
2972
2973 #undef  Perl_eval_pv
2974 SV*
2975 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2976 {
2977     return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2978 }
2979
2980 #undef  Perl_eval_sv
2981 I32
2982 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2983 {
2984     return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2985 }
2986
2987 #undef  Perl_get_sv
2988 SV*
2989 Perl_get_sv(pTHXo_ const char* name, I32 create)
2990 {
2991     return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2992 }
2993
2994 #undef  Perl_get_av
2995 AV*
2996 Perl_get_av(pTHXo_ const char* name, I32 create)
2997 {
2998     return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2999 }
3000
3001 #undef  Perl_get_hv
3002 HV*
3003 Perl_get_hv(pTHXo_ const char* name, I32 create)
3004 {
3005     return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
3006 }
3007
3008 #undef  Perl_get_cv
3009 CV*
3010 Perl_get_cv(pTHXo_ const char* name, I32 create)
3011 {
3012     return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
3013 }
3014
3015 #undef  Perl_init_i18nl10n
3016 int
3017 Perl_init_i18nl10n(pTHXo_ int printwarn)
3018 {
3019     return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
3020 }
3021
3022 #undef  Perl_init_i18nl14n
3023 int
3024 Perl_init_i18nl14n(pTHXo_ int printwarn)
3025 {
3026     return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
3027 }
3028
3029 #undef  Perl_new_collate
3030 void
3031 Perl_new_collate(pTHXo_ const char* newcoll)
3032 {
3033     ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
3034 }
3035
3036 #undef  Perl_new_ctype
3037 void
3038 Perl_new_ctype(pTHXo_ const char* newctype)
3039 {
3040     ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
3041 }
3042
3043 #undef  Perl_new_numeric
3044 void
3045 Perl_new_numeric(pTHXo_ const char* newcoll)
3046 {
3047     ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
3048 }
3049
3050 #undef  Perl_set_numeric_local
3051 void
3052 Perl_set_numeric_local(pTHXo)
3053 {
3054     ((CPerlObj*)pPerl)->Perl_set_numeric_local();
3055 }
3056
3057 #undef  Perl_set_numeric_radix
3058 void
3059 Perl_set_numeric_radix(pTHXo)
3060 {
3061     ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
3062 }
3063
3064 #undef  Perl_set_numeric_standard
3065 void
3066 Perl_set_numeric_standard(pTHXo)
3067 {
3068     ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
3069 }
3070
3071 #undef  Perl_require_pv
3072 void
3073 Perl_require_pv(pTHXo_ const char* pv)
3074 {
3075     ((CPerlObj*)pPerl)->Perl_require_pv(pv);
3076 }
3077
3078 #undef  Perl_pidgone
3079 void
3080 Perl_pidgone(pTHXo_ Pid_t pid, int status)
3081 {
3082     ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
3083 }
3084
3085 #undef  Perl_pmflag
3086 void
3087 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
3088 {
3089     ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
3090 }
3091
3092 #undef  Perl_pmruntime
3093 OP*
3094 Perl_pmruntime(pTHXo_ OP* pm, OP* expr, OP* repl)
3095 {
3096     return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl);
3097 }
3098
3099 #undef  Perl_pmtrans
3100 OP*
3101 Perl_pmtrans(pTHXo_ OP* o, OP* expr, OP* repl)
3102 {
3103     return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl);
3104 }
3105
3106 #undef  Perl_pop_return
3107 OP*
3108 Perl_pop_return(pTHXo)
3109 {
3110     return ((CPerlObj*)pPerl)->Perl_pop_return();
3111 }
3112
3113 #undef  Perl_pop_scope
3114 void
3115 Perl_pop_scope(pTHXo)
3116 {
3117     ((CPerlObj*)pPerl)->Perl_pop_scope();
3118 }
3119
3120 #undef  Perl_prepend_elem
3121 OP*
3122 Perl_prepend_elem(pTHXo_ I32 optype, OP* head, OP* tail)
3123 {
3124     return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail);
3125 }
3126
3127 #undef  Perl_push_return
3128 void
3129 Perl_push_return(pTHXo_ OP* o)
3130 {
3131     ((CPerlObj*)pPerl)->Perl_push_return(o);
3132 }
3133
3134 #undef  Perl_push_scope
3135 void
3136 Perl_push_scope(pTHXo)
3137 {
3138     ((CPerlObj*)pPerl)->Perl_push_scope();
3139 }
3140
3141 #undef  Perl_ref
3142 OP*
3143 Perl_ref(pTHXo_ OP* o, I32 type)
3144 {
3145     return ((CPerlObj*)pPerl)->Perl_ref(o, type);
3146 }
3147
3148 #undef  Perl_refkids
3149 OP*
3150 Perl_refkids(pTHXo_ OP* o, I32 type)
3151 {
3152     return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
3153 }
3154
3155 #undef  Perl_regdump
3156 void
3157 Perl_regdump(pTHXo_ regexp* r)
3158 {
3159     ((CPerlObj*)pPerl)->Perl_regdump(r);
3160 }
3161
3162 #undef  Perl_pregexec
3163 I32
3164 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
3165 {
3166     return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
3167 }
3168
3169 #undef  Perl_pregfree
3170 void
3171 Perl_pregfree(pTHXo_ struct regexp* r)
3172 {
3173     ((CPerlObj*)pPerl)->Perl_pregfree(r);
3174 }
3175
3176 #undef  Perl_pregcomp
3177 regexp*
3178 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
3179 {
3180     return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
3181 }
3182
3183 #undef  Perl_re_intuit_start
3184 char*
3185 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
3186 {
3187     return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
3188 }
3189
3190 #undef  Perl_re_intuit_string
3191 SV*
3192 Perl_re_intuit_string(pTHXo_ regexp* prog)
3193 {
3194     return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
3195 }
3196
3197 #undef  Perl_regexec_flags
3198 I32
3199 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
3200 {
3201     return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
3202 }
3203
3204 #undef  Perl_regnext
3205 regnode*
3206 Perl_regnext(pTHXo_ regnode* p)
3207 {
3208     return ((CPerlObj*)pPerl)->Perl_regnext(p);
3209 }
3210
3211 #undef  Perl_regprop
3212 void
3213 Perl_regprop(pTHXo_ SV* sv, regnode* o)
3214 {
3215     ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
3216 }
3217
3218 #undef  Perl_repeatcpy
3219 void
3220 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
3221 {
3222     ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
3223 }
3224
3225 #undef  Perl_rninstr
3226 char*
3227 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
3228 {
3229     return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
3230 }
3231
3232 #undef  Perl_rsignal
3233 Sighandler_t
3234 Perl_rsignal(pTHXo_ int i, Sighandler_t t)
3235 {
3236     return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
3237 }
3238
3239 #undef  Perl_rsignal_restore
3240 int
3241 Perl_rsignal_restore(pTHXo_ int i, Sigsave_t* t)
3242 {
3243     return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t);
3244 }
3245
3246 #undef  Perl_rsignal_save
3247 int
3248 Perl_rsignal_save(pTHXo_ int i, Sighandler_t t1, Sigsave_t* t2)
3249 {
3250     return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2);
3251 }
3252
3253 #undef  Perl_rsignal_state
3254 Sighandler_t
3255 Perl_rsignal_state(pTHXo_ int i)
3256 {
3257     return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
3258 }
3259
3260 #undef  Perl_rxres_free
3261 void
3262 Perl_rxres_free(pTHXo_ void** rsp)
3263 {
3264     ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
3265 }
3266
3267 #undef  Perl_rxres_restore
3268 void
3269 Perl_rxres_restore(pTHXo_ void** rsp, REGEXP* prx)
3270 {
3271     ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
3272 }
3273
3274 #undef  Perl_rxres_save
3275 void
3276 Perl_rxres_save(pTHXo_ void** rsp, REGEXP* prx)
3277 {
3278     ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx);
3279 }
3280 #if !defined(HAS_RENAME)
3281
3282 #undef  Perl_same_dirent
3283 I32
3284 Perl_same_dirent(pTHXo_ char* a, char* b)
3285 {
3286     return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b);
3287 }
3288 #endif
3289
3290 #undef  Perl_savepv
3291 char*
3292 Perl_savepv(pTHXo_ const char* sv)
3293 {
3294     return ((CPerlObj*)pPerl)->Perl_savepv(sv);
3295 }
3296
3297 #undef  Perl_savepvn
3298 char*
3299 Perl_savepvn(pTHXo_ const char* sv, I32 len)
3300 {
3301     return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
3302 }
3303
3304 #undef  Perl_savestack_grow
3305 void
3306 Perl_savestack_grow(pTHXo)
3307 {
3308     ((CPerlObj*)pPerl)->Perl_savestack_grow();
3309 }
3310
3311 #undef  Perl_save_aelem
3312 void
3313 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
3314 {
3315     ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
3316 }
3317
3318 #undef  Perl_save_alloc
3319 I32
3320 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
3321 {
3322     return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
3323 }
3324
3325 #undef  Perl_save_aptr
3326 void
3327 Perl_save_aptr(pTHXo_ AV** aptr)
3328 {
3329     ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3330 }
3331
3332 #undef  Perl_save_ary
3333 AV*
3334 Perl_save_ary(pTHXo_ GV* gv)
3335 {
3336     return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3337 }
3338
3339 #undef  Perl_save_clearsv
3340 void
3341 Perl_save_clearsv(pTHXo_ SV** svp)
3342 {
3343     ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3344 }
3345
3346 #undef  Perl_save_delete
3347 void
3348 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
3349 {
3350     ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
3351 }
3352
3353 #undef  Perl_save_destructor
3354 void
3355 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
3356 {
3357     ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
3358 }
3359
3360 #undef  Perl_save_destructor_x
3361 void
3362 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
3363 {
3364     ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
3365 }
3366
3367 #undef  Perl_save_freesv
3368 void
3369 Perl_save_freesv(pTHXo_ SV* sv)
3370 {
3371     ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3372 }
3373
3374 #undef  Perl_save_freeop
3375 void
3376 Perl_save_freeop(pTHXo_ OP* o)
3377 {
3378     ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3379 }
3380
3381 #undef  Perl_save_freepv
3382 void
3383 Perl_save_freepv(pTHXo_ char* pv)
3384 {
3385     ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3386 }
3387
3388 #undef  Perl_save_generic_svref
3389 void
3390 Perl_save_generic_svref(pTHXo_ SV** sptr)
3391 {
3392     ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3393 }
3394
3395 #undef  Perl_save_gp
3396 void
3397 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
3398 {
3399     ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3400 }
3401
3402 #undef  Perl_save_hash
3403 HV*
3404 Perl_save_hash(pTHXo_ GV* gv)
3405 {
3406     return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3407 }
3408
3409 #undef  Perl_save_helem
3410 void
3411 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
3412 {
3413     ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
3414 }
3415
3416 #undef  Perl_save_hints
3417 void
3418 Perl_save_hints(pTHXo)
3419 {
3420     ((CPerlObj*)pPerl)->Perl_save_hints();
3421 }
3422
3423 #undef  Perl_save_hptr
3424 void
3425 Perl_save_hptr(pTHXo_ HV** hptr)
3426 {
3427     ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3428 }
3429
3430 #undef  Perl_save_I16
3431 void
3432 Perl_save_I16(pTHXo_ I16* intp)
3433 {
3434     ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3435 }
3436
3437 #undef  Perl_save_I32
3438 void
3439 Perl_save_I32(pTHXo_ I32* intp)
3440 {
3441     ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3442 }
3443
3444 #undef  Perl_save_I8
3445 void
3446 Perl_save_I8(pTHXo_ I8* bytep)
3447 {
3448     ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
3449 }
3450
3451 #undef  Perl_save_int
3452 void
3453 Perl_save_int(pTHXo_ int* intp)
3454 {
3455     ((CPerlObj*)pPerl)->Perl_save_int(intp);
3456 }
3457
3458 #undef  Perl_save_item
3459 void
3460 Perl_save_item(pTHXo_ SV* item)
3461 {
3462     ((CPerlObj*)pPerl)->Perl_save_item(item);
3463 }
3464
3465 #undef  Perl_save_iv
3466 void
3467 Perl_save_iv(pTHXo_ IV* iv)
3468 {
3469     ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3470 }
3471
3472 #undef  Perl_save_list
3473 void
3474 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
3475 {
3476     ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3477 }
3478
3479 #undef  Perl_save_long
3480 void
3481 Perl_save_long(pTHXo_ long* longp)
3482 {
3483     ((CPerlObj*)pPerl)->Perl_save_long(longp);
3484 }
3485
3486 #undef  Perl_save_nogv
3487 void
3488 Perl_save_nogv(pTHXo_ GV* gv)
3489 {
3490     ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3491 }
3492
3493 #undef  Perl_save_op
3494 void
3495 Perl_save_op(pTHXo)
3496 {
3497     ((CPerlObj*)pPerl)->Perl_save_op();
3498 }
3499
3500 #undef  Perl_save_scalar
3501 SV*
3502 Perl_save_scalar(pTHXo_ GV* gv)
3503 {
3504     return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3505 }
3506
3507 #undef  Perl_save_pptr
3508 void
3509 Perl_save_pptr(pTHXo_ char** pptr)
3510 {
3511     ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3512 }
3513
3514 #undef  Perl_save_vptr
3515 void
3516 Perl_save_vptr(pTHXo_ void* pptr)
3517 {
3518     ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
3519 }
3520
3521 #undef  Perl_save_re_context
3522 void
3523 Perl_save_re_context(pTHXo)
3524 {
3525     ((CPerlObj*)pPerl)->Perl_save_re_context();
3526 }
3527
3528 #undef  Perl_save_sptr
3529 void
3530 Perl_save_sptr(pTHXo_ SV** sptr)
3531 {
3532     ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3533 }
3534
3535 #undef  Perl_save_svref
3536 SV*
3537 Perl_save_svref(pTHXo_ SV** sptr)
3538 {
3539     return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3540 }
3541
3542 #undef  Perl_save_threadsv
3543 SV**
3544 Perl_save_threadsv(pTHXo_ PADOFFSET i)
3545 {
3546     return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3547 }
3548
3549 #undef  Perl_sawparens
3550 OP*
3551 Perl_sawparens(pTHXo_ OP* o)
3552 {
3553     return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3554 }
3555
3556 #undef  Perl_scalar
3557 OP*
3558 Perl_scalar(pTHXo_ OP* o)
3559 {
3560     return ((CPerlObj*)pPerl)->Perl_scalar(o);
3561 }
3562
3563 #undef  Perl_scalarkids
3564 OP*
3565 Perl_scalarkids(pTHXo_ OP* o)
3566 {
3567     return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3568 }
3569
3570 #undef  Perl_scalarseq
3571 OP*
3572 Perl_scalarseq(pTHXo_ OP* o)
3573 {
3574     return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3575 }
3576
3577 #undef  Perl_scalarvoid
3578 OP*
3579 Perl_scalarvoid(pTHXo_ OP* o)
3580 {
3581     return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3582 }
3583
3584 #undef  Perl_scan_bin
3585 NV
3586 Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
3587 {
3588     return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
3589 }
3590
3591 #undef  Perl_scan_hex
3592 NV
3593 Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
3594 {
3595     return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
3596 }
3597
3598 #undef  Perl_scan_num
3599 char*
3600 Perl_scan_num(pTHXo_ char* s)
3601 {
3602     return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3603 }
3604
3605 #undef  Perl_scan_oct
3606 NV
3607 Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
3608 {
3609     return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
3610 }
3611
3612 #undef  Perl_scope
3613 OP*
3614 Perl_scope(pTHXo_ OP* o)
3615 {
3616     return ((CPerlObj*)pPerl)->Perl_scope(o);
3617 }
3618
3619 #undef  Perl_screaminstr
3620 char*
3621 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
3622 {
3623     return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
3624 }
3625 #if !defined(VMS)
3626
3627 #undef  Perl_setenv_getix
3628 I32
3629 Perl_setenv_getix(pTHXo_ char* nam)
3630 {
3631     return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3632 }
3633 #endif
3634
3635 #undef  Perl_setdefout
3636 void
3637 Perl_setdefout(pTHXo_ GV* gv)
3638 {
3639     ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3640 }
3641
3642 #undef  Perl_sharepvn
3643 char*
3644 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3645 {
3646     return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
3647 }
3648
3649 #undef  Perl_share_hek
3650 HEK*
3651 Perl_share_hek(pTHXo_ const char* sv, I32 len, U32 hash)
3652 {
3653     return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash);
3654 }
3655
3656 #undef  Perl_sighandler
3657 Signal_t
3658 Perl_sighandler(int sig)
3659 {
3660     dTHXo;
3661     ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3662 }
3663
3664 #undef  Perl_stack_grow
3665 SV**
3666 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
3667 {
3668     return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
3669 }
3670
3671 #undef  Perl_start_subparse
3672 I32
3673 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
3674 {
3675     return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
3676 }
3677
3678 #undef  Perl_sub_crush_depth
3679 void
3680 Perl_sub_crush_depth(pTHXo_ CV* cv)
3681 {
3682     ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3683 }
3684
3685 #undef  Perl_sv_2bool
3686 bool
3687 Perl_sv_2bool(pTHXo_ SV* sv)
3688 {
3689     return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3690 }
3691
3692 #undef  Perl_sv_2cv
3693 CV*
3694 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
3695 {
3696     return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
3697 }
3698
3699 #undef  Perl_sv_2io
3700 IO*
3701 Perl_sv_2io(pTHXo_ SV* sv)
3702 {
3703     return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3704 }
3705
3706 #undef  Perl_sv_2iv
3707 IV
3708 Perl_sv_2iv(pTHXo_ SV* sv)
3709 {
3710     return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3711 }
3712
3713 #undef  Perl_sv_2mortal
3714 SV*
3715 Perl_sv_2mortal(pTHXo_ SV* sv)
3716 {
3717     return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3718 }
3719
3720 #undef  Perl_sv_2nv
3721 NV
3722 Perl_sv_2nv(pTHXo_ SV* sv)
3723 {
3724     return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3725 }
3726
3727 #undef  Perl_sv_2pv
3728 char*
3729 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
3730 {
3731     return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
3732 }
3733
3734 #undef  Perl_sv_2pvutf8
3735 char*
3736 Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp)
3737 {
3738     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp);
3739 }
3740
3741 #undef  Perl_sv_2pvbyte
3742 char*
3743 Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp)
3744 {
3745     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp);
3746 }
3747
3748 #undef  Perl_sv_2uv
3749 UV
3750 Perl_sv_2uv(pTHXo_ SV* sv)
3751 {
3752     return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3753 }
3754
3755 #undef  Perl_sv_iv
3756 IV
3757 Perl_sv_iv(pTHXo_ SV* sv)
3758 {
3759     return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3760 }
3761
3762 #undef  Perl_sv_uv
3763 UV
3764 Perl_sv_uv(pTHXo_ SV* sv)
3765 {
3766     return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3767 }
3768
3769 #undef  Perl_sv_nv
3770 NV
3771 Perl_sv_nv(pTHXo_ SV* sv)
3772 {
3773     return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3774 }
3775
3776 #undef  Perl_sv_pvn
3777 char*
3778 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
3779 {
3780     return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
3781 }
3782
3783 #undef  Perl_sv_pvutf8n
3784 char*
3785 Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len)
3786 {
3787     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len);
3788 }
3789
3790 #undef  Perl_sv_pvbyten
3791 char*
3792 Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len)
3793 {
3794     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len);
3795 }
3796
3797 #undef  Perl_sv_true
3798 I32
3799 Perl_sv_true(pTHXo_ SV *sv)
3800 {
3801     return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3802 }
3803
3804 #undef  Perl_sv_add_arena
3805 void
3806 Perl_sv_add_arena(pTHXo_ char* ptr, U32 size, U32 flags)
3807 {
3808     ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags);
3809 }
3810
3811 #undef  Perl_sv_backoff
3812 int
3813 Perl_sv_backoff(pTHXo_ SV* sv)
3814 {
3815     return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3816 }
3817
3818 #undef  Perl_sv_bless
3819 SV*
3820 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
3821 {
3822     return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
3823 }
3824
3825 #undef  Perl_sv_catpvf
3826 void
3827 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
3828 {
3829     va_list args;
3830     va_start(args, pat);
3831     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
3832     va_end(args);
3833 }
3834
3835 #undef  Perl_sv_vcatpvf
3836 void
3837 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3838 {
3839     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
3840 }
3841
3842 #undef  Perl_sv_catpv
3843 void
3844 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
3845 {
3846     ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
3847 }
3848
3849 #undef  Perl_sv_catpvn
3850 void
3851 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3852 {
3853     ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
3854 }
3855
3856 #undef  Perl_sv_catsv
3857 void
3858 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
3859 {
3860     ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3861 }
3862
3863 #undef  Perl_sv_chop
3864 void
3865 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
3866 {
3867     ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
3868 }
3869
3870 #undef  Perl_sv_clean_all
3871 void
3872 Perl_sv_clean_all(pTHXo)
3873 {
3874     ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3875 }
3876
3877 #undef  Perl_sv_clean_objs
3878 void
3879 Perl_sv_clean_objs(pTHXo)
3880 {
3881     ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3882 }
3883
3884 #undef  Perl_sv_clear
3885 void
3886 Perl_sv_clear(pTHXo_ SV* sv)
3887 {
3888     ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3889 }
3890
3891 #undef  Perl_sv_cmp
3892 I32
3893 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
3894 {
3895     return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
3896 }
3897
3898 #undef  Perl_sv_cmp_locale
3899 I32
3900 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
3901 {
3902     return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
3903 }
3904 #if defined(USE_LOCALE_COLLATE)
3905
3906 #undef  Perl_sv_collxfrm
3907 char*
3908 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
3909 {
3910     return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
3911 }
3912 #endif
3913
3914 #undef  Perl_sv_compile_2op
3915 OP*
3916 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
3917 {
3918     return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
3919 }
3920
3921 #undef  Perl_sv_dec
3922 void
3923 Perl_sv_dec(pTHXo_ SV* sv)
3924 {
3925     ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3926 }
3927
3928 #undef  Perl_sv_dump
3929 void
3930 Perl_sv_dump(pTHXo_ SV* sv)
3931 {
3932     ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3933 }
3934
3935 #undef  Perl_sv_derived_from
3936 bool
3937 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
3938 {
3939     return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
3940 }
3941
3942 #undef  Perl_sv_eq
3943 I32
3944 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
3945 {
3946     return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
3947 }
3948
3949 #undef  Perl_sv_free
3950 void
3951 Perl_sv_free(pTHXo_ SV* sv)
3952 {
3953     ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3954 }
3955
3956 #undef  Perl_sv_free_arenas
3957 void
3958 Perl_sv_free_arenas(pTHXo)
3959 {
3960     ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3961 }
3962
3963 #undef  Perl_sv_gets
3964 char*
3965 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
3966 {
3967     return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
3968 }
3969
3970 #undef  Perl_sv_grow
3971 char*
3972 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
3973 {
3974     return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
3975 }
3976
3977 #undef  Perl_sv_inc
3978 void
3979 Perl_sv_inc(pTHXo_ SV* sv)
3980 {
3981     ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3982 }
3983
3984 #undef  Perl_sv_insert
3985 void
3986 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
3987 {
3988     ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
3989 }
3990
3991 #undef  Perl_sv_isa
3992 int
3993 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
3994 {
3995     return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
3996 }
3997
3998 #undef  Perl_sv_isobject
3999 int
4000 Perl_sv_isobject(pTHXo_ SV* sv)
4001 {
4002     return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
4003 }
4004
4005 #undef  Perl_sv_len
4006 STRLEN
4007 Perl_sv_len(pTHXo_ SV* sv)
4008 {
4009     return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
4010 }
4011
4012 #undef  Perl_sv_len_utf8
4013 STRLEN
4014 Perl_sv_len_utf8(pTHXo_ SV* sv)
4015 {
4016     return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
4017 }
4018
4019 #undef  Perl_sv_magic
4020 void
4021 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
4022 {
4023     ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
4024 }
4025
4026 #undef  Perl_sv_mortalcopy
4027 SV*
4028 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
4029 {
4030     return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
4031 }
4032
4033 #undef  Perl_sv_newmortal
4034 SV*
4035 Perl_sv_newmortal(pTHXo)
4036 {
4037     return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
4038 }
4039
4040 #undef  Perl_sv_newref
4041 SV*
4042 Perl_sv_newref(pTHXo_ SV* sv)
4043 {
4044     return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
4045 }
4046
4047 #undef  Perl_sv_peek
4048 char*
4049 Perl_sv_peek(pTHXo_ SV* sv)
4050 {
4051     return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
4052 }
4053
4054 #undef  Perl_sv_pos_u2b
4055 void
4056 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
4057 {
4058     ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
4059 }
4060
4061 #undef  Perl_sv_pos_b2u
4062 void
4063 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
4064 {
4065     ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
4066 }
4067
4068 #undef  Perl_sv_pvn_force
4069 char*
4070 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
4071 {
4072     return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
4073 }
4074
4075 #undef  Perl_sv_pvutf8n_force
4076 char*
4077 Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp)
4078 {
4079     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp);
4080 }
4081
4082 #undef  Perl_sv_pvbyten_force
4083 char*
4084 Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp)
4085 {
4086     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
4087 }
4088
4089 #undef  Perl_sv_reftype
4090 char*
4091 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
4092 {
4093     return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
4094 }
4095
4096 #undef  Perl_sv_replace
4097 void
4098 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
4099 {
4100     ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
4101 }
4102
4103 #undef  Perl_sv_report_used
4104 void
4105 Perl_sv_report_used(pTHXo)
4106 {
4107     ((CPerlObj*)pPerl)->Perl_sv_report_used();
4108 }
4109
4110 #undef  Perl_sv_reset
4111 void
4112 Perl_sv_reset(pTHXo_ char* s, HV* stash)
4113 {
4114     ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
4115 }
4116
4117 #undef  Perl_sv_setpvf
4118 void
4119 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
4120 {
4121     va_list args;
4122     va_start(args, pat);
4123     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
4124     va_end(args);
4125 }
4126
4127 #undef  Perl_sv_vsetpvf
4128 void
4129 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
4130 {
4131     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
4132 }
4133
4134 #undef  Perl_sv_setiv
4135 void
4136 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
4137 {
4138     ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
4139 }
4140
4141 #undef  Perl_sv_setpviv
4142 void
4143 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
4144 {
4145     ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
4146 }
4147
4148 #undef  Perl_sv_setuv
4149 void
4150 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
4151 {
4152     ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
4153 }
4154
4155 #undef  Perl_sv_setnv
4156 void
4157 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
4158 {
4159     ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
4160 }
4161
4162 #undef  Perl_sv_setref_iv
4163 SV*
4164 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
4165 {
4166     return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
4167 }
4168
4169 #undef  Perl_sv_setref_nv
4170 SV*
4171 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
4172 {
4173     return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
4174 }
4175
4176 #undef  Perl_sv_setref_pv
4177 SV*
4178 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
4179 {
4180     return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
4181 }
4182
4183 #undef  Perl_sv_setref_pvn
4184 SV*
4185 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
4186 {
4187     return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
4188 }
4189
4190 #undef  Perl_sv_setpv
4191 void
4192 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
4193 {
4194     ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
4195 }
4196
4197 #undef  Perl_sv_setpvn
4198 void
4199 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
4200 {
4201     ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
4202 }
4203
4204 #undef  Perl_sv_setsv
4205 void
4206 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
4207 {
4208     ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
4209 }
4210
4211 #undef  Perl_sv_taint
4212 void
4213 Perl_sv_taint(pTHXo_ SV* sv)
4214 {
4215     ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
4216 }
4217
4218 #undef  Perl_sv_tainted
4219 bool
4220 Perl_sv_tainted(pTHXo_ SV* sv)
4221 {
4222     return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
4223 }
4224
4225 #undef  Perl_sv_unmagic
4226 int
4227 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
4228 {
4229     return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
4230 }
4231
4232 #undef  Perl_sv_unref
4233 void
4234 Perl_sv_unref(pTHXo_ SV* sv)
4235 {
4236     ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
4237 }
4238
4239 #undef  Perl_sv_untaint
4240 void
4241 Perl_sv_untaint(pTHXo_ SV* sv)
4242 {
4243     ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
4244 }
4245
4246 #undef  Perl_sv_upgrade
4247 bool
4248 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
4249 {
4250     return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
4251 }
4252
4253 #undef  Perl_sv_usepvn
4254 void
4255 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
4256 {
4257     ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
4258 }
4259
4260 #undef  Perl_sv_vcatpvfn
4261 void
4262 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4263 {
4264     ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4265 }
4266
4267 #undef  Perl_sv_vsetpvfn
4268 void
4269 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4270 {
4271     ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4272 }
4273
4274 #undef  Perl_swash_init
4275 SV*
4276 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
4277 {
4278     return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
4279 }
4280
4281 #undef  Perl_swash_fetch
4282 UV
4283 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
4284 {
4285     return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
4286 }
4287
4288 #undef  Perl_taint_env
4289 void
4290 Perl_taint_env(pTHXo)
4291 {
4292     ((CPerlObj*)pPerl)->Perl_taint_env();
4293 }
4294
4295 #undef  Perl_taint_proper
4296 void
4297 Perl_taint_proper(pTHXo_ const char* f, const char* s)
4298 {
4299     ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
4300 }
4301
4302 #undef  Perl_to_utf8_lower
4303 UV
4304 Perl_to_utf8_lower(pTHXo_ U8 *p)
4305 {
4306     return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
4307 }
4308
4309 #undef  Perl_to_utf8_upper
4310 UV
4311 Perl_to_utf8_upper(pTHXo_ U8 *p)
4312 {
4313     return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
4314 }
4315
4316 #undef  Perl_to_utf8_title
4317 UV
4318 Perl_to_utf8_title(pTHXo_ U8 *p)
4319 {
4320     return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
4321 }
4322 #if defined(UNLINK_ALL_VERSIONS)
4323
4324 #undef  Perl_unlnk
4325 I32
4326 Perl_unlnk(pTHXo_ char* f)
4327 {
4328     return ((CPerlObj*)pPerl)->Perl_unlnk(f);
4329 }
4330 #endif
4331 #if defined(USE_THREADS)
4332
4333 #undef  Perl_unlock_condpair
4334 void
4335 Perl_unlock_condpair(pTHXo_ void* svv)
4336 {
4337     ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
4338 }
4339 #endif
4340
4341 #undef  Perl_unsharepvn
4342 void
4343 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
4344 {
4345     ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
4346 }
4347
4348 #undef  Perl_unshare_hek
4349 void
4350 Perl_unshare_hek(pTHXo_ HEK* hek)
4351 {
4352     ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
4353 }
4354
4355 #undef  Perl_utilize
4356 void
4357 Perl_utilize(pTHXo_ int aver, I32 floor, OP* version, OP* id, OP* arg)
4358 {
4359     ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg);
4360 }
4361
4362 #undef  Perl_utf16_to_utf8
4363 U8*
4364 Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
4365 {
4366     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
4367 }
4368
4369 #undef  Perl_utf16_to_utf8_reversed
4370 U8*
4371 Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
4372 {
4373     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
4374 }
4375
4376 #undef  Perl_utf8_distance
4377 I32
4378 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
4379 {
4380     return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
4381 }
4382
4383 #undef  Perl_utf8_hop
4384 U8*
4385 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
4386 {
4387     return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
4388 }
4389
4390 #undef  Perl_utf8_to_uv
4391 UV
4392 Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
4393 {
4394     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
4395 }
4396
4397 #undef  Perl_uv_to_utf8
4398 U8*
4399 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
4400 {
4401     return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
4402 }
4403
4404 #undef  Perl_vivify_defelem
4405 void
4406 Perl_vivify_defelem(pTHXo_ SV* sv)
4407 {
4408     ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
4409 }
4410
4411 #undef  Perl_vivify_ref
4412 void
4413 Perl_vivify_ref(pTHXo_ SV* sv, U32 to_what)
4414 {
4415     ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what);
4416 }
4417
4418 #undef  Perl_wait4pid
4419 I32
4420 Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
4421 {
4422     return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
4423 }
4424
4425 #undef  Perl_report_uninit
4426 void
4427 Perl_report_uninit(pTHXo)
4428 {
4429     ((CPerlObj*)pPerl)->Perl_report_uninit();
4430 }
4431
4432 #undef  Perl_warn
4433 void
4434 Perl_warn(pTHXo_ const char* pat, ...)
4435 {
4436     va_list args;
4437     va_start(args, pat);
4438     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
4439     va_end(args);
4440 }
4441
4442 #undef  Perl_vwarn
4443 void
4444 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
4445 {
4446     ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
4447 }
4448
4449 #undef  Perl_warner
4450 void
4451 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
4452 {
4453     va_list args;
4454     va_start(args, pat);
4455     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
4456     va_end(args);
4457 }
4458
4459 #undef  Perl_vwarner
4460 void
4461 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
4462 {
4463     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
4464 }
4465
4466 #undef  Perl_watch
4467 void
4468 Perl_watch(pTHXo_ char** addr)
4469 {
4470     ((CPerlObj*)pPerl)->Perl_watch(addr);
4471 }
4472
4473 #undef  Perl_whichsig
4474 I32
4475 Perl_whichsig(pTHXo_ char* sig)
4476 {
4477     return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4478 }
4479
4480 #undef  Perl_yyerror
4481 int
4482 Perl_yyerror(pTHXo_ char* s)
4483 {
4484     return ((CPerlObj*)pPerl)->Perl_yyerror(s);
4485 }
4486 #if defined(USE_PURE_BISON)
4487
4488 #undef  Perl_yylex
4489 int
4490 Perl_yylex(pTHXo_ YYSTYPE *lvalp, int *lcharp)
4491 {
4492     return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4493 }
4494 #else
4495
4496 #undef  Perl_yylex
4497 int
4498 Perl_yylex(pTHXo)
4499 {
4500     return ((CPerlObj*)pPerl)->Perl_yylex();
4501 }
4502 #endif
4503
4504 #undef  Perl_yyparse
4505 int
4506 Perl_yyparse(pTHXo)
4507 {
4508     return ((CPerlObj*)pPerl)->Perl_yyparse();
4509 }
4510
4511 #undef  Perl_yywarn
4512 int
4513 Perl_yywarn(pTHXo_ char* s)
4514 {
4515     return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4516 }
4517 #if defined(MYMALLOC)
4518
4519 #undef  Perl_dump_mstats
4520 void
4521 Perl_dump_mstats(pTHXo_ char* s)
4522 {
4523     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4524 }
4525 #endif
4526
4527 #undef  Perl_safesysmalloc
4528 Malloc_t
4529 Perl_safesysmalloc(MEM_SIZE nbytes)
4530 {
4531     dTHXo;
4532     return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4533 }
4534
4535 #undef  Perl_safesyscalloc
4536 Malloc_t
4537 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
4538 {
4539     dTHXo;
4540     return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4541 }
4542
4543 #undef  Perl_safesysrealloc
4544 Malloc_t
4545 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
4546 {
4547     dTHXo;
4548     return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4549 }
4550
4551 #undef  Perl_safesysfree
4552 Free_t
4553 Perl_safesysfree(Malloc_t where)
4554 {
4555     dTHXo;
4556     ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4557 }
4558 #if defined(LEAKTEST)
4559
4560 #undef  Perl_safexmalloc
4561 Malloc_t
4562 Perl_safexmalloc(I32 x, MEM_SIZE size)
4563 {
4564     dTHXo;
4565     return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4566 }
4567
4568 #undef  Perl_safexcalloc
4569 Malloc_t
4570 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
4571 {
4572     dTHXo;
4573     return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
4574 }
4575
4576 #undef  Perl_safexrealloc
4577 Malloc_t
4578 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
4579 {
4580     dTHXo;
4581     return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4582 }
4583
4584 #undef  Perl_safexfree
4585 void
4586 Perl_safexfree(Malloc_t where)
4587 {
4588     dTHXo;
4589     ((CPerlObj*)pPerl)->Perl_safexfree(where);
4590 }
4591 #endif
4592 #if defined(PERL_GLOBAL_STRUCT)
4593
4594 #undef  Perl_GetVars
4595 struct perl_vars *
4596 Perl_GetVars(pTHXo)
4597 {
4598     return ((CPerlObj*)pPerl)->Perl_GetVars();
4599 }
4600 #endif
4601
4602 #undef  Perl_runops_standard
4603 int
4604 Perl_runops_standard(pTHXo)
4605 {
4606     return ((CPerlObj*)pPerl)->Perl_runops_standard();
4607 }
4608
4609 #undef  Perl_runops_debug
4610 int
4611 Perl_runops_debug(pTHXo)
4612 {
4613     return ((CPerlObj*)pPerl)->Perl_runops_debug();
4614 }
4615
4616 #undef  Perl_sv_catpvf_mg
4617 void
4618 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4619 {
4620     va_list args;
4621     va_start(args, pat);
4622     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
4623     va_end(args);
4624 }
4625
4626 #undef  Perl_sv_vcatpvf_mg
4627 void
4628 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4629 {
4630     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
4631 }
4632
4633 #undef  Perl_sv_catpv_mg
4634 void
4635 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
4636 {
4637     ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
4638 }
4639
4640 #undef  Perl_sv_catpvn_mg
4641 void
4642 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4643 {
4644     ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
4645 }
4646
4647 #undef  Perl_sv_catsv_mg
4648 void
4649 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
4650 {
4651     ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
4652 }
4653
4654 #undef  Perl_sv_setpvf_mg
4655 void
4656 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4657 {
4658     va_list args;
4659     va_start(args, pat);
4660     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
4661     va_end(args);
4662 }
4663
4664 #undef  Perl_sv_vsetpvf_mg
4665 void
4666 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4667 {
4668     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
4669 }
4670
4671 #undef  Perl_sv_setiv_mg
4672 void
4673 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
4674 {
4675     ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
4676 }
4677
4678 #undef  Perl_sv_setpviv_mg
4679 void
4680 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
4681 {
4682     ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
4683 }
4684
4685 #undef  Perl_sv_setuv_mg
4686 void
4687 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
4688 {
4689     ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
4690 }
4691
4692 #undef  Perl_sv_setnv_mg
4693 void
4694 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
4695 {
4696     ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
4697 }
4698
4699 #undef  Perl_sv_setpv_mg
4700 void
4701 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
4702 {
4703     ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
4704 }
4705
4706 #undef  Perl_sv_setpvn_mg
4707 void
4708 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4709 {
4710     ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
4711 }
4712
4713 #undef  Perl_sv_setsv_mg
4714 void
4715 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
4716 {
4717     ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
4718 }
4719
4720 #undef  Perl_sv_usepvn_mg
4721 void
4722 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
4723 {
4724     ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
4725 }
4726
4727 #undef  Perl_get_vtbl
4728 MGVTBL*
4729 Perl_get_vtbl(pTHXo_ int vtbl_id)
4730 {
4731     return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4732 }
4733
4734 #undef  Perl_pv_display
4735 char*
4736 Perl_pv_display(pTHXo_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4737 {
4738     return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim);
4739 }
4740
4741 #undef  Perl_dump_indent
4742 void
4743 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
4744 {
4745     va_list args;
4746     va_start(args, pat);
4747     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
4748     va_end(args);
4749 }
4750
4751 #undef  Perl_dump_vindent
4752 void
4753 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
4754 {
4755     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
4756 }
4757
4758 #undef  Perl_do_gv_dump
4759 void
4760 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4761 {
4762     ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
4763 }
4764
4765 #undef  Perl_do_gvgv_dump
4766 void
4767 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4768 {
4769     ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
4770 }
4771
4772 #undef  Perl_do_hv_dump
4773 void
4774 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
4775 {
4776     ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
4777 }
4778
4779 #undef  Perl_do_magic_dump
4780 void
4781 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4782 {
4783     ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
4784 }
4785
4786 #undef  Perl_do_op_dump
4787 void
4788 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
4789 {
4790     ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
4791 }
4792
4793 #undef  Perl_do_pmop_dump
4794 void
4795 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
4796 {
4797     ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
4798 }
4799
4800 #undef  Perl_do_sv_dump
4801 void
4802 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4803 {
4804     ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
4805 }
4806
4807 #undef  Perl_magic_dump
4808 void
4809 Perl_magic_dump(pTHXo_ MAGIC *mg)
4810 {
4811     ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4812 }
4813
4814 #undef  Perl_default_protect
4815 void*
4816 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
4817 {
4818     void* retval;
4819     va_list args;
4820     va_start(args, body);
4821     retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
4822     va_end(args);
4823     return retval;
4824
4825 }
4826
4827 #undef  Perl_vdefault_protect
4828 void*
4829 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
4830 {
4831     return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
4832 }
4833
4834 #undef  Perl_reginitcolors
4835 void
4836 Perl_reginitcolors(pTHXo)
4837 {
4838     ((CPerlObj*)pPerl)->Perl_reginitcolors();
4839 }
4840
4841 #undef  Perl_sv_2pv_nolen
4842 char*
4843 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
4844 {
4845     return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4846 }
4847
4848 #undef  Perl_sv_2pvutf8_nolen
4849 char*
4850 Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv)
4851 {
4852     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv);
4853 }
4854
4855 #undef  Perl_sv_2pvbyte_nolen
4856 char*
4857 Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv)
4858 {
4859     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv);
4860 }
4861
4862 #undef  Perl_sv_pv
4863 char*
4864 Perl_sv_pv(pTHXo_ SV *sv)
4865 {
4866     return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4867 }
4868
4869 #undef  Perl_sv_pvutf8
4870 char*
4871 Perl_sv_pvutf8(pTHXo_ SV *sv)
4872 {
4873     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv);
4874 }
4875
4876 #undef  Perl_sv_pvbyte
4877 char*
4878 Perl_sv_pvbyte(pTHXo_ SV *sv)
4879 {
4880     return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
4881 }
4882
4883 #undef  Perl_sv_force_normal
4884 void
4885 Perl_sv_force_normal(pTHXo_ SV *sv)
4886 {
4887     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4888 }
4889
4890 #undef  Perl_tmps_grow
4891 void
4892 Perl_tmps_grow(pTHXo_ I32 n)
4893 {
4894     ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4895 }
4896
4897 #undef  Perl_sv_rvweaken
4898 SV*
4899 Perl_sv_rvweaken(pTHXo_ SV *sv)
4900 {
4901     return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4902 }
4903
4904 #undef  Perl_magic_killbackrefs
4905 int
4906 Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg)
4907 {
4908     return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
4909 }
4910
4911 #undef  Perl_newANONATTRSUB
4912 OP*
4913 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
4914 {
4915     return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
4916 }
4917
4918 #undef  Perl_newATTRSUB
4919 CV*
4920 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4921 {
4922     return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
4923 }
4924
4925 #undef  Perl_newMYSUB
4926 void
4927 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4928 {
4929     ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
4930 }
4931
4932 #undef  Perl_my_attrs
4933 OP *
4934 Perl_my_attrs(pTHXo_ OP *o, OP *attrs)
4935 {
4936     return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs);
4937 }
4938
4939 #undef  Perl_boot_core_xsutils
4940 void
4941 Perl_boot_core_xsutils(pTHXo)
4942 {
4943     ((CPerlObj*)pPerl)->Perl_boot_core_xsutils();
4944 }
4945 #if defined(USE_ITHREADS)
4946
4947 #undef  Perl_cx_dup
4948 PERL_CONTEXT*
4949 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
4950 {
4951     return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
4952 }
4953
4954 #undef  Perl_si_dup
4955 PERL_SI*
4956 Perl_si_dup(pTHXo_ PERL_SI* si)
4957 {
4958     return ((CPerlObj*)pPerl)->Perl_si_dup(si);
4959 }
4960
4961 #undef  Perl_ss_dup
4962 ANY*
4963 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
4964 {
4965     return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
4966 }
4967
4968 #undef  Perl_any_dup
4969 void*
4970 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
4971 {
4972     return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
4973 }
4974
4975 #undef  Perl_he_dup
4976 HE*
4977 Perl_he_dup(pTHXo_ HE* e, bool shared)
4978 {
4979     return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
4980 }
4981
4982 #undef  Perl_re_dup
4983 REGEXP*
4984 Perl_re_dup(pTHXo_ REGEXP* r)
4985 {
4986     return ((CPerlObj*)pPerl)->Perl_re_dup(r);
4987 }
4988
4989 #undef  Perl_fp_dup
4990 PerlIO*
4991 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
4992 {
4993     return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
4994 }
4995
4996 #undef  Perl_dirp_dup
4997 DIR*
4998 Perl_dirp_dup(pTHXo_ DIR* dp)
4999 {
5000     return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
5001 }
5002
5003 #undef  Perl_gp_dup
5004 GP*
5005 Perl_gp_dup(pTHXo_ GP* gp)
5006 {
5007     return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
5008 }
5009
5010 #undef  Perl_mg_dup
5011 MAGIC*
5012 Perl_mg_dup(pTHXo_ MAGIC* mg)
5013 {
5014     return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
5015 }
5016
5017 #undef  Perl_sv_dup
5018 SV*
5019 Perl_sv_dup(pTHXo_ SV* sstr)
5020 {
5021     return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
5022 }
5023 #if defined(HAVE_INTERP_INTERN)
5024
5025 #undef  Perl_sys_intern_dup
5026 void
5027 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
5028 {
5029     ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
5030 }
5031 #endif
5032
5033 #undef  Perl_ptr_table_new
5034 PTR_TBL_t*
5035 Perl_ptr_table_new(pTHXo)
5036 {
5037     return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
5038 }
5039
5040 #undef  Perl_ptr_table_fetch
5041 void*
5042 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
5043 {
5044     return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
5045 }
5046
5047 #undef  Perl_ptr_table_store
5048 void
5049 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
5050 {
5051     ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
5052 }
5053
5054 #undef  Perl_ptr_table_split
5055 void
5056 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
5057 {
5058     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
5059 }
5060 #endif
5061 #if defined(PERL_OBJECT)
5062 #else
5063 #endif
5064 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
5065 #endif
5066 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
5067 #endif
5068 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
5069 #endif
5070 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
5071 #endif
5072 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
5073 #endif
5074 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
5075 #  if defined(PL_OP_SLAB_ALLOC)
5076 #  endif
5077 #endif
5078 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
5079 #  if defined(IAMSUID)
5080 #  endif
5081 #  if defined(USE_THREADS)
5082 #  endif
5083 #endif
5084 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
5085 #endif
5086 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
5087 #endif
5088 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
5089 #endif
5090 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
5091 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
5092 #  endif
5093 #endif
5094 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
5095 #endif
5096 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
5097 #endif
5098 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
5099 #endif
5100 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
5101 #endif
5102 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
5103 #  if defined(PURIFY)
5104 #  else
5105 #  endif
5106 #  if defined(DEBUGGING)
5107 #  endif
5108 #endif
5109 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
5110 #  if defined(CRIPPLED_CC)
5111 #  endif
5112 #  if defined(WIN32)
5113 #  endif
5114 #endif
5115 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
5116 #endif
5117 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
5118 #  if defined(LEAKTEST)
5119 #  endif
5120 #endif
5121 #if defined(PERL_OBJECT)
5122 #endif
5123
5124 #undef  Perl_ck_anoncode
5125 OP *
5126 Perl_ck_anoncode(pTHXo_ OP *o)
5127 {
5128     return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
5129 }
5130
5131 #undef  Perl_ck_bitop
5132 OP *
5133 Perl_ck_bitop(pTHXo_ OP *o)
5134 {
5135     return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
5136 }
5137
5138 #undef  Perl_ck_concat
5139 OP *
5140 Perl_ck_concat(pTHXo_ OP *o)
5141 {
5142     return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
5143 }
5144
5145 #undef  Perl_ck_defined
5146 OP *
5147 Perl_ck_defined(pTHXo_ OP *o)
5148 {
5149     return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
5150 }
5151
5152 #undef  Perl_ck_delete
5153 OP *
5154 Perl_ck_delete(pTHXo_ OP *o)
5155 {
5156     return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
5157 }
5158
5159 #undef  Perl_ck_eof
5160 OP *
5161 Perl_ck_eof(pTHXo_ OP *o)
5162 {
5163     return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
5164 }
5165
5166 #undef  Perl_ck_eval
5167 OP *
5168 Perl_ck_eval(pTHXo_ OP *o)
5169 {
5170     return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
5171 }
5172
5173 #undef  Perl_ck_exec
5174 OP *
5175 Perl_ck_exec(pTHXo_ OP *o)
5176 {
5177     return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
5178 }
5179
5180 #undef  Perl_ck_exists
5181 OP *
5182 Perl_ck_exists(pTHXo_ OP *o)
5183 {
5184     return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
5185 }
5186
5187 #undef  Perl_ck_ftst
5188 OP *
5189 Perl_ck_ftst(pTHXo_ OP *o)
5190 {
5191     return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
5192 }
5193
5194 #undef  Perl_ck_fun
5195 OP *
5196 Perl_ck_fun(pTHXo_ OP *o)
5197 {
5198     return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
5199 }
5200
5201 #undef  Perl_ck_fun_locale
5202 OP *
5203 Perl_ck_fun_locale(pTHXo_ OP *o)
5204 {
5205     return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
5206 }
5207
5208 #undef  Perl_ck_glob
5209 OP *
5210 Perl_ck_glob(pTHXo_ OP *o)
5211 {
5212     return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
5213 }
5214
5215 #undef  Perl_ck_grep
5216 OP *
5217 Perl_ck_grep(pTHXo_ OP *o)
5218 {
5219     return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
5220 }
5221
5222 #undef  Perl_ck_index
5223 OP *
5224 Perl_ck_index(pTHXo_ OP *o)
5225 {
5226     return ((CPerlObj*)pPerl)->Perl_ck_index(o);
5227 }
5228
5229 #undef  Perl_ck_join
5230 OP *
5231 Perl_ck_join(pTHXo_ OP *o)
5232 {
5233     return ((CPerlObj*)pPerl)->Perl_ck_join(o);
5234 }
5235
5236 #undef  Perl_ck_lengthconst
5237 OP *
5238 Perl_ck_lengthconst(pTHXo_ OP *o)
5239 {
5240     return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
5241 }
5242
5243 #undef  Perl_ck_lfun
5244 OP *
5245 Perl_ck_lfun(pTHXo_ OP *o)
5246 {
5247     return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
5248 }
5249
5250 #undef  Perl_ck_listiob
5251 OP *
5252 Perl_ck_listiob(pTHXo_ OP *o)
5253 {
5254     return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
5255 }
5256
5257 #undef  Perl_ck_match
5258 OP *
5259 Perl_ck_match(pTHXo_ OP *o)
5260 {
5261     return ((CPerlObj*)pPerl)->Perl_ck_match(o);
5262 }
5263
5264 #undef  Perl_ck_method
5265 OP *
5266 Perl_ck_method(pTHXo_ OP *o)
5267 {
5268     return ((CPerlObj*)pPerl)->Perl_ck_method(o);
5269 }
5270
5271 #undef  Perl_ck_null
5272 OP *
5273 Perl_ck_null(pTHXo_ OP *o)
5274 {
5275     return ((CPerlObj*)pPerl)->Perl_ck_null(o);
5276 }
5277
5278 #undef  Perl_ck_repeat
5279 OP *
5280 Perl_ck_repeat(pTHXo_ OP *o)
5281 {
5282     return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
5283 }
5284
5285 #undef  Perl_ck_require
5286 OP *
5287 Perl_ck_require(pTHXo_ OP *o)
5288 {
5289     return ((CPerlObj*)pPerl)->Perl_ck_require(o);
5290 }
5291
5292 #undef  Perl_ck_rfun
5293 OP *
5294 Perl_ck_rfun(pTHXo_ OP *o)
5295 {
5296     return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
5297 }
5298
5299 #undef  Perl_ck_rvconst
5300 OP *
5301 Perl_ck_rvconst(pTHXo_ OP *o)
5302 {
5303     return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
5304 }
5305
5306 #undef  Perl_ck_sassign
5307 OP *
5308 Perl_ck_sassign(pTHXo_ OP *o)
5309 {
5310     return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
5311 }
5312
5313 #undef  Perl_ck_scmp
5314 OP *
5315 Perl_ck_scmp(pTHXo_ OP *o)
5316 {
5317     return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
5318 }
5319
5320 #undef  Perl_ck_select
5321 OP *
5322 Perl_ck_select(pTHXo_ OP *o)
5323 {
5324     return ((CPerlObj*)pPerl)->Perl_ck_select(o);
5325 }
5326
5327 #undef  Perl_ck_shift
5328 OP *
5329 Perl_ck_shift(pTHXo_ OP *o)
5330 {
5331     return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
5332 }
5333
5334 #undef  Perl_ck_sort
5335 OP *
5336 Perl_ck_sort(pTHXo_ OP *o)
5337 {
5338     return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
5339 }
5340
5341 #undef  Perl_ck_spair
5342 OP *
5343 Perl_ck_spair(pTHXo_ OP *o)
5344 {
5345     return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
5346 }
5347
5348 #undef  Perl_ck_split
5349 OP *
5350 Perl_ck_split(pTHXo_ OP *o)
5351 {
5352     return ((CPerlObj*)pPerl)->Perl_ck_split(o);
5353 }
5354
5355 #undef  Perl_ck_subr
5356 OP *
5357 Perl_ck_subr(pTHXo_ OP *o)
5358 {
5359     return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
5360 }
5361
5362 #undef  Perl_ck_svconst
5363 OP *
5364 Perl_ck_svconst(pTHXo_ OP *o)
5365 {
5366     return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
5367 }
5368
5369 #undef  Perl_ck_trunc
5370 OP *
5371 Perl_ck_trunc(pTHXo_ OP *o)
5372 {
5373     return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
5374 }
5375
5376 #undef  Perl_pp_aassign
5377 OP *
5378 Perl_pp_aassign(pTHXo)
5379 {
5380     return ((CPerlObj*)pPerl)->Perl_pp_aassign();
5381 }
5382
5383 #undef  Perl_pp_abs
5384 OP *
5385 Perl_pp_abs(pTHXo)
5386 {
5387     return ((CPerlObj*)pPerl)->Perl_pp_abs();
5388 }
5389
5390 #undef  Perl_pp_accept
5391 OP *
5392 Perl_pp_accept(pTHXo)
5393 {
5394     return ((CPerlObj*)pPerl)->Perl_pp_accept();
5395 }
5396
5397 #undef  Perl_pp_add
5398 OP *
5399 Perl_pp_add(pTHXo)
5400 {
5401     return ((CPerlObj*)pPerl)->Perl_pp_add();
5402 }
5403
5404 #undef  Perl_pp_aelem
5405 OP *
5406 Perl_pp_aelem(pTHXo)
5407 {
5408     return ((CPerlObj*)pPerl)->Perl_pp_aelem();
5409 }
5410
5411 #undef  Perl_pp_aelemfast
5412 OP *
5413 Perl_pp_aelemfast(pTHXo)
5414 {
5415     return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
5416 }
5417
5418 #undef  Perl_pp_alarm
5419 OP *
5420 Perl_pp_alarm(pTHXo)
5421 {
5422     return ((CPerlObj*)pPerl)->Perl_pp_alarm();
5423 }
5424
5425 #undef  Perl_pp_and
5426 OP *
5427 Perl_pp_and(pTHXo)
5428 {
5429     return ((CPerlObj*)pPerl)->Perl_pp_and();
5430 }
5431
5432 #undef  Perl_pp_andassign
5433 OP *
5434 Perl_pp_andassign(pTHXo)
5435 {
5436     return ((CPerlObj*)pPerl)->Perl_pp_andassign();
5437 }
5438
5439 #undef  Perl_pp_anoncode
5440 OP *
5441 Perl_pp_anoncode(pTHXo)
5442 {
5443     return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
5444 }
5445
5446 #undef  Perl_pp_anonhash
5447 OP *
5448 Perl_pp_anonhash(pTHXo)
5449 {
5450     return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
5451 }
5452
5453 #undef  Perl_pp_anonlist
5454 OP *
5455 Perl_pp_anonlist(pTHXo)
5456 {
5457     return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
5458 }
5459
5460 #undef  Perl_pp_aslice
5461 OP *
5462 Perl_pp_aslice(pTHXo)
5463 {
5464     return ((CPerlObj*)pPerl)->Perl_pp_aslice();
5465 }
5466
5467 #undef  Perl_pp_atan2
5468 OP *
5469 Perl_pp_atan2(pTHXo)
5470 {
5471     return ((CPerlObj*)pPerl)->Perl_pp_atan2();
5472 }
5473
5474 #undef  Perl_pp_av2arylen
5475 OP *
5476 Perl_pp_av2arylen(pTHXo)
5477 {
5478     return ((CPerlObj*)pPerl)->Perl_pp_av2arylen();
5479 }
5480
5481 #undef  Perl_pp_backtick
5482 OP *
5483 Perl_pp_backtick(pTHXo)
5484 {
5485     return ((CPerlObj*)pPerl)->Perl_pp_backtick();
5486 }
5487
5488 #undef  Perl_pp_bind
5489 OP *
5490 Perl_pp_bind(pTHXo)
5491 {
5492     return ((CPerlObj*)pPerl)->Perl_pp_bind();
5493 }
5494
5495 #undef  Perl_pp_binmode
5496 OP *
5497 Perl_pp_binmode(pTHXo)
5498 {
5499     return ((CPerlObj*)pPerl)->Perl_pp_binmode();
5500 }
5501
5502 #undef  Perl_pp_bit_and
5503 OP *
5504 Perl_pp_bit_and(pTHXo)
5505 {
5506     return ((CPerlObj*)pPerl)->Perl_pp_bit_and();
5507 }
5508
5509 #undef  Perl_pp_bit_or
5510 OP *
5511 Perl_pp_bit_or(pTHXo)
5512 {
5513     return ((CPerlObj*)pPerl)->Perl_pp_bit_or();
5514 }
5515
5516 #undef  Perl_pp_bit_xor
5517 OP *
5518 Perl_pp_bit_xor(pTHXo)
5519 {
5520     return ((CPerlObj*)pPerl)->Perl_pp_bit_xor();
5521 }
5522
5523 #undef  Perl_pp_bless
5524 OP *
5525 Perl_pp_bless(pTHXo)
5526 {
5527     return ((CPerlObj*)pPerl)->Perl_pp_bless();
5528 }
5529
5530 #undef  Perl_pp_caller
5531 OP *
5532 Perl_pp_caller(pTHXo)
5533 {
5534     return ((CPerlObj*)pPerl)->Perl_pp_caller();
5535 }
5536
5537 #undef  Perl_pp_chdir
5538 OP *
5539 Perl_pp_chdir(pTHXo)
5540 {
5541     return ((CPerlObj*)pPerl)->Perl_pp_chdir();
5542 }
5543
5544 #undef  Perl_pp_chmod
5545 OP *
5546 Perl_pp_chmod(pTHXo)
5547 {
5548     return ((CPerlObj*)pPerl)->Perl_pp_chmod();
5549 }
5550
5551 #undef  Perl_pp_chomp
5552 OP *
5553 Perl_pp_chomp(pTHXo)
5554 {
5555     return ((CPerlObj*)pPerl)->Perl_pp_chomp();
5556 }
5557
5558 #undef  Perl_pp_chop
5559 OP *
5560 Perl_pp_chop(pTHXo)
5561 {
5562     return ((CPerlObj*)pPerl)->Perl_pp_chop();
5563 }
5564
5565 #undef  Perl_pp_chown
5566 OP *
5567 Perl_pp_chown(pTHXo)
5568 {
5569     return ((CPerlObj*)pPerl)->Perl_pp_chown();
5570 }
5571
5572 #undef  Perl_pp_chr
5573 OP *
5574 Perl_pp_chr(pTHXo)
5575 {
5576     return ((CPerlObj*)pPerl)->Perl_pp_chr();
5577 }
5578
5579 #undef  Perl_pp_chroot
5580 OP *
5581 Perl_pp_chroot(pTHXo)
5582 {
5583     return ((CPerlObj*)pPerl)->Perl_pp_chroot();
5584 }
5585
5586 #undef  Perl_pp_close
5587 OP *
5588 Perl_pp_close(pTHXo)
5589 {
5590     return ((CPerlObj*)pPerl)->Perl_pp_close();
5591 }
5592
5593 #undef  Perl_pp_closedir
5594 OP *
5595 Perl_pp_closedir(pTHXo)
5596 {
5597     return ((CPerlObj*)pPerl)->Perl_pp_closedir();
5598 }
5599
5600 #undef  Perl_pp_complement
5601 OP *
5602 Perl_pp_complement(pTHXo)
5603 {
5604     return ((CPerlObj*)pPerl)->Perl_pp_complement();
5605 }
5606
5607 #undef  Perl_pp_concat
5608 OP *
5609 Perl_pp_concat(pTHXo)
5610 {
5611     return ((CPerlObj*)pPerl)->Perl_pp_concat();
5612 }
5613
5614 #undef  Perl_pp_cond_expr
5615 OP *
5616 Perl_pp_cond_expr(pTHXo)
5617 {
5618     return ((CPerlObj*)pPerl)->Perl_pp_cond_expr();
5619 }
5620
5621 #undef  Perl_pp_connect
5622 OP *
5623 Perl_pp_connect(pTHXo)
5624 {
5625     return ((CPerlObj*)pPerl)->Perl_pp_connect();
5626 }
5627
5628 #undef  Perl_pp_const
5629 OP *
5630 Perl_pp_const(pTHXo)
5631 {
5632     return ((CPerlObj*)pPerl)->Perl_pp_const();
5633 }
5634
5635 #undef  Perl_pp_cos
5636 OP *
5637 Perl_pp_cos(pTHXo)
5638 {
5639     return ((CPerlObj*)pPerl)->Perl_pp_cos();
5640 }
5641
5642 #undef  Perl_pp_crypt
5643 OP *
5644 Perl_pp_crypt(pTHXo)
5645 {
5646     return ((CPerlObj*)pPerl)->Perl_pp_crypt();
5647 }
5648
5649 #undef  Perl_pp_dbmclose
5650 OP *
5651 Perl_pp_dbmclose(pTHXo)
5652 {
5653     return ((CPerlObj*)pPerl)->Perl_pp_dbmclose();
5654 }
5655
5656 #undef  Perl_pp_dbmopen
5657 OP *
5658 Perl_pp_dbmopen(pTHXo)
5659 {
5660     return ((CPerlObj*)pPerl)->Perl_pp_dbmopen();
5661 }
5662
5663 #undef  Perl_pp_dbstate
5664 OP *
5665 Perl_pp_dbstate(pTHXo)
5666 {
5667     return ((CPerlObj*)pPerl)->Perl_pp_dbstate();
5668 }
5669
5670 #undef  Perl_pp_defined
5671 OP *
5672 Perl_pp_defined(pTHXo)
5673 {
5674     return ((CPerlObj*)pPerl)->Perl_pp_defined();
5675 }
5676
5677 #undef  Perl_pp_delete
5678 OP *
5679 Perl_pp_delete(pTHXo)
5680 {
5681     return ((CPerlObj*)pPerl)->Perl_pp_delete();
5682 }
5683
5684 #undef  Perl_pp_die
5685 OP *
5686 Perl_pp_die(pTHXo)
5687 {
5688     return ((CPerlObj*)pPerl)->Perl_pp_die();
5689 }
5690
5691 #undef  Perl_pp_divide
5692 OP *
5693 Perl_pp_divide(pTHXo)
5694 {
5695     return ((CPerlObj*)pPerl)->Perl_pp_divide();
5696 }
5697
5698 #undef  Perl_pp_dofile
5699 OP *
5700 Perl_pp_dofile(pTHXo)
5701 {
5702     return ((CPerlObj*)pPerl)->Perl_pp_dofile();
5703 }
5704
5705 #undef  Perl_pp_dump
5706 OP *
5707 Perl_pp_dump(pTHXo)
5708 {
5709     return ((CPerlObj*)pPerl)->Perl_pp_dump();
5710 }
5711
5712 #undef  Perl_pp_each
5713 OP *
5714 Perl_pp_each(pTHXo)
5715 {
5716     return ((CPerlObj*)pPerl)->Perl_pp_each();
5717 }
5718
5719 #undef  Perl_pp_egrent
5720 OP *
5721 Perl_pp_egrent(pTHXo)
5722 {
5723     return ((CPerlObj*)pPerl)->Perl_pp_egrent();
5724 }
5725
5726 #undef  Perl_pp_ehostent
5727 OP *
5728 Perl_pp_ehostent(pTHXo)
5729 {
5730     return ((CPerlObj*)pPerl)->Perl_pp_ehostent();
5731 }
5732
5733 #undef  Perl_pp_enetent
5734 OP *
5735 Perl_pp_enetent(pTHXo)
5736 {
5737     return ((CPerlObj*)pPerl)->Perl_pp_enetent();
5738 }
5739
5740 #undef  Perl_pp_enter
5741 OP *
5742 Perl_pp_enter(pTHXo)
5743 {
5744     return ((CPerlObj*)pPerl)->Perl_pp_enter();
5745 }
5746
5747 #undef  Perl_pp_entereval
5748 OP *
5749 Perl_pp_entereval(pTHXo)
5750 {
5751     return ((CPerlObj*)pPerl)->Perl_pp_entereval();
5752 }
5753
5754 #undef  Perl_pp_enteriter
5755 OP *
5756 Perl_pp_enteriter(pTHXo)
5757 {
5758     return ((CPerlObj*)pPerl)->Perl_pp_enteriter();
5759 }
5760
5761 #undef  Perl_pp_enterloop
5762 OP *
5763 Perl_pp_enterloop(pTHXo)
5764 {
5765     return ((CPerlObj*)pPerl)->Perl_pp_enterloop();
5766 }
5767
5768 #undef  Perl_pp_entersub
5769 OP *
5770 Perl_pp_entersub(pTHXo)
5771 {
5772     return ((CPerlObj*)pPerl)->Perl_pp_entersub();
5773 }
5774
5775 #undef  Perl_pp_entertry
5776 OP *
5777 Perl_pp_entertry(pTHXo)
5778 {
5779     return ((CPerlObj*)pPerl)->Perl_pp_entertry();
5780 }
5781
5782 #undef  Perl_pp_enterwrite
5783 OP *
5784 Perl_pp_enterwrite(pTHXo)
5785 {
5786     return ((CPerlObj*)pPerl)->Perl_pp_enterwrite();
5787 }
5788
5789 #undef  Perl_pp_eof
5790 OP *
5791 Perl_pp_eof(pTHXo)
5792 {
5793     return ((CPerlObj*)pPerl)->Perl_pp_eof();
5794 }
5795
5796 #undef  Perl_pp_eprotoent
5797 OP *
5798 Perl_pp_eprotoent(pTHXo)
5799 {
5800     return ((CPerlObj*)pPerl)->Perl_pp_eprotoent();
5801 }
5802
5803 #undef  Perl_pp_epwent
5804 OP *
5805 Perl_pp_epwent(pTHXo)
5806 {
5807     return ((CPerlObj*)pPerl)->Perl_pp_epwent();
5808 }
5809
5810 #undef  Perl_pp_eq
5811 OP *
5812 Perl_pp_eq(pTHXo)
5813 {
5814     return ((CPerlObj*)pPerl)->Perl_pp_eq();
5815 }
5816
5817 #undef  Perl_pp_eservent
5818 OP *
5819 Perl_pp_eservent(pTHXo)
5820 {
5821     return ((CPerlObj*)pPerl)->Perl_pp_eservent();
5822 }
5823
5824 #undef  Perl_pp_exec
5825 OP *
5826 Perl_pp_exec(pTHXo)
5827 {
5828     return ((CPerlObj*)pPerl)->Perl_pp_exec();
5829 }
5830
5831 #undef  Perl_pp_exists
5832 OP *
5833 Perl_pp_exists(pTHXo)
5834 {
5835     return ((CPerlObj*)pPerl)->Perl_pp_exists();
5836 }
5837
5838 #undef  Perl_pp_exit
5839 OP *
5840 Perl_pp_exit(pTHXo)
5841 {
5842     return ((CPerlObj*)pPerl)->Perl_pp_exit();
5843 }
5844
5845 #undef  Perl_pp_exp
5846 OP *
5847 Perl_pp_exp(pTHXo)
5848 {
5849     return ((CPerlObj*)pPerl)->Perl_pp_exp();
5850 }
5851
5852 #undef  Perl_pp_fcntl
5853 OP *
5854 Perl_pp_fcntl(pTHXo)
5855 {
5856     return ((CPerlObj*)pPerl)->Perl_pp_fcntl();
5857 }
5858
5859 #undef  Perl_pp_fileno
5860 OP *
5861 Perl_pp_fileno(pTHXo)
5862 {
5863     return ((CPerlObj*)pPerl)->Perl_pp_fileno();
5864 }
5865
5866 #undef  Perl_pp_flip
5867 OP *
5868 Perl_pp_flip(pTHXo)
5869 {
5870     return ((CPerlObj*)pPerl)->Perl_pp_flip();
5871 }
5872
5873 #undef  Perl_pp_flock
5874 OP *
5875 Perl_pp_flock(pTHXo)
5876 {
5877     return ((CPerlObj*)pPerl)->Perl_pp_flock();
5878 }
5879
5880 #undef  Perl_pp_flop
5881 OP *
5882 Perl_pp_flop(pTHXo)
5883 {
5884     return ((CPerlObj*)pPerl)->Perl_pp_flop();
5885 }
5886
5887 #undef  Perl_pp_fork
5888 OP *
5889 Perl_pp_fork(pTHXo)
5890 {
5891     return ((CPerlObj*)pPerl)->Perl_pp_fork();
5892 }
5893
5894 #undef  Perl_pp_formline
5895 OP *
5896 Perl_pp_formline(pTHXo)
5897 {
5898     return ((CPerlObj*)pPerl)->Perl_pp_formline();
5899 }
5900
5901 #undef  Perl_pp_ftatime
5902 OP *
5903 Perl_pp_ftatime(pTHXo)
5904 {
5905     return ((CPerlObj*)pPerl)->Perl_pp_ftatime();
5906 }
5907
5908 #undef  Perl_pp_ftbinary
5909 OP *
5910 Perl_pp_ftbinary(pTHXo)
5911 {
5912     return ((CPerlObj*)pPerl)->Perl_pp_ftbinary();
5913 }
5914
5915 #undef  Perl_pp_ftblk
5916 OP *
5917 Perl_pp_ftblk(pTHXo)
5918 {
5919     return ((CPerlObj*)pPerl)->Perl_pp_ftblk();
5920 }
5921
5922 #undef  Perl_pp_ftchr
5923 OP *
5924 Perl_pp_ftchr(pTHXo)
5925 {
5926     return ((CPerlObj*)pPerl)->Perl_pp_ftchr();
5927 }
5928
5929 #undef  Perl_pp_ftctime
5930 OP *
5931 Perl_pp_ftctime(pTHXo)
5932 {
5933     return ((CPerlObj*)pPerl)->Perl_pp_ftctime();
5934 }
5935
5936 #undef  Perl_pp_ftdir
5937 OP *
5938 Perl_pp_ftdir(pTHXo)
5939 {
5940     return ((CPerlObj*)pPerl)->Perl_pp_ftdir();
5941 }
5942
5943 #undef  Perl_pp_fteexec
5944 OP *
5945 Perl_pp_fteexec(pTHXo)
5946 {
5947     return ((CPerlObj*)pPerl)->Perl_pp_fteexec();
5948 }
5949
5950 #undef  Perl_pp_fteowned
5951 OP *
5952 Perl_pp_fteowned(pTHXo)
5953 {
5954     return ((CPerlObj*)pPerl)->Perl_pp_fteowned();
5955 }
5956
5957 #undef  Perl_pp_fteread
5958 OP *
5959 Perl_pp_fteread(pTHXo)
5960 {
5961     return ((CPerlObj*)pPerl)->Perl_pp_fteread();
5962 }
5963
5964 #undef  Perl_pp_ftewrite
5965 OP *
5966 Perl_pp_ftewrite(pTHXo)
5967 {
5968     return ((CPerlObj*)pPerl)->Perl_pp_ftewrite();
5969 }
5970
5971 #undef  Perl_pp_ftfile
5972 OP *
5973 Perl_pp_ftfile(pTHXo)
5974 {
5975     return ((CPerlObj*)pPerl)->Perl_pp_ftfile();
5976 }
5977
5978 #undef  Perl_pp_ftis
5979 OP *
5980 Perl_pp_ftis(pTHXo)
5981 {
5982     return ((CPerlObj*)pPerl)->Perl_pp_ftis();
5983 }
5984
5985 #undef  Perl_pp_ftlink
5986 OP *
5987 Perl_pp_ftlink(pTHXo)
5988 {
5989     return ((CPerlObj*)pPerl)->Perl_pp_ftlink();
5990 }
5991
5992 #undef  Perl_pp_ftmtime
5993 OP *
5994 Perl_pp_ftmtime(pTHXo)
5995 {
5996     return ((CPerlObj*)pPerl)->Perl_pp_ftmtime();
5997 }
5998
5999 #undef  Perl_pp_ftpipe
6000 OP *
6001 Perl_pp_ftpipe(pTHXo)
6002 {
6003     return ((CPerlObj*)pPerl)->Perl_pp_ftpipe();
6004 }
6005
6006 #undef  Perl_pp_ftrexec
6007 OP *
6008 Perl_pp_ftrexec(pTHXo)
6009 {
6010     return ((CPerlObj*)pPerl)->Perl_pp_ftrexec();
6011 }
6012
6013 #undef  Perl_pp_ftrowned
6014 OP *
6015 Perl_pp_ftrowned(pTHXo)
6016 {
6017     return ((CPerlObj*)pPerl)->Perl_pp_ftrowned();
6018 }
6019
6020 #undef  Perl_pp_ftrread
6021 OP *
6022 Perl_pp_ftrread(pTHXo)
6023 {
6024     return ((CPerlObj*)pPerl)->Perl_pp_ftrread();
6025 }
6026
6027 #undef  Perl_pp_ftrwrite
6028 OP *
6029 Perl_pp_ftrwrite(pTHXo)
6030 {
6031     return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite();
6032 }
6033
6034 #undef  Perl_pp_ftsgid
6035 OP *
6036 Perl_pp_ftsgid(pTHXo)
6037 {
6038     return ((CPerlObj*)pPerl)->Perl_pp_ftsgid();
6039 }
6040
6041 #undef  Perl_pp_ftsize
6042 OP *
6043 Perl_pp_ftsize(pTHXo)
6044 {
6045     return ((CPerlObj*)pPerl)->Perl_pp_ftsize();
6046 }
6047
6048 #undef  Perl_pp_ftsock
6049 OP *
6050 Perl_pp_ftsock(pTHXo)
6051 {
6052     return ((CPerlObj*)pPerl)->Perl_pp_ftsock();
6053 }
6054
6055 #undef  Perl_pp_ftsuid
6056 OP *
6057 Perl_pp_ftsuid(pTHXo)
6058 {
6059     return ((CPerlObj*)pPerl)->Perl_pp_ftsuid();
6060 }
6061
6062 #undef  Perl_pp_ftsvtx
6063 OP *
6064 Perl_pp_ftsvtx(pTHXo)
6065 {
6066     return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx();
6067 }
6068
6069 #undef  Perl_pp_fttext
6070 OP *
6071 Perl_pp_fttext(pTHXo)
6072 {
6073     return ((CPerlObj*)pPerl)->Perl_pp_fttext();
6074 }
6075
6076 #undef  Perl_pp_fttty
6077 OP *
6078 Perl_pp_fttty(pTHXo)
6079 {
6080     return ((CPerlObj*)pPerl)->Perl_pp_fttty();
6081 }
6082
6083 #undef  Perl_pp_ftzero
6084 OP *
6085 Perl_pp_ftzero(pTHXo)
6086 {
6087     return ((CPerlObj*)pPerl)->Perl_pp_ftzero();
6088 }
6089
6090 #undef  Perl_pp_ge
6091 OP *
6092 Perl_pp_ge(pTHXo)
6093 {
6094     return ((CPerlObj*)pPerl)->Perl_pp_ge();
6095 }
6096
6097 #undef  Perl_pp_gelem
6098 OP *
6099 Perl_pp_gelem(pTHXo)
6100 {
6101     return ((CPerlObj*)pPerl)->Perl_pp_gelem();
6102 }
6103
6104 #undef  Perl_pp_getc
6105 OP *
6106 Perl_pp_getc(pTHXo)
6107 {
6108     return ((CPerlObj*)pPerl)->Perl_pp_getc();
6109 }
6110
6111 #undef  Perl_pp_getlogin
6112 OP *
6113 Perl_pp_getlogin(pTHXo)
6114 {
6115     return ((CPerlObj*)pPerl)->Perl_pp_getlogin();
6116 }
6117
6118 #undef  Perl_pp_getpeername
6119 OP *
6120 Perl_pp_getpeername(pTHXo)
6121 {
6122     return ((CPerlObj*)pPerl)->Perl_pp_getpeername();
6123 }
6124
6125 #undef  Perl_pp_getpgrp
6126 OP *
6127 Perl_pp_getpgrp(pTHXo)
6128 {
6129     return ((CPerlObj*)pPerl)->Perl_pp_getpgrp();
6130 }
6131
6132 #undef  Perl_pp_getppid
6133 OP *
6134 Perl_pp_getppid(pTHXo)
6135 {
6136     return ((CPerlObj*)pPerl)->Perl_pp_getppid();
6137 }
6138
6139 #undef  Perl_pp_getpriority
6140 OP *
6141 Perl_pp_getpriority(pTHXo)
6142 {
6143     return ((CPerlObj*)pPerl)->Perl_pp_getpriority();
6144 }
6145
6146 #undef  Perl_pp_getsockname
6147 OP *
6148 Perl_pp_getsockname(pTHXo)
6149 {
6150     return ((CPerlObj*)pPerl)->Perl_pp_getsockname();
6151 }
6152
6153 #undef  Perl_pp_ggrent
6154 OP *
6155 Perl_pp_ggrent(pTHXo)
6156 {
6157     return ((CPerlObj*)pPerl)->Perl_pp_ggrent();
6158 }
6159
6160 #undef  Perl_pp_ggrgid
6161 OP *
6162 Perl_pp_ggrgid(pTHXo)
6163 {
6164     return ((CPerlObj*)pPerl)->Perl_pp_ggrgid();
6165 }
6166
6167 #undef  Perl_pp_ggrnam
6168 OP *
6169 Perl_pp_ggrnam(pTHXo)
6170 {
6171     return ((CPerlObj*)pPerl)->Perl_pp_ggrnam();
6172 }
6173
6174 #undef  Perl_pp_ghbyaddr
6175 OP *
6176 Perl_pp_ghbyaddr(pTHXo)
6177 {
6178     return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr();
6179 }
6180
6181 #undef  Perl_pp_ghbyname
6182 OP *
6183 Perl_pp_ghbyname(pTHXo)
6184 {
6185     return ((CPerlObj*)pPerl)->Perl_pp_ghbyname();
6186 }
6187
6188 #undef  Perl_pp_ghostent
6189 OP *
6190 Perl_pp_ghostent(pTHXo)
6191 {
6192     return ((CPerlObj*)pPerl)->Perl_pp_ghostent();
6193 }
6194
6195 #undef  Perl_pp_glob
6196 OP *
6197 Perl_pp_glob(pTHXo)
6198 {
6199     return ((CPerlObj*)pPerl)->Perl_pp_glob();
6200 }
6201
6202 #undef  Perl_pp_gmtime
6203 OP *
6204 Perl_pp_gmtime(pTHXo)
6205 {
6206     return ((CPerlObj*)pPerl)->Perl_pp_gmtime();
6207 }
6208
6209 #undef  Perl_pp_gnbyaddr
6210 OP *
6211 Perl_pp_gnbyaddr(pTHXo)
6212 {
6213     return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr();
6214 }
6215
6216 #undef  Perl_pp_gnbyname
6217 OP *
6218 Perl_pp_gnbyname(pTHXo)
6219 {
6220     return ((CPerlObj*)pPerl)->Perl_pp_gnbyname();
6221 }
6222
6223 #undef  Perl_pp_gnetent
6224 OP *
6225 Perl_pp_gnetent(pTHXo)
6226 {
6227     return ((CPerlObj*)pPerl)->Perl_pp_gnetent();
6228 }
6229
6230 #undef  Perl_pp_goto
6231 OP *
6232 Perl_pp_goto(pTHXo)
6233 {
6234     return ((CPerlObj*)pPerl)->Perl_pp_goto();
6235 }
6236
6237 #undef  Perl_pp_gpbyname
6238 OP *
6239 Perl_pp_gpbyname(pTHXo)
6240 {
6241     return ((CPerlObj*)pPerl)->Perl_pp_gpbyname();
6242 }
6243
6244 #undef  Perl_pp_gpbynumber
6245 OP *
6246 Perl_pp_gpbynumber(pTHXo)
6247 {
6248     return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber();
6249 }
6250
6251 #undef  Perl_pp_gprotoent
6252 OP *
6253 Perl_pp_gprotoent(pTHXo)
6254 {
6255     return ((CPerlObj*)pPerl)->Perl_pp_gprotoent();
6256 }
6257
6258 #undef  Perl_pp_gpwent
6259 OP *
6260 Perl_pp_gpwent(pTHXo)
6261 {
6262     return ((CPerlObj*)pPerl)->Perl_pp_gpwent();
6263 }
6264
6265 #undef  Perl_pp_gpwnam
6266 OP *
6267 Perl_pp_gpwnam(pTHXo)
6268 {
6269     return ((CPerlObj*)pPerl)->Perl_pp_gpwnam();
6270 }
6271
6272 #undef  Perl_pp_gpwuid
6273 OP *
6274 Perl_pp_gpwuid(pTHXo)
6275 {
6276     return ((CPerlObj*)pPerl)->Perl_pp_gpwuid();
6277 }
6278
6279 #undef  Perl_pp_grepstart
6280 OP *
6281 Perl_pp_grepstart(pTHXo)
6282 {
6283     return ((CPerlObj*)pPerl)->Perl_pp_grepstart();
6284 }
6285
6286 #undef  Perl_pp_grepwhile
6287 OP *
6288 Perl_pp_grepwhile(pTHXo)
6289 {
6290     return ((CPerlObj*)pPerl)->Perl_pp_grepwhile();
6291 }
6292
6293 #undef  Perl_pp_gsbyname
6294 OP *
6295 Perl_pp_gsbyname(pTHXo)
6296 {
6297     return ((CPerlObj*)pPerl)->Perl_pp_gsbyname();
6298 }
6299
6300 #undef  Perl_pp_gsbyport
6301 OP *
6302 Perl_pp_gsbyport(pTHXo)
6303 {
6304     return ((CPerlObj*)pPerl)->Perl_pp_gsbyport();
6305 }
6306
6307 #undef  Perl_pp_gservent
6308 OP *
6309 Perl_pp_gservent(pTHXo)
6310 {
6311     return ((CPerlObj*)pPerl)->Perl_pp_gservent();
6312 }
6313
6314 #undef  Perl_pp_gsockopt
6315 OP *
6316 Perl_pp_gsockopt(pTHXo)
6317 {
6318     return ((CPerlObj*)pPerl)->Perl_pp_gsockopt();
6319 }
6320
6321 #undef  Perl_pp_gt
6322 OP *
6323 Perl_pp_gt(pTHXo)
6324 {
6325     return ((CPerlObj*)pPerl)->Perl_pp_gt();
6326 }
6327
6328 #undef  Perl_pp_gv
6329 OP *
6330 Perl_pp_gv(pTHXo)
6331 {
6332     return ((CPerlObj*)pPerl)->Perl_pp_gv();
6333 }
6334
6335 #undef  Perl_pp_gvsv
6336 OP *
6337 Perl_pp_gvsv(pTHXo)
6338 {
6339     return ((CPerlObj*)pPerl)->Perl_pp_gvsv();
6340 }
6341
6342 #undef  Perl_pp_helem
6343 OP *
6344 Perl_pp_helem(pTHXo)
6345 {
6346     return ((CPerlObj*)pPerl)->Perl_pp_helem();
6347 }
6348
6349 #undef  Perl_pp_hex
6350 OP *
6351 Perl_pp_hex(pTHXo)
6352 {
6353     return ((CPerlObj*)pPerl)->Perl_pp_hex();
6354 }
6355
6356 #undef  Perl_pp_hslice
6357 OP *
6358 Perl_pp_hslice(pTHXo)
6359 {
6360     return ((CPerlObj*)pPerl)->Perl_pp_hslice();
6361 }
6362
6363 #undef  Perl_pp_i_add
6364 OP *
6365 Perl_pp_i_add(pTHXo)
6366 {
6367     return ((CPerlObj*)pPerl)->Perl_pp_i_add();
6368 }
6369
6370 #undef  Perl_pp_i_divide
6371 OP *
6372 Perl_pp_i_divide(pTHXo)
6373 {
6374     return ((CPerlObj*)pPerl)->Perl_pp_i_divide();
6375 }
6376
6377 #undef  Perl_pp_i_eq
6378 OP *
6379 Perl_pp_i_eq(pTHXo)
6380 {
6381     return ((CPerlObj*)pPerl)->Perl_pp_i_eq();
6382 }
6383
6384 #undef  Perl_pp_i_ge
6385 OP *
6386 Perl_pp_i_ge(pTHXo)
6387 {
6388     return ((CPerlObj*)pPerl)->Perl_pp_i_ge();
6389 }
6390
6391 #undef  Perl_pp_i_gt
6392 OP *
6393 Perl_pp_i_gt(pTHXo)
6394 {
6395     return ((CPerlObj*)pPerl)->Perl_pp_i_gt();
6396 }
6397
6398 #undef  Perl_pp_i_le
6399 OP *
6400 Perl_pp_i_le(pTHXo)
6401 {
6402     return ((CPerlObj*)pPerl)->Perl_pp_i_le();
6403 }
6404
6405 #undef  Perl_pp_i_lt
6406 OP *
6407 Perl_pp_i_lt(pTHXo)
6408 {
6409     return ((CPerlObj*)pPerl)->Perl_pp_i_lt();
6410 }
6411
6412 #undef  Perl_pp_i_modulo
6413 OP *
6414 Perl_pp_i_modulo(pTHXo)
6415 {
6416     return ((CPerlObj*)pPerl)->Perl_pp_i_modulo();
6417 }
6418
6419 #undef  Perl_pp_i_multiply
6420 OP *
6421 Perl_pp_i_multiply(pTHXo)
6422 {
6423     return ((CPerlObj*)pPerl)->Perl_pp_i_multiply();
6424 }
6425
6426 #undef  Perl_pp_i_ncmp
6427 OP *
6428 Perl_pp_i_ncmp(pTHXo)
6429 {
6430     return ((CPerlObj*)pPerl)->Perl_pp_i_ncmp();
6431 }
6432
6433 #undef  Perl_pp_i_ne
6434 OP *
6435 Perl_pp_i_ne(pTHXo)
6436 {
6437     return ((CPerlObj*)pPerl)->Perl_pp_i_ne();
6438 }
6439
6440 #undef  Perl_pp_i_negate
6441 OP *
6442 Perl_pp_i_negate(pTHXo)
6443 {
6444     return ((CPerlObj*)pPerl)->Perl_pp_i_negate();
6445 }
6446
6447 #undef  Perl_pp_i_subtract
6448 OP *
6449 Perl_pp_i_subtract(pTHXo)
6450 {
6451     return ((CPerlObj*)pPerl)->Perl_pp_i_subtract();
6452 }
6453
6454 #undef  Perl_pp_index
6455 OP *
6456 Perl_pp_index(pTHXo)
6457 {
6458     return ((CPerlObj*)pPerl)->Perl_pp_index();
6459 }
6460
6461 #undef  Perl_pp_int
6462 OP *
6463 Perl_pp_int(pTHXo)
6464 {
6465     return ((CPerlObj*)pPerl)->Perl_pp_int();
6466 }
6467
6468 #undef  Perl_pp_ioctl
6469 OP *
6470 Perl_pp_ioctl(pTHXo)
6471 {
6472     return ((CPerlObj*)pPerl)->Perl_pp_ioctl();
6473 }
6474
6475 #undef  Perl_pp_iter
6476 OP *
6477 Perl_pp_iter(pTHXo)
6478 {
6479     return ((CPerlObj*)pPerl)->Perl_pp_iter();
6480 }
6481
6482 #undef  Perl_pp_join
6483 OP *
6484 Perl_pp_join(pTHXo)
6485 {
6486     return ((CPerlObj*)pPerl)->Perl_pp_join();
6487 }
6488
6489 #undef  Perl_pp_keys
6490 OP *
6491 Perl_pp_keys(pTHXo)
6492 {
6493     return ((CPerlObj*)pPerl)->Perl_pp_keys();
6494 }
6495
6496 #undef  Perl_pp_kill
6497 OP *
6498 Perl_pp_kill(pTHXo)
6499 {
6500     return ((CPerlObj*)pPerl)->Perl_pp_kill();
6501 }
6502
6503 #undef  Perl_pp_last
6504 OP *
6505 Perl_pp_last(pTHXo)
6506 {
6507     return ((CPerlObj*)pPerl)->Perl_pp_last();
6508 }
6509
6510 #undef  Perl_pp_lc
6511 OP *
6512 Perl_pp_lc(pTHXo)
6513 {
6514     return ((CPerlObj*)pPerl)->Perl_pp_lc();
6515 }
6516
6517 #undef  Perl_pp_lcfirst
6518 OP *
6519 Perl_pp_lcfirst(pTHXo)
6520 {
6521     return ((CPerlObj*)pPerl)->Perl_pp_lcfirst();
6522 }
6523
6524 #undef  Perl_pp_le
6525 OP *
6526 Perl_pp_le(pTHXo)
6527 {
6528     return ((CPerlObj*)pPerl)->Perl_pp_le();
6529 }
6530
6531 #undef  Perl_pp_leave
6532 OP *
6533 Perl_pp_leave(pTHXo)
6534 {
6535     return ((CPerlObj*)pPerl)->Perl_pp_leave();
6536 }
6537
6538 #undef  Perl_pp_leaveeval
6539 OP *
6540 Perl_pp_leaveeval(pTHXo)
6541 {
6542     return ((CPerlObj*)pPerl)->Perl_pp_leaveeval();
6543 }
6544
6545 #undef  Perl_pp_leaveloop
6546 OP *
6547 Perl_pp_leaveloop(pTHXo)
6548 {
6549     return ((CPerlObj*)pPerl)->Perl_pp_leaveloop();
6550 }
6551
6552 #undef  Perl_pp_leavesub
6553 OP *
6554 Perl_pp_leavesub(pTHXo)
6555 {
6556     return ((CPerlObj*)pPerl)->Perl_pp_leavesub();
6557 }
6558
6559 #undef  Perl_pp_leavesublv
6560 OP *
6561 Perl_pp_leavesublv(pTHXo)
6562 {
6563     return ((CPerlObj*)pPerl)->Perl_pp_leavesublv();
6564 }
6565
6566 #undef  Perl_pp_leavetry
6567 OP *
6568 Perl_pp_leavetry(pTHXo)
6569 {
6570     return ((CPerlObj*)pPerl)->Perl_pp_leavetry();
6571 }
6572
6573 #undef  Perl_pp_leavewrite
6574 OP *
6575 Perl_pp_leavewrite(pTHXo)
6576 {
6577     return ((CPerlObj*)pPerl)->Perl_pp_leavewrite();
6578 }
6579
6580 #undef  Perl_pp_left_shift
6581 OP *
6582 Perl_pp_left_shift(pTHXo)
6583 {
6584     return ((CPerlObj*)pPerl)->Perl_pp_left_shift();
6585 }
6586
6587 #undef  Perl_pp_length
6588 OP *
6589 Perl_pp_length(pTHXo)
6590 {
6591     return ((CPerlObj*)pPerl)->Perl_pp_length();
6592 }
6593
6594 #undef  Perl_pp_lineseq
6595 OP *
6596 Perl_pp_lineseq(pTHXo)
6597 {
6598     return ((CPerlObj*)pPerl)->Perl_pp_lineseq();
6599 }
6600
6601 #undef  Perl_pp_link
6602 OP *
6603 Perl_pp_link(pTHXo)
6604 {
6605     return ((CPerlObj*)pPerl)->Perl_pp_link();
6606 }
6607
6608 #undef  Perl_pp_list
6609 OP *
6610 Perl_pp_list(pTHXo)
6611 {
6612     return ((CPerlObj*)pPerl)->Perl_pp_list();
6613 }
6614
6615 #undef  Perl_pp_listen
6616 OP *
6617 Perl_pp_listen(pTHXo)
6618 {
6619     return ((CPerlObj*)pPerl)->Perl_pp_listen();
6620 }
6621
6622 #undef  Perl_pp_localtime
6623 OP *
6624 Perl_pp_localtime(pTHXo)
6625 {
6626     return ((CPerlObj*)pPerl)->Perl_pp_localtime();
6627 }
6628
6629 #undef  Perl_pp_lock
6630 OP *
6631 Perl_pp_lock(pTHXo)
6632 {
6633     return ((CPerlObj*)pPerl)->Perl_pp_lock();
6634 }
6635
6636 #undef  Perl_pp_log
6637 OP *
6638 Perl_pp_log(pTHXo)
6639 {
6640     return ((CPerlObj*)pPerl)->Perl_pp_log();
6641 }
6642
6643 #undef  Perl_pp_lslice
6644 OP *
6645 Perl_pp_lslice(pTHXo)
6646 {
6647     return ((CPerlObj*)pPerl)->Perl_pp_lslice();
6648 }
6649
6650 #undef  Perl_pp_lstat
6651 OP *
6652 Perl_pp_lstat(pTHXo)
6653 {
6654     return ((CPerlObj*)pPerl)->Perl_pp_lstat();
6655 }
6656
6657 #undef  Perl_pp_lt
6658 OP *
6659 Perl_pp_lt(pTHXo)
6660 {
6661     return ((CPerlObj*)pPerl)->Perl_pp_lt();
6662 }
6663
6664 #undef  Perl_pp_mapstart
6665 OP *
6666 Perl_pp_mapstart(pTHXo)
6667 {
6668     return ((CPerlObj*)pPerl)->Perl_pp_mapstart();
6669 }
6670
6671 #undef  Perl_pp_mapwhile
6672 OP *
6673 Perl_pp_mapwhile(pTHXo)
6674 {
6675     return ((CPerlObj*)pPerl)->Perl_pp_mapwhile();
6676 }
6677
6678 #undef  Perl_pp_match
6679 OP *
6680 Perl_pp_match(pTHXo)
6681 {
6682     return ((CPerlObj*)pPerl)->Perl_pp_match();
6683 }
6684
6685 #undef  Perl_pp_method
6686 OP *
6687 Perl_pp_method(pTHXo)
6688 {
6689     return ((CPerlObj*)pPerl)->Perl_pp_method();
6690 }
6691
6692 #undef  Perl_pp_method_named
6693 OP *
6694 Perl_pp_method_named(pTHXo)
6695 {
6696     return ((CPerlObj*)pPerl)->Perl_pp_method_named();
6697 }
6698
6699 #undef  Perl_pp_mkdir
6700 OP *
6701 Perl_pp_mkdir(pTHXo)
6702 {
6703     return ((CPerlObj*)pPerl)->Perl_pp_mkdir();
6704 }
6705
6706 #undef  Perl_pp_modulo
6707 OP *
6708 Perl_pp_modulo(pTHXo)
6709 {
6710     return ((CPerlObj*)pPerl)->Perl_pp_modulo();
6711 }
6712
6713 #undef  Perl_pp_msgctl
6714 OP *
6715 Perl_pp_msgctl(pTHXo)
6716 {
6717     return ((CPerlObj*)pPerl)->Perl_pp_msgctl();
6718 }
6719
6720 #undef  Perl_pp_msgget
6721 OP *
6722 Perl_pp_msgget(pTHXo)
6723 {
6724     return ((CPerlObj*)pPerl)->Perl_pp_msgget();
6725 }
6726
6727 #undef  Perl_pp_msgrcv
6728 OP *
6729 Perl_pp_msgrcv(pTHXo)
6730 {
6731     return ((CPerlObj*)pPerl)->Perl_pp_msgrcv();
6732 }
6733
6734 #undef  Perl_pp_msgsnd
6735 OP *
6736 Perl_pp_msgsnd(pTHXo)
6737 {
6738     return ((CPerlObj*)pPerl)->Perl_pp_msgsnd();
6739 }
6740
6741 #undef  Perl_pp_multiply
6742 OP *
6743 Perl_pp_multiply(pTHXo)
6744 {
6745     return ((CPerlObj*)pPerl)->Perl_pp_multiply();
6746 }
6747
6748 #undef  Perl_pp_ncmp
6749 OP *
6750 Perl_pp_ncmp(pTHXo)
6751 {
6752     return ((CPerlObj*)pPerl)->Perl_pp_ncmp();
6753 }
6754
6755 #undef  Perl_pp_ne
6756 OP *
6757 Perl_pp_ne(pTHXo)
6758 {
6759     return ((CPerlObj*)pPerl)->Perl_pp_ne();
6760 }
6761
6762 #undef  Perl_pp_negate
6763 OP *
6764 Perl_pp_negate(pTHXo)
6765 {
6766     return ((CPerlObj*)pPerl)->Perl_pp_negate();
6767 }
6768
6769 #undef  Perl_pp_next
6770 OP *
6771 Perl_pp_next(pTHXo)
6772 {
6773     return ((CPerlObj*)pPerl)->Perl_pp_next();
6774 }
6775
6776 #undef  Perl_pp_nextstate
6777 OP *
6778 Perl_pp_nextstate(pTHXo)
6779 {
6780     return ((CPerlObj*)pPerl)->Perl_pp_nextstate();
6781 }
6782
6783 #undef  Perl_pp_not
6784 OP *
6785 Perl_pp_not(pTHXo)
6786 {
6787     return ((CPerlObj*)pPerl)->Perl_pp_not();
6788 }
6789
6790 #undef  Perl_pp_null
6791 OP *
6792 Perl_pp_null(pTHXo)
6793 {
6794     return ((CPerlObj*)pPerl)->Perl_pp_null();
6795 }
6796
6797 #undef  Perl_pp_oct
6798 OP *
6799 Perl_pp_oct(pTHXo)
6800 {
6801     return ((CPerlObj*)pPerl)->Perl_pp_oct();
6802 }
6803
6804 #undef  Perl_pp_open
6805 OP *
6806 Perl_pp_open(pTHXo)
6807 {
6808     return ((CPerlObj*)pPerl)->Perl_pp_open();
6809 }
6810
6811 #undef  Perl_pp_open_dir
6812 OP *
6813 Perl_pp_open_dir(pTHXo)
6814 {
6815     return ((CPerlObj*)pPerl)->Perl_pp_open_dir();
6816 }
6817
6818 #undef  Perl_pp_or
6819 OP *
6820 Perl_pp_or(pTHXo)
6821 {
6822     return ((CPerlObj*)pPerl)->Perl_pp_or();
6823 }
6824
6825 #undef  Perl_pp_orassign
6826 OP *
6827 Perl_pp_orassign(pTHXo)
6828 {
6829     return ((CPerlObj*)pPerl)->Perl_pp_orassign();
6830 }
6831
6832 #undef  Perl_pp_ord
6833 OP *
6834 Perl_pp_ord(pTHXo)
6835 {
6836     return ((CPerlObj*)pPerl)->Perl_pp_ord();
6837 }
6838
6839 #undef  Perl_pp_pack
6840 OP *
6841 Perl_pp_pack(pTHXo)
6842 {
6843     return ((CPerlObj*)pPerl)->Perl_pp_pack();
6844 }
6845
6846 #undef  Perl_pp_padany
6847 OP *
6848 Perl_pp_padany(pTHXo)
6849 {
6850     return ((CPerlObj*)pPerl)->Perl_pp_padany();
6851 }
6852
6853 #undef  Perl_pp_padav
6854 OP *
6855 Perl_pp_padav(pTHXo)
6856 {
6857     return ((CPerlObj*)pPerl)->Perl_pp_padav();
6858 }
6859
6860 #undef  Perl_pp_padhv
6861 OP *
6862 Perl_pp_padhv(pTHXo)
6863 {
6864     return ((CPerlObj*)pPerl)->Perl_pp_padhv();
6865 }
6866
6867 #undef  Perl_pp_padsv
6868 OP *
6869 Perl_pp_padsv(pTHXo)
6870 {
6871     return ((CPerlObj*)pPerl)->Perl_pp_padsv();
6872 }
6873
6874 #undef  Perl_pp_pipe_op
6875 OP *
6876 Perl_pp_pipe_op(pTHXo)
6877 {
6878     return ((CPerlObj*)pPerl)->Perl_pp_pipe_op();
6879 }
6880
6881 #undef  Perl_pp_pop
6882 OP *
6883 Perl_pp_pop(pTHXo)
6884 {
6885     return ((CPerlObj*)pPerl)->Perl_pp_pop();
6886 }
6887
6888 #undef  Perl_pp_pos
6889 OP *
6890 Perl_pp_pos(pTHXo)
6891 {
6892     return ((CPerlObj*)pPerl)->Perl_pp_pos();
6893 }
6894
6895 #undef  Perl_pp_postdec
6896 OP *
6897 Perl_pp_postdec(pTHXo)
6898 {
6899     return ((CPerlObj*)pPerl)->Perl_pp_postdec();
6900 }
6901
6902 #undef  Perl_pp_postinc
6903 OP *
6904 Perl_pp_postinc(pTHXo)
6905 {
6906     return ((CPerlObj*)pPerl)->Perl_pp_postinc();
6907 }
6908
6909 #undef  Perl_pp_pow
6910 OP *
6911 Perl_pp_pow(pTHXo)
6912 {
6913     return ((CPerlObj*)pPerl)->Perl_pp_pow();
6914 }
6915
6916 #undef  Perl_pp_predec
6917 OP *
6918 Perl_pp_predec(pTHXo)
6919 {
6920     return ((CPerlObj*)pPerl)->Perl_pp_predec();
6921 }
6922
6923 #undef  Perl_pp_preinc
6924 OP *
6925 Perl_pp_preinc(pTHXo)
6926 {
6927     return ((CPerlObj*)pPerl)->Perl_pp_preinc();
6928 }
6929
6930 #undef  Perl_pp_print
6931 OP *
6932 Perl_pp_print(pTHXo)
6933 {
6934     return ((CPerlObj*)pPerl)->Perl_pp_print();
6935 }
6936
6937 #undef  Perl_pp_prototype
6938 OP *
6939 Perl_pp_prototype(pTHXo)
6940 {
6941     return ((CPerlObj*)pPerl)->Perl_pp_prototype();
6942 }
6943
6944 #undef  Perl_pp_prtf
6945 OP *
6946 Perl_pp_prtf(pTHXo)
6947 {
6948     return ((CPerlObj*)pPerl)->Perl_pp_prtf();
6949 }
6950
6951 #undef  Perl_pp_push
6952 OP *
6953 Perl_pp_push(pTHXo)
6954 {
6955     return ((CPerlObj*)pPerl)->Perl_pp_push();
6956 }
6957
6958 #undef  Perl_pp_pushmark
6959 OP *
6960 Perl_pp_pushmark(pTHXo)
6961 {
6962     return ((CPerlObj*)pPerl)->Perl_pp_pushmark();
6963 }
6964
6965 #undef  Perl_pp_pushre
6966 OP *
6967 Perl_pp_pushre(pTHXo)
6968 {
6969     return ((CPerlObj*)pPerl)->Perl_pp_pushre();
6970 }
6971
6972 #undef  Perl_pp_qr
6973 OP *
6974 Perl_pp_qr(pTHXo)
6975 {
6976     return ((CPerlObj*)pPerl)->Perl_pp_qr();
6977 }
6978
6979 #undef  Perl_pp_quotemeta
6980 OP *
6981 Perl_pp_quotemeta(pTHXo)
6982 {
6983     return ((CPerlObj*)pPerl)->Perl_pp_quotemeta();
6984 }
6985
6986 #undef  Perl_pp_rand
6987 OP *
6988 Perl_pp_rand(pTHXo)
6989 {
6990     return ((CPerlObj*)pPerl)->Perl_pp_rand();
6991 }
6992
6993 #undef  Perl_pp_range
6994 OP *
6995 Perl_pp_range(pTHXo)
6996 {
6997     return ((CPerlObj*)pPerl)->Perl_pp_range();
6998 }
6999
7000 #undef  Perl_pp_rcatline
7001 OP *
7002 Perl_pp_rcatline(pTHXo)
7003 {
7004     return ((CPerlObj*)pPerl)->Perl_pp_rcatline();
7005 }
7006
7007 #undef  Perl_pp_read
7008 OP *
7009 Perl_pp_read(pTHXo)
7010 {
7011     return ((CPerlObj*)pPerl)->Perl_pp_read();
7012 }
7013
7014 #undef  Perl_pp_readdir
7015 OP *
7016 Perl_pp_readdir(pTHXo)
7017 {
7018     return ((CPerlObj*)pPerl)->Perl_pp_readdir();
7019 }
7020
7021 #undef  Perl_pp_readline
7022 OP *
7023 Perl_pp_readline(pTHXo)
7024 {
7025     return ((CPerlObj*)pPerl)->Perl_pp_readline();
7026 }
7027
7028 #undef  Perl_pp_readlink
7029 OP *
7030 Perl_pp_readlink(pTHXo)
7031 {
7032     return ((CPerlObj*)pPerl)->Perl_pp_readlink();
7033 }
7034
7035 #undef  Perl_pp_recv
7036 OP *
7037 Perl_pp_recv(pTHXo)
7038 {
7039     return ((CPerlObj*)pPerl)->Perl_pp_recv();
7040 }
7041
7042 #undef  Perl_pp_redo
7043 OP *
7044 Perl_pp_redo(pTHXo)
7045 {
7046     return ((CPerlObj*)pPerl)->Perl_pp_redo();
7047 }
7048
7049 #undef  Perl_pp_ref
7050 OP *
7051 Perl_pp_ref(pTHXo)
7052 {
7053     return ((CPerlObj*)pPerl)->Perl_pp_ref();
7054 }
7055
7056 #undef  Perl_pp_refgen
7057 OP *
7058 Perl_pp_refgen(pTHXo)
7059 {
7060     return ((CPerlObj*)pPerl)->Perl_pp_refgen();
7061 }
7062
7063 #undef  Perl_pp_regcmaybe
7064 OP *
7065 Perl_pp_regcmaybe(pTHXo)
7066 {
7067     return ((CPerlObj*)pPerl)->Perl_pp_regcmaybe();
7068 }
7069
7070 #undef  Perl_pp_regcomp
7071 OP *
7072 Perl_pp_regcomp(pTHXo)
7073 {
7074     return ((CPerlObj*)pPerl)->Perl_pp_regcomp();
7075 }
7076
7077 #undef  Perl_pp_regcreset
7078 OP *
7079 Perl_pp_regcreset(pTHXo)
7080 {
7081     return ((CPerlObj*)pPerl)->Perl_pp_regcreset();
7082 }
7083
7084 #undef  Perl_pp_rename
7085 OP *
7086 Perl_pp_rename(pTHXo)
7087 {
7088     return ((CPerlObj*)pPerl)->Perl_pp_rename();
7089 }
7090
7091 #undef  Perl_pp_repeat
7092 OP *
7093 Perl_pp_repeat(pTHXo)
7094 {
7095     return ((CPerlObj*)pPerl)->Perl_pp_repeat();
7096 }
7097
7098 #undef  Perl_pp_require
7099 OP *
7100 Perl_pp_require(pTHXo)
7101 {
7102     return ((CPerlObj*)pPerl)->Perl_pp_require();
7103 }
7104
7105 #undef  Perl_pp_reset
7106 OP *
7107 Perl_pp_reset(pTHXo)
7108 {
7109     return ((CPerlObj*)pPerl)->Perl_pp_reset();
7110 }
7111
7112 #undef  Perl_pp_return
7113 OP *
7114 Perl_pp_return(pTHXo)
7115 {
7116     return ((CPerlObj*)pPerl)->Perl_pp_return();
7117 }
7118
7119 #undef  Perl_pp_reverse
7120 OP *
7121 Perl_pp_reverse(pTHXo)
7122 {
7123     return ((CPerlObj*)pPerl)->Perl_pp_reverse();
7124 }
7125
7126 #undef  Perl_pp_rewinddir
7127 OP *
7128 Perl_pp_rewinddir(pTHXo)
7129 {
7130     return ((CPerlObj*)pPerl)->Perl_pp_rewinddir();
7131 }
7132
7133 #undef  Perl_pp_right_shift
7134 OP *
7135 Perl_pp_right_shift(pTHXo)
7136 {
7137     return ((CPerlObj*)pPerl)->Perl_pp_right_shift();
7138 }
7139
7140 #undef  Perl_pp_rindex
7141 OP *
7142 Perl_pp_rindex(pTHXo)
7143 {
7144     return ((CPerlObj*)pPerl)->Perl_pp_rindex();
7145 }
7146
7147 #undef  Perl_pp_rmdir
7148 OP *
7149 Perl_pp_rmdir(pTHXo)
7150 {
7151     return ((CPerlObj*)pPerl)->Perl_pp_rmdir();
7152 }
7153
7154 #undef  Perl_pp_rv2av
7155 OP *
7156 Perl_pp_rv2av(pTHXo)
7157 {
7158     return ((CPerlObj*)pPerl)->Perl_pp_rv2av();
7159 }
7160
7161 #undef  Perl_pp_rv2cv
7162 OP *
7163 Perl_pp_rv2cv(pTHXo)
7164 {
7165     return ((CPerlObj*)pPerl)->Perl_pp_rv2cv();
7166 }
7167
7168 #undef  Perl_pp_rv2gv
7169 OP *
7170 Perl_pp_rv2gv(pTHXo)
7171 {
7172     return ((CPerlObj*)pPerl)->Perl_pp_rv2gv();
7173 }
7174
7175 #undef  Perl_pp_rv2hv
7176 OP *
7177 Perl_pp_rv2hv(pTHXo)
7178 {
7179     return ((CPerlObj*)pPerl)->Perl_pp_rv2hv();
7180 }
7181
7182 #undef  Perl_pp_rv2sv
7183 OP *
7184 Perl_pp_rv2sv(pTHXo)
7185 {
7186     return ((CPerlObj*)pPerl)->Perl_pp_rv2sv();
7187 }
7188
7189 #undef  Perl_pp_sassign
7190 OP *
7191 Perl_pp_sassign(pTHXo)
7192 {
7193     return ((CPerlObj*)pPerl)->Perl_pp_sassign();
7194 }
7195
7196 #undef  Perl_pp_scalar
7197 OP *
7198 Perl_pp_scalar(pTHXo)
7199 {
7200     return ((CPerlObj*)pPerl)->Perl_pp_scalar();
7201 }
7202
7203 #undef  Perl_pp_schomp
7204 OP *
7205 Perl_pp_schomp(pTHXo)
7206 {
7207     return ((CPerlObj*)pPerl)->Perl_pp_schomp();
7208 }
7209
7210 #undef  Perl_pp_schop
7211 OP *
7212 Perl_pp_schop(pTHXo)
7213 {
7214     return ((CPerlObj*)pPerl)->Perl_pp_schop();
7215 }
7216
7217 #undef  Perl_pp_scmp
7218 OP *
7219 Perl_pp_scmp(pTHXo)
7220 {
7221     return ((CPerlObj*)pPerl)->Perl_pp_scmp();
7222 }
7223
7224 #undef  Perl_pp_scope
7225 OP *
7226 Perl_pp_scope(pTHXo)
7227 {
7228     return ((CPerlObj*)pPerl)->Perl_pp_scope();
7229 }
7230
7231 #undef  Perl_pp_seek
7232 OP *
7233 Perl_pp_seek(pTHXo)
7234 {
7235     return ((CPerlObj*)pPerl)->Perl_pp_seek();
7236 }
7237
7238 #undef  Perl_pp_seekdir
7239 OP *
7240 Perl_pp_seekdir(pTHXo)
7241 {
7242     return ((CPerlObj*)pPerl)->Perl_pp_seekdir();
7243 }
7244
7245 #undef  Perl_pp_select
7246 OP *
7247 Perl_pp_select(pTHXo)
7248 {
7249     return ((CPerlObj*)pPerl)->Perl_pp_select();
7250 }
7251
7252 #undef  Perl_pp_semctl
7253 OP *
7254 Perl_pp_semctl(pTHXo)
7255 {
7256     return ((CPerlObj*)pPerl)->Perl_pp_semctl();
7257 }
7258
7259 #undef  Perl_pp_semget
7260 OP *
7261 Perl_pp_semget(pTHXo)
7262 {
7263     return ((CPerlObj*)pPerl)->Perl_pp_semget();
7264 }
7265
7266 #undef  Perl_pp_semop
7267 OP *
7268 Perl_pp_semop(pTHXo)
7269 {
7270     return ((CPerlObj*)pPerl)->Perl_pp_semop();
7271 }
7272
7273 #undef  Perl_pp_send
7274 OP *
7275 Perl_pp_send(pTHXo)
7276 {
7277     return ((CPerlObj*)pPerl)->Perl_pp_send();
7278 }
7279
7280 #undef  Perl_pp_seq
7281 OP *
7282 Perl_pp_seq(pTHXo)
7283 {
7284     return ((CPerlObj*)pPerl)->Perl_pp_seq();
7285 }
7286
7287 #undef  Perl_pp_setpgrp
7288 OP *
7289 Perl_pp_setpgrp(pTHXo)
7290 {
7291     return ((CPerlObj*)pPerl)->Perl_pp_setpgrp();
7292 }
7293
7294 #undef  Perl_pp_setpriority
7295 OP *
7296 Perl_pp_setpriority(pTHXo)
7297 {
7298     return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
7299 }
7300
7301 #undef  Perl_pp_setstate
7302 OP *
7303 Perl_pp_setstate(pTHXo)
7304 {
7305     return ((CPerlObj*)pPerl)->Perl_pp_setstate();
7306 }
7307
7308 #undef  Perl_pp_sge
7309 OP *
7310 Perl_pp_sge(pTHXo)
7311 {
7312     return ((CPerlObj*)pPerl)->Perl_pp_sge();
7313 }
7314
7315 #undef  Perl_pp_sgrent
7316 OP *
7317 Perl_pp_sgrent(pTHXo)
7318 {
7319     return ((CPerlObj*)pPerl)->Perl_pp_sgrent();
7320 }
7321
7322 #undef  Perl_pp_sgt
7323 OP *
7324 Perl_pp_sgt(pTHXo)
7325 {
7326     return ((CPerlObj*)pPerl)->Perl_pp_sgt();
7327 }
7328
7329 #undef  Perl_pp_shift
7330 OP *
7331 Perl_pp_shift(pTHXo)
7332 {
7333     return ((CPerlObj*)pPerl)->Perl_pp_shift();
7334 }
7335
7336 #undef  Perl_pp_shmctl
7337 OP *
7338 Perl_pp_shmctl(pTHXo)
7339 {
7340     return ((CPerlObj*)pPerl)->Perl_pp_shmctl();
7341 }
7342
7343 #undef  Perl_pp_shmget
7344 OP *
7345 Perl_pp_shmget(pTHXo)
7346 {
7347     return ((CPerlObj*)pPerl)->Perl_pp_shmget();
7348 }
7349
7350 #undef  Perl_pp_shmread
7351 OP *
7352 Perl_pp_shmread(pTHXo)
7353 {
7354     return ((CPerlObj*)pPerl)->Perl_pp_shmread();
7355 }
7356
7357 #undef  Perl_pp_shmwrite
7358 OP *
7359 Perl_pp_shmwrite(pTHXo)
7360 {
7361     return ((CPerlObj*)pPerl)->Perl_pp_shmwrite();
7362 }
7363
7364 #undef  Perl_pp_shostent
7365 OP *
7366 Perl_pp_shostent(pTHXo)
7367 {
7368     return ((CPerlObj*)pPerl)->Perl_pp_shostent();
7369 }
7370
7371 #undef  Perl_pp_shutdown
7372 OP *
7373 Perl_pp_shutdown(pTHXo)
7374 {
7375     return ((CPerlObj*)pPerl)->Perl_pp_shutdown();
7376 }
7377
7378 #undef  Perl_pp_sin
7379 OP *
7380 Perl_pp_sin(pTHXo)
7381 {
7382     return ((CPerlObj*)pPerl)->Perl_pp_sin();
7383 }
7384
7385 #undef  Perl_pp_sle
7386 OP *
7387 Perl_pp_sle(pTHXo)
7388 {
7389     return ((CPerlObj*)pPerl)->Perl_pp_sle();
7390 }
7391
7392 #undef  Perl_pp_sleep
7393 OP *
7394 Perl_pp_sleep(pTHXo)
7395 {
7396     return ((CPerlObj*)pPerl)->Perl_pp_sleep();
7397 }
7398
7399 #undef  Perl_pp_slt
7400 OP *
7401 Perl_pp_slt(pTHXo)
7402 {
7403     return ((CPerlObj*)pPerl)->Perl_pp_slt();
7404 }
7405
7406 #undef  Perl_pp_sne
7407 OP *
7408 Perl_pp_sne(pTHXo)
7409 {
7410     return ((CPerlObj*)pPerl)->Perl_pp_sne();
7411 }
7412
7413 #undef  Perl_pp_snetent
7414 OP *
7415 Perl_pp_snetent(pTHXo)
7416 {
7417     return ((CPerlObj*)pPerl)->Perl_pp_snetent();
7418 }
7419
7420 #undef  Perl_pp_socket
7421 OP *
7422 Perl_pp_socket(pTHXo)
7423 {
7424     return ((CPerlObj*)pPerl)->Perl_pp_socket();
7425 }
7426
7427 #undef  Perl_pp_sockpair
7428 OP *
7429 Perl_pp_sockpair(pTHXo)
7430 {
7431     return ((CPerlObj*)pPerl)->Perl_pp_sockpair();
7432 }
7433
7434 #undef  Perl_pp_sort
7435 OP *
7436 Perl_pp_sort(pTHXo)
7437 {
7438     return ((CPerlObj*)pPerl)->Perl_pp_sort();
7439 }
7440
7441 #undef  Perl_pp_splice
7442 OP *
7443 Perl_pp_splice(pTHXo)
7444 {
7445     return ((CPerlObj*)pPerl)->Perl_pp_splice();
7446 }
7447
7448 #undef  Perl_pp_split
7449 OP *
7450 Perl_pp_split(pTHXo)
7451 {
7452     return ((CPerlObj*)pPerl)->Perl_pp_split();
7453 }
7454
7455 #undef  Perl_pp_sprintf
7456 OP *
7457 Perl_pp_sprintf(pTHXo)
7458 {
7459     return ((CPerlObj*)pPerl)->Perl_pp_sprintf();
7460 }
7461
7462 #undef  Perl_pp_sprotoent
7463 OP *
7464 Perl_pp_sprotoent(pTHXo)
7465 {
7466     return ((CPerlObj*)pPerl)->Perl_pp_sprotoent();
7467 }
7468
7469 #undef  Perl_pp_spwent
7470 OP *
7471 Perl_pp_spwent(pTHXo)
7472 {
7473     return ((CPerlObj*)pPerl)->Perl_pp_spwent();
7474 }
7475
7476 #undef  Perl_pp_sqrt
7477 OP *
7478 Perl_pp_sqrt(pTHXo)
7479 {
7480     return ((CPerlObj*)pPerl)->Perl_pp_sqrt();
7481 }
7482
7483 #undef  Perl_pp_srand
7484 OP *
7485 Perl_pp_srand(pTHXo)
7486 {
7487     return ((CPerlObj*)pPerl)->Perl_pp_srand();
7488 }
7489
7490 #undef  Perl_pp_srefgen
7491 OP *
7492 Perl_pp_srefgen(pTHXo)
7493 {
7494     return ((CPerlObj*)pPerl)->Perl_pp_srefgen();
7495 }
7496
7497 #undef  Perl_pp_sselect
7498 OP *
7499 Perl_pp_sselect(pTHXo)
7500 {
7501     return ((CPerlObj*)pPerl)->Perl_pp_sselect();
7502 }
7503
7504 #undef  Perl_pp_sservent
7505 OP *
7506 Perl_pp_sservent(pTHXo)
7507 {
7508     return ((CPerlObj*)pPerl)->Perl_pp_sservent();
7509 }
7510
7511 #undef  Perl_pp_ssockopt
7512 OP *
7513 Perl_pp_ssockopt(pTHXo)
7514 {
7515     return ((CPerlObj*)pPerl)->Perl_pp_ssockopt();
7516 }
7517
7518 #undef  Perl_pp_stat
7519 OP *
7520 Perl_pp_stat(pTHXo)
7521 {
7522     return ((CPerlObj*)pPerl)->Perl_pp_stat();
7523 }
7524
7525 #undef  Perl_pp_stringify
7526 OP *
7527 Perl_pp_stringify(pTHXo)
7528 {
7529     return ((CPerlObj*)pPerl)->Perl_pp_stringify();
7530 }
7531
7532 #undef  Perl_pp_stub
7533 OP *
7534 Perl_pp_stub(pTHXo)
7535 {
7536     return ((CPerlObj*)pPerl)->Perl_pp_stub();
7537 }
7538
7539 #undef  Perl_pp_study
7540 OP *
7541 Perl_pp_study(pTHXo)
7542 {
7543     return ((CPerlObj*)pPerl)->Perl_pp_study();
7544 }
7545
7546 #undef  Perl_pp_subst
7547 OP *
7548 Perl_pp_subst(pTHXo)
7549 {
7550     return ((CPerlObj*)pPerl)->Perl_pp_subst();
7551 }
7552
7553 #undef  Perl_pp_substcont
7554 OP *
7555 Perl_pp_substcont(pTHXo)
7556 {
7557     return ((CPerlObj*)pPerl)->Perl_pp_substcont();
7558 }
7559
7560 #undef  Perl_pp_substr
7561 OP *
7562 Perl_pp_substr(pTHXo)
7563 {
7564     return ((CPerlObj*)pPerl)->Perl_pp_substr();
7565 }
7566
7567 #undef  Perl_pp_subtract
7568 OP *
7569 Perl_pp_subtract(pTHXo)
7570 {
7571     return ((CPerlObj*)pPerl)->Perl_pp_subtract();
7572 }
7573
7574 #undef  Perl_pp_symlink
7575 OP *
7576 Perl_pp_symlink(pTHXo)
7577 {
7578     return ((CPerlObj*)pPerl)->Perl_pp_symlink();
7579 }
7580
7581 #undef  Perl_pp_syscall
7582 OP *
7583 Perl_pp_syscall(pTHXo)
7584 {
7585     return ((CPerlObj*)pPerl)->Perl_pp_syscall();
7586 }
7587
7588 #undef  Perl_pp_sysopen
7589 OP *
7590 Perl_pp_sysopen(pTHXo)
7591 {
7592     return ((CPerlObj*)pPerl)->Perl_pp_sysopen();
7593 }
7594
7595 #undef  Perl_pp_sysread
7596 OP *
7597 Perl_pp_sysread(pTHXo)
7598 {
7599     return ((CPerlObj*)pPerl)->Perl_pp_sysread();
7600 }
7601
7602 #undef  Perl_pp_sysseek
7603 OP *
7604 Perl_pp_sysseek(pTHXo)
7605 {
7606     return ((CPerlObj*)pPerl)->Perl_pp_sysseek();
7607 }
7608
7609 #undef  Perl_pp_system
7610 OP *
7611 Perl_pp_system(pTHXo)
7612 {
7613     return ((CPerlObj*)pPerl)->Perl_pp_system();
7614 }
7615
7616 #undef  Perl_pp_syswrite
7617 OP *
7618 Perl_pp_syswrite(pTHXo)
7619 {
7620     return ((CPerlObj*)pPerl)->Perl_pp_syswrite();
7621 }
7622
7623 #undef  Perl_pp_tell
7624 OP *
7625 Perl_pp_tell(pTHXo)
7626 {
7627     return ((CPerlObj*)pPerl)->Perl_pp_tell();
7628 }
7629
7630 #undef  Perl_pp_telldir
7631 OP *
7632 Perl_pp_telldir(pTHXo)
7633 {
7634     return ((CPerlObj*)pPerl)->Perl_pp_telldir();
7635 }
7636
7637 #undef  Perl_pp_threadsv
7638 OP *
7639 Perl_pp_threadsv(pTHXo)
7640 {
7641     return ((CPerlObj*)pPerl)->Perl_pp_threadsv();
7642 }
7643
7644 #undef  Perl_pp_tie
7645 OP *
7646 Perl_pp_tie(pTHXo)
7647 {
7648     return ((CPerlObj*)pPerl)->Perl_pp_tie();
7649 }
7650
7651 #undef  Perl_pp_tied
7652 OP *
7653 Perl_pp_tied(pTHXo)
7654 {
7655     return ((CPerlObj*)pPerl)->Perl_pp_tied();
7656 }
7657
7658 #undef  Perl_pp_time
7659 OP *
7660 Perl_pp_time(pTHXo)
7661 {
7662     return ((CPerlObj*)pPerl)->Perl_pp_time();
7663 }
7664
7665 #undef  Perl_pp_tms
7666 OP *
7667 Perl_pp_tms(pTHXo)
7668 {
7669     return ((CPerlObj*)pPerl)->Perl_pp_tms();
7670 }
7671
7672 #undef  Perl_pp_trans
7673 OP *
7674 Perl_pp_trans(pTHXo)
7675 {
7676     return ((CPerlObj*)pPerl)->Perl_pp_trans();
7677 }
7678
7679 #undef  Perl_pp_truncate
7680 OP *
7681 Perl_pp_truncate(pTHXo)
7682 {
7683     return ((CPerlObj*)pPerl)->Perl_pp_truncate();
7684 }
7685
7686 #undef  Perl_pp_uc
7687 OP *
7688 Perl_pp_uc(pTHXo)
7689 {
7690     return ((CPerlObj*)pPerl)->Perl_pp_uc();
7691 }
7692
7693 #undef  Perl_pp_ucfirst
7694 OP *
7695 Perl_pp_ucfirst(pTHXo)
7696 {
7697     return ((CPerlObj*)pPerl)->Perl_pp_ucfirst();
7698 }
7699
7700 #undef  Perl_pp_umask
7701 OP *
7702 Perl_pp_umask(pTHXo)
7703 {
7704     return ((CPerlObj*)pPerl)->Perl_pp_umask();
7705 }
7706
7707 #undef  Perl_pp_undef
7708 OP *
7709 Perl_pp_undef(pTHXo)
7710 {
7711     return ((CPerlObj*)pPerl)->Perl_pp_undef();
7712 }
7713
7714 #undef  Perl_pp_unlink
7715 OP *
7716 Perl_pp_unlink(pTHXo)
7717 {
7718     return ((CPerlObj*)pPerl)->Perl_pp_unlink();
7719 }
7720
7721 #undef  Perl_pp_unpack
7722 OP *
7723 Perl_pp_unpack(pTHXo)
7724 {
7725     return ((CPerlObj*)pPerl)->Perl_pp_unpack();
7726 }
7727
7728 #undef  Perl_pp_unshift
7729 OP *
7730 Perl_pp_unshift(pTHXo)
7731 {
7732     return ((CPerlObj*)pPerl)->Perl_pp_unshift();
7733 }
7734
7735 #undef  Perl_pp_unstack
7736 OP *
7737 Perl_pp_unstack(pTHXo)
7738 {
7739     return ((CPerlObj*)pPerl)->Perl_pp_unstack();
7740 }
7741
7742 #undef  Perl_pp_untie
7743 OP *
7744 Perl_pp_untie(pTHXo)
7745 {
7746     return ((CPerlObj*)pPerl)->Perl_pp_untie();
7747 }
7748
7749 #undef  Perl_pp_utime
7750 OP *
7751 Perl_pp_utime(pTHXo)
7752 {
7753     return ((CPerlObj*)pPerl)->Perl_pp_utime();
7754 }
7755
7756 #undef  Perl_pp_values
7757 OP *
7758 Perl_pp_values(pTHXo)
7759 {
7760     return ((CPerlObj*)pPerl)->Perl_pp_values();
7761 }
7762
7763 #undef  Perl_pp_vec
7764 OP *
7765 Perl_pp_vec(pTHXo)
7766 {
7767     return ((CPerlObj*)pPerl)->Perl_pp_vec();
7768 }
7769
7770 #undef  Perl_pp_wait
7771 OP *
7772 Perl_pp_wait(pTHXo)
7773 {
7774     return ((CPerlObj*)pPerl)->Perl_pp_wait();
7775 }
7776
7777 #undef  Perl_pp_waitpid
7778 OP *
7779 Perl_pp_waitpid(pTHXo)
7780 {
7781     return ((CPerlObj*)pPerl)->Perl_pp_waitpid();
7782 }
7783
7784 #undef  Perl_pp_wantarray
7785 OP *
7786 Perl_pp_wantarray(pTHXo)
7787 {
7788     return ((CPerlObj*)pPerl)->Perl_pp_wantarray();
7789 }
7790
7791 #undef  Perl_pp_warn
7792 OP *
7793 Perl_pp_warn(pTHXo)
7794 {
7795     return ((CPerlObj*)pPerl)->Perl_pp_warn();
7796 }
7797
7798 #undef  Perl_pp_xor
7799 OP *
7800 Perl_pp_xor(pTHXo)
7801 {
7802     return ((CPerlObj*)pPerl)->Perl_pp_xor();
7803 }
7804
7805 #undef Perl_fprintf_nocontext
7806 int
7807 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
7808 {
7809     dTHXo;
7810     va_list(arglist);
7811     va_start(arglist, format);
7812     return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
7813 }
7814
7815 END_EXTERN_C
7816
7817 #endif /* PERL_OBJECT */