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