perlapi.c

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