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