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