perlapi.c

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