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(const char* from, char* to, I32 len)
2306 {
2307     dTHXo;
2308     return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
2309 }
2310 #endif
2311 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
2312
2313 #undef  Perl_my_bzero
2314 char*
2315 Perl_my_bzero(char* loc, I32 len)
2316 {
2317     dTHXo;
2318     return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
2319 }
2320 #endif
2321
2322 #undef  Perl_my_exit
2323 void
2324 Perl_my_exit(pTHXo_ U32 status)
2325 {
2326     ((CPerlObj*)pPerl)->Perl_my_exit(status);
2327 }
2328
2329 #undef  Perl_my_failure_exit
2330 void
2331 Perl_my_failure_exit(pTHXo)
2332 {
2333     ((CPerlObj*)pPerl)->Perl_my_failure_exit();
2334 }
2335
2336 #undef  Perl_my_fflush_all
2337 I32
2338 Perl_my_fflush_all(pTHXo)
2339 {
2340     return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
2341 }
2342
2343 #undef  Perl_my_lstat
2344 I32
2345 Perl_my_lstat(pTHXo)
2346 {
2347     return ((CPerlObj*)pPerl)->Perl_my_lstat();
2348 }
2349 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
2350
2351 #undef  Perl_my_memcmp
2352 I32
2353 Perl_my_memcmp(const char* s1, const char* s2, I32 len)
2354 {
2355     dTHXo;
2356     return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
2357 }
2358 #endif
2359 #if !defined(HAS_MEMSET)
2360
2361 #undef  Perl_my_memset
2362 void*
2363 Perl_my_memset(char* loc, I32 ch, I32 len)
2364 {
2365     dTHXo;
2366     return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
2367 }
2368 #endif
2369 #if !defined(PERL_OBJECT)
2370
2371 #undef  Perl_my_pclose
2372 I32
2373 Perl_my_pclose(pTHXo_ PerlIO* ptr)
2374 {
2375     return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
2376 }
2377
2378 #undef  Perl_my_popen
2379 PerlIO*
2380 Perl_my_popen(pTHXo_ char* cmd, char* mode)
2381 {
2382     return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
2383 }
2384 #endif
2385
2386 #undef  Perl_my_setenv
2387 void
2388 Perl_my_setenv(pTHXo_ char* nam, char* val)
2389 {
2390     ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
2391 }
2392
2393 #undef  Perl_my_stat
2394 I32
2395 Perl_my_stat(pTHXo)
2396 {
2397     return ((CPerlObj*)pPerl)->Perl_my_stat();
2398 }
2399 #if defined(MYSWAP)
2400
2401 #undef  Perl_my_swap
2402 short
2403 Perl_my_swap(pTHXo_ short s)
2404 {
2405     return ((CPerlObj*)pPerl)->Perl_my_swap(s);
2406 }
2407
2408 #undef  Perl_my_htonl
2409 long
2410 Perl_my_htonl(pTHXo_ long l)
2411 {
2412     return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
2413 }
2414
2415 #undef  Perl_my_ntohl
2416 long
2417 Perl_my_ntohl(pTHXo_ long l)
2418 {
2419     return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
2420 }
2421 #endif
2422
2423 #undef  Perl_my_unexec
2424 void
2425 Perl_my_unexec(pTHXo)
2426 {
2427     ((CPerlObj*)pPerl)->Perl_my_unexec();
2428 }
2429
2430 #undef  Perl_newANONLIST
2431 OP*
2432 Perl_newANONLIST(pTHXo_ OP* o)
2433 {
2434     return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
2435 }
2436
2437 #undef  Perl_newANONHASH
2438 OP*
2439 Perl_newANONHASH(pTHXo_ OP* o)
2440 {
2441     return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
2442 }
2443
2444 #undef  Perl_newANONSUB
2445 OP*
2446 Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
2447 {
2448     return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
2449 }
2450
2451 #undef  Perl_newASSIGNOP
2452 OP*
2453 Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
2454 {
2455     return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
2456 }
2457
2458 #undef  Perl_newCONDOP
2459 OP*
2460 Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
2461 {
2462     return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
2463 }
2464
2465 #undef  Perl_newCONSTSUB
2466 void
2467 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
2468 {
2469     ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
2470 }
2471
2472 #undef  Perl_newFORM
2473 void
2474 Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
2475 {
2476     ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
2477 }
2478
2479 #undef  Perl_newFOROP
2480 OP*
2481 Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
2482 {
2483     return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
2484 }
2485
2486 #undef  Perl_newLOGOP
2487 OP*
2488 Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
2489 {
2490     return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
2491 }
2492
2493 #undef  Perl_newLOOPEX
2494 OP*
2495 Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
2496 {
2497     return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
2498 }
2499
2500 #undef  Perl_newLOOPOP
2501 OP*
2502 Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
2503 {
2504     return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
2505 }
2506
2507 #undef  Perl_newNULLLIST
2508 OP*
2509 Perl_newNULLLIST(pTHXo)
2510 {
2511     return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
2512 }
2513
2514 #undef  Perl_newOP
2515 OP*
2516 Perl_newOP(pTHXo_ I32 optype, I32 flags)
2517 {
2518     return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
2519 }
2520
2521 #undef  Perl_newPROG
2522 void
2523 Perl_newPROG(pTHXo_ OP* o)
2524 {
2525     ((CPerlObj*)pPerl)->Perl_newPROG(o);
2526 }
2527
2528 #undef  Perl_newRANGE
2529 OP*
2530 Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
2531 {
2532     return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
2533 }
2534
2535 #undef  Perl_newSLICEOP
2536 OP*
2537 Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
2538 {
2539     return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
2540 }
2541
2542 #undef  Perl_newSTATEOP
2543 OP*
2544 Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
2545 {
2546     return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
2547 }
2548
2549 #undef  Perl_newSUB
2550 CV*
2551 Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
2552 {
2553     return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
2554 }
2555
2556 #undef  Perl_newXS
2557 CV*
2558 Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
2559 {
2560     return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
2561 }
2562
2563 #undef  Perl_newAV
2564 AV*
2565 Perl_newAV(pTHXo)
2566 {
2567     return ((CPerlObj*)pPerl)->Perl_newAV();
2568 }
2569
2570 #undef  Perl_newAVREF
2571 OP*
2572 Perl_newAVREF(pTHXo_ OP* o)
2573 {
2574     return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
2575 }
2576
2577 #undef  Perl_newBINOP
2578 OP*
2579 Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2580 {
2581     return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
2582 }
2583
2584 #undef  Perl_newCVREF
2585 OP*
2586 Perl_newCVREF(pTHXo_ I32 flags, OP* o)
2587 {
2588     return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
2589 }
2590
2591 #undef  Perl_newGVOP
2592 OP*
2593 Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
2594 {
2595     return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
2596 }
2597
2598 #undef  Perl_newGVgen
2599 GV*
2600 Perl_newGVgen(pTHXo_ char* pack)
2601 {
2602     return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
2603 }
2604
2605 #undef  Perl_newGVREF
2606 OP*
2607 Perl_newGVREF(pTHXo_ I32 type, OP* o)
2608 {
2609     return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
2610 }
2611
2612 #undef  Perl_newHVREF
2613 OP*
2614 Perl_newHVREF(pTHXo_ OP* o)
2615 {
2616     return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
2617 }
2618
2619 #undef  Perl_newHV
2620 HV*
2621 Perl_newHV(pTHXo)
2622 {
2623     return ((CPerlObj*)pPerl)->Perl_newHV();
2624 }
2625
2626 #undef  Perl_newHVhv
2627 HV*
2628 Perl_newHVhv(pTHXo_ HV* hv)
2629 {
2630     return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
2631 }
2632
2633 #undef  Perl_newIO
2634 IO*
2635 Perl_newIO(pTHXo)
2636 {
2637     return ((CPerlObj*)pPerl)->Perl_newIO();
2638 }
2639
2640 #undef  Perl_newLISTOP
2641 OP*
2642 Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
2643 {
2644     return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
2645 }
2646
2647 #undef  Perl_newPADOP
2648 OP*
2649 Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
2650 {
2651     return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
2652 }
2653
2654 #undef  Perl_newPMOP
2655 OP*
2656 Perl_newPMOP(pTHXo_ I32 type, I32 flags)
2657 {
2658     return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
2659 }
2660
2661 #undef  Perl_newPVOP
2662 OP*
2663 Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
2664 {
2665     return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
2666 }
2667
2668 #undef  Perl_newRV
2669 SV*
2670 Perl_newRV(pTHXo_ SV* pref)
2671 {
2672     return ((CPerlObj*)pPerl)->Perl_newRV(pref);
2673 }
2674
2675 #undef  Perl_newRV_noinc
2676 SV*
2677 Perl_newRV_noinc(pTHXo_ SV *sv)
2678 {
2679     return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
2680 }
2681
2682 #undef  Perl_newSV
2683 SV*
2684 Perl_newSV(pTHXo_ STRLEN len)
2685 {
2686     return ((CPerlObj*)pPerl)->Perl_newSV(len);
2687 }
2688
2689 #undef  Perl_newSVREF
2690 OP*
2691 Perl_newSVREF(pTHXo_ OP* o)
2692 {
2693     return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
2694 }
2695
2696 #undef  Perl_newSVOP
2697 OP*
2698 Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
2699 {
2700     return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
2701 }
2702
2703 #undef  Perl_newSViv
2704 SV*
2705 Perl_newSViv(pTHXo_ IV i)
2706 {
2707     return ((CPerlObj*)pPerl)->Perl_newSViv(i);
2708 }
2709
2710 #undef  Perl_newSVnv
2711 SV*
2712 Perl_newSVnv(pTHXo_ NV n)
2713 {
2714     return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
2715 }
2716
2717 #undef  Perl_newSVpv
2718 SV*
2719 Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
2720 {
2721     return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
2722 }
2723
2724 #undef  Perl_newSVpvn
2725 SV*
2726 Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
2727 {
2728     return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
2729 }
2730
2731 #undef  Perl_newSVpvf
2732 SV*
2733 Perl_newSVpvf(pTHXo_ const char* pat, ...)
2734 {
2735     SV* retval;
2736     va_list args;
2737     va_start(args, pat);
2738     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
2739     va_end(args);
2740     return retval;
2741
2742 }
2743
2744 #undef  Perl_vnewSVpvf
2745 SV*
2746 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
2747 {
2748     return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
2749 }
2750
2751 #undef  Perl_newSVrv
2752 SV*
2753 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
2754 {
2755     return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
2756 }
2757
2758 #undef  Perl_newSVsv
2759 SV*
2760 Perl_newSVsv(pTHXo_ SV* old)
2761 {
2762     return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
2763 }
2764
2765 #undef  Perl_newUNOP
2766 OP*
2767 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
2768 {
2769     return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
2770 }
2771
2772 #undef  Perl_newWHILEOP
2773 OP*
2774 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
2775 {
2776     return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
2777 }
2778
2779 #undef  Perl_new_stackinfo
2780 PERL_SI*
2781 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
2782 {
2783     return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
2784 }
2785
2786 #undef  Perl_nextargv
2787 PerlIO*
2788 Perl_nextargv(pTHXo_ GV* gv)
2789 {
2790     return ((CPerlObj*)pPerl)->Perl_nextargv(gv);
2791 }
2792
2793 #undef  Perl_ninstr
2794 char*
2795 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2796 {
2797     return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
2798 }
2799
2800 #undef  Perl_oopsCV
2801 OP*
2802 Perl_oopsCV(pTHXo_ OP* o)
2803 {
2804     return ((CPerlObj*)pPerl)->Perl_oopsCV(o);
2805 }
2806
2807 #undef  Perl_op_free
2808 void
2809 Perl_op_free(pTHXo_ OP* arg)
2810 {
2811     ((CPerlObj*)pPerl)->Perl_op_free(arg);
2812 }
2813
2814 #undef  Perl_package
2815 void
2816 Perl_package(pTHXo_ OP* o)
2817 {
2818     ((CPerlObj*)pPerl)->Perl_package(o);
2819 }
2820
2821 #undef  Perl_pad_alloc
2822 PADOFFSET
2823 Perl_pad_alloc(pTHXo_ I32 optype, U32 tmptype)
2824 {
2825     return ((CPerlObj*)pPerl)->Perl_pad_alloc(optype, tmptype);
2826 }
2827
2828 #undef  Perl_pad_allocmy
2829 PADOFFSET
2830 Perl_pad_allocmy(pTHXo_ char* name)
2831 {
2832     return ((CPerlObj*)pPerl)->Perl_pad_allocmy(name);
2833 }
2834
2835 #undef  Perl_pad_findmy
2836 PADOFFSET
2837 Perl_pad_findmy(pTHXo_ char* name)
2838 {
2839     return ((CPerlObj*)pPerl)->Perl_pad_findmy(name);
2840 }
2841
2842 #undef  Perl_oopsAV
2843 OP*
2844 Perl_oopsAV(pTHXo_ OP* o)
2845 {
2846     return ((CPerlObj*)pPerl)->Perl_oopsAV(o);
2847 }
2848
2849 #undef  Perl_oopsHV
2850 OP*
2851 Perl_oopsHV(pTHXo_ OP* o)
2852 {
2853     return ((CPerlObj*)pPerl)->Perl_oopsHV(o);
2854 }
2855
2856 #undef  Perl_pad_leavemy
2857 void
2858 Perl_pad_leavemy(pTHXo_ I32 fill)
2859 {
2860     ((CPerlObj*)pPerl)->Perl_pad_leavemy(fill);
2861 }
2862
2863 #undef  Perl_pad_sv
2864 SV*
2865 Perl_pad_sv(pTHXo_ PADOFFSET po)
2866 {
2867     return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
2868 }
2869
2870 #undef  Perl_pad_free
2871 void
2872 Perl_pad_free(pTHXo_ PADOFFSET po)
2873 {
2874     ((CPerlObj*)pPerl)->Perl_pad_free(po);
2875 }
2876
2877 #undef  Perl_pad_reset
2878 void
2879 Perl_pad_reset(pTHXo)
2880 {
2881     ((CPerlObj*)pPerl)->Perl_pad_reset();
2882 }
2883
2884 #undef  Perl_pad_swipe
2885 void
2886 Perl_pad_swipe(pTHXo_ PADOFFSET po)
2887 {
2888     ((CPerlObj*)pPerl)->Perl_pad_swipe(po);
2889 }
2890
2891 #undef  Perl_peep
2892 void
2893 Perl_peep(pTHXo_ OP* o)
2894 {
2895     ((CPerlObj*)pPerl)->Perl_peep(o);
2896 }
2897 #if defined(PERL_OBJECT)
2898
2899 #undef  Perl_construct
2900 void
2901 Perl_construct(pTHXo)
2902 {
2903     ((CPerlObj*)pPerl)->Perl_construct();
2904 }
2905
2906 #undef  Perl_destruct
2907 void
2908 Perl_destruct(pTHXo)
2909 {
2910     ((CPerlObj*)pPerl)->Perl_destruct();
2911 }
2912
2913 #undef  Perl_free
2914 void
2915 Perl_free(pTHXo)
2916 {
2917     ((CPerlObj*)pPerl)->Perl_free();
2918 }
2919
2920 #undef  Perl_run
2921 int
2922 Perl_run(pTHXo)
2923 {
2924     return ((CPerlObj*)pPerl)->Perl_run();
2925 }
2926
2927 #undef  Perl_parse
2928 int
2929 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2930 {
2931     return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2932 }
2933 #endif
2934 #if defined(USE_THREADS)
2935
2936 #undef  Perl_new_struct_thread
2937 struct perl_thread*
2938 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2939 {
2940     return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2941 }
2942 #endif
2943
2944 #undef  Perl_call_atexit
2945 void
2946 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2947 {
2948     ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2949 }
2950
2951 #undef  Perl_call_argv
2952 I32
2953 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2954 {
2955     return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2956 }
2957
2958 #undef  Perl_call_method
2959 I32
2960 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2961 {
2962     return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2963 }
2964
2965 #undef  Perl_call_pv
2966 I32
2967 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2968 {
2969     return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2970 }
2971
2972 #undef  Perl_call_sv
2973 I32
2974 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2975 {
2976     return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2977 }
2978
2979 #undef  Perl_eval_pv
2980 SV*
2981 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2982 {
2983     return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2984 }
2985
2986 #undef  Perl_eval_sv
2987 I32
2988 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2989 {
2990     return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2991 }
2992
2993 #undef  Perl_get_sv
2994 SV*
2995 Perl_get_sv(pTHXo_ const char* name, I32 create)
2996 {
2997     return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2998 }
2999
3000 #undef  Perl_get_av
3001 AV*
3002 Perl_get_av(pTHXo_ const char* name, I32 create)
3003 {
3004     return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
3005 }
3006
3007 #undef  Perl_get_hv
3008 HV*
3009 Perl_get_hv(pTHXo_ const char* name, I32 create)
3010 {
3011     return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
3012 }
3013
3014 #undef  Perl_get_cv
3015 CV*
3016 Perl_get_cv(pTHXo_ const char* name, I32 create)
3017 {
3018     return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
3019 }
3020
3021 #undef  Perl_init_i18nl10n
3022 int
3023 Perl_init_i18nl10n(pTHXo_ int printwarn)
3024 {
3025     return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
3026 }
3027
3028 #undef  Perl_init_i18nl14n
3029 int
3030 Perl_init_i18nl14n(pTHXo_ int printwarn)
3031 {
3032     return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
3033 }
3034
3035 #undef  Perl_new_collate
3036 void
3037 Perl_new_collate(pTHXo_ const char* newcoll)
3038 {
3039     ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
3040 }
3041
3042 #undef  Perl_new_ctype
3043 void
3044 Perl_new_ctype(pTHXo_ const char* newctype)
3045 {
3046     ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
3047 }
3048
3049 #undef  Perl_new_numeric
3050 void
3051 Perl_new_numeric(pTHXo_ const char* newcoll)
3052 {
3053     ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
3054 }
3055
3056 #undef  Perl_set_numeric_local
3057 void
3058 Perl_set_numeric_local(pTHXo)
3059 {
3060     ((CPerlObj*)pPerl)->Perl_set_numeric_local();
3061 }
3062
3063 #undef  Perl_set_numeric_radix
3064 void
3065 Perl_set_numeric_radix(pTHXo)
3066 {
3067     ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
3068 }
3069
3070 #undef  Perl_set_numeric_standard
3071 void
3072 Perl_set_numeric_standard(pTHXo)
3073 {
3074     ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
3075 }
3076
3077 #undef  Perl_require_pv
3078 void
3079 Perl_require_pv(pTHXo_ const char* pv)
3080 {
3081     ((CPerlObj*)pPerl)->Perl_require_pv(pv);
3082 }
3083
3084 #undef  Perl_pidgone
3085 void
3086 Perl_pidgone(pTHXo_ Pid_t pid, int status)
3087 {
3088     ((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
3089 }
3090
3091 #undef  Perl_pmflag
3092 void
3093 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
3094 {
3095     ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
3096 }
3097
3098 #undef  Perl_pmruntime
3099 OP*
3100 Perl_pmruntime(pTHXo_ OP* pm, OP* expr, OP* repl)
3101 {
3102     return ((CPerlObj*)pPerl)->Perl_pmruntime(pm, expr, repl);
3103 }
3104
3105 #undef  Perl_pmtrans
3106 OP*
3107 Perl_pmtrans(pTHXo_ OP* o, OP* expr, OP* repl)
3108 {
3109     return ((CPerlObj*)pPerl)->Perl_pmtrans(o, expr, repl);
3110 }
3111
3112 #undef  Perl_pop_return
3113 OP*
3114 Perl_pop_return(pTHXo)
3115 {
3116     return ((CPerlObj*)pPerl)->Perl_pop_return();
3117 }
3118
3119 #undef  Perl_pop_scope
3120 void
3121 Perl_pop_scope(pTHXo)
3122 {
3123     ((CPerlObj*)pPerl)->Perl_pop_scope();
3124 }
3125
3126 #undef  Perl_prepend_elem
3127 OP*
3128 Perl_prepend_elem(pTHXo_ I32 optype, OP* head, OP* tail)
3129 {
3130     return ((CPerlObj*)pPerl)->Perl_prepend_elem(optype, head, tail);
3131 }
3132
3133 #undef  Perl_push_return
3134 void
3135 Perl_push_return(pTHXo_ OP* o)
3136 {
3137     ((CPerlObj*)pPerl)->Perl_push_return(o);
3138 }
3139
3140 #undef  Perl_push_scope
3141 void
3142 Perl_push_scope(pTHXo)
3143 {
3144     ((CPerlObj*)pPerl)->Perl_push_scope();
3145 }
3146
3147 #undef  Perl_ref
3148 OP*
3149 Perl_ref(pTHXo_ OP* o, I32 type)
3150 {
3151     return ((CPerlObj*)pPerl)->Perl_ref(o, type);
3152 }
3153
3154 #undef  Perl_refkids
3155 OP*
3156 Perl_refkids(pTHXo_ OP* o, I32 type)
3157 {
3158     return ((CPerlObj*)pPerl)->Perl_refkids(o, type);
3159 }
3160
3161 #undef  Perl_regdump
3162 void
3163 Perl_regdump(pTHXo_ regexp* r)
3164 {
3165     ((CPerlObj*)pPerl)->Perl_regdump(r);
3166 }
3167
3168 #undef  Perl_pregexec
3169 I32
3170 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
3171 {
3172     return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
3173 }
3174
3175 #undef  Perl_pregfree
3176 void
3177 Perl_pregfree(pTHXo_ struct regexp* r)
3178 {
3179     ((CPerlObj*)pPerl)->Perl_pregfree(r);
3180 }
3181
3182 #undef  Perl_pregcomp
3183 regexp*
3184 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
3185 {
3186     return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
3187 }
3188
3189 #undef  Perl_re_intuit_start
3190 char*
3191 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
3192 {
3193     return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
3194 }
3195
3196 #undef  Perl_re_intuit_string
3197 SV*
3198 Perl_re_intuit_string(pTHXo_ regexp* prog)
3199 {
3200     return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
3201 }
3202
3203 #undef  Perl_regexec_flags
3204 I32
3205 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
3206 {
3207     return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
3208 }
3209
3210 #undef  Perl_regnext
3211 regnode*
3212 Perl_regnext(pTHXo_ regnode* p)
3213 {
3214     return ((CPerlObj*)pPerl)->Perl_regnext(p);
3215 }
3216
3217 #undef  Perl_regprop
3218 void
3219 Perl_regprop(pTHXo_ SV* sv, regnode* o)
3220 {
3221     ((CPerlObj*)pPerl)->Perl_regprop(sv, o);
3222 }
3223
3224 #undef  Perl_repeatcpy
3225 void
3226 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
3227 {
3228     ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
3229 }
3230
3231 #undef  Perl_rninstr
3232 char*
3233 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
3234 {
3235     return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
3236 }
3237
3238 #undef  Perl_rsignal
3239 Sighandler_t
3240 Perl_rsignal(pTHXo_ int i, Sighandler_t t)
3241 {
3242     return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
3243 }
3244
3245 #undef  Perl_rsignal_restore
3246 int
3247 Perl_rsignal_restore(pTHXo_ int i, Sigsave_t* t)
3248 {
3249     return ((CPerlObj*)pPerl)->Perl_rsignal_restore(i, t);
3250 }
3251
3252 #undef  Perl_rsignal_save
3253 int
3254 Perl_rsignal_save(pTHXo_ int i, Sighandler_t t1, Sigsave_t* t2)
3255 {
3256     return ((CPerlObj*)pPerl)->Perl_rsignal_save(i, t1, t2);
3257 }
3258
3259 #undef  Perl_rsignal_state
3260 Sighandler_t
3261 Perl_rsignal_state(pTHXo_ int i)
3262 {
3263     return ((CPerlObj*)pPerl)->Perl_rsignal_state(i);
3264 }
3265
3266 #undef  Perl_rxres_free
3267 void
3268 Perl_rxres_free(pTHXo_ void** rsp)
3269 {
3270     ((CPerlObj*)pPerl)->Perl_rxres_free(rsp);
3271 }
3272
3273 #undef  Perl_rxres_restore
3274 void
3275 Perl_rxres_restore(pTHXo_ void** rsp, REGEXP* prx)
3276 {
3277     ((CPerlObj*)pPerl)->Perl_rxres_restore(rsp, prx);
3278 }
3279
3280 #undef  Perl_rxres_save
3281 void
3282 Perl_rxres_save(pTHXo_ void** rsp, REGEXP* prx)
3283 {
3284     ((CPerlObj*)pPerl)->Perl_rxres_save(rsp, prx);
3285 }
3286 #if !defined(HAS_RENAME)
3287
3288 #undef  Perl_same_dirent
3289 I32
3290 Perl_same_dirent(pTHXo_ char* a, char* b)
3291 {
3292     return ((CPerlObj*)pPerl)->Perl_same_dirent(a, b);
3293 }
3294 #endif
3295
3296 #undef  Perl_savepv
3297 char*
3298 Perl_savepv(pTHXo_ const char* sv)
3299 {
3300     return ((CPerlObj*)pPerl)->Perl_savepv(sv);
3301 }
3302
3303 #undef  Perl_savepvn
3304 char*
3305 Perl_savepvn(pTHXo_ const char* sv, I32 len)
3306 {
3307     return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
3308 }
3309
3310 #undef  Perl_savestack_grow
3311 void
3312 Perl_savestack_grow(pTHXo)
3313 {
3314     ((CPerlObj*)pPerl)->Perl_savestack_grow();
3315 }
3316
3317 #undef  Perl_save_aelem
3318 void
3319 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
3320 {
3321     ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
3322 }
3323
3324 #undef  Perl_save_alloc
3325 I32
3326 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
3327 {
3328     return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
3329 }
3330
3331 #undef  Perl_save_aptr
3332 void
3333 Perl_save_aptr(pTHXo_ AV** aptr)
3334 {
3335     ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
3336 }
3337
3338 #undef  Perl_save_ary
3339 AV*
3340 Perl_save_ary(pTHXo_ GV* gv)
3341 {
3342     return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
3343 }
3344
3345 #undef  Perl_save_clearsv
3346 void
3347 Perl_save_clearsv(pTHXo_ SV** svp)
3348 {
3349     ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
3350 }
3351
3352 #undef  Perl_save_delete
3353 void
3354 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
3355 {
3356     ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
3357 }
3358
3359 #undef  Perl_save_destructor
3360 void
3361 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
3362 {
3363     ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
3364 }
3365
3366 #undef  Perl_save_destructor_x
3367 void
3368 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
3369 {
3370     ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
3371 }
3372
3373 #undef  Perl_save_freesv
3374 void
3375 Perl_save_freesv(pTHXo_ SV* sv)
3376 {
3377     ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
3378 }
3379
3380 #undef  Perl_save_freeop
3381 void
3382 Perl_save_freeop(pTHXo_ OP* o)
3383 {
3384     ((CPerlObj*)pPerl)->Perl_save_freeop(o);
3385 }
3386
3387 #undef  Perl_save_freepv
3388 void
3389 Perl_save_freepv(pTHXo_ char* pv)
3390 {
3391     ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
3392 }
3393
3394 #undef  Perl_save_generic_svref
3395 void
3396 Perl_save_generic_svref(pTHXo_ SV** sptr)
3397 {
3398     ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
3399 }
3400
3401 #undef  Perl_save_gp
3402 void
3403 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
3404 {
3405     ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
3406 }
3407
3408 #undef  Perl_save_hash
3409 HV*
3410 Perl_save_hash(pTHXo_ GV* gv)
3411 {
3412     return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
3413 }
3414
3415 #undef  Perl_save_helem
3416 void
3417 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
3418 {
3419     ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
3420 }
3421
3422 #undef  Perl_save_hints
3423 void
3424 Perl_save_hints(pTHXo)
3425 {
3426     ((CPerlObj*)pPerl)->Perl_save_hints();
3427 }
3428
3429 #undef  Perl_save_hptr
3430 void
3431 Perl_save_hptr(pTHXo_ HV** hptr)
3432 {
3433     ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
3434 }
3435
3436 #undef  Perl_save_I16
3437 void
3438 Perl_save_I16(pTHXo_ I16* intp)
3439 {
3440     ((CPerlObj*)pPerl)->Perl_save_I16(intp);
3441 }
3442
3443 #undef  Perl_save_I32
3444 void
3445 Perl_save_I32(pTHXo_ I32* intp)
3446 {
3447     ((CPerlObj*)pPerl)->Perl_save_I32(intp);
3448 }
3449
3450 #undef  Perl_save_I8
3451 void
3452 Perl_save_I8(pTHXo_ I8* bytep)
3453 {
3454     ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
3455 }
3456
3457 #undef  Perl_save_int
3458 void
3459 Perl_save_int(pTHXo_ int* intp)
3460 {
3461     ((CPerlObj*)pPerl)->Perl_save_int(intp);
3462 }
3463
3464 #undef  Perl_save_item
3465 void
3466 Perl_save_item(pTHXo_ SV* item)
3467 {
3468     ((CPerlObj*)pPerl)->Perl_save_item(item);
3469 }
3470
3471 #undef  Perl_save_iv
3472 void
3473 Perl_save_iv(pTHXo_ IV* iv)
3474 {
3475     ((CPerlObj*)pPerl)->Perl_save_iv(iv);
3476 }
3477
3478 #undef  Perl_save_list
3479 void
3480 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
3481 {
3482     ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
3483 }
3484
3485 #undef  Perl_save_long
3486 void
3487 Perl_save_long(pTHXo_ long* longp)
3488 {
3489     ((CPerlObj*)pPerl)->Perl_save_long(longp);
3490 }
3491
3492 #undef  Perl_save_nogv
3493 void
3494 Perl_save_nogv(pTHXo_ GV* gv)
3495 {
3496     ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
3497 }
3498
3499 #undef  Perl_save_op
3500 void
3501 Perl_save_op(pTHXo)
3502 {
3503     ((CPerlObj*)pPerl)->Perl_save_op();
3504 }
3505
3506 #undef  Perl_save_scalar
3507 SV*
3508 Perl_save_scalar(pTHXo_ GV* gv)
3509 {
3510     return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
3511 }
3512
3513 #undef  Perl_save_pptr
3514 void
3515 Perl_save_pptr(pTHXo_ char** pptr)
3516 {
3517     ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
3518 }
3519
3520 #undef  Perl_save_vptr
3521 void
3522 Perl_save_vptr(pTHXo_ void* pptr)
3523 {
3524     ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
3525 }
3526
3527 #undef  Perl_save_re_context
3528 void
3529 Perl_save_re_context(pTHXo)
3530 {
3531     ((CPerlObj*)pPerl)->Perl_save_re_context();
3532 }
3533
3534 #undef  Perl_save_sptr
3535 void
3536 Perl_save_sptr(pTHXo_ SV** sptr)
3537 {
3538     ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
3539 }
3540
3541 #undef  Perl_save_svref
3542 SV*
3543 Perl_save_svref(pTHXo_ SV** sptr)
3544 {
3545     return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
3546 }
3547
3548 #undef  Perl_save_threadsv
3549 SV**
3550 Perl_save_threadsv(pTHXo_ PADOFFSET i)
3551 {
3552     return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
3553 }
3554
3555 #undef  Perl_sawparens
3556 OP*
3557 Perl_sawparens(pTHXo_ OP* o)
3558 {
3559     return ((CPerlObj*)pPerl)->Perl_sawparens(o);
3560 }
3561
3562 #undef  Perl_scalar
3563 OP*
3564 Perl_scalar(pTHXo_ OP* o)
3565 {
3566     return ((CPerlObj*)pPerl)->Perl_scalar(o);
3567 }
3568
3569 #undef  Perl_scalarkids
3570 OP*
3571 Perl_scalarkids(pTHXo_ OP* o)
3572 {
3573     return ((CPerlObj*)pPerl)->Perl_scalarkids(o);
3574 }
3575
3576 #undef  Perl_scalarseq
3577 OP*
3578 Perl_scalarseq(pTHXo_ OP* o)
3579 {
3580     return ((CPerlObj*)pPerl)->Perl_scalarseq(o);
3581 }
3582
3583 #undef  Perl_scalarvoid
3584 OP*
3585 Perl_scalarvoid(pTHXo_ OP* o)
3586 {
3587     return ((CPerlObj*)pPerl)->Perl_scalarvoid(o);
3588 }
3589
3590 #undef  Perl_scan_bin
3591 NV
3592 Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
3593 {
3594     return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
3595 }
3596
3597 #undef  Perl_scan_hex
3598 NV
3599 Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
3600 {
3601     return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
3602 }
3603
3604 #undef  Perl_scan_num
3605 char*
3606 Perl_scan_num(pTHXo_ char* s)
3607 {
3608     return ((CPerlObj*)pPerl)->Perl_scan_num(s);
3609 }
3610
3611 #undef  Perl_scan_oct
3612 NV
3613 Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
3614 {
3615     return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
3616 }
3617
3618 #undef  Perl_scope
3619 OP*
3620 Perl_scope(pTHXo_ OP* o)
3621 {
3622     return ((CPerlObj*)pPerl)->Perl_scope(o);
3623 }
3624
3625 #undef  Perl_screaminstr
3626 char*
3627 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
3628 {
3629     return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
3630 }
3631 #if !defined(VMS)
3632
3633 #undef  Perl_setenv_getix
3634 I32
3635 Perl_setenv_getix(pTHXo_ char* nam)
3636 {
3637     return ((CPerlObj*)pPerl)->Perl_setenv_getix(nam);
3638 }
3639 #endif
3640
3641 #undef  Perl_setdefout
3642 void
3643 Perl_setdefout(pTHXo_ GV* gv)
3644 {
3645     ((CPerlObj*)pPerl)->Perl_setdefout(gv);
3646 }
3647
3648 #undef  Perl_sharepvn
3649 char*
3650 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3651 {
3652     return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
3653 }
3654
3655 #undef  Perl_share_hek
3656 HEK*
3657 Perl_share_hek(pTHXo_ const char* sv, I32 len, U32 hash)
3658 {
3659     return ((CPerlObj*)pPerl)->Perl_share_hek(sv, len, hash);
3660 }
3661
3662 #undef  Perl_sighandler
3663 Signal_t
3664 Perl_sighandler(int sig)
3665 {
3666     dTHXo;
3667     ((CPerlObj*)pPerl)->Perl_sighandler(sig);
3668 }
3669
3670 #undef  Perl_stack_grow
3671 SV**
3672 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
3673 {
3674     return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
3675 }
3676
3677 #undef  Perl_start_subparse
3678 I32
3679 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
3680 {
3681     return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
3682 }
3683
3684 #undef  Perl_sub_crush_depth
3685 void
3686 Perl_sub_crush_depth(pTHXo_ CV* cv)
3687 {
3688     ((CPerlObj*)pPerl)->Perl_sub_crush_depth(cv);
3689 }
3690
3691 #undef  Perl_sv_2bool
3692 bool
3693 Perl_sv_2bool(pTHXo_ SV* sv)
3694 {
3695     return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
3696 }
3697
3698 #undef  Perl_sv_2cv
3699 CV*
3700 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
3701 {
3702     return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
3703 }
3704
3705 #undef  Perl_sv_2io
3706 IO*
3707 Perl_sv_2io(pTHXo_ SV* sv)
3708 {
3709     return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
3710 }
3711
3712 #undef  Perl_sv_2iv
3713 IV
3714 Perl_sv_2iv(pTHXo_ SV* sv)
3715 {
3716     return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
3717 }
3718
3719 #undef  Perl_sv_2mortal
3720 SV*
3721 Perl_sv_2mortal(pTHXo_ SV* sv)
3722 {
3723     return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
3724 }
3725
3726 #undef  Perl_sv_2nv
3727 NV
3728 Perl_sv_2nv(pTHXo_ SV* sv)
3729 {
3730     return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
3731 }
3732
3733 #undef  Perl_sv_2pv
3734 char*
3735 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
3736 {
3737     return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
3738 }
3739
3740 #undef  Perl_sv_2pvutf8
3741 char*
3742 Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp)
3743 {
3744     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp);
3745 }
3746
3747 #undef  Perl_sv_2pvbyte
3748 char*
3749 Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp)
3750 {
3751     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp);
3752 }
3753
3754 #undef  Perl_sv_2uv
3755 UV
3756 Perl_sv_2uv(pTHXo_ SV* sv)
3757 {
3758     return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
3759 }
3760
3761 #undef  Perl_sv_iv
3762 IV
3763 Perl_sv_iv(pTHXo_ SV* sv)
3764 {
3765     return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
3766 }
3767
3768 #undef  Perl_sv_uv
3769 UV
3770 Perl_sv_uv(pTHXo_ SV* sv)
3771 {
3772     return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
3773 }
3774
3775 #undef  Perl_sv_nv
3776 NV
3777 Perl_sv_nv(pTHXo_ SV* sv)
3778 {
3779     return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
3780 }
3781
3782 #undef  Perl_sv_pvn
3783 char*
3784 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
3785 {
3786     return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
3787 }
3788
3789 #undef  Perl_sv_pvutf8n
3790 char*
3791 Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len)
3792 {
3793     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len);
3794 }
3795
3796 #undef  Perl_sv_pvbyten
3797 char*
3798 Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len)
3799 {
3800     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len);
3801 }
3802
3803 #undef  Perl_sv_true
3804 I32
3805 Perl_sv_true(pTHXo_ SV *sv)
3806 {
3807     return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
3808 }
3809
3810 #undef  Perl_sv_add_arena
3811 void
3812 Perl_sv_add_arena(pTHXo_ char* ptr, U32 size, U32 flags)
3813 {
3814     ((CPerlObj*)pPerl)->Perl_sv_add_arena(ptr, size, flags);
3815 }
3816
3817 #undef  Perl_sv_backoff
3818 int
3819 Perl_sv_backoff(pTHXo_ SV* sv)
3820 {
3821     return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
3822 }
3823
3824 #undef  Perl_sv_bless
3825 SV*
3826 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
3827 {
3828     return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
3829 }
3830
3831 #undef  Perl_sv_catpvf
3832 void
3833 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
3834 {
3835     va_list args;
3836     va_start(args, pat);
3837     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
3838     va_end(args);
3839 }
3840
3841 #undef  Perl_sv_vcatpvf
3842 void
3843 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
3844 {
3845     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
3846 }
3847
3848 #undef  Perl_sv_catpv
3849 void
3850 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
3851 {
3852     ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
3853 }
3854
3855 #undef  Perl_sv_catpvn
3856 void
3857 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3858 {
3859     ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
3860 }
3861
3862 #undef  Perl_sv_catsv
3863 void
3864 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
3865 {
3866     ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
3867 }
3868
3869 #undef  Perl_sv_chop
3870 void
3871 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
3872 {
3873     ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
3874 }
3875
3876 #undef  Perl_sv_clean_all
3877 void
3878 Perl_sv_clean_all(pTHXo)
3879 {
3880     ((CPerlObj*)pPerl)->Perl_sv_clean_all();
3881 }
3882
3883 #undef  Perl_sv_clean_objs
3884 void
3885 Perl_sv_clean_objs(pTHXo)
3886 {
3887     ((CPerlObj*)pPerl)->Perl_sv_clean_objs();
3888 }
3889
3890 #undef  Perl_sv_clear
3891 void
3892 Perl_sv_clear(pTHXo_ SV* sv)
3893 {
3894     ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
3895 }
3896
3897 #undef  Perl_sv_cmp
3898 I32
3899 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
3900 {
3901     return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
3902 }
3903
3904 #undef  Perl_sv_cmp_locale
3905 I32
3906 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
3907 {
3908     return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
3909 }
3910 #if defined(USE_LOCALE_COLLATE)
3911
3912 #undef  Perl_sv_collxfrm
3913 char*
3914 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
3915 {
3916     return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
3917 }
3918 #endif
3919
3920 #undef  Perl_sv_compile_2op
3921 OP*
3922 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
3923 {
3924     return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
3925 }
3926
3927 #undef  Perl_sv_dec
3928 void
3929 Perl_sv_dec(pTHXo_ SV* sv)
3930 {
3931     ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
3932 }
3933
3934 #undef  Perl_sv_dump
3935 void
3936 Perl_sv_dump(pTHXo_ SV* sv)
3937 {
3938     ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
3939 }
3940
3941 #undef  Perl_sv_derived_from
3942 bool
3943 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
3944 {
3945     return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
3946 }
3947
3948 #undef  Perl_sv_eq
3949 I32
3950 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
3951 {
3952     return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
3953 }
3954
3955 #undef  Perl_sv_free
3956 void
3957 Perl_sv_free(pTHXo_ SV* sv)
3958 {
3959     ((CPerlObj*)pPerl)->Perl_sv_free(sv);
3960 }
3961
3962 #undef  Perl_sv_free_arenas
3963 void
3964 Perl_sv_free_arenas(pTHXo)
3965 {
3966     ((CPerlObj*)pPerl)->Perl_sv_free_arenas();
3967 }
3968
3969 #undef  Perl_sv_gets
3970 char*
3971 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
3972 {
3973     return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
3974 }
3975
3976 #undef  Perl_sv_grow
3977 char*
3978 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
3979 {
3980     return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
3981 }
3982
3983 #undef  Perl_sv_inc
3984 void
3985 Perl_sv_inc(pTHXo_ SV* sv)
3986 {
3987     ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
3988 }
3989
3990 #undef  Perl_sv_insert
3991 void
3992 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
3993 {
3994     ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
3995 }
3996
3997 #undef  Perl_sv_isa
3998 int
3999 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
4000 {
4001     return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
4002 }
4003
4004 #undef  Perl_sv_isobject
4005 int
4006 Perl_sv_isobject(pTHXo_ SV* sv)
4007 {
4008     return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
4009 }
4010
4011 #undef  Perl_sv_len
4012 STRLEN
4013 Perl_sv_len(pTHXo_ SV* sv)
4014 {
4015     return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
4016 }
4017
4018 #undef  Perl_sv_len_utf8
4019 STRLEN
4020 Perl_sv_len_utf8(pTHXo_ SV* sv)
4021 {
4022     return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
4023 }
4024
4025 #undef  Perl_sv_magic
4026 void
4027 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
4028 {
4029     ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
4030 }
4031
4032 #undef  Perl_sv_mortalcopy
4033 SV*
4034 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
4035 {
4036     return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
4037 }
4038
4039 #undef  Perl_sv_newmortal
4040 SV*
4041 Perl_sv_newmortal(pTHXo)
4042 {
4043     return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
4044 }
4045
4046 #undef  Perl_sv_newref
4047 SV*
4048 Perl_sv_newref(pTHXo_ SV* sv)
4049 {
4050     return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
4051 }
4052
4053 #undef  Perl_sv_peek
4054 char*
4055 Perl_sv_peek(pTHXo_ SV* sv)
4056 {
4057     return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
4058 }
4059
4060 #undef  Perl_sv_pos_u2b
4061 void
4062 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
4063 {
4064     ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
4065 }
4066
4067 #undef  Perl_sv_pos_b2u
4068 void
4069 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
4070 {
4071     ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
4072 }
4073
4074 #undef  Perl_sv_pvn_force
4075 char*
4076 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
4077 {
4078     return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
4079 }
4080
4081 #undef  Perl_sv_pvutf8n_force
4082 char*
4083 Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp)
4084 {
4085     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp);
4086 }
4087
4088 #undef  Perl_sv_pvbyten_force
4089 char*
4090 Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp)
4091 {
4092     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
4093 }
4094
4095 #undef  Perl_sv_reftype
4096 char*
4097 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
4098 {
4099     return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
4100 }
4101
4102 #undef  Perl_sv_replace
4103 void
4104 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
4105 {
4106     ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
4107 }
4108
4109 #undef  Perl_sv_report_used
4110 void
4111 Perl_sv_report_used(pTHXo)
4112 {
4113     ((CPerlObj*)pPerl)->Perl_sv_report_used();
4114 }
4115
4116 #undef  Perl_sv_reset
4117 void
4118 Perl_sv_reset(pTHXo_ char* s, HV* stash)
4119 {
4120     ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
4121 }
4122
4123 #undef  Perl_sv_setpvf
4124 void
4125 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
4126 {
4127     va_list args;
4128     va_start(args, pat);
4129     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
4130     va_end(args);
4131 }
4132
4133 #undef  Perl_sv_vsetpvf
4134 void
4135 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
4136 {
4137     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
4138 }
4139
4140 #undef  Perl_sv_setiv
4141 void
4142 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
4143 {
4144     ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
4145 }
4146
4147 #undef  Perl_sv_setpviv
4148 void
4149 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
4150 {
4151     ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
4152 }
4153
4154 #undef  Perl_sv_setuv
4155 void
4156 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
4157 {
4158     ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
4159 }
4160
4161 #undef  Perl_sv_setnv
4162 void
4163 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
4164 {
4165     ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
4166 }
4167
4168 #undef  Perl_sv_setref_iv
4169 SV*
4170 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
4171 {
4172     return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
4173 }
4174
4175 #undef  Perl_sv_setref_nv
4176 SV*
4177 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
4178 {
4179     return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
4180 }
4181
4182 #undef  Perl_sv_setref_pv
4183 SV*
4184 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
4185 {
4186     return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
4187 }
4188
4189 #undef  Perl_sv_setref_pvn
4190 SV*
4191 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
4192 {
4193     return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
4194 }
4195
4196 #undef  Perl_sv_setpv
4197 void
4198 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
4199 {
4200     ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
4201 }
4202
4203 #undef  Perl_sv_setpvn
4204 void
4205 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
4206 {
4207     ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
4208 }
4209
4210 #undef  Perl_sv_setsv
4211 void
4212 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
4213 {
4214     ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
4215 }
4216
4217 #undef  Perl_sv_taint
4218 void
4219 Perl_sv_taint(pTHXo_ SV* sv)
4220 {
4221     ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
4222 }
4223
4224 #undef  Perl_sv_tainted
4225 bool
4226 Perl_sv_tainted(pTHXo_ SV* sv)
4227 {
4228     return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
4229 }
4230
4231 #undef  Perl_sv_unmagic
4232 int
4233 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
4234 {
4235     return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
4236 }
4237
4238 #undef  Perl_sv_unref
4239 void
4240 Perl_sv_unref(pTHXo_ SV* sv)
4241 {
4242     ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
4243 }
4244
4245 #undef  Perl_sv_untaint
4246 void
4247 Perl_sv_untaint(pTHXo_ SV* sv)
4248 {
4249     ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
4250 }
4251
4252 #undef  Perl_sv_upgrade
4253 bool
4254 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
4255 {
4256     return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
4257 }
4258
4259 #undef  Perl_sv_usepvn
4260 void
4261 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
4262 {
4263     ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
4264 }
4265
4266 #undef  Perl_sv_vcatpvfn
4267 void
4268 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4269 {
4270     ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4271 }
4272
4273 #undef  Perl_sv_vsetpvfn
4274 void
4275 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
4276 {
4277     ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
4278 }
4279
4280 #undef  Perl_swash_init
4281 SV*
4282 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
4283 {
4284     return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
4285 }
4286
4287 #undef  Perl_swash_fetch
4288 UV
4289 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
4290 {
4291     return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
4292 }
4293
4294 #undef  Perl_taint_env
4295 void
4296 Perl_taint_env(pTHXo)
4297 {
4298     ((CPerlObj*)pPerl)->Perl_taint_env();
4299 }
4300
4301 #undef  Perl_taint_proper
4302 void
4303 Perl_taint_proper(pTHXo_ const char* f, const char* s)
4304 {
4305     ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
4306 }
4307
4308 #undef  Perl_to_utf8_lower
4309 UV
4310 Perl_to_utf8_lower(pTHXo_ U8 *p)
4311 {
4312     return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
4313 }
4314
4315 #undef  Perl_to_utf8_upper
4316 UV
4317 Perl_to_utf8_upper(pTHXo_ U8 *p)
4318 {
4319     return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
4320 }
4321
4322 #undef  Perl_to_utf8_title
4323 UV
4324 Perl_to_utf8_title(pTHXo_ U8 *p)
4325 {
4326     return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
4327 }
4328 #if defined(UNLINK_ALL_VERSIONS)
4329
4330 #undef  Perl_unlnk
4331 I32
4332 Perl_unlnk(pTHXo_ char* f)
4333 {
4334     return ((CPerlObj*)pPerl)->Perl_unlnk(f);
4335 }
4336 #endif
4337 #if defined(USE_THREADS)
4338
4339 #undef  Perl_unlock_condpair
4340 void
4341 Perl_unlock_condpair(pTHXo_ void* svv)
4342 {
4343     ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
4344 }
4345 #endif
4346
4347 #undef  Perl_unsharepvn
4348 void
4349 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
4350 {
4351     ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
4352 }
4353
4354 #undef  Perl_unshare_hek
4355 void
4356 Perl_unshare_hek(pTHXo_ HEK* hek)
4357 {
4358     ((CPerlObj*)pPerl)->Perl_unshare_hek(hek);
4359 }
4360
4361 #undef  Perl_utilize
4362 void
4363 Perl_utilize(pTHXo_ int aver, I32 floor, OP* version, OP* id, OP* arg)
4364 {
4365     ((CPerlObj*)pPerl)->Perl_utilize(aver, floor, version, id, arg);
4366 }
4367
4368 #undef  Perl_utf16_to_utf8
4369 U8*
4370 Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
4371 {
4372     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
4373 }
4374
4375 #undef  Perl_utf16_to_utf8_reversed
4376 U8*
4377 Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
4378 {
4379     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
4380 }
4381
4382 #undef  Perl_utf8_distance
4383 I32
4384 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
4385 {
4386     return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
4387 }
4388
4389 #undef  Perl_utf8_hop
4390 U8*
4391 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
4392 {
4393     return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
4394 }
4395
4396 #undef  Perl_utf8_to_uv
4397 UV
4398 Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
4399 {
4400     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
4401 }
4402
4403 #undef  Perl_uv_to_utf8
4404 U8*
4405 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
4406 {
4407     return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
4408 }
4409
4410 #undef  Perl_vivify_defelem
4411 void
4412 Perl_vivify_defelem(pTHXo_ SV* sv)
4413 {
4414     ((CPerlObj*)pPerl)->Perl_vivify_defelem(sv);
4415 }
4416
4417 #undef  Perl_vivify_ref
4418 void
4419 Perl_vivify_ref(pTHXo_ SV* sv, U32 to_what)
4420 {
4421     ((CPerlObj*)pPerl)->Perl_vivify_ref(sv, to_what);
4422 }
4423
4424 #undef  Perl_wait4pid
4425 I32
4426 Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
4427 {
4428     return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
4429 }
4430
4431 #undef  Perl_report_uninit
4432 void
4433 Perl_report_uninit(pTHXo)
4434 {
4435     ((CPerlObj*)pPerl)->Perl_report_uninit();
4436 }
4437
4438 #undef  Perl_warn
4439 void
4440 Perl_warn(pTHXo_ const char* pat, ...)
4441 {
4442     va_list args;
4443     va_start(args, pat);
4444     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
4445     va_end(args);
4446 }
4447
4448 #undef  Perl_vwarn
4449 void
4450 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
4451 {
4452     ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
4453 }
4454
4455 #undef  Perl_warner
4456 void
4457 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
4458 {
4459     va_list args;
4460     va_start(args, pat);
4461     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
4462     va_end(args);
4463 }
4464
4465 #undef  Perl_vwarner
4466 void
4467 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
4468 {
4469     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
4470 }
4471
4472 #undef  Perl_watch
4473 void
4474 Perl_watch(pTHXo_ char** addr)
4475 {
4476     ((CPerlObj*)pPerl)->Perl_watch(addr);
4477 }
4478
4479 #undef  Perl_whichsig
4480 I32
4481 Perl_whichsig(pTHXo_ char* sig)
4482 {
4483     return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
4484 }
4485
4486 #undef  Perl_yyerror
4487 int
4488 Perl_yyerror(pTHXo_ char* s)
4489 {
4490     return ((CPerlObj*)pPerl)->Perl_yyerror(s);
4491 }
4492 #if defined(USE_PURE_BISON)
4493
4494 #undef  Perl_yylex
4495 int
4496 Perl_yylex(pTHXo_ YYSTYPE *lvalp, int *lcharp)
4497 {
4498     return ((CPerlObj*)pPerl)->Perl_yylex(lvalp, lcharp);
4499 }
4500 #else
4501
4502 #undef  Perl_yylex
4503 int
4504 Perl_yylex(pTHXo)
4505 {
4506     return ((CPerlObj*)pPerl)->Perl_yylex();
4507 }
4508 #endif
4509
4510 #undef  Perl_yyparse
4511 int
4512 Perl_yyparse(pTHXo)
4513 {
4514     return ((CPerlObj*)pPerl)->Perl_yyparse();
4515 }
4516
4517 #undef  Perl_yywarn
4518 int
4519 Perl_yywarn(pTHXo_ char* s)
4520 {
4521     return ((CPerlObj*)pPerl)->Perl_yywarn(s);
4522 }
4523 #if defined(MYMALLOC)
4524
4525 #undef  Perl_dump_mstats
4526 void
4527 Perl_dump_mstats(pTHXo_ char* s)
4528 {
4529     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
4530 }
4531 #endif
4532
4533 #undef  Perl_safesysmalloc
4534 Malloc_t
4535 Perl_safesysmalloc(MEM_SIZE nbytes)
4536 {
4537     dTHXo;
4538     return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
4539 }
4540
4541 #undef  Perl_safesyscalloc
4542 Malloc_t
4543 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
4544 {
4545     dTHXo;
4546     return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
4547 }
4548
4549 #undef  Perl_safesysrealloc
4550 Malloc_t
4551 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
4552 {
4553     dTHXo;
4554     return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
4555 }
4556
4557 #undef  Perl_safesysfree
4558 Free_t
4559 Perl_safesysfree(Malloc_t where)
4560 {
4561     dTHXo;
4562     ((CPerlObj*)pPerl)->Perl_safesysfree(where);
4563 }
4564 #if defined(LEAKTEST)
4565
4566 #undef  Perl_safexmalloc
4567 Malloc_t
4568 Perl_safexmalloc(I32 x, MEM_SIZE size)
4569 {
4570     dTHXo;
4571     return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
4572 }
4573
4574 #undef  Perl_safexcalloc
4575 Malloc_t
4576 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
4577 {
4578     dTHXo;
4579     return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
4580 }
4581
4582 #undef  Perl_safexrealloc
4583 Malloc_t
4584 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
4585 {
4586     dTHXo;
4587     return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
4588 }
4589
4590 #undef  Perl_safexfree
4591 void
4592 Perl_safexfree(Malloc_t where)
4593 {
4594     dTHXo;
4595     ((CPerlObj*)pPerl)->Perl_safexfree(where);
4596 }
4597 #endif
4598 #if defined(PERL_GLOBAL_STRUCT)
4599
4600 #undef  Perl_GetVars
4601 struct perl_vars *
4602 Perl_GetVars(pTHXo)
4603 {
4604     return ((CPerlObj*)pPerl)->Perl_GetVars();
4605 }
4606 #endif
4607
4608 #undef  Perl_runops_standard
4609 int
4610 Perl_runops_standard(pTHXo)
4611 {
4612     return ((CPerlObj*)pPerl)->Perl_runops_standard();
4613 }
4614
4615 #undef  Perl_runops_debug
4616 int
4617 Perl_runops_debug(pTHXo)
4618 {
4619     return ((CPerlObj*)pPerl)->Perl_runops_debug();
4620 }
4621
4622 #undef  Perl_sv_catpvf_mg
4623 void
4624 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4625 {
4626     va_list args;
4627     va_start(args, pat);
4628     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
4629     va_end(args);
4630 }
4631
4632 #undef  Perl_sv_vcatpvf_mg
4633 void
4634 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4635 {
4636     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
4637 }
4638
4639 #undef  Perl_sv_catpv_mg
4640 void
4641 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
4642 {
4643     ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
4644 }
4645
4646 #undef  Perl_sv_catpvn_mg
4647 void
4648 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4649 {
4650     ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
4651 }
4652
4653 #undef  Perl_sv_catsv_mg
4654 void
4655 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
4656 {
4657     ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
4658 }
4659
4660 #undef  Perl_sv_setpvf_mg
4661 void
4662 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
4663 {
4664     va_list args;
4665     va_start(args, pat);
4666     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
4667     va_end(args);
4668 }
4669
4670 #undef  Perl_sv_vsetpvf_mg
4671 void
4672 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
4673 {
4674     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
4675 }
4676
4677 #undef  Perl_sv_setiv_mg
4678 void
4679 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
4680 {
4681     ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
4682 }
4683
4684 #undef  Perl_sv_setpviv_mg
4685 void
4686 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
4687 {
4688     ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
4689 }
4690
4691 #undef  Perl_sv_setuv_mg
4692 void
4693 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
4694 {
4695     ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
4696 }
4697
4698 #undef  Perl_sv_setnv_mg
4699 void
4700 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
4701 {
4702     ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
4703 }
4704
4705 #undef  Perl_sv_setpv_mg
4706 void
4707 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
4708 {
4709     ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
4710 }
4711
4712 #undef  Perl_sv_setpvn_mg
4713 void
4714 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
4715 {
4716     ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
4717 }
4718
4719 #undef  Perl_sv_setsv_mg
4720 void
4721 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
4722 {
4723     ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
4724 }
4725
4726 #undef  Perl_sv_usepvn_mg
4727 void
4728 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
4729 {
4730     ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
4731 }
4732
4733 #undef  Perl_get_vtbl
4734 MGVTBL*
4735 Perl_get_vtbl(pTHXo_ int vtbl_id)
4736 {
4737     return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
4738 }
4739
4740 #undef  Perl_pv_display
4741 char*
4742 Perl_pv_display(pTHXo_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
4743 {
4744     return ((CPerlObj*)pPerl)->Perl_pv_display(sv, pv, cur, len, pvlim);
4745 }
4746
4747 #undef  Perl_dump_indent
4748 void
4749 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
4750 {
4751     va_list args;
4752     va_start(args, pat);
4753     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
4754     va_end(args);
4755 }
4756
4757 #undef  Perl_dump_vindent
4758 void
4759 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
4760 {
4761     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
4762 }
4763
4764 #undef  Perl_do_gv_dump
4765 void
4766 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4767 {
4768     ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
4769 }
4770
4771 #undef  Perl_do_gvgv_dump
4772 void
4773 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
4774 {
4775     ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
4776 }
4777
4778 #undef  Perl_do_hv_dump
4779 void
4780 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
4781 {
4782     ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
4783 }
4784
4785 #undef  Perl_do_magic_dump
4786 void
4787 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4788 {
4789     ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
4790 }
4791
4792 #undef  Perl_do_op_dump
4793 void
4794 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
4795 {
4796     ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
4797 }
4798
4799 #undef  Perl_do_pmop_dump
4800 void
4801 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
4802 {
4803     ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
4804 }
4805
4806 #undef  Perl_do_sv_dump
4807 void
4808 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
4809 {
4810     ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
4811 }
4812
4813 #undef  Perl_magic_dump
4814 void
4815 Perl_magic_dump(pTHXo_ MAGIC *mg)
4816 {
4817     ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
4818 }
4819
4820 #undef  Perl_default_protect
4821 void*
4822 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
4823 {
4824     void* retval;
4825     va_list args;
4826     va_start(args, body);
4827     retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
4828     va_end(args);
4829     return retval;
4830
4831 }
4832
4833 #undef  Perl_vdefault_protect
4834 void*
4835 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
4836 {
4837     return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
4838 }
4839
4840 #undef  Perl_reginitcolors
4841 void
4842 Perl_reginitcolors(pTHXo)
4843 {
4844     ((CPerlObj*)pPerl)->Perl_reginitcolors();
4845 }
4846
4847 #undef  Perl_sv_2pv_nolen
4848 char*
4849 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
4850 {
4851     return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
4852 }
4853
4854 #undef  Perl_sv_2pvutf8_nolen
4855 char*
4856 Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv)
4857 {
4858     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv);
4859 }
4860
4861 #undef  Perl_sv_2pvbyte_nolen
4862 char*
4863 Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv)
4864 {
4865     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv);
4866 }
4867
4868 #undef  Perl_sv_pv
4869 char*
4870 Perl_sv_pv(pTHXo_ SV *sv)
4871 {
4872     return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
4873 }
4874
4875 #undef  Perl_sv_pvutf8
4876 char*
4877 Perl_sv_pvutf8(pTHXo_ SV *sv)
4878 {
4879     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv);
4880 }
4881
4882 #undef  Perl_sv_pvbyte
4883 char*
4884 Perl_sv_pvbyte(pTHXo_ SV *sv)
4885 {
4886     return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
4887 }
4888
4889 #undef  Perl_sv_force_normal
4890 void
4891 Perl_sv_force_normal(pTHXo_ SV *sv)
4892 {
4893     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
4894 }
4895
4896 #undef  Perl_tmps_grow
4897 void
4898 Perl_tmps_grow(pTHXo_ I32 n)
4899 {
4900     ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
4901 }
4902
4903 #undef  Perl_sv_rvweaken
4904 SV*
4905 Perl_sv_rvweaken(pTHXo_ SV *sv)
4906 {
4907     return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
4908 }
4909
4910 #undef  Perl_magic_killbackrefs
4911 int
4912 Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg)
4913 {
4914     return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
4915 }
4916
4917 #undef  Perl_newANONATTRSUB
4918 OP*
4919 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
4920 {
4921     return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
4922 }
4923
4924 #undef  Perl_newATTRSUB
4925 CV*
4926 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4927 {
4928     return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
4929 }
4930
4931 #undef  Perl_newMYSUB
4932 void
4933 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4934 {
4935     ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
4936 }
4937
4938 #undef  Perl_my_attrs
4939 OP *
4940 Perl_my_attrs(pTHXo_ OP *o, OP *attrs)
4941 {
4942     return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs);
4943 }
4944
4945 #undef  Perl_boot_core_xsutils
4946 void
4947 Perl_boot_core_xsutils(pTHXo)
4948 {
4949     ((CPerlObj*)pPerl)->Perl_boot_core_xsutils();
4950 }
4951 #if defined(USE_ITHREADS)
4952
4953 #undef  Perl_cx_dup
4954 PERL_CONTEXT*
4955 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
4956 {
4957     return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
4958 }
4959
4960 #undef  Perl_si_dup
4961 PERL_SI*
4962 Perl_si_dup(pTHXo_ PERL_SI* si)
4963 {
4964     return ((CPerlObj*)pPerl)->Perl_si_dup(si);
4965 }
4966
4967 #undef  Perl_ss_dup
4968 ANY*
4969 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
4970 {
4971     return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
4972 }
4973
4974 #undef  Perl_any_dup
4975 void*
4976 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
4977 {
4978     return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
4979 }
4980
4981 #undef  Perl_he_dup
4982 HE*
4983 Perl_he_dup(pTHXo_ HE* e, bool shared)
4984 {
4985     return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
4986 }
4987
4988 #undef  Perl_re_dup
4989 REGEXP*
4990 Perl_re_dup(pTHXo_ REGEXP* r)
4991 {
4992     return ((CPerlObj*)pPerl)->Perl_re_dup(r);
4993 }
4994
4995 #undef  Perl_fp_dup
4996 PerlIO*
4997 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
4998 {
4999     return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
5000 }
5001
5002 #undef  Perl_dirp_dup
5003 DIR*
5004 Perl_dirp_dup(pTHXo_ DIR* dp)
5005 {
5006     return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
5007 }
5008
5009 #undef  Perl_gp_dup
5010 GP*
5011 Perl_gp_dup(pTHXo_ GP* gp)
5012 {
5013     return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
5014 }
5015
5016 #undef  Perl_mg_dup
5017 MAGIC*
5018 Perl_mg_dup(pTHXo_ MAGIC* mg)
5019 {
5020     return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
5021 }
5022
5023 #undef  Perl_sv_dup
5024 SV*
5025 Perl_sv_dup(pTHXo_ SV* sstr)
5026 {
5027     return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
5028 }
5029 #if defined(HAVE_INTERP_INTERN)
5030
5031 #undef  Perl_sys_intern_dup
5032 void
5033 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
5034 {
5035     ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
5036 }
5037 #endif
5038
5039 #undef  Perl_ptr_table_new
5040 PTR_TBL_t*
5041 Perl_ptr_table_new(pTHXo)
5042 {
5043     return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
5044 }
5045
5046 #undef  Perl_ptr_table_fetch
5047 void*
5048 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
5049 {
5050     return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
5051 }
5052
5053 #undef  Perl_ptr_table_store
5054 void
5055 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
5056 {
5057     ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
5058 }
5059
5060 #undef  Perl_ptr_table_split
5061 void
5062 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
5063 {
5064     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
5065 }
5066 #endif
5067 #if defined(PERL_OBJECT)
5068 #else
5069 #endif
5070 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
5071 #endif
5072 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
5073 #endif
5074 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
5075 #endif
5076 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
5077 #endif
5078 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
5079 #endif
5080 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
5081 #  if defined(PL_OP_SLAB_ALLOC)
5082 #  endif
5083 #endif
5084 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
5085 #  if defined(IAMSUID)
5086 #  endif
5087 #  if defined(USE_THREADS)
5088 #  endif
5089 #endif
5090 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
5091 #endif
5092 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
5093 #endif
5094 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
5095 #endif
5096 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
5097 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
5098 #  endif
5099 #endif
5100 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
5101 #endif
5102 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
5103 #endif
5104 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
5105 #endif
5106 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
5107 #endif
5108 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
5109 #  if defined(PURIFY)
5110 #  else
5111 #  endif
5112 #  if defined(DEBUGGING)
5113 #  endif
5114 #endif
5115 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
5116 #  if defined(CRIPPLED_CC)
5117 #  endif
5118 #  if defined(PERL_CR_FILTER)
5119 #  endif
5120 #endif
5121 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
5122 #endif
5123 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
5124 #  if defined(LEAKTEST)
5125 #  endif
5126 #endif
5127 #if defined(PERL_OBJECT)
5128 #endif
5129
5130 #undef  Perl_ck_anoncode
5131 OP *
5132 Perl_ck_anoncode(pTHXo_ OP *o)
5133 {
5134     return ((CPerlObj*)pPerl)->Perl_ck_anoncode(o);
5135 }
5136
5137 #undef  Perl_ck_bitop
5138 OP *
5139 Perl_ck_bitop(pTHXo_ OP *o)
5140 {
5141     return ((CPerlObj*)pPerl)->Perl_ck_bitop(o);
5142 }
5143
5144 #undef  Perl_ck_concat
5145 OP *
5146 Perl_ck_concat(pTHXo_ OP *o)
5147 {
5148     return ((CPerlObj*)pPerl)->Perl_ck_concat(o);
5149 }
5150
5151 #undef  Perl_ck_defined
5152 OP *
5153 Perl_ck_defined(pTHXo_ OP *o)
5154 {
5155     return ((CPerlObj*)pPerl)->Perl_ck_defined(o);
5156 }
5157
5158 #undef  Perl_ck_delete
5159 OP *
5160 Perl_ck_delete(pTHXo_ OP *o)
5161 {
5162     return ((CPerlObj*)pPerl)->Perl_ck_delete(o);
5163 }
5164
5165 #undef  Perl_ck_eof
5166 OP *
5167 Perl_ck_eof(pTHXo_ OP *o)
5168 {
5169     return ((CPerlObj*)pPerl)->Perl_ck_eof(o);
5170 }
5171
5172 #undef  Perl_ck_eval
5173 OP *
5174 Perl_ck_eval(pTHXo_ OP *o)
5175 {
5176     return ((CPerlObj*)pPerl)->Perl_ck_eval(o);
5177 }
5178
5179 #undef  Perl_ck_exec
5180 OP *
5181 Perl_ck_exec(pTHXo_ OP *o)
5182 {
5183     return ((CPerlObj*)pPerl)->Perl_ck_exec(o);
5184 }
5185
5186 #undef  Perl_ck_exists
5187 OP *
5188 Perl_ck_exists(pTHXo_ OP *o)
5189 {
5190     return ((CPerlObj*)pPerl)->Perl_ck_exists(o);
5191 }
5192
5193 #undef  Perl_ck_ftst
5194 OP *
5195 Perl_ck_ftst(pTHXo_ OP *o)
5196 {
5197     return ((CPerlObj*)pPerl)->Perl_ck_ftst(o);
5198 }
5199
5200 #undef  Perl_ck_fun
5201 OP *
5202 Perl_ck_fun(pTHXo_ OP *o)
5203 {
5204     return ((CPerlObj*)pPerl)->Perl_ck_fun(o);
5205 }
5206
5207 #undef  Perl_ck_fun_locale
5208 OP *
5209 Perl_ck_fun_locale(pTHXo_ OP *o)
5210 {
5211     return ((CPerlObj*)pPerl)->Perl_ck_fun_locale(o);
5212 }
5213
5214 #undef  Perl_ck_glob
5215 OP *
5216 Perl_ck_glob(pTHXo_ OP *o)
5217 {
5218     return ((CPerlObj*)pPerl)->Perl_ck_glob(o);
5219 }
5220
5221 #undef  Perl_ck_grep
5222 OP *
5223 Perl_ck_grep(pTHXo_ OP *o)
5224 {
5225     return ((CPerlObj*)pPerl)->Perl_ck_grep(o);
5226 }
5227
5228 #undef  Perl_ck_index
5229 OP *
5230 Perl_ck_index(pTHXo_ OP *o)
5231 {
5232     return ((CPerlObj*)pPerl)->Perl_ck_index(o);
5233 }
5234
5235 #undef  Perl_ck_join
5236 OP *
5237 Perl_ck_join(pTHXo_ OP *o)
5238 {
5239     return ((CPerlObj*)pPerl)->Perl_ck_join(o);
5240 }
5241
5242 #undef  Perl_ck_lengthconst
5243 OP *
5244 Perl_ck_lengthconst(pTHXo_ OP *o)
5245 {
5246     return ((CPerlObj*)pPerl)->Perl_ck_lengthconst(o);
5247 }
5248
5249 #undef  Perl_ck_lfun
5250 OP *
5251 Perl_ck_lfun(pTHXo_ OP *o)
5252 {
5253     return ((CPerlObj*)pPerl)->Perl_ck_lfun(o);
5254 }
5255
5256 #undef  Perl_ck_listiob
5257 OP *
5258 Perl_ck_listiob(pTHXo_ OP *o)
5259 {
5260     return ((CPerlObj*)pPerl)->Perl_ck_listiob(o);
5261 }
5262
5263 #undef  Perl_ck_match
5264 OP *
5265 Perl_ck_match(pTHXo_ OP *o)
5266 {
5267     return ((CPerlObj*)pPerl)->Perl_ck_match(o);
5268 }
5269
5270 #undef  Perl_ck_method
5271 OP *
5272 Perl_ck_method(pTHXo_ OP *o)
5273 {
5274     return ((CPerlObj*)pPerl)->Perl_ck_method(o);
5275 }
5276
5277 #undef  Perl_ck_null
5278 OP *
5279 Perl_ck_null(pTHXo_ OP *o)
5280 {
5281     return ((CPerlObj*)pPerl)->Perl_ck_null(o);
5282 }
5283
5284 #undef  Perl_ck_repeat
5285 OP *
5286 Perl_ck_repeat(pTHXo_ OP *o)
5287 {
5288     return ((CPerlObj*)pPerl)->Perl_ck_repeat(o);
5289 }
5290
5291 #undef  Perl_ck_require
5292 OP *
5293 Perl_ck_require(pTHXo_ OP *o)
5294 {
5295     return ((CPerlObj*)pPerl)->Perl_ck_require(o);
5296 }
5297
5298 #undef  Perl_ck_rfun
5299 OP *
5300 Perl_ck_rfun(pTHXo_ OP *o)
5301 {
5302     return ((CPerlObj*)pPerl)->Perl_ck_rfun(o);
5303 }
5304
5305 #undef  Perl_ck_rvconst
5306 OP *
5307 Perl_ck_rvconst(pTHXo_ OP *o)
5308 {
5309     return ((CPerlObj*)pPerl)->Perl_ck_rvconst(o);
5310 }
5311
5312 #undef  Perl_ck_sassign
5313 OP *
5314 Perl_ck_sassign(pTHXo_ OP *o)
5315 {
5316     return ((CPerlObj*)pPerl)->Perl_ck_sassign(o);
5317 }
5318
5319 #undef  Perl_ck_scmp
5320 OP *
5321 Perl_ck_scmp(pTHXo_ OP *o)
5322 {
5323     return ((CPerlObj*)pPerl)->Perl_ck_scmp(o);
5324 }
5325
5326 #undef  Perl_ck_select
5327 OP *
5328 Perl_ck_select(pTHXo_ OP *o)
5329 {
5330     return ((CPerlObj*)pPerl)->Perl_ck_select(o);
5331 }
5332
5333 #undef  Perl_ck_shift
5334 OP *
5335 Perl_ck_shift(pTHXo_ OP *o)
5336 {
5337     return ((CPerlObj*)pPerl)->Perl_ck_shift(o);
5338 }
5339
5340 #undef  Perl_ck_sort
5341 OP *
5342 Perl_ck_sort(pTHXo_ OP *o)
5343 {
5344     return ((CPerlObj*)pPerl)->Perl_ck_sort(o);
5345 }
5346
5347 #undef  Perl_ck_spair
5348 OP *
5349 Perl_ck_spair(pTHXo_ OP *o)
5350 {
5351     return ((CPerlObj*)pPerl)->Perl_ck_spair(o);
5352 }
5353
5354 #undef  Perl_ck_split
5355 OP *
5356 Perl_ck_split(pTHXo_ OP *o)
5357 {
5358     return ((CPerlObj*)pPerl)->Perl_ck_split(o);
5359 }
5360
5361 #undef  Perl_ck_subr
5362 OP *
5363 Perl_ck_subr(pTHXo_ OP *o)
5364 {
5365     return ((CPerlObj*)pPerl)->Perl_ck_subr(o);
5366 }
5367
5368 #undef  Perl_ck_svconst
5369 OP *
5370 Perl_ck_svconst(pTHXo_ OP *o)
5371 {
5372     return ((CPerlObj*)pPerl)->Perl_ck_svconst(o);
5373 }
5374
5375 #undef  Perl_ck_trunc
5376 OP *
5377 Perl_ck_trunc(pTHXo_ OP *o)
5378 {
5379     return ((CPerlObj*)pPerl)->Perl_ck_trunc(o);
5380 }
5381
5382 #undef  Perl_pp_aassign
5383 OP *
5384 Perl_pp_aassign(pTHXo)
5385 {
5386     return ((CPerlObj*)pPerl)->Perl_pp_aassign();
5387 }
5388
5389 #undef  Perl_pp_abs
5390 OP *
5391 Perl_pp_abs(pTHXo)
5392 {
5393     return ((CPerlObj*)pPerl)->Perl_pp_abs();
5394 }
5395
5396 #undef  Perl_pp_accept
5397 OP *
5398 Perl_pp_accept(pTHXo)
5399 {
5400     return ((CPerlObj*)pPerl)->Perl_pp_accept();
5401 }
5402
5403 #undef  Perl_pp_add
5404 OP *
5405 Perl_pp_add(pTHXo)
5406 {
5407     return ((CPerlObj*)pPerl)->Perl_pp_add();
5408 }
5409
5410 #undef  Perl_pp_aelem
5411 OP *
5412 Perl_pp_aelem(pTHXo)
5413 {
5414     return ((CPerlObj*)pPerl)->Perl_pp_aelem();
5415 }
5416
5417 #undef  Perl_pp_aelemfast
5418 OP *
5419 Perl_pp_aelemfast(pTHXo)
5420 {
5421     return ((CPerlObj*)pPerl)->Perl_pp_aelemfast();
5422 }
5423
5424 #undef  Perl_pp_alarm
5425 OP *
5426 Perl_pp_alarm(pTHXo)
5427 {
5428     return ((CPerlObj*)pPerl)->Perl_pp_alarm();
5429 }
5430
5431 #undef  Perl_pp_and
5432 OP *
5433 Perl_pp_and(pTHXo)
5434 {
5435     return ((CPerlObj*)pPerl)->Perl_pp_and();
5436 }
5437
5438 #undef  Perl_pp_andassign
5439 OP *
5440 Perl_pp_andassign(pTHXo)
5441 {
5442     return ((CPerlObj*)pPerl)->Perl_pp_andassign();
5443 }
5444
5445 #undef  Perl_pp_anoncode
5446 OP *
5447 Perl_pp_anoncode(pTHXo)
5448 {
5449     return ((CPerlObj*)pPerl)->Perl_pp_anoncode();
5450 }
5451
5452 #undef  Perl_pp_anonhash
5453 OP *
5454 Perl_pp_anonhash(pTHXo)
5455 {
5456     return ((CPerlObj*)pPerl)->Perl_pp_anonhash();
5457 }
5458
5459 #undef  Perl_pp_anonlist
5460 OP *
5461 Perl_pp_anonlist(pTHXo)
5462 {
5463     return ((CPerlObj*)pPerl)->Perl_pp_anonlist();
5464 }
5465
5466 #undef  Perl_pp_aslice
5467 OP *
5468 Perl_pp_aslice(pTHXo)
5469 {
5470     return ((CPerlObj*)pPerl)->Perl_pp_aslice();
5471 }
5472
5473 #undef  Perl_pp_atan2
5474 OP *
5475 Perl_pp_atan2(pTHXo)
5476 {
5477     return ((CPerlObj*)pPerl)->Perl_pp_atan2();
5478 }
5479
5480 #undef  Perl_pp_av2arylen
5481 OP *
5482 Perl_pp_av2arylen(pTHXo)
5483 {
5484     return ((CPerlObj*)pPerl)->Perl_pp_av2arylen();
5485 }
5486
5487 #undef  Perl_pp_backtick
5488 OP *
5489 Perl_pp_backtick(pTHXo)
5490 {
5491     return ((CPerlObj*)pPerl)->Perl_pp_backtick();
5492 }
5493
5494 #undef  Perl_pp_bind
5495 OP *
5496 Perl_pp_bind(pTHXo)
5497 {
5498     return ((CPerlObj*)pPerl)->Perl_pp_bind();
5499 }
5500
5501 #undef  Perl_pp_binmode
5502 OP *
5503 Perl_pp_binmode(pTHXo)
5504 {
5505     return ((CPerlObj*)pPerl)->Perl_pp_binmode();
5506 }
5507
5508 #undef  Perl_pp_bit_and
5509 OP *
5510 Perl_pp_bit_and(pTHXo)
5511 {
5512     return ((CPerlObj*)pPerl)->Perl_pp_bit_and();
5513 }
5514
5515 #undef  Perl_pp_bit_or
5516 OP *
5517 Perl_pp_bit_or(pTHXo)
5518 {
5519     return ((CPerlObj*)pPerl)->Perl_pp_bit_or();
5520 }
5521
5522 #undef  Perl_pp_bit_xor
5523 OP *
5524 Perl_pp_bit_xor(pTHXo)
5525 {
5526     return ((CPerlObj*)pPerl)->Perl_pp_bit_xor();
5527 }
5528
5529 #undef  Perl_pp_bless
5530 OP *
5531 Perl_pp_bless(pTHXo)
5532 {
5533     return ((CPerlObj*)pPerl)->Perl_pp_bless();
5534 }
5535
5536 #undef  Perl_pp_caller
5537 OP *
5538 Perl_pp_caller(pTHXo)
5539 {
5540     return ((CPerlObj*)pPerl)->Perl_pp_caller();
5541 }
5542
5543 #undef  Perl_pp_chdir
5544 OP *
5545 Perl_pp_chdir(pTHXo)
5546 {
5547     return ((CPerlObj*)pPerl)->Perl_pp_chdir();
5548 }
5549
5550 #undef  Perl_pp_chmod
5551 OP *
5552 Perl_pp_chmod(pTHXo)
5553 {
5554     return ((CPerlObj*)pPerl)->Perl_pp_chmod();
5555 }
5556
5557 #undef  Perl_pp_chomp
5558 OP *
5559 Perl_pp_chomp(pTHXo)
5560 {
5561     return ((CPerlObj*)pPerl)->Perl_pp_chomp();
5562 }
5563
5564 #undef  Perl_pp_chop
5565 OP *
5566 Perl_pp_chop(pTHXo)
5567 {
5568     return ((CPerlObj*)pPerl)->Perl_pp_chop();
5569 }
5570
5571 #undef  Perl_pp_chown
5572 OP *
5573 Perl_pp_chown(pTHXo)
5574 {
5575     return ((CPerlObj*)pPerl)->Perl_pp_chown();
5576 }
5577
5578 #undef  Perl_pp_chr
5579 OP *
5580 Perl_pp_chr(pTHXo)
5581 {
5582     return ((CPerlObj*)pPerl)->Perl_pp_chr();
5583 }
5584
5585 #undef  Perl_pp_chroot
5586 OP *
5587 Perl_pp_chroot(pTHXo)
5588 {
5589     return ((CPerlObj*)pPerl)->Perl_pp_chroot();
5590 }
5591
5592 #undef  Perl_pp_close
5593 OP *
5594 Perl_pp_close(pTHXo)
5595 {
5596     return ((CPerlObj*)pPerl)->Perl_pp_close();
5597 }
5598
5599 #undef  Perl_pp_closedir
5600 OP *
5601 Perl_pp_closedir(pTHXo)
5602 {
5603     return ((CPerlObj*)pPerl)->Perl_pp_closedir();
5604 }
5605
5606 #undef  Perl_pp_complement
5607 OP *
5608 Perl_pp_complement(pTHXo)
5609 {
5610     return ((CPerlObj*)pPerl)->Perl_pp_complement();
5611 }
5612
5613 #undef  Perl_pp_concat
5614 OP *
5615 Perl_pp_concat(pTHXo)
5616 {
5617     return ((CPerlObj*)pPerl)->Perl_pp_concat();
5618 }
5619
5620 #undef  Perl_pp_cond_expr
5621 OP *
5622 Perl_pp_cond_expr(pTHXo)
5623 {
5624     return ((CPerlObj*)pPerl)->Perl_pp_cond_expr();
5625 }
5626
5627 #undef  Perl_pp_connect
5628 OP *
5629 Perl_pp_connect(pTHXo)
5630 {
5631     return ((CPerlObj*)pPerl)->Perl_pp_connect();
5632 }
5633
5634 #undef  Perl_pp_const
5635 OP *
5636 Perl_pp_const(pTHXo)
5637 {
5638     return ((CPerlObj*)pPerl)->Perl_pp_const();
5639 }
5640
5641 #undef  Perl_pp_cos
5642 OP *
5643 Perl_pp_cos(pTHXo)
5644 {
5645     return ((CPerlObj*)pPerl)->Perl_pp_cos();
5646 }
5647
5648 #undef  Perl_pp_crypt
5649 OP *
5650 Perl_pp_crypt(pTHXo)
5651 {
5652     return ((CPerlObj*)pPerl)->Perl_pp_crypt();
5653 }
5654
5655 #undef  Perl_pp_dbmclose
5656 OP *
5657 Perl_pp_dbmclose(pTHXo)
5658 {
5659     return ((CPerlObj*)pPerl)->Perl_pp_dbmclose();
5660 }
5661
5662 #undef  Perl_pp_dbmopen
5663 OP *
5664 Perl_pp_dbmopen(pTHXo)
5665 {
5666     return ((CPerlObj*)pPerl)->Perl_pp_dbmopen();
5667 }
5668
5669 #undef  Perl_pp_dbstate
5670 OP *
5671 Perl_pp_dbstate(pTHXo)
5672 {
5673     return ((CPerlObj*)pPerl)->Perl_pp_dbstate();
5674 }
5675
5676 #undef  Perl_pp_defined
5677 OP *
5678 Perl_pp_defined(pTHXo)
5679 {
5680     return ((CPerlObj*)pPerl)->Perl_pp_defined();
5681 }
5682
5683 #undef  Perl_pp_delete
5684 OP *
5685 Perl_pp_delete(pTHXo)
5686 {
5687     return ((CPerlObj*)pPerl)->Perl_pp_delete();
5688 }
5689
5690 #undef  Perl_pp_die
5691 OP *
5692 Perl_pp_die(pTHXo)
5693 {
5694     return ((CPerlObj*)pPerl)->Perl_pp_die();
5695 }
5696
5697 #undef  Perl_pp_divide
5698 OP *
5699 Perl_pp_divide(pTHXo)
5700 {
5701     return ((CPerlObj*)pPerl)->Perl_pp_divide();
5702 }
5703
5704 #undef  Perl_pp_dofile
5705 OP *
5706 Perl_pp_dofile(pTHXo)
5707 {
5708     return ((CPerlObj*)pPerl)->Perl_pp_dofile();
5709 }
5710
5711 #undef  Perl_pp_dump
5712 OP *
5713 Perl_pp_dump(pTHXo)
5714 {
5715     return ((CPerlObj*)pPerl)->Perl_pp_dump();
5716 }
5717
5718 #undef  Perl_pp_each
5719 OP *
5720 Perl_pp_each(pTHXo)
5721 {
5722     return ((CPerlObj*)pPerl)->Perl_pp_each();
5723 }
5724
5725 #undef  Perl_pp_egrent
5726 OP *
5727 Perl_pp_egrent(pTHXo)
5728 {
5729     return ((CPerlObj*)pPerl)->Perl_pp_egrent();
5730 }
5731
5732 #undef  Perl_pp_ehostent
5733 OP *
5734 Perl_pp_ehostent(pTHXo)
5735 {
5736     return ((CPerlObj*)pPerl)->Perl_pp_ehostent();
5737 }
5738
5739 #undef  Perl_pp_enetent
5740 OP *
5741 Perl_pp_enetent(pTHXo)
5742 {
5743     return ((CPerlObj*)pPerl)->Perl_pp_enetent();
5744 }
5745
5746 #undef  Perl_pp_enter
5747 OP *
5748 Perl_pp_enter(pTHXo)
5749 {
5750     return ((CPerlObj*)pPerl)->Perl_pp_enter();
5751 }
5752
5753 #undef  Perl_pp_entereval
5754 OP *
5755 Perl_pp_entereval(pTHXo)
5756 {
5757     return ((CPerlObj*)pPerl)->Perl_pp_entereval();
5758 }
5759
5760 #undef  Perl_pp_enteriter
5761 OP *
5762 Perl_pp_enteriter(pTHXo)
5763 {
5764     return ((CPerlObj*)pPerl)->Perl_pp_enteriter();
5765 }
5766
5767 #undef  Perl_pp_enterloop
5768 OP *
5769 Perl_pp_enterloop(pTHXo)
5770 {
5771     return ((CPerlObj*)pPerl)->Perl_pp_enterloop();
5772 }
5773
5774 #undef  Perl_pp_entersub
5775 OP *
5776 Perl_pp_entersub(pTHXo)
5777 {
5778     return ((CPerlObj*)pPerl)->Perl_pp_entersub();
5779 }
5780
5781 #undef  Perl_pp_entertry
5782 OP *
5783 Perl_pp_entertry(pTHXo)
5784 {
5785     return ((CPerlObj*)pPerl)->Perl_pp_entertry();
5786 }
5787
5788 #undef  Perl_pp_enterwrite
5789 OP *
5790 Perl_pp_enterwrite(pTHXo)
5791 {
5792     return ((CPerlObj*)pPerl)->Perl_pp_enterwrite();
5793 }
5794
5795 #undef  Perl_pp_eof
5796 OP *
5797 Perl_pp_eof(pTHXo)
5798 {
5799     return ((CPerlObj*)pPerl)->Perl_pp_eof();
5800 }
5801
5802 #undef  Perl_pp_eprotoent
5803 OP *
5804 Perl_pp_eprotoent(pTHXo)
5805 {
5806     return ((CPerlObj*)pPerl)->Perl_pp_eprotoent();
5807 }
5808
5809 #undef  Perl_pp_epwent
5810 OP *
5811 Perl_pp_epwent(pTHXo)
5812 {
5813     return ((CPerlObj*)pPerl)->Perl_pp_epwent();
5814 }
5815
5816 #undef  Perl_pp_eq
5817 OP *
5818 Perl_pp_eq(pTHXo)
5819 {
5820     return ((CPerlObj*)pPerl)->Perl_pp_eq();
5821 }
5822
5823 #undef  Perl_pp_eservent
5824 OP *
5825 Perl_pp_eservent(pTHXo)
5826 {
5827     return ((CPerlObj*)pPerl)->Perl_pp_eservent();
5828 }
5829
5830 #undef  Perl_pp_exec
5831 OP *
5832 Perl_pp_exec(pTHXo)
5833 {
5834     return ((CPerlObj*)pPerl)->Perl_pp_exec();
5835 }
5836
5837 #undef  Perl_pp_exists
5838 OP *
5839 Perl_pp_exists(pTHXo)
5840 {
5841     return ((CPerlObj*)pPerl)->Perl_pp_exists();
5842 }
5843
5844 #undef  Perl_pp_exit
5845 OP *
5846 Perl_pp_exit(pTHXo)
5847 {
5848     return ((CPerlObj*)pPerl)->Perl_pp_exit();
5849 }
5850
5851 #undef  Perl_pp_exp
5852 OP *
5853 Perl_pp_exp(pTHXo)
5854 {
5855     return ((CPerlObj*)pPerl)->Perl_pp_exp();
5856 }
5857
5858 #undef  Perl_pp_fcntl
5859 OP *
5860 Perl_pp_fcntl(pTHXo)
5861 {
5862     return ((CPerlObj*)pPerl)->Perl_pp_fcntl();
5863 }
5864
5865 #undef  Perl_pp_fileno
5866 OP *
5867 Perl_pp_fileno(pTHXo)
5868 {
5869     return ((CPerlObj*)pPerl)->Perl_pp_fileno();
5870 }
5871
5872 #undef  Perl_pp_flip
5873 OP *
5874 Perl_pp_flip(pTHXo)
5875 {
5876     return ((CPerlObj*)pPerl)->Perl_pp_flip();
5877 }
5878
5879 #undef  Perl_pp_flock
5880 OP *
5881 Perl_pp_flock(pTHXo)
5882 {
5883     return ((CPerlObj*)pPerl)->Perl_pp_flock();
5884 }
5885
5886 #undef  Perl_pp_flop
5887 OP *
5888 Perl_pp_flop(pTHXo)
5889 {
5890     return ((CPerlObj*)pPerl)->Perl_pp_flop();
5891 }
5892
5893 #undef  Perl_pp_fork
5894 OP *
5895 Perl_pp_fork(pTHXo)
5896 {
5897     return ((CPerlObj*)pPerl)->Perl_pp_fork();
5898 }
5899
5900 #undef  Perl_pp_formline
5901 OP *
5902 Perl_pp_formline(pTHXo)
5903 {
5904     return ((CPerlObj*)pPerl)->Perl_pp_formline();
5905 }
5906
5907 #undef  Perl_pp_ftatime
5908 OP *
5909 Perl_pp_ftatime(pTHXo)
5910 {
5911     return ((CPerlObj*)pPerl)->Perl_pp_ftatime();
5912 }
5913
5914 #undef  Perl_pp_ftbinary
5915 OP *
5916 Perl_pp_ftbinary(pTHXo)
5917 {
5918     return ((CPerlObj*)pPerl)->Perl_pp_ftbinary();
5919 }
5920
5921 #undef  Perl_pp_ftblk
5922 OP *
5923 Perl_pp_ftblk(pTHXo)
5924 {
5925     return ((CPerlObj*)pPerl)->Perl_pp_ftblk();
5926 }
5927
5928 #undef  Perl_pp_ftchr
5929 OP *
5930 Perl_pp_ftchr(pTHXo)
5931 {
5932     return ((CPerlObj*)pPerl)->Perl_pp_ftchr();
5933 }
5934
5935 #undef  Perl_pp_ftctime
5936 OP *
5937 Perl_pp_ftctime(pTHXo)
5938 {
5939     return ((CPerlObj*)pPerl)->Perl_pp_ftctime();
5940 }
5941
5942 #undef  Perl_pp_ftdir
5943 OP *
5944 Perl_pp_ftdir(pTHXo)
5945 {
5946     return ((CPerlObj*)pPerl)->Perl_pp_ftdir();
5947 }
5948
5949 #undef  Perl_pp_fteexec
5950 OP *
5951 Perl_pp_fteexec(pTHXo)
5952 {
5953     return ((CPerlObj*)pPerl)->Perl_pp_fteexec();
5954 }
5955
5956 #undef  Perl_pp_fteowned
5957 OP *
5958 Perl_pp_fteowned(pTHXo)
5959 {
5960     return ((CPerlObj*)pPerl)->Perl_pp_fteowned();
5961 }
5962
5963 #undef  Perl_pp_fteread
5964 OP *
5965 Perl_pp_fteread(pTHXo)
5966 {
5967     return ((CPerlObj*)pPerl)->Perl_pp_fteread();
5968 }
5969
5970 #undef  Perl_pp_ftewrite
5971 OP *
5972 Perl_pp_ftewrite(pTHXo)
5973 {
5974     return ((CPerlObj*)pPerl)->Perl_pp_ftewrite();
5975 }
5976
5977 #undef  Perl_pp_ftfile
5978 OP *
5979 Perl_pp_ftfile(pTHXo)
5980 {
5981     return ((CPerlObj*)pPerl)->Perl_pp_ftfile();
5982 }
5983
5984 #undef  Perl_pp_ftis
5985 OP *
5986 Perl_pp_ftis(pTHXo)
5987 {
5988     return ((CPerlObj*)pPerl)->Perl_pp_ftis();
5989 }
5990
5991 #undef  Perl_pp_ftlink
5992 OP *
5993 Perl_pp_ftlink(pTHXo)
5994 {
5995     return ((CPerlObj*)pPerl)->Perl_pp_ftlink();
5996 }
5997
5998 #undef  Perl_pp_ftmtime
5999 OP *
6000 Perl_pp_ftmtime(pTHXo)
6001 {
6002     return ((CPerlObj*)pPerl)->Perl_pp_ftmtime();
6003 }
6004
6005 #undef  Perl_pp_ftpipe
6006 OP *
6007 Perl_pp_ftpipe(pTHXo)
6008 {
6009     return ((CPerlObj*)pPerl)->Perl_pp_ftpipe();
6010 }
6011
6012 #undef  Perl_pp_ftrexec
6013 OP *
6014 Perl_pp_ftrexec(pTHXo)
6015 {
6016     return ((CPerlObj*)pPerl)->Perl_pp_ftrexec();
6017 }
6018
6019 #undef  Perl_pp_ftrowned
6020 OP *
6021 Perl_pp_ftrowned(pTHXo)
6022 {
6023     return ((CPerlObj*)pPerl)->Perl_pp_ftrowned();
6024 }
6025
6026 #undef  Perl_pp_ftrread
6027 OP *
6028 Perl_pp_ftrread(pTHXo)
6029 {
6030     return ((CPerlObj*)pPerl)->Perl_pp_ftrread();
6031 }
6032
6033 #undef  Perl_pp_ftrwrite
6034 OP *
6035 Perl_pp_ftrwrite(pTHXo)
6036 {
6037     return ((CPerlObj*)pPerl)->Perl_pp_ftrwrite();
6038 }
6039
6040 #undef  Perl_pp_ftsgid
6041 OP *
6042 Perl_pp_ftsgid(pTHXo)
6043 {
6044     return ((CPerlObj*)pPerl)->Perl_pp_ftsgid();
6045 }
6046
6047 #undef  Perl_pp_ftsize
6048 OP *
6049 Perl_pp_ftsize(pTHXo)
6050 {
6051     return ((CPerlObj*)pPerl)->Perl_pp_ftsize();
6052 }
6053
6054 #undef  Perl_pp_ftsock
6055 OP *
6056 Perl_pp_ftsock(pTHXo)
6057 {
6058     return ((CPerlObj*)pPerl)->Perl_pp_ftsock();
6059 }
6060
6061 #undef  Perl_pp_ftsuid
6062 OP *
6063 Perl_pp_ftsuid(pTHXo)
6064 {
6065     return ((CPerlObj*)pPerl)->Perl_pp_ftsuid();
6066 }
6067
6068 #undef  Perl_pp_ftsvtx
6069 OP *
6070 Perl_pp_ftsvtx(pTHXo)
6071 {
6072     return ((CPerlObj*)pPerl)->Perl_pp_ftsvtx();
6073 }
6074
6075 #undef  Perl_pp_fttext
6076 OP *
6077 Perl_pp_fttext(pTHXo)
6078 {
6079     return ((CPerlObj*)pPerl)->Perl_pp_fttext();
6080 }
6081
6082 #undef  Perl_pp_fttty
6083 OP *
6084 Perl_pp_fttty(pTHXo)
6085 {
6086     return ((CPerlObj*)pPerl)->Perl_pp_fttty();
6087 }
6088
6089 #undef  Perl_pp_ftzero
6090 OP *
6091 Perl_pp_ftzero(pTHXo)
6092 {
6093     return ((CPerlObj*)pPerl)->Perl_pp_ftzero();
6094 }
6095
6096 #undef  Perl_pp_ge
6097 OP *
6098 Perl_pp_ge(pTHXo)
6099 {
6100     return ((CPerlObj*)pPerl)->Perl_pp_ge();
6101 }
6102
6103 #undef  Perl_pp_gelem
6104 OP *
6105 Perl_pp_gelem(pTHXo)
6106 {
6107     return ((CPerlObj*)pPerl)->Perl_pp_gelem();
6108 }
6109
6110 #undef  Perl_pp_getc
6111 OP *
6112 Perl_pp_getc(pTHXo)
6113 {
6114     return ((CPerlObj*)pPerl)->Perl_pp_getc();
6115 }
6116
6117 #undef  Perl_pp_getlogin
6118 OP *
6119 Perl_pp_getlogin(pTHXo)
6120 {
6121     return ((CPerlObj*)pPerl)->Perl_pp_getlogin();
6122 }
6123
6124 #undef  Perl_pp_getpeername
6125 OP *
6126 Perl_pp_getpeername(pTHXo)
6127 {
6128     return ((CPerlObj*)pPerl)->Perl_pp_getpeername();
6129 }
6130
6131 #undef  Perl_pp_getpgrp
6132 OP *
6133 Perl_pp_getpgrp(pTHXo)
6134 {
6135     return ((CPerlObj*)pPerl)->Perl_pp_getpgrp();
6136 }
6137
6138 #undef  Perl_pp_getppid
6139 OP *
6140 Perl_pp_getppid(pTHXo)
6141 {
6142     return ((CPerlObj*)pPerl)->Perl_pp_getppid();
6143 }
6144
6145 #undef  Perl_pp_getpriority
6146 OP *
6147 Perl_pp_getpriority(pTHXo)
6148 {
6149     return ((CPerlObj*)pPerl)->Perl_pp_getpriority();
6150 }
6151
6152 #undef  Perl_pp_getsockname
6153 OP *
6154 Perl_pp_getsockname(pTHXo)
6155 {
6156     return ((CPerlObj*)pPerl)->Perl_pp_getsockname();
6157 }
6158
6159 #undef  Perl_pp_ggrent
6160 OP *
6161 Perl_pp_ggrent(pTHXo)
6162 {
6163     return ((CPerlObj*)pPerl)->Perl_pp_ggrent();
6164 }
6165
6166 #undef  Perl_pp_ggrgid
6167 OP *
6168 Perl_pp_ggrgid(pTHXo)
6169 {
6170     return ((CPerlObj*)pPerl)->Perl_pp_ggrgid();
6171 }
6172
6173 #undef  Perl_pp_ggrnam
6174 OP *
6175 Perl_pp_ggrnam(pTHXo)
6176 {
6177     return ((CPerlObj*)pPerl)->Perl_pp_ggrnam();
6178 }
6179
6180 #undef  Perl_pp_ghbyaddr
6181 OP *
6182 Perl_pp_ghbyaddr(pTHXo)
6183 {
6184     return ((CPerlObj*)pPerl)->Perl_pp_ghbyaddr();
6185 }
6186
6187 #undef  Perl_pp_ghbyname
6188 OP *
6189 Perl_pp_ghbyname(pTHXo)
6190 {
6191     return ((CPerlObj*)pPerl)->Perl_pp_ghbyname();
6192 }
6193
6194 #undef  Perl_pp_ghostent
6195 OP *
6196 Perl_pp_ghostent(pTHXo)
6197 {
6198     return ((CPerlObj*)pPerl)->Perl_pp_ghostent();
6199 }
6200
6201 #undef  Perl_pp_glob
6202 OP *
6203 Perl_pp_glob(pTHXo)
6204 {
6205     return ((CPerlObj*)pPerl)->Perl_pp_glob();
6206 }
6207
6208 #undef  Perl_pp_gmtime
6209 OP *
6210 Perl_pp_gmtime(pTHXo)
6211 {
6212     return ((CPerlObj*)pPerl)->Perl_pp_gmtime();
6213 }
6214
6215 #undef  Perl_pp_gnbyaddr
6216 OP *
6217 Perl_pp_gnbyaddr(pTHXo)
6218 {
6219     return ((CPerlObj*)pPerl)->Perl_pp_gnbyaddr();
6220 }
6221
6222 #undef  Perl_pp_gnbyname
6223 OP *
6224 Perl_pp_gnbyname(pTHXo)
6225 {
6226     return ((CPerlObj*)pPerl)->Perl_pp_gnbyname();
6227 }
6228
6229 #undef  Perl_pp_gnetent
6230 OP *
6231 Perl_pp_gnetent(pTHXo)
6232 {
6233     return ((CPerlObj*)pPerl)->Perl_pp_gnetent();
6234 }
6235
6236 #undef  Perl_pp_goto
6237 OP *
6238 Perl_pp_goto(pTHXo)
6239 {
6240     return ((CPerlObj*)pPerl)->Perl_pp_goto();
6241 }
6242
6243 #undef  Perl_pp_gpbyname
6244 OP *
6245 Perl_pp_gpbyname(pTHXo)
6246 {
6247     return ((CPerlObj*)pPerl)->Perl_pp_gpbyname();
6248 }
6249
6250 #undef  Perl_pp_gpbynumber
6251 OP *
6252 Perl_pp_gpbynumber(pTHXo)
6253 {
6254     return ((CPerlObj*)pPerl)->Perl_pp_gpbynumber();
6255 }
6256
6257 #undef  Perl_pp_gprotoent
6258 OP *
6259 Perl_pp_gprotoent(pTHXo)
6260 {
6261     return ((CPerlObj*)pPerl)->Perl_pp_gprotoent();
6262 }
6263
6264 #undef  Perl_pp_gpwent
6265 OP *
6266 Perl_pp_gpwent(pTHXo)
6267 {
6268     return ((CPerlObj*)pPerl)->Perl_pp_gpwent();
6269 }
6270
6271 #undef  Perl_pp_gpwnam
6272 OP *
6273 Perl_pp_gpwnam(pTHXo)
6274 {
6275     return ((CPerlObj*)pPerl)->Perl_pp_gpwnam();
6276 }
6277
6278 #undef  Perl_pp_gpwuid
6279 OP *
6280 Perl_pp_gpwuid(pTHXo)
6281 {
6282     return ((CPerlObj*)pPerl)->Perl_pp_gpwuid();
6283 }
6284
6285 #undef  Perl_pp_grepstart
6286 OP *
6287 Perl_pp_grepstart(pTHXo)
6288 {
6289     return ((CPerlObj*)pPerl)->Perl_pp_grepstart();
6290 }
6291
6292 #undef  Perl_pp_grepwhile
6293 OP *
6294 Perl_pp_grepwhile(pTHXo)
6295 {
6296     return ((CPerlObj*)pPerl)->Perl_pp_grepwhile();
6297 }
6298
6299 #undef  Perl_pp_gsbyname
6300 OP *
6301 Perl_pp_gsbyname(pTHXo)
6302 {
6303     return ((CPerlObj*)pPerl)->Perl_pp_gsbyname();
6304 }
6305
6306 #undef  Perl_pp_gsbyport
6307 OP *
6308 Perl_pp_gsbyport(pTHXo)
6309 {
6310     return ((CPerlObj*)pPerl)->Perl_pp_gsbyport();
6311 }
6312
6313 #undef  Perl_pp_gservent
6314 OP *
6315 Perl_pp_gservent(pTHXo)
6316 {
6317     return ((CPerlObj*)pPerl)->Perl_pp_gservent();
6318 }
6319
6320 #undef  Perl_pp_gsockopt
6321 OP *
6322 Perl_pp_gsockopt(pTHXo)
6323 {
6324     return ((CPerlObj*)pPerl)->Perl_pp_gsockopt();
6325 }
6326
6327 #undef  Perl_pp_gt
6328 OP *
6329 Perl_pp_gt(pTHXo)
6330 {
6331     return ((CPerlObj*)pPerl)->Perl_pp_gt();
6332 }
6333
6334 #undef  Perl_pp_gv
6335 OP *
6336 Perl_pp_gv(pTHXo)
6337 {
6338     return ((CPerlObj*)pPerl)->Perl_pp_gv();
6339 }
6340
6341 #undef  Perl_pp_gvsv
6342 OP *
6343 Perl_pp_gvsv(pTHXo)
6344 {
6345     return ((CPerlObj*)pPerl)->Perl_pp_gvsv();
6346 }
6347
6348 #undef  Perl_pp_helem
6349 OP *
6350 Perl_pp_helem(pTHXo)
6351 {
6352     return ((CPerlObj*)pPerl)->Perl_pp_helem();
6353 }
6354
6355 #undef  Perl_pp_hex
6356 OP *
6357 Perl_pp_hex(pTHXo)
6358 {
6359     return ((CPerlObj*)pPerl)->Perl_pp_hex();
6360 }
6361
6362 #undef  Perl_pp_hslice
6363 OP *
6364 Perl_pp_hslice(pTHXo)
6365 {
6366     return ((CPerlObj*)pPerl)->Perl_pp_hslice();
6367 }
6368
6369 #undef  Perl_pp_i_add
6370 OP *
6371 Perl_pp_i_add(pTHXo)
6372 {
6373     return ((CPerlObj*)pPerl)->Perl_pp_i_add();
6374 }
6375
6376 #undef  Perl_pp_i_divide
6377 OP *
6378 Perl_pp_i_divide(pTHXo)
6379 {
6380     return ((CPerlObj*)pPerl)->Perl_pp_i_divide();
6381 }
6382
6383 #undef  Perl_pp_i_eq
6384 OP *
6385 Perl_pp_i_eq(pTHXo)
6386 {
6387     return ((CPerlObj*)pPerl)->Perl_pp_i_eq();
6388 }
6389
6390 #undef  Perl_pp_i_ge
6391 OP *
6392 Perl_pp_i_ge(pTHXo)
6393 {
6394     return ((CPerlObj*)pPerl)->Perl_pp_i_ge();
6395 }
6396
6397 #undef  Perl_pp_i_gt
6398 OP *
6399 Perl_pp_i_gt(pTHXo)
6400 {
6401     return ((CPerlObj*)pPerl)->Perl_pp_i_gt();
6402 }
6403
6404 #undef  Perl_pp_i_le
6405 OP *
6406 Perl_pp_i_le(pTHXo)
6407 {
6408     return ((CPerlObj*)pPerl)->Perl_pp_i_le();
6409 }
6410
6411 #undef  Perl_pp_i_lt
6412 OP *
6413 Perl_pp_i_lt(pTHXo)
6414 {
6415     return ((CPerlObj*)pPerl)->Perl_pp_i_lt();
6416 }
6417
6418 #undef  Perl_pp_i_modulo
6419 OP *
6420 Perl_pp_i_modulo(pTHXo)
6421 {
6422     return ((CPerlObj*)pPerl)->Perl_pp_i_modulo();
6423 }
6424
6425 #undef  Perl_pp_i_multiply
6426 OP *
6427 Perl_pp_i_multiply(pTHXo)
6428 {
6429     return ((CPerlObj*)pPerl)->Perl_pp_i_multiply();
6430 }
6431
6432 #undef  Perl_pp_i_ncmp
6433 OP *
6434 Perl_pp_i_ncmp(pTHXo)
6435 {
6436     return ((CPerlObj*)pPerl)->Perl_pp_i_ncmp();
6437 }
6438
6439 #undef  Perl_pp_i_ne
6440 OP *
6441 Perl_pp_i_ne(pTHXo)
6442 {
6443     return ((CPerlObj*)pPerl)->Perl_pp_i_ne();
6444 }
6445
6446 #undef  Perl_pp_i_negate
6447 OP *
6448 Perl_pp_i_negate(pTHXo)
6449 {
6450     return ((CPerlObj*)pPerl)->Perl_pp_i_negate();
6451 }
6452
6453 #undef  Perl_pp_i_subtract
6454 OP *
6455 Perl_pp_i_subtract(pTHXo)
6456 {
6457     return ((CPerlObj*)pPerl)->Perl_pp_i_subtract();
6458 }
6459
6460 #undef  Perl_pp_index
6461 OP *
6462 Perl_pp_index(pTHXo)
6463 {
6464     return ((CPerlObj*)pPerl)->Perl_pp_index();
6465 }
6466
6467 #undef  Perl_pp_int
6468 OP *
6469 Perl_pp_int(pTHXo)
6470 {
6471     return ((CPerlObj*)pPerl)->Perl_pp_int();
6472 }
6473
6474 #undef  Perl_pp_ioctl
6475 OP *
6476 Perl_pp_ioctl(pTHXo)
6477 {
6478     return ((CPerlObj*)pPerl)->Perl_pp_ioctl();
6479 }
6480
6481 #undef  Perl_pp_iter
6482 OP *
6483 Perl_pp_iter(pTHXo)
6484 {
6485     return ((CPerlObj*)pPerl)->Perl_pp_iter();
6486 }
6487
6488 #undef  Perl_pp_join
6489 OP *
6490 Perl_pp_join(pTHXo)
6491 {
6492     return ((CPerlObj*)pPerl)->Perl_pp_join();
6493 }
6494
6495 #undef  Perl_pp_keys
6496 OP *
6497 Perl_pp_keys(pTHXo)
6498 {
6499     return ((CPerlObj*)pPerl)->Perl_pp_keys();
6500 }
6501
6502 #undef  Perl_pp_kill
6503 OP *
6504 Perl_pp_kill(pTHXo)
6505 {
6506     return ((CPerlObj*)pPerl)->Perl_pp_kill();
6507 }
6508
6509 #undef  Perl_pp_last
6510 OP *
6511 Perl_pp_last(pTHXo)
6512 {
6513     return ((CPerlObj*)pPerl)->Perl_pp_last();
6514 }
6515
6516 #undef  Perl_pp_lc
6517 OP *
6518 Perl_pp_lc(pTHXo)
6519 {
6520     return ((CPerlObj*)pPerl)->Perl_pp_lc();
6521 }
6522
6523 #undef  Perl_pp_lcfirst
6524 OP *
6525 Perl_pp_lcfirst(pTHXo)
6526 {
6527     return ((CPerlObj*)pPerl)->Perl_pp_lcfirst();
6528 }
6529
6530 #undef  Perl_pp_le
6531 OP *
6532 Perl_pp_le(pTHXo)
6533 {
6534     return ((CPerlObj*)pPerl)->Perl_pp_le();
6535 }
6536
6537 #undef  Perl_pp_leave
6538 OP *
6539 Perl_pp_leave(pTHXo)
6540 {
6541     return ((CPerlObj*)pPerl)->Perl_pp_leave();
6542 }
6543
6544 #undef  Perl_pp_leaveeval
6545 OP *
6546 Perl_pp_leaveeval(pTHXo)
6547 {
6548     return ((CPerlObj*)pPerl)->Perl_pp_leaveeval();
6549 }
6550
6551 #undef  Perl_pp_leaveloop
6552 OP *
6553 Perl_pp_leaveloop(pTHXo)
6554 {
6555     return ((CPerlObj*)pPerl)->Perl_pp_leaveloop();
6556 }
6557
6558 #undef  Perl_pp_leavesub
6559 OP *
6560 Perl_pp_leavesub(pTHXo)
6561 {
6562     return ((CPerlObj*)pPerl)->Perl_pp_leavesub();
6563 }
6564
6565 #undef  Perl_pp_leavesublv
6566 OP *
6567 Perl_pp_leavesublv(pTHXo)
6568 {
6569     return ((CPerlObj*)pPerl)->Perl_pp_leavesublv();
6570 }
6571
6572 #undef  Perl_pp_leavetry
6573 OP *
6574 Perl_pp_leavetry(pTHXo)
6575 {
6576     return ((CPerlObj*)pPerl)->Perl_pp_leavetry();
6577 }
6578
6579 #undef  Perl_pp_leavewrite
6580 OP *
6581 Perl_pp_leavewrite(pTHXo)
6582 {
6583     return ((CPerlObj*)pPerl)->Perl_pp_leavewrite();
6584 }
6585
6586 #undef  Perl_pp_left_shift
6587 OP *
6588 Perl_pp_left_shift(pTHXo)
6589 {
6590     return ((CPerlObj*)pPerl)->Perl_pp_left_shift();
6591 }
6592
6593 #undef  Perl_pp_length
6594 OP *
6595 Perl_pp_length(pTHXo)
6596 {
6597     return ((CPerlObj*)pPerl)->Perl_pp_length();
6598 }
6599
6600 #undef  Perl_pp_lineseq
6601 OP *
6602 Perl_pp_lineseq(pTHXo)
6603 {
6604     return ((CPerlObj*)pPerl)->Perl_pp_lineseq();
6605 }
6606
6607 #undef  Perl_pp_link
6608 OP *
6609 Perl_pp_link(pTHXo)
6610 {
6611     return ((CPerlObj*)pPerl)->Perl_pp_link();
6612 }
6613
6614 #undef  Perl_pp_list
6615 OP *
6616 Perl_pp_list(pTHXo)
6617 {
6618     return ((CPerlObj*)pPerl)->Perl_pp_list();
6619 }
6620
6621 #undef  Perl_pp_listen
6622 OP *
6623 Perl_pp_listen(pTHXo)
6624 {
6625     return ((CPerlObj*)pPerl)->Perl_pp_listen();
6626 }
6627
6628 #undef  Perl_pp_localtime
6629 OP *
6630 Perl_pp_localtime(pTHXo)
6631 {
6632     return ((CPerlObj*)pPerl)->Perl_pp_localtime();
6633 }
6634
6635 #undef  Perl_pp_lock
6636 OP *
6637 Perl_pp_lock(pTHXo)
6638 {
6639     return ((CPerlObj*)pPerl)->Perl_pp_lock();
6640 }
6641
6642 #undef  Perl_pp_log
6643 OP *
6644 Perl_pp_log(pTHXo)
6645 {
6646     return ((CPerlObj*)pPerl)->Perl_pp_log();
6647 }
6648
6649 #undef  Perl_pp_lslice
6650 OP *
6651 Perl_pp_lslice(pTHXo)
6652 {
6653     return ((CPerlObj*)pPerl)->Perl_pp_lslice();
6654 }
6655
6656 #undef  Perl_pp_lstat
6657 OP *
6658 Perl_pp_lstat(pTHXo)
6659 {
6660     return ((CPerlObj*)pPerl)->Perl_pp_lstat();
6661 }
6662
6663 #undef  Perl_pp_lt
6664 OP *
6665 Perl_pp_lt(pTHXo)
6666 {
6667     return ((CPerlObj*)pPerl)->Perl_pp_lt();
6668 }
6669
6670 #undef  Perl_pp_mapstart
6671 OP *
6672 Perl_pp_mapstart(pTHXo)
6673 {
6674     return ((CPerlObj*)pPerl)->Perl_pp_mapstart();
6675 }
6676
6677 #undef  Perl_pp_mapwhile
6678 OP *
6679 Perl_pp_mapwhile(pTHXo)
6680 {
6681     return ((CPerlObj*)pPerl)->Perl_pp_mapwhile();
6682 }
6683
6684 #undef  Perl_pp_match
6685 OP *
6686 Perl_pp_match(pTHXo)
6687 {
6688     return ((CPerlObj*)pPerl)->Perl_pp_match();
6689 }
6690
6691 #undef  Perl_pp_method
6692 OP *
6693 Perl_pp_method(pTHXo)
6694 {
6695     return ((CPerlObj*)pPerl)->Perl_pp_method();
6696 }
6697
6698 #undef  Perl_pp_method_named
6699 OP *
6700 Perl_pp_method_named(pTHXo)
6701 {
6702     return ((CPerlObj*)pPerl)->Perl_pp_method_named();
6703 }
6704
6705 #undef  Perl_pp_mkdir
6706 OP *
6707 Perl_pp_mkdir(pTHXo)
6708 {
6709     return ((CPerlObj*)pPerl)->Perl_pp_mkdir();
6710 }
6711
6712 #undef  Perl_pp_modulo
6713 OP *
6714 Perl_pp_modulo(pTHXo)
6715 {
6716     return ((CPerlObj*)pPerl)->Perl_pp_modulo();
6717 }
6718
6719 #undef  Perl_pp_msgctl
6720 OP *
6721 Perl_pp_msgctl(pTHXo)
6722 {
6723     return ((CPerlObj*)pPerl)->Perl_pp_msgctl();
6724 }
6725
6726 #undef  Perl_pp_msgget
6727 OP *
6728 Perl_pp_msgget(pTHXo)
6729 {
6730     return ((CPerlObj*)pPerl)->Perl_pp_msgget();
6731 }
6732
6733 #undef  Perl_pp_msgrcv
6734 OP *
6735 Perl_pp_msgrcv(pTHXo)
6736 {
6737     return ((CPerlObj*)pPerl)->Perl_pp_msgrcv();
6738 }
6739
6740 #undef  Perl_pp_msgsnd
6741 OP *
6742 Perl_pp_msgsnd(pTHXo)
6743 {
6744     return ((CPerlObj*)pPerl)->Perl_pp_msgsnd();
6745 }
6746
6747 #undef  Perl_pp_multiply
6748 OP *
6749 Perl_pp_multiply(pTHXo)
6750 {
6751     return ((CPerlObj*)pPerl)->Perl_pp_multiply();
6752 }
6753
6754 #undef  Perl_pp_ncmp
6755 OP *
6756 Perl_pp_ncmp(pTHXo)
6757 {
6758     return ((CPerlObj*)pPerl)->Perl_pp_ncmp();
6759 }
6760
6761 #undef  Perl_pp_ne
6762 OP *
6763 Perl_pp_ne(pTHXo)
6764 {
6765     return ((CPerlObj*)pPerl)->Perl_pp_ne();
6766 }
6767
6768 #undef  Perl_pp_negate
6769 OP *
6770 Perl_pp_negate(pTHXo)
6771 {
6772     return ((CPerlObj*)pPerl)->Perl_pp_negate();
6773 }
6774
6775 #undef  Perl_pp_next
6776 OP *
6777 Perl_pp_next(pTHXo)
6778 {
6779     return ((CPerlObj*)pPerl)->Perl_pp_next();
6780 }
6781
6782 #undef  Perl_pp_nextstate
6783 OP *
6784 Perl_pp_nextstate(pTHXo)
6785 {
6786     return ((CPerlObj*)pPerl)->Perl_pp_nextstate();
6787 }
6788
6789 #undef  Perl_pp_not
6790 OP *
6791 Perl_pp_not(pTHXo)
6792 {
6793     return ((CPerlObj*)pPerl)->Perl_pp_not();
6794 }
6795
6796 #undef  Perl_pp_null
6797 OP *
6798 Perl_pp_null(pTHXo)
6799 {
6800     return ((CPerlObj*)pPerl)->Perl_pp_null();
6801 }
6802
6803 #undef  Perl_pp_oct
6804 OP *
6805 Perl_pp_oct(pTHXo)
6806 {
6807     return ((CPerlObj*)pPerl)->Perl_pp_oct();
6808 }
6809
6810 #undef  Perl_pp_open
6811 OP *
6812 Perl_pp_open(pTHXo)
6813 {
6814     return ((CPerlObj*)pPerl)->Perl_pp_open();
6815 }
6816
6817 #undef  Perl_pp_open_dir
6818 OP *
6819 Perl_pp_open_dir(pTHXo)
6820 {
6821     return ((CPerlObj*)pPerl)->Perl_pp_open_dir();
6822 }
6823
6824 #undef  Perl_pp_or
6825 OP *
6826 Perl_pp_or(pTHXo)
6827 {
6828     return ((CPerlObj*)pPerl)->Perl_pp_or();
6829 }
6830
6831 #undef  Perl_pp_orassign
6832 OP *
6833 Perl_pp_orassign(pTHXo)
6834 {
6835     return ((CPerlObj*)pPerl)->Perl_pp_orassign();
6836 }
6837
6838 #undef  Perl_pp_ord
6839 OP *
6840 Perl_pp_ord(pTHXo)
6841 {
6842     return ((CPerlObj*)pPerl)->Perl_pp_ord();
6843 }
6844
6845 #undef  Perl_pp_pack
6846 OP *
6847 Perl_pp_pack(pTHXo)
6848 {
6849     return ((CPerlObj*)pPerl)->Perl_pp_pack();
6850 }
6851
6852 #undef  Perl_pp_padany
6853 OP *
6854 Perl_pp_padany(pTHXo)
6855 {
6856     return ((CPerlObj*)pPerl)->Perl_pp_padany();
6857 }
6858
6859 #undef  Perl_pp_padav
6860 OP *
6861 Perl_pp_padav(pTHXo)
6862 {
6863     return ((CPerlObj*)pPerl)->Perl_pp_padav();
6864 }
6865
6866 #undef  Perl_pp_padhv
6867 OP *
6868 Perl_pp_padhv(pTHXo)
6869 {
6870     return ((CPerlObj*)pPerl)->Perl_pp_padhv();
6871 }
6872
6873 #undef  Perl_pp_padsv
6874 OP *
6875 Perl_pp_padsv(pTHXo)
6876 {
6877     return ((CPerlObj*)pPerl)->Perl_pp_padsv();
6878 }
6879
6880 #undef  Perl_pp_pipe_op
6881 OP *
6882 Perl_pp_pipe_op(pTHXo)
6883 {
6884     return ((CPerlObj*)pPerl)->Perl_pp_pipe_op();
6885 }
6886
6887 #undef  Perl_pp_pop
6888 OP *
6889 Perl_pp_pop(pTHXo)
6890 {
6891     return ((CPerlObj*)pPerl)->Perl_pp_pop();
6892 }
6893
6894 #undef  Perl_pp_pos
6895 OP *
6896 Perl_pp_pos(pTHXo)
6897 {
6898     return ((CPerlObj*)pPerl)->Perl_pp_pos();
6899 }
6900
6901 #undef  Perl_pp_postdec
6902 OP *
6903 Perl_pp_postdec(pTHXo)
6904 {
6905     return ((CPerlObj*)pPerl)->Perl_pp_postdec();
6906 }
6907
6908 #undef  Perl_pp_postinc
6909 OP *
6910 Perl_pp_postinc(pTHXo)
6911 {
6912     return ((CPerlObj*)pPerl)->Perl_pp_postinc();
6913 }
6914
6915 #undef  Perl_pp_pow
6916 OP *
6917 Perl_pp_pow(pTHXo)
6918 {
6919     return ((CPerlObj*)pPerl)->Perl_pp_pow();
6920 }
6921
6922 #undef  Perl_pp_predec
6923 OP *
6924 Perl_pp_predec(pTHXo)
6925 {
6926     return ((CPerlObj*)pPerl)->Perl_pp_predec();
6927 }
6928
6929 #undef  Perl_pp_preinc
6930 OP *
6931 Perl_pp_preinc(pTHXo)
6932 {
6933     return ((CPerlObj*)pPerl)->Perl_pp_preinc();
6934 }
6935
6936 #undef  Perl_pp_print
6937 OP *
6938 Perl_pp_print(pTHXo)
6939 {
6940     return ((CPerlObj*)pPerl)->Perl_pp_print();
6941 }
6942
6943 #undef  Perl_pp_prototype
6944 OP *
6945 Perl_pp_prototype(pTHXo)
6946 {
6947     return ((CPerlObj*)pPerl)->Perl_pp_prototype();
6948 }
6949
6950 #undef  Perl_pp_prtf
6951 OP *
6952 Perl_pp_prtf(pTHXo)
6953 {
6954     return ((CPerlObj*)pPerl)->Perl_pp_prtf();
6955 }
6956
6957 #undef  Perl_pp_push
6958 OP *
6959 Perl_pp_push(pTHXo)
6960 {
6961     return ((CPerlObj*)pPerl)->Perl_pp_push();
6962 }
6963
6964 #undef  Perl_pp_pushmark
6965 OP *
6966 Perl_pp_pushmark(pTHXo)
6967 {
6968     return ((CPerlObj*)pPerl)->Perl_pp_pushmark();
6969 }
6970
6971 #undef  Perl_pp_pushre
6972 OP *
6973 Perl_pp_pushre(pTHXo)
6974 {
6975     return ((CPerlObj*)pPerl)->Perl_pp_pushre();
6976 }
6977
6978 #undef  Perl_pp_qr
6979 OP *
6980 Perl_pp_qr(pTHXo)
6981 {
6982     return ((CPerlObj*)pPerl)->Perl_pp_qr();
6983 }
6984
6985 #undef  Perl_pp_quotemeta
6986 OP *
6987 Perl_pp_quotemeta(pTHXo)
6988 {
6989     return ((CPerlObj*)pPerl)->Perl_pp_quotemeta();
6990 }
6991
6992 #undef  Perl_pp_rand
6993 OP *
6994 Perl_pp_rand(pTHXo)
6995 {
6996     return ((CPerlObj*)pPerl)->Perl_pp_rand();
6997 }
6998
6999 #undef  Perl_pp_range
7000 OP *
7001 Perl_pp_range(pTHXo)
7002 {
7003     return ((CPerlObj*)pPerl)->Perl_pp_range();
7004 }
7005
7006 #undef  Perl_pp_rcatline
7007 OP *
7008 Perl_pp_rcatline(pTHXo)
7009 {
7010     return ((CPerlObj*)pPerl)->Perl_pp_rcatline();
7011 }
7012
7013 #undef  Perl_pp_read
7014 OP *
7015 Perl_pp_read(pTHXo)
7016 {
7017     return ((CPerlObj*)pPerl)->Perl_pp_read();
7018 }
7019
7020 #undef  Perl_pp_readdir
7021 OP *
7022 Perl_pp_readdir(pTHXo)
7023 {
7024     return ((CPerlObj*)pPerl)->Perl_pp_readdir();
7025 }
7026
7027 #undef  Perl_pp_readline
7028 OP *
7029 Perl_pp_readline(pTHXo)
7030 {
7031     return ((CPerlObj*)pPerl)->Perl_pp_readline();
7032 }
7033
7034 #undef  Perl_pp_readlink
7035 OP *
7036 Perl_pp_readlink(pTHXo)
7037 {
7038     return ((CPerlObj*)pPerl)->Perl_pp_readlink();
7039 }
7040
7041 #undef  Perl_pp_recv
7042 OP *
7043 Perl_pp_recv(pTHXo)
7044 {
7045     return ((CPerlObj*)pPerl)->Perl_pp_recv();
7046 }
7047
7048 #undef  Perl_pp_redo
7049 OP *
7050 Perl_pp_redo(pTHXo)
7051 {
7052     return ((CPerlObj*)pPerl)->Perl_pp_redo();
7053 }
7054
7055 #undef  Perl_pp_ref
7056 OP *
7057 Perl_pp_ref(pTHXo)
7058 {
7059     return ((CPerlObj*)pPerl)->Perl_pp_ref();
7060 }
7061
7062 #undef  Perl_pp_refgen
7063 OP *
7064 Perl_pp_refgen(pTHXo)
7065 {
7066     return ((CPerlObj*)pPerl)->Perl_pp_refgen();
7067 }
7068
7069 #undef  Perl_pp_regcmaybe
7070 OP *
7071 Perl_pp_regcmaybe(pTHXo)
7072 {
7073     return ((CPerlObj*)pPerl)->Perl_pp_regcmaybe();
7074 }
7075
7076 #undef  Perl_pp_regcomp
7077 OP *
7078 Perl_pp_regcomp(pTHXo)
7079 {
7080     return ((CPerlObj*)pPerl)->Perl_pp_regcomp();
7081 }
7082
7083 #undef  Perl_pp_regcreset
7084 OP *
7085 Perl_pp_regcreset(pTHXo)
7086 {
7087     return ((CPerlObj*)pPerl)->Perl_pp_regcreset();
7088 }
7089
7090 #undef  Perl_pp_rename
7091 OP *
7092 Perl_pp_rename(pTHXo)
7093 {
7094     return ((CPerlObj*)pPerl)->Perl_pp_rename();
7095 }
7096
7097 #undef  Perl_pp_repeat
7098 OP *
7099 Perl_pp_repeat(pTHXo)
7100 {
7101     return ((CPerlObj*)pPerl)->Perl_pp_repeat();
7102 }
7103
7104 #undef  Perl_pp_require
7105 OP *
7106 Perl_pp_require(pTHXo)
7107 {
7108     return ((CPerlObj*)pPerl)->Perl_pp_require();
7109 }
7110
7111 #undef  Perl_pp_reset
7112 OP *
7113 Perl_pp_reset(pTHXo)
7114 {
7115     return ((CPerlObj*)pPerl)->Perl_pp_reset();
7116 }
7117
7118 #undef  Perl_pp_return
7119 OP *
7120 Perl_pp_return(pTHXo)
7121 {
7122     return ((CPerlObj*)pPerl)->Perl_pp_return();
7123 }
7124
7125 #undef  Perl_pp_reverse
7126 OP *
7127 Perl_pp_reverse(pTHXo)
7128 {
7129     return ((CPerlObj*)pPerl)->Perl_pp_reverse();
7130 }
7131
7132 #undef  Perl_pp_rewinddir
7133 OP *
7134 Perl_pp_rewinddir(pTHXo)
7135 {
7136     return ((CPerlObj*)pPerl)->Perl_pp_rewinddir();
7137 }
7138
7139 #undef  Perl_pp_right_shift
7140 OP *
7141 Perl_pp_right_shift(pTHXo)
7142 {
7143     return ((CPerlObj*)pPerl)->Perl_pp_right_shift();
7144 }
7145
7146 #undef  Perl_pp_rindex
7147 OP *
7148 Perl_pp_rindex(pTHXo)
7149 {
7150     return ((CPerlObj*)pPerl)->Perl_pp_rindex();
7151 }
7152
7153 #undef  Perl_pp_rmdir
7154 OP *
7155 Perl_pp_rmdir(pTHXo)
7156 {
7157     return ((CPerlObj*)pPerl)->Perl_pp_rmdir();
7158 }
7159
7160 #undef  Perl_pp_rv2av
7161 OP *
7162 Perl_pp_rv2av(pTHXo)
7163 {
7164     return ((CPerlObj*)pPerl)->Perl_pp_rv2av();
7165 }
7166
7167 #undef  Perl_pp_rv2cv
7168 OP *
7169 Perl_pp_rv2cv(pTHXo)
7170 {
7171     return ((CPerlObj*)pPerl)->Perl_pp_rv2cv();
7172 }
7173
7174 #undef  Perl_pp_rv2gv
7175 OP *
7176 Perl_pp_rv2gv(pTHXo)
7177 {
7178     return ((CPerlObj*)pPerl)->Perl_pp_rv2gv();
7179 }
7180
7181 #undef  Perl_pp_rv2hv
7182 OP *
7183 Perl_pp_rv2hv(pTHXo)
7184 {
7185     return ((CPerlObj*)pPerl)->Perl_pp_rv2hv();
7186 }
7187
7188 #undef  Perl_pp_rv2sv
7189 OP *
7190 Perl_pp_rv2sv(pTHXo)
7191 {
7192     return ((CPerlObj*)pPerl)->Perl_pp_rv2sv();
7193 }
7194
7195 #undef  Perl_pp_sassign
7196 OP *
7197 Perl_pp_sassign(pTHXo)
7198 {
7199     return ((CPerlObj*)pPerl)->Perl_pp_sassign();
7200 }
7201
7202 #undef  Perl_pp_scalar
7203 OP *
7204 Perl_pp_scalar(pTHXo)
7205 {
7206     return ((CPerlObj*)pPerl)->Perl_pp_scalar();
7207 }
7208
7209 #undef  Perl_pp_schomp
7210 OP *
7211 Perl_pp_schomp(pTHXo)
7212 {
7213     return ((CPerlObj*)pPerl)->Perl_pp_schomp();
7214 }
7215
7216 #undef  Perl_pp_schop
7217 OP *
7218 Perl_pp_schop(pTHXo)
7219 {
7220     return ((CPerlObj*)pPerl)->Perl_pp_schop();
7221 }
7222
7223 #undef  Perl_pp_scmp
7224 OP *
7225 Perl_pp_scmp(pTHXo)
7226 {
7227     return ((CPerlObj*)pPerl)->Perl_pp_scmp();
7228 }
7229
7230 #undef  Perl_pp_scope
7231 OP *
7232 Perl_pp_scope(pTHXo)
7233 {
7234     return ((CPerlObj*)pPerl)->Perl_pp_scope();
7235 }
7236
7237 #undef  Perl_pp_seek
7238 OP *
7239 Perl_pp_seek(pTHXo)
7240 {
7241     return ((CPerlObj*)pPerl)->Perl_pp_seek();
7242 }
7243
7244 #undef  Perl_pp_seekdir
7245 OP *
7246 Perl_pp_seekdir(pTHXo)
7247 {
7248     return ((CPerlObj*)pPerl)->Perl_pp_seekdir();
7249 }
7250
7251 #undef  Perl_pp_select
7252 OP *
7253 Perl_pp_select(pTHXo)
7254 {
7255     return ((CPerlObj*)pPerl)->Perl_pp_select();
7256 }
7257
7258 #undef  Perl_pp_semctl
7259 OP *
7260 Perl_pp_semctl(pTHXo)
7261 {
7262     return ((CPerlObj*)pPerl)->Perl_pp_semctl();
7263 }
7264
7265 #undef  Perl_pp_semget
7266 OP *
7267 Perl_pp_semget(pTHXo)
7268 {
7269     return ((CPerlObj*)pPerl)->Perl_pp_semget();
7270 }
7271
7272 #undef  Perl_pp_semop
7273 OP *
7274 Perl_pp_semop(pTHXo)
7275 {
7276     return ((CPerlObj*)pPerl)->Perl_pp_semop();
7277 }
7278
7279 #undef  Perl_pp_send
7280 OP *
7281 Perl_pp_send(pTHXo)
7282 {
7283     return ((CPerlObj*)pPerl)->Perl_pp_send();
7284 }
7285
7286 #undef  Perl_pp_seq
7287 OP *
7288 Perl_pp_seq(pTHXo)
7289 {
7290     return ((CPerlObj*)pPerl)->Perl_pp_seq();
7291 }
7292
7293 #undef  Perl_pp_setpgrp
7294 OP *
7295 Perl_pp_setpgrp(pTHXo)
7296 {
7297     return ((CPerlObj*)pPerl)->Perl_pp_setpgrp();
7298 }
7299
7300 #undef  Perl_pp_setpriority
7301 OP *
7302 Perl_pp_setpriority(pTHXo)
7303 {
7304     return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
7305 }
7306
7307 #undef  Perl_pp_setstate
7308 OP *
7309 Perl_pp_setstate(pTHXo)
7310 {
7311     return ((CPerlObj*)pPerl)->Perl_pp_setstate();
7312 }
7313
7314 #undef  Perl_pp_sge
7315 OP *
7316 Perl_pp_sge(pTHXo)
7317 {
7318     return ((CPerlObj*)pPerl)->Perl_pp_sge();
7319 }
7320
7321 #undef  Perl_pp_sgrent
7322 OP *
7323 Perl_pp_sgrent(pTHXo)
7324 {
7325     return ((CPerlObj*)pPerl)->Perl_pp_sgrent();
7326 }
7327
7328 #undef  Perl_pp_sgt
7329 OP *
7330 Perl_pp_sgt(pTHXo)
7331 {
7332     return ((CPerlObj*)pPerl)->Perl_pp_sgt();
7333 }
7334
7335 #undef  Perl_pp_shift
7336 OP *
7337 Perl_pp_shift(pTHXo)
7338 {
7339     return ((CPerlObj*)pPerl)->Perl_pp_shift();
7340 }
7341
7342 #undef  Perl_pp_shmctl
7343 OP *
7344 Perl_pp_shmctl(pTHXo)
7345 {
7346     return ((CPerlObj*)pPerl)->Perl_pp_shmctl();
7347 }
7348
7349 #undef  Perl_pp_shmget
7350 OP *
7351 Perl_pp_shmget(pTHXo)
7352 {
7353     return ((CPerlObj*)pPerl)->Perl_pp_shmget();
7354 }
7355
7356 #undef  Perl_pp_shmread
7357 OP *
7358 Perl_pp_shmread(pTHXo)
7359 {
7360     return ((CPerlObj*)pPerl)->Perl_pp_shmread();
7361 }
7362
7363 #undef  Perl_pp_shmwrite
7364 OP *
7365 Perl_pp_shmwrite(pTHXo)
7366 {
7367     return ((CPerlObj*)pPerl)->Perl_pp_shmwrite();
7368 }
7369
7370 #undef  Perl_pp_shostent
7371 OP *
7372 Perl_pp_shostent(pTHXo)
7373 {
7374     return ((CPerlObj*)pPerl)->Perl_pp_shostent();
7375 }
7376
7377 #undef  Perl_pp_shutdown
7378 OP *
7379 Perl_pp_shutdown(pTHXo)
7380 {
7381     return ((CPerlObj*)pPerl)->Perl_pp_shutdown();
7382 }
7383
7384 #undef  Perl_pp_sin
7385 OP *
7386 Perl_pp_sin(pTHXo)
7387 {
7388     return ((CPerlObj*)pPerl)->Perl_pp_sin();
7389 }
7390
7391 #undef  Perl_pp_sle
7392 OP *
7393 Perl_pp_sle(pTHXo)
7394 {
7395     return ((CPerlObj*)pPerl)->Perl_pp_sle();
7396 }
7397
7398 #undef  Perl_pp_sleep
7399 OP *
7400 Perl_pp_sleep(pTHXo)
7401 {
7402     return ((CPerlObj*)pPerl)->Perl_pp_sleep();
7403 }
7404
7405 #undef  Perl_pp_slt
7406 OP *
7407 Perl_pp_slt(pTHXo)
7408 {
7409     return ((CPerlObj*)pPerl)->Perl_pp_slt();
7410 }
7411
7412 #undef  Perl_pp_sne
7413 OP *
7414 Perl_pp_sne(pTHXo)
7415 {
7416     return ((CPerlObj*)pPerl)->Perl_pp_sne();
7417 }
7418
7419 #undef  Perl_pp_snetent
7420 OP *
7421 Perl_pp_snetent(pTHXo)
7422 {
7423     return ((CPerlObj*)pPerl)->Perl_pp_snetent();
7424 }
7425
7426 #undef  Perl_pp_socket
7427 OP *
7428 Perl_pp_socket(pTHXo)
7429 {
7430     return ((CPerlObj*)pPerl)->Perl_pp_socket();
7431 }
7432
7433 #undef  Perl_pp_sockpair
7434 OP *
7435 Perl_pp_sockpair(pTHXo)
7436 {
7437     return ((CPerlObj*)pPerl)->Perl_pp_sockpair();
7438 }
7439
7440 #undef  Perl_pp_sort
7441 OP *
7442 Perl_pp_sort(pTHXo)
7443 {
7444     return ((CPerlObj*)pPerl)->Perl_pp_sort();
7445 }
7446
7447 #undef  Perl_pp_splice
7448 OP *
7449 Perl_pp_splice(pTHXo)
7450 {
7451     return ((CPerlObj*)pPerl)->Perl_pp_splice();
7452 }
7453
7454 #undef  Perl_pp_split
7455 OP *
7456 Perl_pp_split(pTHXo)
7457 {
7458     return ((CPerlObj*)pPerl)->Perl_pp_split();
7459 }
7460
7461 #undef  Perl_pp_sprintf
7462 OP *
7463 Perl_pp_sprintf(pTHXo)
7464 {
7465     return ((CPerlObj*)pPerl)->Perl_pp_sprintf();
7466 }
7467
7468 #undef  Perl_pp_sprotoent
7469 OP *
7470 Perl_pp_sprotoent(pTHXo)
7471 {
7472     return ((CPerlObj*)pPerl)->Perl_pp_sprotoent();
7473 }
7474
7475 #undef  Perl_pp_spwent
7476 OP *
7477 Perl_pp_spwent(pTHXo)
7478 {
7479     return ((CPerlObj*)pPerl)->Perl_pp_spwent();
7480 }
7481
7482 #undef  Perl_pp_sqrt
7483 OP *
7484 Perl_pp_sqrt(pTHXo)
7485 {
7486     return ((CPerlObj*)pPerl)->Perl_pp_sqrt();
7487 }
7488
7489 #undef  Perl_pp_srand
7490 OP *
7491 Perl_pp_srand(pTHXo)
7492 {
7493     return ((CPerlObj*)pPerl)->Perl_pp_srand();
7494 }
7495
7496 #undef  Perl_pp_srefgen
7497 OP *
7498 Perl_pp_srefgen(pTHXo)
7499 {
7500     return ((CPerlObj*)pPerl)->Perl_pp_srefgen();
7501 }
7502
7503 #undef  Perl_pp_sselect
7504 OP *
7505 Perl_pp_sselect(pTHXo)
7506 {
7507     return ((CPerlObj*)pPerl)->Perl_pp_sselect();
7508 }
7509
7510 #undef  Perl_pp_sservent
7511 OP *
7512 Perl_pp_sservent(pTHXo)
7513 {
7514     return ((CPerlObj*)pPerl)->Perl_pp_sservent();
7515 }
7516
7517 #undef  Perl_pp_ssockopt
7518 OP *
7519 Perl_pp_ssockopt(pTHXo)
7520 {
7521     return ((CPerlObj*)pPerl)->Perl_pp_ssockopt();
7522 }
7523
7524 #undef  Perl_pp_stat
7525 OP *
7526 Perl_pp_stat(pTHXo)
7527 {
7528     return ((CPerlObj*)pPerl)->Perl_pp_stat();
7529 }
7530
7531 #undef  Perl_pp_stringify
7532 OP *
7533 Perl_pp_stringify(pTHXo)
7534 {
7535     return ((CPerlObj*)pPerl)->Perl_pp_stringify();
7536 }
7537
7538 #undef  Perl_pp_stub
7539 OP *
7540 Perl_pp_stub(pTHXo)
7541 {
7542     return ((CPerlObj*)pPerl)->Perl_pp_stub();
7543 }
7544
7545 #undef  Perl_pp_study
7546 OP *
7547 Perl_pp_study(pTHXo)
7548 {
7549     return ((CPerlObj*)pPerl)->Perl_pp_study();
7550 }
7551
7552 #undef  Perl_pp_subst
7553 OP *
7554 Perl_pp_subst(pTHXo)
7555 {
7556     return ((CPerlObj*)pPerl)->Perl_pp_subst();
7557 }
7558
7559 #undef  Perl_pp_substcont
7560 OP *
7561 Perl_pp_substcont(pTHXo)
7562 {
7563     return ((CPerlObj*)pPerl)->Perl_pp_substcont();
7564 }
7565
7566 #undef  Perl_pp_substr
7567 OP *
7568 Perl_pp_substr(pTHXo)
7569 {
7570     return ((CPerlObj*)pPerl)->Perl_pp_substr();
7571 }
7572
7573 #undef  Perl_pp_subtract
7574 OP *
7575 Perl_pp_subtract(pTHXo)
7576 {
7577     return ((CPerlObj*)pPerl)->Perl_pp_subtract();
7578 }
7579
7580 #undef  Perl_pp_symlink
7581 OP *
7582 Perl_pp_symlink(pTHXo)
7583 {
7584     return ((CPerlObj*)pPerl)->Perl_pp_symlink();
7585 }
7586
7587 #undef  Perl_pp_syscall
7588 OP *
7589 Perl_pp_syscall(pTHXo)
7590 {
7591     return ((CPerlObj*)pPerl)->Perl_pp_syscall();
7592 }
7593
7594 #undef  Perl_pp_sysopen
7595 OP *
7596 Perl_pp_sysopen(pTHXo)
7597 {
7598     return ((CPerlObj*)pPerl)->Perl_pp_sysopen();
7599 }
7600
7601 #undef  Perl_pp_sysread
7602 OP *
7603 Perl_pp_sysread(pTHXo)
7604 {
7605     return ((CPerlObj*)pPerl)->Perl_pp_sysread();
7606 }
7607
7608 #undef  Perl_pp_sysseek
7609 OP *
7610 Perl_pp_sysseek(pTHXo)
7611 {
7612     return ((CPerlObj*)pPerl)->Perl_pp_sysseek();
7613 }
7614
7615 #undef  Perl_pp_system
7616 OP *
7617 Perl_pp_system(pTHXo)
7618 {
7619     return ((CPerlObj*)pPerl)->Perl_pp_system();
7620 }
7621
7622 #undef  Perl_pp_syswrite
7623 OP *
7624 Perl_pp_syswrite(pTHXo)
7625 {
7626     return ((CPerlObj*)pPerl)->Perl_pp_syswrite();
7627 }
7628
7629 #undef  Perl_pp_tell
7630 OP *
7631 Perl_pp_tell(pTHXo)
7632 {
7633     return ((CPerlObj*)pPerl)->Perl_pp_tell();
7634 }
7635
7636 #undef  Perl_pp_telldir
7637 OP *
7638 Perl_pp_telldir(pTHXo)
7639 {
7640     return ((CPerlObj*)pPerl)->Perl_pp_telldir();
7641 }
7642
7643 #undef  Perl_pp_threadsv
7644 OP *
7645 Perl_pp_threadsv(pTHXo)
7646 {
7647     return ((CPerlObj*)pPerl)->Perl_pp_threadsv();
7648 }
7649
7650 #undef  Perl_pp_tie
7651 OP *
7652 Perl_pp_tie(pTHXo)
7653 {
7654     return ((CPerlObj*)pPerl)->Perl_pp_tie();
7655 }
7656
7657 #undef  Perl_pp_tied
7658 OP *
7659 Perl_pp_tied(pTHXo)
7660 {
7661     return ((CPerlObj*)pPerl)->Perl_pp_tied();
7662 }
7663
7664 #undef  Perl_pp_time
7665 OP *
7666 Perl_pp_time(pTHXo)
7667 {
7668     return ((CPerlObj*)pPerl)->Perl_pp_time();
7669 }
7670
7671 #undef  Perl_pp_tms
7672 OP *
7673 Perl_pp_tms(pTHXo)
7674 {
7675     return ((CPerlObj*)pPerl)->Perl_pp_tms();
7676 }
7677
7678 #undef  Perl_pp_trans
7679 OP *
7680 Perl_pp_trans(pTHXo)
7681 {
7682     return ((CPerlObj*)pPerl)->Perl_pp_trans();
7683 }
7684
7685 #undef  Perl_pp_truncate
7686 OP *
7687 Perl_pp_truncate(pTHXo)
7688 {
7689     return ((CPerlObj*)pPerl)->Perl_pp_truncate();
7690 }
7691
7692 #undef  Perl_pp_uc
7693 OP *
7694 Perl_pp_uc(pTHXo)
7695 {
7696     return ((CPerlObj*)pPerl)->Perl_pp_uc();
7697 }
7698
7699 #undef  Perl_pp_ucfirst
7700 OP *
7701 Perl_pp_ucfirst(pTHXo)
7702 {
7703     return ((CPerlObj*)pPerl)->Perl_pp_ucfirst();
7704 }
7705
7706 #undef  Perl_pp_umask
7707 OP *
7708 Perl_pp_umask(pTHXo)
7709 {
7710     return ((CPerlObj*)pPerl)->Perl_pp_umask();
7711 }
7712
7713 #undef  Perl_pp_undef
7714 OP *
7715 Perl_pp_undef(pTHXo)
7716 {
7717     return ((CPerlObj*)pPerl)->Perl_pp_undef();
7718 }
7719
7720 #undef  Perl_pp_unlink
7721 OP *
7722 Perl_pp_unlink(pTHXo)
7723 {
7724     return ((CPerlObj*)pPerl)->Perl_pp_unlink();
7725 }
7726
7727 #undef  Perl_pp_unpack
7728 OP *
7729 Perl_pp_unpack(pTHXo)
7730 {
7731     return ((CPerlObj*)pPerl)->Perl_pp_unpack();
7732 }
7733
7734 #undef  Perl_pp_unshift
7735 OP *
7736 Perl_pp_unshift(pTHXo)
7737 {
7738     return ((CPerlObj*)pPerl)->Perl_pp_unshift();
7739 }
7740
7741 #undef  Perl_pp_unstack
7742 OP *
7743 Perl_pp_unstack(pTHXo)
7744 {
7745     return ((CPerlObj*)pPerl)->Perl_pp_unstack();
7746 }
7747
7748 #undef  Perl_pp_untie
7749 OP *
7750 Perl_pp_untie(pTHXo)
7751 {
7752     return ((CPerlObj*)pPerl)->Perl_pp_untie();
7753 }
7754
7755 #undef  Perl_pp_utime
7756 OP *
7757 Perl_pp_utime(pTHXo)
7758 {
7759     return ((CPerlObj*)pPerl)->Perl_pp_utime();
7760 }
7761
7762 #undef  Perl_pp_values
7763 OP *
7764 Perl_pp_values(pTHXo)
7765 {
7766     return ((CPerlObj*)pPerl)->Perl_pp_values();
7767 }
7768
7769 #undef  Perl_pp_vec
7770 OP *
7771 Perl_pp_vec(pTHXo)
7772 {
7773     return ((CPerlObj*)pPerl)->Perl_pp_vec();
7774 }
7775
7776 #undef  Perl_pp_wait
7777 OP *
7778 Perl_pp_wait(pTHXo)
7779 {
7780     return ((CPerlObj*)pPerl)->Perl_pp_wait();
7781 }
7782
7783 #undef  Perl_pp_waitpid
7784 OP *
7785 Perl_pp_waitpid(pTHXo)
7786 {
7787     return ((CPerlObj*)pPerl)->Perl_pp_waitpid();
7788 }
7789
7790 #undef  Perl_pp_wantarray
7791 OP *
7792 Perl_pp_wantarray(pTHXo)
7793 {
7794     return ((CPerlObj*)pPerl)->Perl_pp_wantarray();
7795 }
7796
7797 #undef  Perl_pp_warn
7798 OP *
7799 Perl_pp_warn(pTHXo)
7800 {
7801     return ((CPerlObj*)pPerl)->Perl_pp_warn();
7802 }
7803
7804 #undef  Perl_pp_xor
7805 OP *
7806 Perl_pp_xor(pTHXo)
7807 {
7808     return ((CPerlObj*)pPerl)->Perl_pp_xor();
7809 }
7810
7811 #undef Perl_fprintf_nocontext
7812 int
7813 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
7814 {
7815     dTHXo;
7816     va_list(arglist);
7817     va_start(arglist, format);
7818     return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
7819 }
7820
7821 END_EXTERN_C
7822
7823 #endif /* PERL_OBJECT */