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) || defined (MULTIPLICITY)
  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
  20 #if defined(PERL_OBJECT)
  21 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
  22                         { return &(aTHXo->interp.v); }
  23 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
  24                         { return &(aTHXo->interp.v); }
  25 #else   /* MULTIPLICITY */
  26 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHX)                         \
  27                         { return &(aTHX->v); }
  28 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX)                \
  29                         { return &(aTHX->v); }
  30 #endif
  31
  32 #define PERLVARI(v,t,i) PERLVAR(v,t)
  33 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
  34
  35 #include "thrdvar.h"
  36 #include "intrpvar.h"
  37
  38 #undef PERLVAR
  39 #undef PERLVARA
  40 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
  41                         { return &(PL_##v); }
  42 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
  43                         { return &(PL_##v); }
  44 #include "perlvars.h"
  45
  46 #undef PERLVAR
  47 #undef PERLVARA
  48 #undef PERLVARI
  49 #undef PERLVARIC
  50
  51 #if defined(PERL_OBJECT)
  52
  53 /* C-API layer for PERL_OBJECT */
  54
  55 #if defined(PERL_IMPLICIT_SYS)
  56 #endif
  57 #if defined(USE_ITHREADS)
  58 #  if defined(PERL_IMPLICIT_SYS)
  59 #  endif
  60 #endif
  61 #if defined(MYMALLOC)
  62 #endif
  63 #if defined(PERL_OBJECT)
  64 #ifndef __BORLANDC__
  65 #endif
  66 #endif
  67 #if defined(PERL_OBJECT)
  68 #else
  69 #endif
  70
  71 #undef  Perl_amagic_call
  72 SV*
  73 Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir)
  74 {
  75     return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir);
  76 }
  77
  78 #undef  Perl_Gv_AMupdate
  79 bool
  80 Perl_Gv_AMupdate(pTHXo_ HV* stash)
  81 {
  82     return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
  83 }
  84
  85 #undef  Perl_avhv_delete_ent
  86 SV*
  87 Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash)
  88 {
  89     return ((CPerlObj*)pPerl)->Perl_avhv_delete_ent(ar, keysv, flags, hash);
  90 }
  91
  92 #undef  Perl_avhv_exists_ent
  93 bool
  94 Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)
  95 {
  96     return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash);
  97 }
  98
  99 #undef  Perl_avhv_fetch_ent
 100 SV**
 101 Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash)
 102 {
 103     return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash);
 104 }
 105
 106 #undef  Perl_avhv_iternext
 107 HE*
 108 Perl_avhv_iternext(pTHXo_ AV *ar)
 109 {
 110     return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar);
 111 }
 112
 113 #undef  Perl_avhv_iterval
 114 SV*
 115 Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry)
 116 {
 117     return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry);
 118 }
 119
 120 #undef  Perl_avhv_keys
 121 HV*
 122 Perl_avhv_keys(pTHXo_ AV *ar)
 123 {
 124     return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar);
 125 }
 126
 127 #undef  Perl_av_clear
 128 void
 129 Perl_av_clear(pTHXo_ AV* ar)
 130 {
 131     ((CPerlObj*)pPerl)->Perl_av_clear(ar);
 132 }
 133
 134 #undef  Perl_av_delete
 135 SV*
 136 Perl_av_delete(pTHXo_ AV* ar, I32 key, I32 flags)
 137 {
 138     return ((CPerlObj*)pPerl)->Perl_av_delete(ar, key, flags);
 139 }
 140
 141 #undef  Perl_av_exists
 142 bool
 143 Perl_av_exists(pTHXo_ AV* ar, I32 key)
 144 {
 145     return ((CPerlObj*)pPerl)->Perl_av_exists(ar, key);
 146 }
 147
 148 #undef  Perl_av_extend
 149 void
 150 Perl_av_extend(pTHXo_ AV* ar, I32 key)
 151 {
 152     ((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
 153 }
 154
 155 #undef  Perl_av_fake
 156 AV*
 157 Perl_av_fake(pTHXo_ I32 size, SV** svp)
 158 {
 159     return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
 160 }
 161
 162 #undef  Perl_av_fetch
 163 SV**
 164 Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
 165 {
 166     return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval);
 167 }
 168
 169 #undef  Perl_av_fill
 170 void
 171 Perl_av_fill(pTHXo_ AV* ar, I32 fill)
 172 {
 173     ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill);
 174 }
 175
 176 #undef  Perl_av_len
 177 I32
 178 Perl_av_len(pTHXo_ AV* ar)
 179 {
 180     return ((CPerlObj*)pPerl)->Perl_av_len(ar);
 181 }
 182
 183 #undef  Perl_av_make
 184 AV*
 185 Perl_av_make(pTHXo_ I32 size, SV** svp)
 186 {
 187     return ((CPerlObj*)pPerl)->Perl_av_make(size, svp);
 188 }
 189
 190 #undef  Perl_av_pop
 191 SV*
 192 Perl_av_pop(pTHXo_ AV* ar)
 193 {
 194     return ((CPerlObj*)pPerl)->Perl_av_pop(ar);
 195 }
 196
 197 #undef  Perl_av_push
 198 void
 199 Perl_av_push(pTHXo_ AV* ar, SV* val)
 200 {
 201     ((CPerlObj*)pPerl)->Perl_av_push(ar, val);
 202 }
 203
 204 #undef  Perl_av_reify
 205 void
 206 Perl_av_reify(pTHXo_ AV* ar)
 207 {
 208     ((CPerlObj*)pPerl)->Perl_av_reify(ar);
 209 }
 210
 211 #undef  Perl_av_shift
 212 SV*
 213 Perl_av_shift(pTHXo_ AV* ar)
 214 {
 215     return ((CPerlObj*)pPerl)->Perl_av_shift(ar);
 216 }
 217
 218 #undef  Perl_av_store
 219 SV**
 220 Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val)
 221 {
 222     return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val);
 223 }
 224
 225 #undef  Perl_av_undef
 226 void
 227 Perl_av_undef(pTHXo_ AV* ar)
 228 {
 229     ((CPerlObj*)pPerl)->Perl_av_undef(ar);
 230 }
 231
 232 #undef  Perl_av_unshift
 233 void
 234 Perl_av_unshift(pTHXo_ AV* ar, I32 num)
 235 {
 236     ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num);
 237 }
 238
 239 #undef  Perl_block_gimme
 240 I32
 241 Perl_block_gimme(pTHXo)
 242 {
 243     return ((CPerlObj*)pPerl)->Perl_block_gimme();
 244 }
 245
 246 #undef  Perl_call_list
 247 void
 248 Perl_call_list(pTHXo_ I32 oldscope, AV* av_list)
 249 {
 250     ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list);
 251 }
 252
 253 #undef  Perl_cast_ulong
 254 U32
 255 Perl_cast_ulong(pTHXo_ NV f)
 256 {
 257     return ((CPerlObj*)pPerl)->Perl_cast_ulong(f);
 258 }
 259
 260 #undef  Perl_cast_i32
 261 I32
 262 Perl_cast_i32(pTHXo_ NV f)
 263 {
 264     return ((CPerlObj*)pPerl)->Perl_cast_i32(f);
 265 }
 266
 267 #undef  Perl_cast_iv
 268 IV
 269 Perl_cast_iv(pTHXo_ NV f)
 270 {
 271     return ((CPerlObj*)pPerl)->Perl_cast_iv(f);
 272 }
 273
 274 #undef  Perl_cast_uv
 275 UV
 276 Perl_cast_uv(pTHXo_ NV f)
 277 {
 278     return ((CPerlObj*)pPerl)->Perl_cast_uv(f);
 279 }
 280 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 281
 282 #undef  Perl_my_chsize
 283 I32
 284 Perl_my_chsize(pTHXo_ int fd, Off_t length)
 285 {
 286     return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length);
 287 }
 288 #endif
 289 #if defined(USE_THREADS)
 290
 291 #undef  Perl_condpair_magic
 292 MAGIC*
 293 Perl_condpair_magic(pTHXo_ SV *sv)
 294 {
 295     return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv);
 296 }
 297 #endif
 298
 299 #undef  Perl_croak
 300 void
 301 Perl_croak(pTHXo_ const char* pat, ...)
 302 {
 303     va_list args;
 304     va_start(args, pat);
 305     ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
 306     va_end(args);
 307 }
 308
 309 #undef  Perl_vcroak
 310 void
 311 Perl_vcroak(pTHXo_ const char* pat, va_list* args)
 312 {
 313     ((CPerlObj*)pPerl)->Perl_vcroak(pat, args);
 314 }
 315 #if defined(PERL_IMPLICIT_CONTEXT)
 316
 317 #undef  Perl_croak_nocontext
 318 void
 319 Perl_croak_nocontext(const char* pat, ...)
 320 {
 321     dTHXo;
 322     va_list args;
 323     va_start(args, pat);
 324     ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args);
 325     va_end(args);
 326 }
 327
 328 #undef  Perl_die_nocontext
 329 OP*
 330 Perl_die_nocontext(const char* pat, ...)
 331 {
 332     dTHXo;
 333     OP* retval;
 334     va_list args;
 335     va_start(args, pat);
 336     retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
 337     va_end(args);
 338     return retval;
 339
 340 }
 341
 342 #undef  Perl_deb_nocontext
 343 void
 344 Perl_deb_nocontext(const char* pat, ...)
 345 {
 346     dTHXo;
 347     va_list args;
 348     va_start(args, pat);
 349     ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
 350     va_end(args);
 351 }
 352
 353 #undef  Perl_form_nocontext
 354 char*
 355 Perl_form_nocontext(const char* pat, ...)
 356 {
 357     dTHXo;
 358     char* retval;
 359     va_list args;
 360     va_start(args, pat);
 361     retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
 362     va_end(args);
 363     return retval;
 364
 365 }
 366
 367 #undef  Perl_mess_nocontext
 368 SV*
 369 Perl_mess_nocontext(const char* pat, ...)
 370 {
 371     dTHXo;
 372     SV* retval;
 373     va_list args;
 374     va_start(args, pat);
 375     retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
 376     va_end(args);
 377     return retval;
 378
 379 }
 380
 381 #undef  Perl_warn_nocontext
 382 void
 383 Perl_warn_nocontext(const char* pat, ...)
 384 {
 385     dTHXo;
 386     va_list args;
 387     va_start(args, pat);
 388     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
 389     va_end(args);
 390 }
 391
 392 #undef  Perl_warner_nocontext
 393 void
 394 Perl_warner_nocontext(U32 err, const char* pat, ...)
 395 {
 396     dTHXo;
 397     va_list args;
 398     va_start(args, pat);
 399     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
 400     va_end(args);
 401 }
 402
 403 #undef  Perl_newSVpvf_nocontext
 404 SV*
 405 Perl_newSVpvf_nocontext(const char* pat, ...)
 406 {
 407     dTHXo;
 408     SV* retval;
 409     va_list args;
 410     va_start(args, pat);
 411     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
 412     va_end(args);
 413     return retval;
 414
 415 }
 416
 417 #undef  Perl_sv_catpvf_nocontext
 418 void
 419 Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
 420 {
 421     dTHXo;
 422     va_list args;
 423     va_start(args, pat);
 424     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
 425     va_end(args);
 426 }
 427
 428 #undef  Perl_sv_setpvf_nocontext
 429 void
 430 Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
 431 {
 432     dTHXo;
 433     va_list args;
 434     va_start(args, pat);
 435     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
 436     va_end(args);
 437 }
 438
 439 #undef  Perl_sv_catpvf_mg_nocontext
 440 void
 441 Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
 442 {
 443     dTHXo;
 444     va_list args;
 445     va_start(args, pat);
 446     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
 447     va_end(args);
 448 }
 449
 450 #undef  Perl_sv_setpvf_mg_nocontext
 451 void
 452 Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
 453 {
 454     dTHXo;
 455     va_list args;
 456     va_start(args, pat);
 457     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
 458     va_end(args);
 459 }
 460
 461 #undef  Perl_fprintf_nocontext
 462 #endif
 463
 464 #undef  Perl_cx_dump
 465 void
 466 Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
 467 {
 468     ((CPerlObj*)pPerl)->Perl_cx_dump(cs);
 469 }
 470
 471 #undef  Perl_filter_add
 472 SV*
 473 Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv)
 474 {
 475     return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv);
 476 }
 477
 478 #undef  Perl_filter_del
 479 void
 480 Perl_filter_del(pTHXo_ filter_t funcp)
 481 {
 482     ((CPerlObj*)pPerl)->Perl_filter_del(funcp);
 483 }
 484
 485 #undef  Perl_filter_read
 486 I32
 487 Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen)
 488 {
 489     return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen);
 490 }
 491
 492 #undef  Perl_get_op_descs
 493 char**
 494 Perl_get_op_descs(pTHXo)
 495 {
 496     return ((CPerlObj*)pPerl)->Perl_get_op_descs();
 497 }
 498
 499 #undef  Perl_get_op_names
 500 char**
 501 Perl_get_op_names(pTHXo)
 502 {
 503     return ((CPerlObj*)pPerl)->Perl_get_op_names();
 504 }
 505
 506 #undef  Perl_get_ppaddr
 507 PPADDR_t*
 508 Perl_get_ppaddr(pTHXo)
 509 {
 510     return ((CPerlObj*)pPerl)->Perl_get_ppaddr();
 511 }
 512
 513 #undef  Perl_deb
 514 void
 515 Perl_deb(pTHXo_ const char* pat, ...)
 516 {
 517     va_list args;
 518     va_start(args, pat);
 519     ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args);
 520     va_end(args);
 521 }
 522
 523 #undef  Perl_vdeb
 524 void
 525 Perl_vdeb(pTHXo_ const char* pat, va_list* args)
 526 {
 527     ((CPerlObj*)pPerl)->Perl_vdeb(pat, args);
 528 }
 529
 530 #undef  Perl_debprofdump
 531 void
 532 Perl_debprofdump(pTHXo)
 533 {
 534     ((CPerlObj*)pPerl)->Perl_debprofdump();
 535 }
 536
 537 #undef  Perl_debop
 538 I32
 539 Perl_debop(pTHXo_ OP* o)
 540 {
 541     return ((CPerlObj*)pPerl)->Perl_debop(o);
 542 }
 543
 544 #undef  Perl_debstack
 545 I32
 546 Perl_debstack(pTHXo)
 547 {
 548     return ((CPerlObj*)pPerl)->Perl_debstack();
 549 }
 550
 551 #undef  Perl_debstackptrs
 552 I32
 553 Perl_debstackptrs(pTHXo)
 554 {
 555     return ((CPerlObj*)pPerl)->Perl_debstackptrs();
 556 }
 557
 558 #undef  Perl_delimcpy
 559 char*
 560 Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen)
 561 {
 562     return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen);
 563 }
 564
 565 #undef  Perl_die
 566 OP*
 567 Perl_die(pTHXo_ const char* pat, ...)
 568 {
 569     OP* retval;
 570     va_list args;
 571     va_start(args, pat);
 572     retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args);
 573     va_end(args);
 574     return retval;
 575
 576 }
 577
 578 #undef  Perl_dounwind
 579 void
 580 Perl_dounwind(pTHXo_ I32 cxix)
 581 {
 582     ((CPerlObj*)pPerl)->Perl_dounwind(cxix);
 583 }
 584
 585 #undef  Perl_do_binmode
 586 int
 587 Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
 588 {
 589     return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
 590 }
 591 #if !defined(WIN32)
 592 #endif
 593 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 594 #endif
 595
 596 #undef  Perl_do_open
 597 bool
 598 Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
 599 {
 600     return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
 601 }
 602
 603 #undef  Perl_do_open9
 604 bool
 605 Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
 606 {
 607     return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
 608 }
 609
 610 #undef  Perl_dowantarray
 611 I32
 612 Perl_dowantarray(pTHXo)
 613 {
 614     return ((CPerlObj*)pPerl)->Perl_dowantarray();
 615 }
 616
 617 #undef  Perl_dump_all
 618 void
 619 Perl_dump_all(pTHXo)
 620 {
 621     ((CPerlObj*)pPerl)->Perl_dump_all();
 622 }
 623
 624 #undef  Perl_dump_eval
 625 void
 626 Perl_dump_eval(pTHXo)
 627 {
 628     ((CPerlObj*)pPerl)->Perl_dump_eval();
 629 }
 630 #if defined(DUMP_FDS)
 631
 632 #undef  Perl_dump_fds
 633 void
 634 Perl_dump_fds(pTHXo_ char* s)
 635 {
 636     ((CPerlObj*)pPerl)->Perl_dump_fds(s);
 637 }
 638 #endif
 639
 640 #undef  Perl_dump_form
 641 void
 642 Perl_dump_form(pTHXo_ GV* gv)
 643 {
 644     ((CPerlObj*)pPerl)->Perl_dump_form(gv);
 645 }
 646
 647 #undef  Perl_gv_dump
 648 void
 649 Perl_gv_dump(pTHXo_ GV* gv)
 650 {
 651     ((CPerlObj*)pPerl)->Perl_gv_dump(gv);
 652 }
 653
 654 #undef  Perl_op_dump
 655 void
 656 Perl_op_dump(pTHXo_ OP* arg)
 657 {
 658     ((CPerlObj*)pPerl)->Perl_op_dump(arg);
 659 }
 660
 661 #undef  Perl_pmop_dump
 662 void
 663 Perl_pmop_dump(pTHXo_ PMOP* pm)
 664 {
 665     ((CPerlObj*)pPerl)->Perl_pmop_dump(pm);
 666 }
 667
 668 #undef  Perl_dump_packsubs
 669 void
 670 Perl_dump_packsubs(pTHXo_ HV* stash)
 671 {
 672     ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash);
 673 }
 674
 675 #undef  Perl_dump_sub
 676 void
 677 Perl_dump_sub(pTHXo_ GV* gv)
 678 {
 679     ((CPerlObj*)pPerl)->Perl_dump_sub(gv);
 680 }
 681
 682 #undef  Perl_fbm_compile
 683 void
 684 Perl_fbm_compile(pTHXo_ SV* sv, U32 flags)
 685 {
 686     ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags);
 687 }
 688
 689 #undef  Perl_fbm_instr
 690 char*
 691 Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags)
 692 {
 693     return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags);
 694 }
 695 #if defined(USE_THREADS)
 696 #endif
 697
 698 #undef  Perl_form
 699 char*
 700 Perl_form(pTHXo_ const char* pat, ...)
 701 {
 702     char* retval;
 703     va_list args;
 704     va_start(args, pat);
 705     retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args);
 706     va_end(args);
 707     return retval;
 708
 709 }
 710
 711 #undef  Perl_vform
 712 char*
 713 Perl_vform(pTHXo_ const char* pat, va_list* args)
 714 {
 715     return ((CPerlObj*)pPerl)->Perl_vform(pat, args);
 716 }
 717
 718 #undef  Perl_free_tmps
 719 void
 720 Perl_free_tmps(pTHXo)
 721 {
 722     ((CPerlObj*)pPerl)->Perl_free_tmps();
 723 }
 724 #if !defined(HAS_GETENV_LEN)
 725 #endif
 726
 727 #undef  Perl_gp_free
 728 void
 729 Perl_gp_free(pTHXo_ GV* gv)
 730 {
 731     ((CPerlObj*)pPerl)->Perl_gp_free(gv);
 732 }
 733
 734 #undef  Perl_gp_ref
 735 GP*
 736 Perl_gp_ref(pTHXo_ GP* gp)
 737 {
 738     return ((CPerlObj*)pPerl)->Perl_gp_ref(gp);
 739 }
 740
 741 #undef  Perl_gv_AVadd
 742 GV*
 743 Perl_gv_AVadd(pTHXo_ GV* gv)
 744 {
 745     return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv);
 746 }
 747
 748 #undef  Perl_gv_HVadd
 749 GV*
 750 Perl_gv_HVadd(pTHXo_ GV* gv)
 751 {
 752     return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv);
 753 }
 754
 755 #undef  Perl_gv_IOadd
 756 GV*
 757 Perl_gv_IOadd(pTHXo_ GV* gv)
 758 {
 759     return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv);
 760 }
 761
 762 #undef  Perl_gv_autoload4
 763 GV*
 764 Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method)
 765 {
 766     return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method);
 767 }
 768
 769 #undef  Perl_gv_check
 770 void
 771 Perl_gv_check(pTHXo_ HV* stash)
 772 {
 773     ((CPerlObj*)pPerl)->Perl_gv_check(stash);
 774 }
 775
 776 #undef  Perl_gv_efullname
 777 void
 778 Perl_gv_efullname(pTHXo_ SV* sv, GV* gv)
 779 {
 780     ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv);
 781 }
 782
 783 #undef  Perl_gv_efullname3
 784 void
 785 Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
 786 {
 787     ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix);
 788 }
 789
 790 #undef  Perl_gv_fetchfile
 791 GV*
 792 Perl_gv_fetchfile(pTHXo_ const char* name)
 793 {
 794     return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name);
 795 }
 796
 797 #undef  Perl_gv_fetchmeth
 798 GV*
 799 Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level)
 800 {
 801     return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level);
 802 }
 803
 804 #undef  Perl_gv_fetchmethod
 805 GV*
 806 Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name)
 807 {
 808     return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name);
 809 }
 810
 811 #undef  Perl_gv_fetchmethod_autoload
 812 GV*
 813 Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload)
 814 {
 815     return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload);
 816 }
 817
 818 #undef  Perl_gv_fetchpv
 819 GV*
 820 Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type)
 821 {
 822     return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type);
 823 }
 824
 825 #undef  Perl_gv_fullname
 826 void
 827 Perl_gv_fullname(pTHXo_ SV* sv, GV* gv)
 828 {
 829     ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv);
 830 }
 831
 832 #undef  Perl_gv_fullname3
 833 void
 834 Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix)
 835 {
 836     ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix);
 837 }
 838
 839 #undef  Perl_gv_init
 840 void
 841 Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi)
 842 {
 843     ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi);
 844 }
 845
 846 #undef  Perl_gv_stashpv
 847 HV*
 848 Perl_gv_stashpv(pTHXo_ const char* name, I32 create)
 849 {
 850     return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create);
 851 }
 852
 853 #undef  Perl_gv_stashpvn
 854 HV*
 855 Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create)
 856 {
 857     return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create);
 858 }
 859
 860 #undef  Perl_gv_stashsv
 861 HV*
 862 Perl_gv_stashsv(pTHXo_ SV* sv, I32 create)
 863 {
 864     return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create);
 865 }
 866
 867 #undef  Perl_hv_clear
 868 void
 869 Perl_hv_clear(pTHXo_ HV* tb)
 870 {
 871     ((CPerlObj*)pPerl)->Perl_hv_clear(tb);
 872 }
 873
 874 #undef  Perl_hv_delayfree_ent
 875 void
 876 Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry)
 877 {
 878     ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry);
 879 }
 880
 881 #undef  Perl_hv_delete
 882 SV*
 883 Perl_hv_delete(pTHXo_ HV* tb, const char* key, U32 klen, I32 flags)
 884 {
 885     return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags);
 886 }
 887
 888 #undef  Perl_hv_delete_ent
 889 SV*
 890 Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash)
 891 {
 892     return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash);
 893 }
 894
 895 #undef  Perl_hv_exists
 896 bool
 897 Perl_hv_exists(pTHXo_ HV* tb, const char* key, U32 klen)
 898 {
 899     return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen);
 900 }
 901
 902 #undef  Perl_hv_exists_ent
 903 bool
 904 Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash)
 905 {
 906     return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash);
 907 }
 908
 909 #undef  Perl_hv_fetch
 910 SV**
 911 Perl_hv_fetch(pTHXo_ HV* tb, const char* key, U32 klen, I32 lval)
 912 {
 913     return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval);
 914 }
 915
 916 #undef  Perl_hv_fetch_ent
 917 HE*
 918 Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash)
 919 {
 920     return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash);
 921 }
 922
 923 #undef  Perl_hv_free_ent
 924 void
 925 Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry)
 926 {
 927     ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry);
 928 }
 929
 930 #undef  Perl_hv_iterinit
 931 I32
 932 Perl_hv_iterinit(pTHXo_ HV* tb)
 933 {
 934     return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb);
 935 }
 936
 937 #undef  Perl_hv_iterkey
 938 char*
 939 Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen)
 940 {
 941     return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen);
 942 }
 943
 944 #undef  Perl_hv_iterkeysv
 945 SV*
 946 Perl_hv_iterkeysv(pTHXo_ HE* entry)
 947 {
 948     return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry);
 949 }
 950
 951 #undef  Perl_hv_iternext
 952 HE*
 953 Perl_hv_iternext(pTHXo_ HV* tb)
 954 {
 955     return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb);
 956 }
 957
 958 #undef  Perl_hv_iternextsv
 959 SV*
 960 Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen)
 961 {
 962     return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen);
 963 }
 964
 965 #undef  Perl_hv_iterval
 966 SV*
 967 Perl_hv_iterval(pTHXo_ HV* tb, HE* entry)
 968 {
 969     return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry);
 970 }
 971
 972 #undef  Perl_hv_ksplit
 973 void
 974 Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax)
 975 {
 976     ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax);
 977 }
 978
 979 #undef  Perl_hv_magic
 980 void
 981 Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how)
 982 {
 983     ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how);
 984 }
 985
 986 #undef  Perl_hv_store
 987 SV**
 988 Perl_hv_store(pTHXo_ HV* tb, const char* key, U32 klen, SV* val, U32 hash)
 989 {
 990     return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash);
 991 }
 992
 993 #undef  Perl_hv_store_ent
 994 HE*
 995 Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash)
 996 {
 997     return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash);
 998 }
 999
1000 #undef  Perl_hv_undef
1001 void
1002 Perl_hv_undef(pTHXo_ HV* tb)
1003 {
1004     ((CPerlObj*)pPerl)->Perl_hv_undef(tb);
1005 }
1006
1007 #undef  Perl_ibcmp
1008 I32
1009 Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len)
1010 {
1011     return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len);
1012 }
1013
1014 #undef  Perl_ibcmp_locale
1015 I32
1016 Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len)
1017 {
1018     return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len);
1019 }
1020
1021 #undef  Perl_init_stacks
1022 void
1023 Perl_init_stacks(pTHXo)
1024 {
1025     ((CPerlObj*)pPerl)->Perl_init_stacks();
1026 }
1027
1028 #undef  Perl_instr
1029 char*
1030 Perl_instr(pTHXo_ const char* big, const char* little)
1031 {
1032     return ((CPerlObj*)pPerl)->Perl_instr(big, little);
1033 }
1034
1035 #undef  Perl_is_uni_alnum
1036 bool
1037 Perl_is_uni_alnum(pTHXo_ U32 c)
1038 {
1039     return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c);
1040 }
1041
1042 #undef  Perl_is_uni_alnumc
1043 bool
1044 Perl_is_uni_alnumc(pTHXo_ U32 c)
1045 {
1046     return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c);
1047 }
1048
1049 #undef  Perl_is_uni_idfirst
1050 bool
1051 Perl_is_uni_idfirst(pTHXo_ U32 c)
1052 {
1053     return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c);
1054 }
1055
1056 #undef  Perl_is_uni_alpha
1057 bool
1058 Perl_is_uni_alpha(pTHXo_ U32 c)
1059 {
1060     return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c);
1061 }
1062
1063 #undef  Perl_is_uni_ascii
1064 bool
1065 Perl_is_uni_ascii(pTHXo_ U32 c)
1066 {
1067     return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c);
1068 }
1069
1070 #undef  Perl_is_uni_space
1071 bool
1072 Perl_is_uni_space(pTHXo_ U32 c)
1073 {
1074     return ((CPerlObj*)pPerl)->Perl_is_uni_space(c);
1075 }
1076
1077 #undef  Perl_is_uni_cntrl
1078 bool
1079 Perl_is_uni_cntrl(pTHXo_ U32 c)
1080 {
1081     return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c);
1082 }
1083
1084 #undef  Perl_is_uni_graph
1085 bool
1086 Perl_is_uni_graph(pTHXo_ U32 c)
1087 {
1088     return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c);
1089 }
1090
1091 #undef  Perl_is_uni_digit
1092 bool
1093 Perl_is_uni_digit(pTHXo_ U32 c)
1094 {
1095     return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c);
1096 }
1097
1098 #undef  Perl_is_uni_upper
1099 bool
1100 Perl_is_uni_upper(pTHXo_ U32 c)
1101 {
1102     return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c);
1103 }
1104
1105 #undef  Perl_is_uni_lower
1106 bool
1107 Perl_is_uni_lower(pTHXo_ U32 c)
1108 {
1109     return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c);
1110 }
1111
1112 #undef  Perl_is_uni_print
1113 bool
1114 Perl_is_uni_print(pTHXo_ U32 c)
1115 {
1116     return ((CPerlObj*)pPerl)->Perl_is_uni_print(c);
1117 }
1118
1119 #undef  Perl_is_uni_punct
1120 bool
1121 Perl_is_uni_punct(pTHXo_ U32 c)
1122 {
1123     return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c);
1124 }
1125
1126 #undef  Perl_is_uni_xdigit
1127 bool
1128 Perl_is_uni_xdigit(pTHXo_ U32 c)
1129 {
1130     return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c);
1131 }
1132
1133 #undef  Perl_to_uni_upper
1134 U32
1135 Perl_to_uni_upper(pTHXo_ U32 c)
1136 {
1137     return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c);
1138 }
1139
1140 #undef  Perl_to_uni_title
1141 U32
1142 Perl_to_uni_title(pTHXo_ U32 c)
1143 {
1144     return ((CPerlObj*)pPerl)->Perl_to_uni_title(c);
1145 }
1146
1147 #undef  Perl_to_uni_lower
1148 U32
1149 Perl_to_uni_lower(pTHXo_ U32 c)
1150 {
1151     return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c);
1152 }
1153
1154 #undef  Perl_is_uni_alnum_lc
1155 bool
1156 Perl_is_uni_alnum_lc(pTHXo_ U32 c)
1157 {
1158     return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c);
1159 }
1160
1161 #undef  Perl_is_uni_alnumc_lc
1162 bool
1163 Perl_is_uni_alnumc_lc(pTHXo_ U32 c)
1164 {
1165     return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c);
1166 }
1167
1168 #undef  Perl_is_uni_idfirst_lc
1169 bool
1170 Perl_is_uni_idfirst_lc(pTHXo_ U32 c)
1171 {
1172     return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c);
1173 }
1174
1175 #undef  Perl_is_uni_alpha_lc
1176 bool
1177 Perl_is_uni_alpha_lc(pTHXo_ U32 c)
1178 {
1179     return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c);
1180 }
1181
1182 #undef  Perl_is_uni_ascii_lc
1183 bool
1184 Perl_is_uni_ascii_lc(pTHXo_ U32 c)
1185 {
1186     return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c);
1187 }
1188
1189 #undef  Perl_is_uni_space_lc
1190 bool
1191 Perl_is_uni_space_lc(pTHXo_ U32 c)
1192 {
1193     return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c);
1194 }
1195
1196 #undef  Perl_is_uni_cntrl_lc
1197 bool
1198 Perl_is_uni_cntrl_lc(pTHXo_ U32 c)
1199 {
1200     return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c);
1201 }
1202
1203 #undef  Perl_is_uni_graph_lc
1204 bool
1205 Perl_is_uni_graph_lc(pTHXo_ U32 c)
1206 {
1207     return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c);
1208 }
1209
1210 #undef  Perl_is_uni_digit_lc
1211 bool
1212 Perl_is_uni_digit_lc(pTHXo_ U32 c)
1213 {
1214     return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c);
1215 }
1216
1217 #undef  Perl_is_uni_upper_lc
1218 bool
1219 Perl_is_uni_upper_lc(pTHXo_ U32 c)
1220 {
1221     return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c);
1222 }
1223
1224 #undef  Perl_is_uni_lower_lc
1225 bool
1226 Perl_is_uni_lower_lc(pTHXo_ U32 c)
1227 {
1228     return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c);
1229 }
1230
1231 #undef  Perl_is_uni_print_lc
1232 bool
1233 Perl_is_uni_print_lc(pTHXo_ U32 c)
1234 {
1235     return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c);
1236 }
1237
1238 #undef  Perl_is_uni_punct_lc
1239 bool
1240 Perl_is_uni_punct_lc(pTHXo_ U32 c)
1241 {
1242     return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c);
1243 }
1244
1245 #undef  Perl_is_uni_xdigit_lc
1246 bool
1247 Perl_is_uni_xdigit_lc(pTHXo_ U32 c)
1248 {
1249     return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c);
1250 }
1251
1252 #undef  Perl_to_uni_upper_lc
1253 U32
1254 Perl_to_uni_upper_lc(pTHXo_ U32 c)
1255 {
1256     return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c);
1257 }
1258
1259 #undef  Perl_to_uni_title_lc
1260 U32
1261 Perl_to_uni_title_lc(pTHXo_ U32 c)
1262 {
1263     return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c);
1264 }
1265
1266 #undef  Perl_to_uni_lower_lc
1267 U32
1268 Perl_to_uni_lower_lc(pTHXo_ U32 c)
1269 {
1270     return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
1271 }
1272
1273 #undef  Perl_is_utf8_alnum
1274 bool
1275 Perl_is_utf8_alnum(pTHXo_ U8 *p)
1276 {
1277     return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p);
1278 }
1279
1280 #undef  Perl_is_utf8_alnumc
1281 bool
1282 Perl_is_utf8_alnumc(pTHXo_ U8 *p)
1283 {
1284     return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p);
1285 }
1286
1287 #undef  Perl_is_utf8_idfirst
1288 bool
1289 Perl_is_utf8_idfirst(pTHXo_ U8 *p)
1290 {
1291     return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p);
1292 }
1293
1294 #undef  Perl_is_utf8_alpha
1295 bool
1296 Perl_is_utf8_alpha(pTHXo_ U8 *p)
1297 {
1298     return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p);
1299 }
1300
1301 #undef  Perl_is_utf8_ascii
1302 bool
1303 Perl_is_utf8_ascii(pTHXo_ U8 *p)
1304 {
1305     return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p);
1306 }
1307
1308 #undef  Perl_is_utf8_space
1309 bool
1310 Perl_is_utf8_space(pTHXo_ U8 *p)
1311 {
1312     return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p);
1313 }
1314
1315 #undef  Perl_is_utf8_cntrl
1316 bool
1317 Perl_is_utf8_cntrl(pTHXo_ U8 *p)
1318 {
1319     return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p);
1320 }
1321
1322 #undef  Perl_is_utf8_digit
1323 bool
1324 Perl_is_utf8_digit(pTHXo_ U8 *p)
1325 {
1326     return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p);
1327 }
1328
1329 #undef  Perl_is_utf8_graph
1330 bool
1331 Perl_is_utf8_graph(pTHXo_ U8 *p)
1332 {
1333     return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p);
1334 }
1335
1336 #undef  Perl_is_utf8_upper
1337 bool
1338 Perl_is_utf8_upper(pTHXo_ U8 *p)
1339 {
1340     return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p);
1341 }
1342
1343 #undef  Perl_is_utf8_lower
1344 bool
1345 Perl_is_utf8_lower(pTHXo_ U8 *p)
1346 {
1347     return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p);
1348 }
1349
1350 #undef  Perl_is_utf8_print
1351 bool
1352 Perl_is_utf8_print(pTHXo_ U8 *p)
1353 {
1354     return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p);
1355 }
1356
1357 #undef  Perl_is_utf8_punct
1358 bool
1359 Perl_is_utf8_punct(pTHXo_ U8 *p)
1360 {
1361     return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p);
1362 }
1363
1364 #undef  Perl_is_utf8_xdigit
1365 bool
1366 Perl_is_utf8_xdigit(pTHXo_ U8 *p)
1367 {
1368     return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p);
1369 }
1370
1371 #undef  Perl_is_utf8_mark
1372 bool
1373 Perl_is_utf8_mark(pTHXo_ U8 *p)
1374 {
1375     return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p);
1376 }
1377
1378 #undef  Perl_leave_scope
1379 void
1380 Perl_leave_scope(pTHXo_ I32 base)
1381 {
1382     ((CPerlObj*)pPerl)->Perl_leave_scope(base);
1383 }
1384
1385 #undef  Perl_looks_like_number
1386 I32
1387 Perl_looks_like_number(pTHXo_ SV* sv)
1388 {
1389     return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
1390 }
1391 #if defined(USE_THREADS)
1392 #endif
1393 #if defined(USE_LOCALE_COLLATE)
1394 #endif
1395
1396 #undef  Perl_markstack_grow
1397 void
1398 Perl_markstack_grow(pTHXo)
1399 {
1400     ((CPerlObj*)pPerl)->Perl_markstack_grow();
1401 }
1402 #if defined(USE_LOCALE_COLLATE)
1403 #endif
1404
1405 #undef  Perl_mess
1406 SV*
1407 Perl_mess(pTHXo_ const char* pat, ...)
1408 {
1409     SV* retval;
1410     va_list args;
1411     va_start(args, pat);
1412     retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
1413     va_end(args);
1414     return retval;
1415
1416 }
1417
1418 #undef  Perl_vmess
1419 SV*
1420 Perl_vmess(pTHXo_ const char* pat, va_list* args)
1421 {
1422     return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
1423 }
1424
1425 #undef  Perl_mg_clear
1426 int
1427 Perl_mg_clear(pTHXo_ SV* sv)
1428 {
1429     return ((CPerlObj*)pPerl)->Perl_mg_clear(sv);
1430 }
1431
1432 #undef  Perl_mg_copy
1433 int
1434 Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen)
1435 {
1436     return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen);
1437 }
1438
1439 #undef  Perl_mg_find
1440 MAGIC*
1441 Perl_mg_find(pTHXo_ SV* sv, int type)
1442 {
1443     return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type);
1444 }
1445
1446 #undef  Perl_mg_free
1447 int
1448 Perl_mg_free(pTHXo_ SV* sv)
1449 {
1450     return ((CPerlObj*)pPerl)->Perl_mg_free(sv);
1451 }
1452
1453 #undef  Perl_mg_get
1454 int
1455 Perl_mg_get(pTHXo_ SV* sv)
1456 {
1457     return ((CPerlObj*)pPerl)->Perl_mg_get(sv);
1458 }
1459
1460 #undef  Perl_mg_length
1461 U32
1462 Perl_mg_length(pTHXo_ SV* sv)
1463 {
1464     return ((CPerlObj*)pPerl)->Perl_mg_length(sv);
1465 }
1466
1467 #undef  Perl_mg_magical
1468 void
1469 Perl_mg_magical(pTHXo_ SV* sv)
1470 {
1471     ((CPerlObj*)pPerl)->Perl_mg_magical(sv);
1472 }
1473
1474 #undef  Perl_mg_set
1475 int
1476 Perl_mg_set(pTHXo_ SV* sv)
1477 {
1478     return ((CPerlObj*)pPerl)->Perl_mg_set(sv);
1479 }
1480
1481 #undef  Perl_mg_size
1482 I32
1483 Perl_mg_size(pTHXo_ SV* sv)
1484 {
1485     return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
1486 }
1487
1488 #undef  Perl_moreswitches
1489 char*
1490 Perl_moreswitches(pTHXo_ char* s)
1491 {
1492     return ((CPerlObj*)pPerl)->Perl_moreswitches(s);
1493 }
1494
1495 #undef  Perl_my_atof
1496 NV
1497 Perl_my_atof(pTHXo_ const char *s)
1498 {
1499     return ((CPerlObj*)pPerl)->Perl_my_atof(s);
1500 }
1501 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
1502
1503 #undef  Perl_my_bcopy
1504 char*
1505 Perl_my_bcopy(const char* from, char* to, I32 len)
1506 {
1507     dTHXo;
1508     return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len);
1509 }
1510 #endif
1511 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1512
1513 #undef  Perl_my_bzero
1514 char*
1515 Perl_my_bzero(char* loc, I32 len)
1516 {
1517     dTHXo;
1518     return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len);
1519 }
1520 #endif
1521
1522 #undef  Perl_my_exit
1523 void
1524 Perl_my_exit(pTHXo_ U32 status)
1525 {
1526     ((CPerlObj*)pPerl)->Perl_my_exit(status);
1527 }
1528
1529 #undef  Perl_my_failure_exit
1530 void
1531 Perl_my_failure_exit(pTHXo)
1532 {
1533     ((CPerlObj*)pPerl)->Perl_my_failure_exit();
1534 }
1535
1536 #undef  Perl_my_fflush_all
1537 I32
1538 Perl_my_fflush_all(pTHXo)
1539 {
1540     return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
1541 }
1542
1543 #undef  Perl_my_lstat
1544 I32
1545 Perl_my_lstat(pTHXo)
1546 {
1547     return ((CPerlObj*)pPerl)->Perl_my_lstat();
1548 }
1549 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1550
1551 #undef  Perl_my_memcmp
1552 I32
1553 Perl_my_memcmp(const char* s1, const char* s2, I32 len)
1554 {
1555     dTHXo;
1556     return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len);
1557 }
1558 #endif
1559 #if !defined(HAS_MEMSET)
1560
1561 #undef  Perl_my_memset
1562 void*
1563 Perl_my_memset(char* loc, I32 ch, I32 len)
1564 {
1565     dTHXo;
1566     return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len);
1567 }
1568 #endif
1569 #if !defined(PERL_OBJECT)
1570
1571 #undef  Perl_my_pclose
1572 I32
1573 Perl_my_pclose(pTHXo_ PerlIO* ptr)
1574 {
1575     return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr);
1576 }
1577
1578 #undef  Perl_my_popen
1579 PerlIO*
1580 Perl_my_popen(pTHXo_ char* cmd, char* mode)
1581 {
1582     return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode);
1583 }
1584 #endif
1585
1586 #undef  Perl_my_setenv
1587 void
1588 Perl_my_setenv(pTHXo_ char* nam, char* val)
1589 {
1590     ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val);
1591 }
1592
1593 #undef  Perl_my_stat
1594 I32
1595 Perl_my_stat(pTHXo)
1596 {
1597     return ((CPerlObj*)pPerl)->Perl_my_stat();
1598 }
1599 #if defined(MYSWAP)
1600
1601 #undef  Perl_my_swap
1602 short
1603 Perl_my_swap(pTHXo_ short s)
1604 {
1605     return ((CPerlObj*)pPerl)->Perl_my_swap(s);
1606 }
1607
1608 #undef  Perl_my_htonl
1609 long
1610 Perl_my_htonl(pTHXo_ long l)
1611 {
1612     return ((CPerlObj*)pPerl)->Perl_my_htonl(l);
1613 }
1614
1615 #undef  Perl_my_ntohl
1616 long
1617 Perl_my_ntohl(pTHXo_ long l)
1618 {
1619     return ((CPerlObj*)pPerl)->Perl_my_ntohl(l);
1620 }
1621 #endif
1622
1623 #undef  Perl_newANONLIST
1624 OP*
1625 Perl_newANONLIST(pTHXo_ OP* o)
1626 {
1627     return ((CPerlObj*)pPerl)->Perl_newANONLIST(o);
1628 }
1629
1630 #undef  Perl_newANONHASH
1631 OP*
1632 Perl_newANONHASH(pTHXo_ OP* o)
1633 {
1634     return ((CPerlObj*)pPerl)->Perl_newANONHASH(o);
1635 }
1636
1637 #undef  Perl_newANONSUB
1638 OP*
1639 Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block)
1640 {
1641     return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block);
1642 }
1643
1644 #undef  Perl_newASSIGNOP
1645 OP*
1646 Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right)
1647 {
1648     return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right);
1649 }
1650
1651 #undef  Perl_newCONDOP
1652 OP*
1653 Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop)
1654 {
1655     return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop);
1656 }
1657
1658 #undef  Perl_newCONSTSUB
1659 void
1660 Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv)
1661 {
1662     ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv);
1663 }
1664
1665 #undef  Perl_newFORM
1666 void
1667 Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block)
1668 {
1669     ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block);
1670 }
1671
1672 #undef  Perl_newFOROP
1673 OP*
1674 Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
1675 {
1676     return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont);
1677 }
1678
1679 #undef  Perl_newLOGOP
1680 OP*
1681 Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right)
1682 {
1683     return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right);
1684 }
1685
1686 #undef  Perl_newLOOPEX
1687 OP*
1688 Perl_newLOOPEX(pTHXo_ I32 type, OP* label)
1689 {
1690     return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label);
1691 }
1692
1693 #undef  Perl_newLOOPOP
1694 OP*
1695 Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block)
1696 {
1697     return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block);
1698 }
1699
1700 #undef  Perl_newNULLLIST
1701 OP*
1702 Perl_newNULLLIST(pTHXo)
1703 {
1704     return ((CPerlObj*)pPerl)->Perl_newNULLLIST();
1705 }
1706
1707 #undef  Perl_newOP
1708 OP*
1709 Perl_newOP(pTHXo_ I32 optype, I32 flags)
1710 {
1711     return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags);
1712 }
1713
1714 #undef  Perl_newPROG
1715 void
1716 Perl_newPROG(pTHXo_ OP* o)
1717 {
1718     ((CPerlObj*)pPerl)->Perl_newPROG(o);
1719 }
1720
1721 #undef  Perl_newRANGE
1722 OP*
1723 Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right)
1724 {
1725     return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right);
1726 }
1727
1728 #undef  Perl_newSLICEOP
1729 OP*
1730 Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop)
1731 {
1732     return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop);
1733 }
1734
1735 #undef  Perl_newSTATEOP
1736 OP*
1737 Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o)
1738 {
1739     return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o);
1740 }
1741
1742 #undef  Perl_newSUB
1743 CV*
1744 Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block)
1745 {
1746     return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block);
1747 }
1748
1749 #undef  Perl_newXS
1750 CV*
1751 Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename)
1752 {
1753     return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename);
1754 }
1755
1756 #undef  Perl_newAV
1757 AV*
1758 Perl_newAV(pTHXo)
1759 {
1760     return ((CPerlObj*)pPerl)->Perl_newAV();
1761 }
1762
1763 #undef  Perl_newAVREF
1764 OP*
1765 Perl_newAVREF(pTHXo_ OP* o)
1766 {
1767     return ((CPerlObj*)pPerl)->Perl_newAVREF(o);
1768 }
1769
1770 #undef  Perl_newBINOP
1771 OP*
1772 Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
1773 {
1774     return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last);
1775 }
1776
1777 #undef  Perl_newCVREF
1778 OP*
1779 Perl_newCVREF(pTHXo_ I32 flags, OP* o)
1780 {
1781     return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o);
1782 }
1783
1784 #undef  Perl_newGVOP
1785 OP*
1786 Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv)
1787 {
1788     return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv);
1789 }
1790
1791 #undef  Perl_newGVgen
1792 GV*
1793 Perl_newGVgen(pTHXo_ char* pack)
1794 {
1795     return ((CPerlObj*)pPerl)->Perl_newGVgen(pack);
1796 }
1797
1798 #undef  Perl_newGVREF
1799 OP*
1800 Perl_newGVREF(pTHXo_ I32 type, OP* o)
1801 {
1802     return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o);
1803 }
1804
1805 #undef  Perl_newHVREF
1806 OP*
1807 Perl_newHVREF(pTHXo_ OP* o)
1808 {
1809     return ((CPerlObj*)pPerl)->Perl_newHVREF(o);
1810 }
1811
1812 #undef  Perl_newHV
1813 HV*
1814 Perl_newHV(pTHXo)
1815 {
1816     return ((CPerlObj*)pPerl)->Perl_newHV();
1817 }
1818
1819 #undef  Perl_newHVhv
1820 HV*
1821 Perl_newHVhv(pTHXo_ HV* hv)
1822 {
1823     return ((CPerlObj*)pPerl)->Perl_newHVhv(hv);
1824 }
1825
1826 #undef  Perl_newIO
1827 IO*
1828 Perl_newIO(pTHXo)
1829 {
1830     return ((CPerlObj*)pPerl)->Perl_newIO();
1831 }
1832
1833 #undef  Perl_newLISTOP
1834 OP*
1835 Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last)
1836 {
1837     return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last);
1838 }
1839
1840 #undef  Perl_newPADOP
1841 OP*
1842 Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv)
1843 {
1844     return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv);
1845 }
1846
1847 #undef  Perl_newPMOP
1848 OP*
1849 Perl_newPMOP(pTHXo_ I32 type, I32 flags)
1850 {
1851     return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags);
1852 }
1853
1854 #undef  Perl_newPVOP
1855 OP*
1856 Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv)
1857 {
1858     return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv);
1859 }
1860
1861 #undef  Perl_newRV
1862 SV*
1863 Perl_newRV(pTHXo_ SV* pref)
1864 {
1865     return ((CPerlObj*)pPerl)->Perl_newRV(pref);
1866 }
1867
1868 #undef  Perl_newRV_noinc
1869 SV*
1870 Perl_newRV_noinc(pTHXo_ SV *sv)
1871 {
1872     return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv);
1873 }
1874
1875 #undef  Perl_newSV
1876 SV*
1877 Perl_newSV(pTHXo_ STRLEN len)
1878 {
1879     return ((CPerlObj*)pPerl)->Perl_newSV(len);
1880 }
1881
1882 #undef  Perl_newSVREF
1883 OP*
1884 Perl_newSVREF(pTHXo_ OP* o)
1885 {
1886     return ((CPerlObj*)pPerl)->Perl_newSVREF(o);
1887 }
1888
1889 #undef  Perl_newSVOP
1890 OP*
1891 Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv)
1892 {
1893     return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv);
1894 }
1895
1896 #undef  Perl_newSViv
1897 SV*
1898 Perl_newSViv(pTHXo_ IV i)
1899 {
1900     return ((CPerlObj*)pPerl)->Perl_newSViv(i);
1901 }
1902
1903 #undef  Perl_newSVnv
1904 SV*
1905 Perl_newSVnv(pTHXo_ NV n)
1906 {
1907     return ((CPerlObj*)pPerl)->Perl_newSVnv(n);
1908 }
1909
1910 #undef  Perl_newSVpv
1911 SV*
1912 Perl_newSVpv(pTHXo_ const char* s, STRLEN len)
1913 {
1914     return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len);
1915 }
1916
1917 #undef  Perl_newSVpvn
1918 SV*
1919 Perl_newSVpvn(pTHXo_ const char* s, STRLEN len)
1920 {
1921     return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len);
1922 }
1923
1924 #undef  Perl_newSVpvf
1925 SV*
1926 Perl_newSVpvf(pTHXo_ const char* pat, ...)
1927 {
1928     SV* retval;
1929     va_list args;
1930     va_start(args, pat);
1931     retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args);
1932     va_end(args);
1933     return retval;
1934
1935 }
1936
1937 #undef  Perl_vnewSVpvf
1938 SV*
1939 Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args)
1940 {
1941     return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args);
1942 }
1943
1944 #undef  Perl_newSVrv
1945 SV*
1946 Perl_newSVrv(pTHXo_ SV* rv, const char* classname)
1947 {
1948     return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname);
1949 }
1950
1951 #undef  Perl_newSVsv
1952 SV*
1953 Perl_newSVsv(pTHXo_ SV* old)
1954 {
1955     return ((CPerlObj*)pPerl)->Perl_newSVsv(old);
1956 }
1957
1958 #undef  Perl_newUNOP
1959 OP*
1960 Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first)
1961 {
1962     return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first);
1963 }
1964
1965 #undef  Perl_newWHILEOP
1966 OP*
1967 Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont)
1968 {
1969     return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont);
1970 }
1971
1972 #undef  Perl_new_stackinfo
1973 PERL_SI*
1974 Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems)
1975 {
1976     return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems);
1977 }
1978
1979 #undef  Perl_ninstr
1980 char*
1981 Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
1982 {
1983     return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend);
1984 }
1985
1986 #undef  Perl_op_free
1987 void
1988 Perl_op_free(pTHXo_ OP* arg)
1989 {
1990     ((CPerlObj*)pPerl)->Perl_op_free(arg);
1991 }
1992
1993 #undef  Perl_pad_sv
1994 SV*
1995 Perl_pad_sv(pTHXo_ PADOFFSET po)
1996 {
1997     return ((CPerlObj*)pPerl)->Perl_pad_sv(po);
1998 }
1999 #if defined(PERL_OBJECT)
2000
2001 #undef  Perl_construct
2002 void
2003 Perl_construct(pTHXo)
2004 {
2005     ((CPerlObj*)pPerl)->Perl_construct();
2006 }
2007
2008 #undef  Perl_destruct
2009 void
2010 Perl_destruct(pTHXo)
2011 {
2012     ((CPerlObj*)pPerl)->Perl_destruct();
2013 }
2014
2015 #undef  Perl_free
2016 void
2017 Perl_free(pTHXo)
2018 {
2019     ((CPerlObj*)pPerl)->Perl_free();
2020 }
2021
2022 #undef  Perl_run
2023 int
2024 Perl_run(pTHXo)
2025 {
2026     return ((CPerlObj*)pPerl)->Perl_run();
2027 }
2028
2029 #undef  Perl_parse
2030 int
2031 Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env)
2032 {
2033     return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env);
2034 }
2035 #endif
2036 #if defined(USE_THREADS)
2037
2038 #undef  Perl_new_struct_thread
2039 struct perl_thread*
2040 Perl_new_struct_thread(pTHXo_ struct perl_thread *t)
2041 {
2042     return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t);
2043 }
2044 #endif
2045
2046 #undef  Perl_call_atexit
2047 void
2048 Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr)
2049 {
2050     ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr);
2051 }
2052
2053 #undef  Perl_call_argv
2054 I32
2055 Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv)
2056 {
2057     return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv);
2058 }
2059
2060 #undef  Perl_call_method
2061 I32
2062 Perl_call_method(pTHXo_ const char* methname, I32 flags)
2063 {
2064     return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags);
2065 }
2066
2067 #undef  Perl_call_pv
2068 I32
2069 Perl_call_pv(pTHXo_ const char* sub_name, I32 flags)
2070 {
2071     return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags);
2072 }
2073
2074 #undef  Perl_call_sv
2075 I32
2076 Perl_call_sv(pTHXo_ SV* sv, I32 flags)
2077 {
2078     return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags);
2079 }
2080
2081 #undef  Perl_eval_pv
2082 SV*
2083 Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error)
2084 {
2085     return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error);
2086 }
2087
2088 #undef  Perl_eval_sv
2089 I32
2090 Perl_eval_sv(pTHXo_ SV* sv, I32 flags)
2091 {
2092     return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags);
2093 }
2094
2095 #undef  Perl_get_sv
2096 SV*
2097 Perl_get_sv(pTHXo_ const char* name, I32 create)
2098 {
2099     return ((CPerlObj*)pPerl)->Perl_get_sv(name, create);
2100 }
2101
2102 #undef  Perl_get_av
2103 AV*
2104 Perl_get_av(pTHXo_ const char* name, I32 create)
2105 {
2106     return ((CPerlObj*)pPerl)->Perl_get_av(name, create);
2107 }
2108
2109 #undef  Perl_get_hv
2110 HV*
2111 Perl_get_hv(pTHXo_ const char* name, I32 create)
2112 {
2113     return ((CPerlObj*)pPerl)->Perl_get_hv(name, create);
2114 }
2115
2116 #undef  Perl_get_cv
2117 CV*
2118 Perl_get_cv(pTHXo_ const char* name, I32 create)
2119 {
2120     return ((CPerlObj*)pPerl)->Perl_get_cv(name, create);
2121 }
2122
2123 #undef  Perl_init_i18nl10n
2124 int
2125 Perl_init_i18nl10n(pTHXo_ int printwarn)
2126 {
2127     return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn);
2128 }
2129
2130 #undef  Perl_init_i18nl14n
2131 int
2132 Perl_init_i18nl14n(pTHXo_ int printwarn)
2133 {
2134     return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn);
2135 }
2136
2137 #undef  Perl_new_collate
2138 void
2139 Perl_new_collate(pTHXo_ const char* newcoll)
2140 {
2141     ((CPerlObj*)pPerl)->Perl_new_collate(newcoll);
2142 }
2143
2144 #undef  Perl_new_ctype
2145 void
2146 Perl_new_ctype(pTHXo_ const char* newctype)
2147 {
2148     ((CPerlObj*)pPerl)->Perl_new_ctype(newctype);
2149 }
2150
2151 #undef  Perl_new_numeric
2152 void
2153 Perl_new_numeric(pTHXo_ const char* newcoll)
2154 {
2155     ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll);
2156 }
2157
2158 #undef  Perl_set_numeric_local
2159 void
2160 Perl_set_numeric_local(pTHXo)
2161 {
2162     ((CPerlObj*)pPerl)->Perl_set_numeric_local();
2163 }
2164
2165 #undef  Perl_set_numeric_radix
2166 void
2167 Perl_set_numeric_radix(pTHXo)
2168 {
2169     ((CPerlObj*)pPerl)->Perl_set_numeric_radix();
2170 }
2171
2172 #undef  Perl_set_numeric_standard
2173 void
2174 Perl_set_numeric_standard(pTHXo)
2175 {
2176     ((CPerlObj*)pPerl)->Perl_set_numeric_standard();
2177 }
2178
2179 #undef  Perl_require_pv
2180 void
2181 Perl_require_pv(pTHXo_ const char* pv)
2182 {
2183     ((CPerlObj*)pPerl)->Perl_require_pv(pv);
2184 }
2185
2186 #undef  Perl_pmflag
2187 void
2188 Perl_pmflag(pTHXo_ U16* pmfl, int ch)
2189 {
2190     ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch);
2191 }
2192
2193 #undef  Perl_pop_scope
2194 void
2195 Perl_pop_scope(pTHXo)
2196 {
2197     ((CPerlObj*)pPerl)->Perl_pop_scope();
2198 }
2199
2200 #undef  Perl_push_scope
2201 void
2202 Perl_push_scope(pTHXo)
2203 {
2204     ((CPerlObj*)pPerl)->Perl_push_scope();
2205 }
2206
2207 #undef  Perl_regdump
2208 void
2209 Perl_regdump(pTHXo_ regexp* r)
2210 {
2211     ((CPerlObj*)pPerl)->Perl_regdump(r);
2212 }
2213
2214 #undef  Perl_pregexec
2215 I32
2216 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)
2217 {
2218     return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave);
2219 }
2220
2221 #undef  Perl_pregfree
2222 void
2223 Perl_pregfree(pTHXo_ struct regexp* r)
2224 {
2225     ((CPerlObj*)pPerl)->Perl_pregfree(r);
2226 }
2227
2228 #undef  Perl_pregcomp
2229 regexp*
2230 Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm)
2231 {
2232     return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm);
2233 }
2234
2235 #undef  Perl_re_intuit_start
2236 char*
2237 Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data)
2238 {
2239     return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data);
2240 }
2241
2242 #undef  Perl_re_intuit_string
2243 SV*
2244 Perl_re_intuit_string(pTHXo_ regexp* prog)
2245 {
2246     return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog);
2247 }
2248
2249 #undef  Perl_regexec_flags
2250 I32
2251 Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags)
2252 {
2253     return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags);
2254 }
2255
2256 #undef  Perl_regnext
2257 regnode*
2258 Perl_regnext(pTHXo_ regnode* p)
2259 {
2260     return ((CPerlObj*)pPerl)->Perl_regnext(p);
2261 }
2262
2263 #undef  Perl_repeatcpy
2264 void
2265 Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count)
2266 {
2267     ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count);
2268 }
2269
2270 #undef  Perl_rninstr
2271 char*
2272 Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend)
2273 {
2274     return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
2275 }
2276 #if !defined(HAS_RENAME)
2277 #endif
2278
2279 #undef  Perl_savepv
2280 char*
2281 Perl_savepv(pTHXo_ const char* sv)
2282 {
2283     return ((CPerlObj*)pPerl)->Perl_savepv(sv);
2284 }
2285
2286 #undef  Perl_savepvn
2287 char*
2288 Perl_savepvn(pTHXo_ const char* sv, I32 len)
2289 {
2290     return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len);
2291 }
2292
2293 #undef  Perl_savestack_grow
2294 void
2295 Perl_savestack_grow(pTHXo)
2296 {
2297     ((CPerlObj*)pPerl)->Perl_savestack_grow();
2298 }
2299
2300 #undef  Perl_save_aelem
2301 void
2302 Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr)
2303 {
2304     ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr);
2305 }
2306
2307 #undef  Perl_save_alloc
2308 I32
2309 Perl_save_alloc(pTHXo_ I32 size, I32 pad)
2310 {
2311     return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad);
2312 }
2313
2314 #undef  Perl_save_aptr
2315 void
2316 Perl_save_aptr(pTHXo_ AV** aptr)
2317 {
2318     ((CPerlObj*)pPerl)->Perl_save_aptr(aptr);
2319 }
2320
2321 #undef  Perl_save_ary
2322 AV*
2323 Perl_save_ary(pTHXo_ GV* gv)
2324 {
2325     return ((CPerlObj*)pPerl)->Perl_save_ary(gv);
2326 }
2327
2328 #undef  Perl_save_clearsv
2329 void
2330 Perl_save_clearsv(pTHXo_ SV** svp)
2331 {
2332     ((CPerlObj*)pPerl)->Perl_save_clearsv(svp);
2333 }
2334
2335 #undef  Perl_save_delete
2336 void
2337 Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen)
2338 {
2339     ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen);
2340 }
2341
2342 #undef  Perl_save_destructor
2343 void
2344 Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
2345 {
2346     ((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
2347 }
2348
2349 #undef  Perl_save_destructor_x
2350 void
2351 Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
2352 {
2353     ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
2354 }
2355
2356 #undef  Perl_save_freesv
2357 void
2358 Perl_save_freesv(pTHXo_ SV* sv)
2359 {
2360     ((CPerlObj*)pPerl)->Perl_save_freesv(sv);
2361 }
2362
2363 #undef  Perl_save_freepv
2364 void
2365 Perl_save_freepv(pTHXo_ char* pv)
2366 {
2367     ((CPerlObj*)pPerl)->Perl_save_freepv(pv);
2368 }
2369
2370 #undef  Perl_save_generic_svref
2371 void
2372 Perl_save_generic_svref(pTHXo_ SV** sptr)
2373 {
2374     ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
2375 }
2376
2377 #undef  Perl_save_gp
2378 void
2379 Perl_save_gp(pTHXo_ GV* gv, I32 empty)
2380 {
2381     ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty);
2382 }
2383
2384 #undef  Perl_save_hash
2385 HV*
2386 Perl_save_hash(pTHXo_ GV* gv)
2387 {
2388     return ((CPerlObj*)pPerl)->Perl_save_hash(gv);
2389 }
2390
2391 #undef  Perl_save_helem
2392 void
2393 Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr)
2394 {
2395     ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr);
2396 }
2397
2398 #undef  Perl_save_hints
2399 void
2400 Perl_save_hints(pTHXo)
2401 {
2402     ((CPerlObj*)pPerl)->Perl_save_hints();
2403 }
2404
2405 #undef  Perl_save_hptr
2406 void
2407 Perl_save_hptr(pTHXo_ HV** hptr)
2408 {
2409     ((CPerlObj*)pPerl)->Perl_save_hptr(hptr);
2410 }
2411
2412 #undef  Perl_save_I16
2413 void
2414 Perl_save_I16(pTHXo_ I16* intp)
2415 {
2416     ((CPerlObj*)pPerl)->Perl_save_I16(intp);
2417 }
2418
2419 #undef  Perl_save_I32
2420 void
2421 Perl_save_I32(pTHXo_ I32* intp)
2422 {
2423     ((CPerlObj*)pPerl)->Perl_save_I32(intp);
2424 }
2425
2426 #undef  Perl_save_I8
2427 void
2428 Perl_save_I8(pTHXo_ I8* bytep)
2429 {
2430     ((CPerlObj*)pPerl)->Perl_save_I8(bytep);
2431 }
2432
2433 #undef  Perl_save_int
2434 void
2435 Perl_save_int(pTHXo_ int* intp)
2436 {
2437     ((CPerlObj*)pPerl)->Perl_save_int(intp);
2438 }
2439
2440 #undef  Perl_save_item
2441 void
2442 Perl_save_item(pTHXo_ SV* item)
2443 {
2444     ((CPerlObj*)pPerl)->Perl_save_item(item);
2445 }
2446
2447 #undef  Perl_save_iv
2448 void
2449 Perl_save_iv(pTHXo_ IV* iv)
2450 {
2451     ((CPerlObj*)pPerl)->Perl_save_iv(iv);
2452 }
2453
2454 #undef  Perl_save_list
2455 void
2456 Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg)
2457 {
2458     ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg);
2459 }
2460
2461 #undef  Perl_save_long
2462 void
2463 Perl_save_long(pTHXo_ long* longp)
2464 {
2465     ((CPerlObj*)pPerl)->Perl_save_long(longp);
2466 }
2467
2468 #undef  Perl_save_nogv
2469 void
2470 Perl_save_nogv(pTHXo_ GV* gv)
2471 {
2472     ((CPerlObj*)pPerl)->Perl_save_nogv(gv);
2473 }
2474
2475 #undef  Perl_save_scalar
2476 SV*
2477 Perl_save_scalar(pTHXo_ GV* gv)
2478 {
2479     return ((CPerlObj*)pPerl)->Perl_save_scalar(gv);
2480 }
2481
2482 #undef  Perl_save_pptr
2483 void
2484 Perl_save_pptr(pTHXo_ char** pptr)
2485 {
2486     ((CPerlObj*)pPerl)->Perl_save_pptr(pptr);
2487 }
2488
2489 #undef  Perl_save_vptr
2490 void
2491 Perl_save_vptr(pTHXo_ void* pptr)
2492 {
2493     ((CPerlObj*)pPerl)->Perl_save_vptr(pptr);
2494 }
2495
2496 #undef  Perl_save_re_context
2497 void
2498 Perl_save_re_context(pTHXo)
2499 {
2500     ((CPerlObj*)pPerl)->Perl_save_re_context();
2501 }
2502
2503 #undef  Perl_save_sptr
2504 void
2505 Perl_save_sptr(pTHXo_ SV** sptr)
2506 {
2507     ((CPerlObj*)pPerl)->Perl_save_sptr(sptr);
2508 }
2509
2510 #undef  Perl_save_svref
2511 SV*
2512 Perl_save_svref(pTHXo_ SV** sptr)
2513 {
2514     return ((CPerlObj*)pPerl)->Perl_save_svref(sptr);
2515 }
2516
2517 #undef  Perl_save_threadsv
2518 SV**
2519 Perl_save_threadsv(pTHXo_ PADOFFSET i)
2520 {
2521     return ((CPerlObj*)pPerl)->Perl_save_threadsv(i);
2522 }
2523
2524 #undef  Perl_scan_bin
2525 NV
2526 Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
2527 {
2528     return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
2529 }
2530
2531 #undef  Perl_scan_hex
2532 NV
2533 Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
2534 {
2535     return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
2536 }
2537
2538 #undef  Perl_scan_num
2539 char*
2540 Perl_scan_num(pTHXo_ char* s)
2541 {
2542     return ((CPerlObj*)pPerl)->Perl_scan_num(s);
2543 }
2544
2545 #undef  Perl_scan_oct
2546 NV
2547 Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
2548 {
2549     return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
2550 }
2551
2552 #undef  Perl_screaminstr
2553 char*
2554 Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last)
2555 {
2556     return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last);
2557 }
2558 #if !defined(VMS)
2559 #endif
2560
2561 #undef  Perl_sharepvn
2562 char*
2563 Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
2564 {
2565     return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash);
2566 }
2567
2568 #undef  Perl_stack_grow
2569 SV**
2570 Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n)
2571 {
2572     return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n);
2573 }
2574
2575 #undef  Perl_start_subparse
2576 I32
2577 Perl_start_subparse(pTHXo_ I32 is_format, U32 flags)
2578 {
2579     return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags);
2580 }
2581
2582 #undef  Perl_sv_2bool
2583 bool
2584 Perl_sv_2bool(pTHXo_ SV* sv)
2585 {
2586     return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv);
2587 }
2588
2589 #undef  Perl_sv_2cv
2590 CV*
2591 Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref)
2592 {
2593     return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref);
2594 }
2595
2596 #undef  Perl_sv_2io
2597 IO*
2598 Perl_sv_2io(pTHXo_ SV* sv)
2599 {
2600     return ((CPerlObj*)pPerl)->Perl_sv_2io(sv);
2601 }
2602
2603 #undef  Perl_sv_2iv
2604 IV
2605 Perl_sv_2iv(pTHXo_ SV* sv)
2606 {
2607     return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv);
2608 }
2609
2610 #undef  Perl_sv_2mortal
2611 SV*
2612 Perl_sv_2mortal(pTHXo_ SV* sv)
2613 {
2614     return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv);
2615 }
2616
2617 #undef  Perl_sv_2nv
2618 NV
2619 Perl_sv_2nv(pTHXo_ SV* sv)
2620 {
2621     return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv);
2622 }
2623
2624 #undef  Perl_sv_2pv
2625 char*
2626 Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp)
2627 {
2628     return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp);
2629 }
2630
2631 #undef  Perl_sv_2pvutf8
2632 char*
2633 Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp)
2634 {
2635     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp);
2636 }
2637
2638 #undef  Perl_sv_2pvbyte
2639 char*
2640 Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp)
2641 {
2642     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp);
2643 }
2644
2645 #undef  Perl_sv_2uv
2646 UV
2647 Perl_sv_2uv(pTHXo_ SV* sv)
2648 {
2649     return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv);
2650 }
2651
2652 #undef  Perl_sv_iv
2653 IV
2654 Perl_sv_iv(pTHXo_ SV* sv)
2655 {
2656     return ((CPerlObj*)pPerl)->Perl_sv_iv(sv);
2657 }
2658
2659 #undef  Perl_sv_uv
2660 UV
2661 Perl_sv_uv(pTHXo_ SV* sv)
2662 {
2663     return ((CPerlObj*)pPerl)->Perl_sv_uv(sv);
2664 }
2665
2666 #undef  Perl_sv_nv
2667 NV
2668 Perl_sv_nv(pTHXo_ SV* sv)
2669 {
2670     return ((CPerlObj*)pPerl)->Perl_sv_nv(sv);
2671 }
2672
2673 #undef  Perl_sv_pvn
2674 char*
2675 Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len)
2676 {
2677     return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len);
2678 }
2679
2680 #undef  Perl_sv_pvutf8n
2681 char*
2682 Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len)
2683 {
2684     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len);
2685 }
2686
2687 #undef  Perl_sv_pvbyten
2688 char*
2689 Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len)
2690 {
2691     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len);
2692 }
2693
2694 #undef  Perl_sv_true
2695 I32
2696 Perl_sv_true(pTHXo_ SV *sv)
2697 {
2698     return ((CPerlObj*)pPerl)->Perl_sv_true(sv);
2699 }
2700
2701 #undef  Perl_sv_backoff
2702 int
2703 Perl_sv_backoff(pTHXo_ SV* sv)
2704 {
2705     return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv);
2706 }
2707
2708 #undef  Perl_sv_bless
2709 SV*
2710 Perl_sv_bless(pTHXo_ SV* sv, HV* stash)
2711 {
2712     return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash);
2713 }
2714
2715 #undef  Perl_sv_catpvf
2716 void
2717 Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
2718 {
2719     va_list args;
2720     va_start(args, pat);
2721     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args);
2722     va_end(args);
2723 }
2724
2725 #undef  Perl_sv_vcatpvf
2726 void
2727 Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
2728 {
2729     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args);
2730 }
2731
2732 #undef  Perl_sv_catpv
2733 void
2734 Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr)
2735 {
2736     ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr);
2737 }
2738
2739 #undef  Perl_sv_catpvn
2740 void
2741 Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
2742 {
2743     ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len);
2744 }
2745
2746 #undef  Perl_sv_catsv
2747 void
2748 Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv)
2749 {
2750     ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv);
2751 }
2752
2753 #undef  Perl_sv_chop
2754 void
2755 Perl_sv_chop(pTHXo_ SV* sv, char* ptr)
2756 {
2757     ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr);
2758 }
2759
2760 #undef  Perl_sv_clear
2761 void
2762 Perl_sv_clear(pTHXo_ SV* sv)
2763 {
2764     ((CPerlObj*)pPerl)->Perl_sv_clear(sv);
2765 }
2766
2767 #undef  Perl_sv_cmp
2768 I32
2769 Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2)
2770 {
2771     return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2);
2772 }
2773
2774 #undef  Perl_sv_cmp_locale
2775 I32
2776 Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2)
2777 {
2778     return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2);
2779 }
2780 #if defined(USE_LOCALE_COLLATE)
2781
2782 #undef  Perl_sv_collxfrm
2783 char*
2784 Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp)
2785 {
2786     return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp);
2787 }
2788 #endif
2789
2790 #undef  Perl_sv_compile_2op
2791 OP*
2792 Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp)
2793 {
2794     return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
2795 }
2796
2797 #undef  Perl_sv_dec
2798 void
2799 Perl_sv_dec(pTHXo_ SV* sv)
2800 {
2801     ((CPerlObj*)pPerl)->Perl_sv_dec(sv);
2802 }
2803
2804 #undef  Perl_sv_dump
2805 void
2806 Perl_sv_dump(pTHXo_ SV* sv)
2807 {
2808     ((CPerlObj*)pPerl)->Perl_sv_dump(sv);
2809 }
2810
2811 #undef  Perl_sv_derived_from
2812 bool
2813 Perl_sv_derived_from(pTHXo_ SV* sv, const char* name)
2814 {
2815     return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name);
2816 }
2817
2818 #undef  Perl_sv_eq
2819 I32
2820 Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2)
2821 {
2822     return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2);
2823 }
2824
2825 #undef  Perl_sv_free
2826 void
2827 Perl_sv_free(pTHXo_ SV* sv)
2828 {
2829     ((CPerlObj*)pPerl)->Perl_sv_free(sv);
2830 }
2831
2832 #undef  Perl_sv_gets
2833 char*
2834 Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append)
2835 {
2836     return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append);
2837 }
2838
2839 #undef  Perl_sv_grow
2840 char*
2841 Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen)
2842 {
2843     return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen);
2844 }
2845
2846 #undef  Perl_sv_inc
2847 void
2848 Perl_sv_inc(pTHXo_ SV* sv)
2849 {
2850     ((CPerlObj*)pPerl)->Perl_sv_inc(sv);
2851 }
2852
2853 #undef  Perl_sv_insert
2854 void
2855 Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)
2856 {
2857     ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen);
2858 }
2859
2860 #undef  Perl_sv_isa
2861 int
2862 Perl_sv_isa(pTHXo_ SV* sv, const char* name)
2863 {
2864     return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name);
2865 }
2866
2867 #undef  Perl_sv_isobject
2868 int
2869 Perl_sv_isobject(pTHXo_ SV* sv)
2870 {
2871     return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv);
2872 }
2873
2874 #undef  Perl_sv_len
2875 STRLEN
2876 Perl_sv_len(pTHXo_ SV* sv)
2877 {
2878     return ((CPerlObj*)pPerl)->Perl_sv_len(sv);
2879 }
2880
2881 #undef  Perl_sv_len_utf8
2882 STRLEN
2883 Perl_sv_len_utf8(pTHXo_ SV* sv)
2884 {
2885     return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv);
2886 }
2887
2888 #undef  Perl_sv_magic
2889 void
2890 Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
2891 {
2892     ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen);
2893 }
2894
2895 #undef  Perl_sv_mortalcopy
2896 SV*
2897 Perl_sv_mortalcopy(pTHXo_ SV* oldsv)
2898 {
2899     return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv);
2900 }
2901
2902 #undef  Perl_sv_newmortal
2903 SV*
2904 Perl_sv_newmortal(pTHXo)
2905 {
2906     return ((CPerlObj*)pPerl)->Perl_sv_newmortal();
2907 }
2908
2909 #undef  Perl_sv_newref
2910 SV*
2911 Perl_sv_newref(pTHXo_ SV* sv)
2912 {
2913     return ((CPerlObj*)pPerl)->Perl_sv_newref(sv);
2914 }
2915
2916 #undef  Perl_sv_peek
2917 char*
2918 Perl_sv_peek(pTHXo_ SV* sv)
2919 {
2920     return ((CPerlObj*)pPerl)->Perl_sv_peek(sv);
2921 }
2922
2923 #undef  Perl_sv_pos_u2b
2924 void
2925 Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp)
2926 {
2927     ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp);
2928 }
2929
2930 #undef  Perl_sv_pos_b2u
2931 void
2932 Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp)
2933 {
2934     ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp);
2935 }
2936
2937 #undef  Perl_sv_pvn_force
2938 char*
2939 Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp)
2940 {
2941     return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp);
2942 }
2943
2944 #undef  Perl_sv_pvutf8n_force
2945 char*
2946 Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp)
2947 {
2948     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp);
2949 }
2950
2951 #undef  Perl_sv_pvbyten_force
2952 char*
2953 Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp)
2954 {
2955     return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
2956 }
2957
2958 #undef  Perl_sv_reftype
2959 char*
2960 Perl_sv_reftype(pTHXo_ SV* sv, int ob)
2961 {
2962     return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob);
2963 }
2964
2965 #undef  Perl_sv_replace
2966 void
2967 Perl_sv_replace(pTHXo_ SV* sv, SV* nsv)
2968 {
2969     ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv);
2970 }
2971
2972 #undef  Perl_sv_report_used
2973 void
2974 Perl_sv_report_used(pTHXo)
2975 {
2976     ((CPerlObj*)pPerl)->Perl_sv_report_used();
2977 }
2978
2979 #undef  Perl_sv_reset
2980 void
2981 Perl_sv_reset(pTHXo_ char* s, HV* stash)
2982 {
2983     ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash);
2984 }
2985
2986 #undef  Perl_sv_setpvf
2987 void
2988 Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
2989 {
2990     va_list args;
2991     va_start(args, pat);
2992     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args);
2993     va_end(args);
2994 }
2995
2996 #undef  Perl_sv_vsetpvf
2997 void
2998 Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args)
2999 {
3000     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args);
3001 }
3002
3003 #undef  Perl_sv_setiv
3004 void
3005 Perl_sv_setiv(pTHXo_ SV* sv, IV num)
3006 {
3007     ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num);
3008 }
3009
3010 #undef  Perl_sv_setpviv
3011 void
3012 Perl_sv_setpviv(pTHXo_ SV* sv, IV num)
3013 {
3014     ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num);
3015 }
3016
3017 #undef  Perl_sv_setuv
3018 void
3019 Perl_sv_setuv(pTHXo_ SV* sv, UV num)
3020 {
3021     ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num);
3022 }
3023
3024 #undef  Perl_sv_setnv
3025 void
3026 Perl_sv_setnv(pTHXo_ SV* sv, NV num)
3027 {
3028     ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num);
3029 }
3030
3031 #undef  Perl_sv_setref_iv
3032 SV*
3033 Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv)
3034 {
3035     return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
3036 }
3037
3038 #undef  Perl_sv_setref_nv
3039 SV*
3040 Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
3041 {
3042     return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv);
3043 }
3044
3045 #undef  Perl_sv_setref_pv
3046 SV*
3047 Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv)
3048 {
3049     return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv);
3050 }
3051
3052 #undef  Perl_sv_setref_pvn
3053 SV*
3054 Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n)
3055 {
3056     return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n);
3057 }
3058
3059 #undef  Perl_sv_setpv
3060 void
3061 Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr)
3062 {
3063     ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr);
3064 }
3065
3066 #undef  Perl_sv_setpvn
3067 void
3068 Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len)
3069 {
3070     ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len);
3071 }
3072
3073 #undef  Perl_sv_setsv
3074 void
3075 Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv)
3076 {
3077     ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv);
3078 }
3079
3080 #undef  Perl_sv_taint
3081 void
3082 Perl_sv_taint(pTHXo_ SV* sv)
3083 {
3084     ((CPerlObj*)pPerl)->Perl_sv_taint(sv);
3085 }
3086
3087 #undef  Perl_sv_tainted
3088 bool
3089 Perl_sv_tainted(pTHXo_ SV* sv)
3090 {
3091     return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv);
3092 }
3093
3094 #undef  Perl_sv_unmagic
3095 int
3096 Perl_sv_unmagic(pTHXo_ SV* sv, int type)
3097 {
3098     return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type);
3099 }
3100
3101 #undef  Perl_sv_unref
3102 void
3103 Perl_sv_unref(pTHXo_ SV* sv)
3104 {
3105     ((CPerlObj*)pPerl)->Perl_sv_unref(sv);
3106 }
3107
3108 #undef  Perl_sv_untaint
3109 void
3110 Perl_sv_untaint(pTHXo_ SV* sv)
3111 {
3112     ((CPerlObj*)pPerl)->Perl_sv_untaint(sv);
3113 }
3114
3115 #undef  Perl_sv_upgrade
3116 bool
3117 Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt)
3118 {
3119     return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt);
3120 }
3121
3122 #undef  Perl_sv_usepvn
3123 void
3124 Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len)
3125 {
3126     ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len);
3127 }
3128
3129 #undef  Perl_sv_vcatpvfn
3130 void
3131 Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3132 {
3133     ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3134 }
3135
3136 #undef  Perl_sv_vsetpvfn
3137 void
3138 Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
3139 {
3140     ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
3141 }
3142
3143 #undef  Perl_str_to_version
3144 NV
3145 Perl_str_to_version(pTHXo_ SV *sv)
3146 {
3147     return ((CPerlObj*)pPerl)->Perl_str_to_version(sv);
3148 }
3149
3150 #undef  Perl_swash_init
3151 SV*
3152 Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
3153 {
3154     return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none);
3155 }
3156
3157 #undef  Perl_swash_fetch
3158 UV
3159 Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
3160 {
3161     return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
3162 }
3163
3164 #undef  Perl_taint_env
3165 void
3166 Perl_taint_env(pTHXo)
3167 {
3168     ((CPerlObj*)pPerl)->Perl_taint_env();
3169 }
3170
3171 #undef  Perl_taint_proper
3172 void
3173 Perl_taint_proper(pTHXo_ const char* f, const char* s)
3174 {
3175     ((CPerlObj*)pPerl)->Perl_taint_proper(f, s);
3176 }
3177
3178 #undef  Perl_to_utf8_lower
3179 UV
3180 Perl_to_utf8_lower(pTHXo_ U8 *p)
3181 {
3182     return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p);
3183 }
3184
3185 #undef  Perl_to_utf8_upper
3186 UV
3187 Perl_to_utf8_upper(pTHXo_ U8 *p)
3188 {
3189     return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p);
3190 }
3191
3192 #undef  Perl_to_utf8_title
3193 UV
3194 Perl_to_utf8_title(pTHXo_ U8 *p)
3195 {
3196     return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p);
3197 }
3198 #if defined(UNLINK_ALL_VERSIONS)
3199
3200 #undef  Perl_unlnk
3201 I32
3202 Perl_unlnk(pTHXo_ char* f)
3203 {
3204     return ((CPerlObj*)pPerl)->Perl_unlnk(f);
3205 }
3206 #endif
3207 #if defined(USE_THREADS)
3208
3209 #undef  Perl_unlock_condpair
3210 void
3211 Perl_unlock_condpair(pTHXo_ void* svv)
3212 {
3213     ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv);
3214 }
3215 #endif
3216
3217 #undef  Perl_unsharepvn
3218 void
3219 Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
3220 {
3221     ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash);
3222 }
3223
3224 #undef  Perl_utf16_to_utf8
3225 U8*
3226 Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen)
3227 {
3228     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
3229 }
3230
3231 #undef  Perl_utf16_to_utf8_reversed
3232 U8*
3233 Perl_utf16_to_utf8_reversed(pTHXo_ U16* p, U8 *d, I32 bytelen)
3234 {
3235     return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
3236 }
3237
3238 #undef  Perl_utf8_distance
3239 I32
3240 Perl_utf8_distance(pTHXo_ U8 *a, U8 *b)
3241 {
3242     return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b);
3243 }
3244
3245 #undef  Perl_utf8_hop
3246 U8*
3247 Perl_utf8_hop(pTHXo_ U8 *s, I32 off)
3248 {
3249     return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off);
3250 }
3251
3252 #undef  Perl_utf8_to_uv
3253 UV
3254 Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen)
3255 {
3256     return ((CPerlObj*)pPerl)->Perl_utf8_to_uv(s, retlen);
3257 }
3258
3259 #undef  Perl_uv_to_utf8
3260 U8*
3261 Perl_uv_to_utf8(pTHXo_ U8 *d, UV uv)
3262 {
3263     return ((CPerlObj*)pPerl)->Perl_uv_to_utf8(d, uv);
3264 }
3265
3266 #undef  Perl_warn
3267 void
3268 Perl_warn(pTHXo_ const char* pat, ...)
3269 {
3270     va_list args;
3271     va_start(args, pat);
3272     ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args);
3273     va_end(args);
3274 }
3275
3276 #undef  Perl_vwarn
3277 void
3278 Perl_vwarn(pTHXo_ const char* pat, va_list* args)
3279 {
3280     ((CPerlObj*)pPerl)->Perl_vwarn(pat, args);
3281 }
3282
3283 #undef  Perl_warner
3284 void
3285 Perl_warner(pTHXo_ U32 err, const char* pat, ...)
3286 {
3287     va_list args;
3288     va_start(args, pat);
3289     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args);
3290     va_end(args);
3291 }
3292
3293 #undef  Perl_vwarner
3294 void
3295 Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
3296 {
3297     ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
3298 }
3299 #if defined(USE_PURE_BISON)
3300 #else
3301 #endif
3302 #if defined(MYMALLOC)
3303
3304 #undef  Perl_dump_mstats
3305 void
3306 Perl_dump_mstats(pTHXo_ char* s)
3307 {
3308     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
3309 }
3310
3311 #undef  Perl_get_mstats
3312 int
3313 Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level)
3314 {
3315     return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level);
3316 }
3317 #endif
3318
3319 #undef  Perl_safesysmalloc
3320 Malloc_t
3321 Perl_safesysmalloc(MEM_SIZE nbytes)
3322 {
3323     dTHXo;
3324     return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes);
3325 }
3326
3327 #undef  Perl_safesyscalloc
3328 Malloc_t
3329 Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
3330 {
3331     dTHXo;
3332     return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size);
3333 }
3334
3335 #undef  Perl_safesysrealloc
3336 Malloc_t
3337 Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
3338 {
3339     dTHXo;
3340     return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes);
3341 }
3342
3343 #undef  Perl_safesysfree
3344 Free_t
3345 Perl_safesysfree(Malloc_t where)
3346 {
3347     dTHXo;
3348     ((CPerlObj*)pPerl)->Perl_safesysfree(where);
3349 }
3350 #if defined(LEAKTEST)
3351
3352 #undef  Perl_safexmalloc
3353 Malloc_t
3354 Perl_safexmalloc(I32 x, MEM_SIZE size)
3355 {
3356     dTHXo;
3357     return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size);
3358 }
3359
3360 #undef  Perl_safexcalloc
3361 Malloc_t
3362 Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size)
3363 {
3364     dTHXo;
3365     return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size);
3366 }
3367
3368 #undef  Perl_safexrealloc
3369 Malloc_t
3370 Perl_safexrealloc(Malloc_t where, MEM_SIZE size)
3371 {
3372     dTHXo;
3373     return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size);
3374 }
3375
3376 #undef  Perl_safexfree
3377 void
3378 Perl_safexfree(Malloc_t where)
3379 {
3380     dTHXo;
3381     ((CPerlObj*)pPerl)->Perl_safexfree(where);
3382 }
3383 #endif
3384 #if defined(PERL_GLOBAL_STRUCT)
3385
3386 #undef  Perl_GetVars
3387 struct perl_vars *
3388 Perl_GetVars(pTHXo)
3389 {
3390     return ((CPerlObj*)pPerl)->Perl_GetVars();
3391 }
3392 #endif
3393
3394 #undef  Perl_runops_standard
3395 int
3396 Perl_runops_standard(pTHXo)
3397 {
3398     return ((CPerlObj*)pPerl)->Perl_runops_standard();
3399 }
3400
3401 #undef  Perl_runops_debug
3402 int
3403 Perl_runops_debug(pTHXo)
3404 {
3405     return ((CPerlObj*)pPerl)->Perl_runops_debug();
3406 }
3407
3408 #undef  Perl_sv_catpvf_mg
3409 void
3410 Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3411 {
3412     va_list args;
3413     va_start(args, pat);
3414     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args);
3415     va_end(args);
3416 }
3417
3418 #undef  Perl_sv_vcatpvf_mg
3419 void
3420 Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3421 {
3422     ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args);
3423 }
3424
3425 #undef  Perl_sv_catpv_mg
3426 void
3427 Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr)
3428 {
3429     ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr);
3430 }
3431
3432 #undef  Perl_sv_catpvn_mg
3433 void
3434 Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3435 {
3436     ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len);
3437 }
3438
3439 #undef  Perl_sv_catsv_mg
3440 void
3441 Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr)
3442 {
3443     ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr);
3444 }
3445
3446 #undef  Perl_sv_setpvf_mg
3447 void
3448 Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
3449 {
3450     va_list args;
3451     va_start(args, pat);
3452     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args);
3453     va_end(args);
3454 }
3455
3456 #undef  Perl_sv_vsetpvf_mg
3457 void
3458 Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args)
3459 {
3460     ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args);
3461 }
3462
3463 #undef  Perl_sv_setiv_mg
3464 void
3465 Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i)
3466 {
3467     ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i);
3468 }
3469
3470 #undef  Perl_sv_setpviv_mg
3471 void
3472 Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv)
3473 {
3474     ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv);
3475 }
3476
3477 #undef  Perl_sv_setuv_mg
3478 void
3479 Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u)
3480 {
3481     ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u);
3482 }
3483
3484 #undef  Perl_sv_setnv_mg
3485 void
3486 Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num)
3487 {
3488     ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num);
3489 }
3490
3491 #undef  Perl_sv_setpv_mg
3492 void
3493 Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr)
3494 {
3495     ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr);
3496 }
3497
3498 #undef  Perl_sv_setpvn_mg
3499 void
3500 Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len)
3501 {
3502     ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len);
3503 }
3504
3505 #undef  Perl_sv_setsv_mg
3506 void
3507 Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr)
3508 {
3509     ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr);
3510 }
3511
3512 #undef  Perl_sv_usepvn_mg
3513 void
3514 Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len)
3515 {
3516     ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len);
3517 }
3518
3519 #undef  Perl_get_vtbl
3520 MGVTBL*
3521 Perl_get_vtbl(pTHXo_ int vtbl_id)
3522 {
3523     return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id);
3524 }
3525
3526 #undef  Perl_dump_indent
3527 void
3528 Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
3529 {
3530     va_list args;
3531     va_start(args, pat);
3532     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args);
3533     va_end(args);
3534 }
3535
3536 #undef  Perl_dump_vindent
3537 void
3538 Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args)
3539 {
3540     ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args);
3541 }
3542
3543 #undef  Perl_do_gv_dump
3544 void
3545 Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3546 {
3547     ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv);
3548 }
3549
3550 #undef  Perl_do_gvgv_dump
3551 void
3552 Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv)
3553 {
3554     ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv);
3555 }
3556
3557 #undef  Perl_do_hv_dump
3558 void
3559 Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv)
3560 {
3561     ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv);
3562 }
3563
3564 #undef  Perl_do_magic_dump
3565 void
3566 Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3567 {
3568     ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim);
3569 }
3570
3571 #undef  Perl_do_op_dump
3572 void
3573 Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o)
3574 {
3575     ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o);
3576 }
3577
3578 #undef  Perl_do_pmop_dump
3579 void
3580 Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm)
3581 {
3582     ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm);
3583 }
3584
3585 #undef  Perl_do_sv_dump
3586 void
3587 Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
3588 {
3589     ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim);
3590 }
3591
3592 #undef  Perl_magic_dump
3593 void
3594 Perl_magic_dump(pTHXo_ MAGIC *mg)
3595 {
3596     ((CPerlObj*)pPerl)->Perl_magic_dump(mg);
3597 }
3598 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
3599
3600 #undef  Perl_default_protect
3601 void*
3602 Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
3603 {
3604     void* retval;
3605     va_list args;
3606     va_start(args, body);
3607     retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
3608     va_end(args);
3609     return retval;
3610
3611 }
3612
3613 #undef  Perl_vdefault_protect
3614 void*
3615 Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
3616 {
3617     return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
3618 }
3619 #endif
3620
3621 #undef  Perl_reginitcolors
3622 void
3623 Perl_reginitcolors(pTHXo)
3624 {
3625     ((CPerlObj*)pPerl)->Perl_reginitcolors();
3626 }
3627
3628 #undef  Perl_sv_2pv_nolen
3629 char*
3630 Perl_sv_2pv_nolen(pTHXo_ SV* sv)
3631 {
3632     return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv);
3633 }
3634
3635 #undef  Perl_sv_2pvutf8_nolen
3636 char*
3637 Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv)
3638 {
3639     return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv);
3640 }
3641
3642 #undef  Perl_sv_2pvbyte_nolen
3643 char*
3644 Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv)
3645 {
3646     return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv);
3647 }
3648
3649 #undef  Perl_sv_pv
3650 char*
3651 Perl_sv_pv(pTHXo_ SV *sv)
3652 {
3653     return ((CPerlObj*)pPerl)->Perl_sv_pv(sv);
3654 }
3655
3656 #undef  Perl_sv_pvutf8
3657 char*
3658 Perl_sv_pvutf8(pTHXo_ SV *sv)
3659 {
3660     return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv);
3661 }
3662
3663 #undef  Perl_sv_pvbyte
3664 char*
3665 Perl_sv_pvbyte(pTHXo_ SV *sv)
3666 {
3667     return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
3668 }
3669
3670 #undef  Perl_sv_utf8_upgrade
3671 void
3672 Perl_sv_utf8_upgrade(pTHXo_ SV *sv)
3673 {
3674     ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv);
3675 }
3676
3677 #undef  Perl_sv_utf8_downgrade
3678 bool
3679 Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok)
3680 {
3681     return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok);
3682 }
3683
3684 #undef  Perl_sv_utf8_encode
3685 void
3686 Perl_sv_utf8_encode(pTHXo_ SV *sv)
3687 {
3688     ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv);
3689 }
3690
3691 #undef  Perl_sv_utf8_decode
3692 bool
3693 Perl_sv_utf8_decode(pTHXo_ SV *sv)
3694 {
3695     return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv);
3696 }
3697
3698 #undef  Perl_sv_force_normal
3699 void
3700 Perl_sv_force_normal(pTHXo_ SV *sv)
3701 {
3702     ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv);
3703 }
3704
3705 #undef  Perl_tmps_grow
3706 void
3707 Perl_tmps_grow(pTHXo_ I32 n)
3708 {
3709     ((CPerlObj*)pPerl)->Perl_tmps_grow(n);
3710 }
3711
3712 #undef  Perl_sv_rvweaken
3713 SV*
3714 Perl_sv_rvweaken(pTHXo_ SV *sv)
3715 {
3716     return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv);
3717 }
3718
3719 #undef  Perl_newANONATTRSUB
3720 OP*
3721 Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
3722 {
3723     return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
3724 }
3725
3726 #undef  Perl_newATTRSUB
3727 CV*
3728 Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3729 {
3730     return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
3731 }
3732
3733 #undef  Perl_newMYSUB
3734 void
3735 Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
3736 {
3737     ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
3738 }
3739 #if defined(USE_ITHREADS)
3740
3741 #undef  Perl_cx_dup
3742 PERL_CONTEXT*
3743 Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max)
3744 {
3745     return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max);
3746 }
3747
3748 #undef  Perl_si_dup
3749 PERL_SI*
3750 Perl_si_dup(pTHXo_ PERL_SI* si)
3751 {
3752     return ((CPerlObj*)pPerl)->Perl_si_dup(si);
3753 }
3754
3755 #undef  Perl_ss_dup
3756 ANY*
3757 Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl)
3758 {
3759     return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl);
3760 }
3761
3762 #undef  Perl_any_dup
3763 void*
3764 Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl)
3765 {
3766     return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl);
3767 }
3768
3769 #undef  Perl_he_dup
3770 HE*
3771 Perl_he_dup(pTHXo_ HE* e, bool shared)
3772 {
3773     return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared);
3774 }
3775
3776 #undef  Perl_re_dup
3777 REGEXP*
3778 Perl_re_dup(pTHXo_ REGEXP* r)
3779 {
3780     return ((CPerlObj*)pPerl)->Perl_re_dup(r);
3781 }
3782
3783 #undef  Perl_fp_dup
3784 PerlIO*
3785 Perl_fp_dup(pTHXo_ PerlIO* fp, char type)
3786 {
3787     return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type);
3788 }
3789
3790 #undef  Perl_dirp_dup
3791 DIR*
3792 Perl_dirp_dup(pTHXo_ DIR* dp)
3793 {
3794     return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp);
3795 }
3796
3797 #undef  Perl_gp_dup
3798 GP*
3799 Perl_gp_dup(pTHXo_ GP* gp)
3800 {
3801     return ((CPerlObj*)pPerl)->Perl_gp_dup(gp);
3802 }
3803
3804 #undef  Perl_mg_dup
3805 MAGIC*
3806 Perl_mg_dup(pTHXo_ MAGIC* mg)
3807 {
3808     return ((CPerlObj*)pPerl)->Perl_mg_dup(mg);
3809 }
3810
3811 #undef  Perl_sv_dup
3812 SV*
3813 Perl_sv_dup(pTHXo_ SV* sstr)
3814 {
3815     return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr);
3816 }
3817 #if defined(HAVE_INTERP_INTERN)
3818
3819 #undef  Perl_sys_intern_dup
3820 void
3821 Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst)
3822 {
3823     ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst);
3824 }
3825 #endif
3826
3827 #undef  Perl_ptr_table_new
3828 PTR_TBL_t*
3829 Perl_ptr_table_new(pTHXo)
3830 {
3831     return ((CPerlObj*)pPerl)->Perl_ptr_table_new();
3832 }
3833
3834 #undef  Perl_ptr_table_fetch
3835 void*
3836 Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv)
3837 {
3838     return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv);
3839 }
3840
3841 #undef  Perl_ptr_table_store
3842 void
3843 Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv)
3844 {
3845     ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv);
3846 }
3847
3848 #undef  Perl_ptr_table_split
3849 void
3850 Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
3851 {
3852     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
3853 }
3854 #endif
3855 #if defined(PERL_OBJECT)
3856 #else
3857 #endif
3858 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
3859 #endif
3860 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
3861 #endif
3862 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
3863 #endif
3864 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
3865 #endif
3866 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
3867 #endif
3868 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
3869 #  if defined(PL_OP_SLAB_ALLOC)
3870 #  endif
3871 #endif
3872 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
3873 #  if defined(IAMSUID)
3874 #  endif
3875 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
3876 #endif
3877 #  if defined(USE_THREADS)
3878 #  endif
3879 #endif
3880 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
3881 #endif
3882 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
3883 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
3884 #endif
3885 #endif
3886 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
3887 #endif
3888 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
3889 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
3890 #  endif
3891 #endif
3892 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
3893 #endif
3894 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
3895 #endif
3896 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
3897 #endif
3898 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
3899 #endif
3900 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
3901 #  if defined(DEBUGGING)
3902 #  endif
3903 #endif
3904 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
3905 #  if defined(CRIPPLED_CC)
3906 #  endif
3907 #  if defined(PERL_CR_FILTER)
3908 #  endif
3909 #endif
3910 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
3911 #endif
3912 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
3913 #  if defined(LEAKTEST)
3914 #  endif
3915 #endif
3916 #if defined(PERL_OBJECT)
3917 #endif
3918
3919 #undef Perl_fprintf_nocontext
3920 int
3921 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
3922 {
3923     dTHXo;
3924     va_list(arglist);
3925     va_start(arglist, format);
3926     return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
3927 }
3928
3929 END_EXTERN_C
3930
3931 #endif /* PERL_OBJECT */
3932 #endif /* PERL_OBJECT || MULTIPLICITY */