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