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