perlapi.c

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