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