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