perlapi.c

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