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