This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
cSVOPo_*v things index into the current PL_curpad
[perl5.git] / objXSUB.h
index 8d31e99..3e0ccce 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -13,7 +13,6 @@
 /* XXX soon to be eliminated, only a few things in PERLCORE need these now */
 
 #if defined(PERL_IMPLICIT_SYS)
-#else
 #endif
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #define Perl_Gv_AMupdate       pPerl->Perl_Gv_AMupdate
 #undef  Gv_AMupdate
 #define Gv_AMupdate            Perl_Gv_AMupdate
+#undef  Perl_apply_attrs_string
+#define Perl_apply_attrs_string        pPerl->Perl_apply_attrs_string
+#undef  apply_attrs_string
+#define apply_attrs_string     Perl_apply_attrs_string
 #undef  Perl_avhv_delete_ent
 #define Perl_avhv_delete_ent   pPerl->Perl_avhv_delete_ent
 #undef  avhv_delete_ent
 #define Perl_avhv_fetch_ent    pPerl->Perl_avhv_fetch_ent
 #undef  avhv_fetch_ent
 #define avhv_fetch_ent         Perl_avhv_fetch_ent
+#undef  Perl_avhv_store_ent
+#define Perl_avhv_store_ent    pPerl->Perl_avhv_store_ent
+#undef  avhv_store_ent
+#define avhv_store_ent         Perl_avhv_store_ent
 #undef  Perl_avhv_iternext
 #define Perl_avhv_iternext     pPerl->Perl_avhv_iternext
 #undef  avhv_iternext
 #define Perl_av_extend         pPerl->Perl_av_extend
 #undef  av_extend
 #define av_extend              Perl_av_extend
-#undef  Perl_av_fake
-#define Perl_av_fake           pPerl->Perl_av_fake
-#undef  av_fake
-#define av_fake                        Perl_av_fake
 #undef  Perl_av_fetch
 #define Perl_av_fetch          pPerl->Perl_av_fetch
 #undef  av_fetch
 #define Perl_av_push           pPerl->Perl_av_push
 #undef  av_push
 #define av_push                        Perl_av_push
-#undef  Perl_av_reify
-#define Perl_av_reify          pPerl->Perl_av_reify
-#undef  av_reify
-#define av_reify               Perl_av_reify
 #undef  Perl_av_shift
 #define Perl_av_shift          pPerl->Perl_av_shift
 #undef  av_shift
 #define Perl_block_gimme       pPerl->Perl_block_gimme
 #undef  block_gimme
 #define block_gimme            Perl_block_gimme
+#undef  Perl_call_list
+#define Perl_call_list         pPerl->Perl_call_list
+#undef  call_list
+#define call_list              Perl_call_list
 #undef  Perl_cast_ulong
 #define Perl_cast_ulong                pPerl->Perl_cast_ulong
 #undef  cast_ulong
 #define my_chsize              Perl_my_chsize
 #endif
 #if defined(USE_THREADS)
+#undef  Perl_condpair_magic
+#define Perl_condpair_magic    pPerl->Perl_condpair_magic
+#undef  condpair_magic
+#define condpair_magic         Perl_condpair_magic
 #endif
 #undef  Perl_croak
 #define Perl_croak             pPerl->Perl_croak
 #define Perl_form_nocontext    pPerl->Perl_form_nocontext
 #undef  form_nocontext
 #define form_nocontext         Perl_form_nocontext
+#undef  Perl_load_module_nocontext
+#define Perl_load_module_nocontext     pPerl->Perl_load_module_nocontext
+#undef  load_module_nocontext
+#define load_module_nocontext  Perl_load_module_nocontext
 #undef  Perl_mess_nocontext
 #define Perl_mess_nocontext    pPerl->Perl_mess_nocontext
 #undef  mess_nocontext
 #undef  fprintf_nocontext
 #define fprintf_nocontext      Perl_fprintf_nocontext
 #endif
+#undef  Perl_cv_const_sv
+#define Perl_cv_const_sv       pPerl->Perl_cv_const_sv
+#undef  cv_const_sv
+#define cv_const_sv            Perl_cv_const_sv
+#undef  Perl_cv_undef
+#define Perl_cv_undef          pPerl->Perl_cv_undef
+#undef  cv_undef
+#define cv_undef               Perl_cv_undef
 #undef  Perl_cx_dump
 #define Perl_cx_dump           pPerl->Perl_cx_dump
 #undef  cx_dump
 #define Perl_delimcpy          pPerl->Perl_delimcpy
 #undef  delimcpy
 #define delimcpy               Perl_delimcpy
+#undef  Perl_die
+#define Perl_die               pPerl->Perl_die
+#undef  die
+#define die                    Perl_die
+#undef  Perl_dounwind
+#define Perl_dounwind          pPerl->Perl_dounwind
+#undef  dounwind
+#define dounwind               Perl_dounwind
 #undef  Perl_do_binmode
 #define Perl_do_binmode                pPerl->Perl_do_binmode
 #undef  do_binmode
 #define do_binmode             Perl_do_binmode
+#undef  Perl_do_close
+#define Perl_do_close          pPerl->Perl_do_close
+#undef  do_close
+#define do_close               Perl_do_close
 #if !defined(WIN32)
 #endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 #endif
+#undef  Perl_do_join
+#define Perl_do_join           pPerl->Perl_do_join
+#undef  do_join
+#define do_join                        Perl_do_join
 #undef  Perl_do_open
 #define Perl_do_open           pPerl->Perl_do_open
 #undef  do_open
 #define Perl_gv_efullname3     pPerl->Perl_gv_efullname3
 #undef  gv_efullname3
 #define gv_efullname3          Perl_gv_efullname3
+#undef  Perl_gv_efullname4
+#define Perl_gv_efullname4     pPerl->Perl_gv_efullname4
+#undef  gv_efullname4
+#define gv_efullname4          Perl_gv_efullname4
 #undef  Perl_gv_fetchfile
 #define Perl_gv_fetchfile      pPerl->Perl_gv_fetchfile
 #undef  gv_fetchfile
 #define Perl_gv_fullname3      pPerl->Perl_gv_fullname3
 #undef  gv_fullname3
 #define gv_fullname3           Perl_gv_fullname3
+#undef  Perl_gv_fullname4
+#define Perl_gv_fullname4      pPerl->Perl_gv_fullname4
+#undef  gv_fullname4
+#define gv_fullname4           Perl_gv_fullname4
 #undef  Perl_gv_init
 #define Perl_gv_init           pPerl->Perl_gv_init
 #undef  gv_init
 #define Perl_ibcmp_locale      pPerl->Perl_ibcmp_locale
 #undef  ibcmp_locale
 #define ibcmp_locale           Perl_ibcmp_locale
+#undef  Perl_init_stacks
+#define Perl_init_stacks       pPerl->Perl_init_stacks
+#undef  init_stacks
+#define init_stacks            Perl_init_stacks
 #undef  Perl_instr
 #define Perl_instr             pPerl->Perl_instr
 #undef  instr
 #define Perl_to_uni_lower_lc   pPerl->Perl_to_uni_lower_lc
 #undef  to_uni_lower_lc
 #define to_uni_lower_lc                Perl_to_uni_lower_lc
+#undef  Perl_is_utf8_char
+#define Perl_is_utf8_char      pPerl->Perl_is_utf8_char
+#undef  is_utf8_char
+#define is_utf8_char           Perl_is_utf8_char
+#undef  Perl_is_utf8_string
+#define Perl_is_utf8_string    pPerl->Perl_is_utf8_string
+#undef  is_utf8_string
+#define is_utf8_string         Perl_is_utf8_string
 #undef  Perl_is_utf8_alnum
 #define Perl_is_utf8_alnum     pPerl->Perl_is_utf8_alnum
 #undef  is_utf8_alnum
 #define Perl_is_utf8_mark      pPerl->Perl_is_utf8_mark
 #undef  is_utf8_mark
 #define is_utf8_mark           Perl_is_utf8_mark
+#undef  Perl_leave_scope
+#define Perl_leave_scope       pPerl->Perl_leave_scope
+#undef  leave_scope
+#define leave_scope            Perl_leave_scope
+#undef  Perl_load_module
+#define Perl_load_module       pPerl->Perl_load_module
+#undef  load_module
+#define load_module            Perl_load_module
+#undef  Perl_vload_module
+#define Perl_vload_module      pPerl->Perl_vload_module
+#undef  vload_module
+#define vload_module           Perl_vload_module
 #undef  Perl_looks_like_number
 #define Perl_looks_like_number pPerl->Perl_looks_like_number
 #undef  looks_like_number
 #define Perl_mg_size           pPerl->Perl_mg_size
 #undef  mg_size
 #define mg_size                        Perl_mg_size
+#undef  Perl_moreswitches
+#define Perl_moreswitches      pPerl->Perl_moreswitches
+#undef  moreswitches
+#define moreswitches           Perl_moreswitches
 #undef  Perl_my_atof
 #define Perl_my_atof           pPerl->Perl_my_atof
 #undef  my_atof
 #define Perl_newSViv           pPerl->Perl_newSViv
 #undef  newSViv
 #define newSViv                        Perl_newSViv
+#undef  Perl_newSVuv
+#define Perl_newSVuv           pPerl->Perl_newSVuv
+#undef  newSVuv
+#define newSVuv                        Perl_newSVuv
 #undef  Perl_newSVnv
 #define Perl_newSVnv           pPerl->Perl_newSVnv
 #undef  newSVnv
 #define Perl_newWHILEOP                pPerl->Perl_newWHILEOP
 #undef  newWHILEOP
 #define newWHILEOP             Perl_newWHILEOP
+#undef  Perl_new_stackinfo
+#define Perl_new_stackinfo     pPerl->Perl_new_stackinfo
+#undef  new_stackinfo
+#define new_stackinfo          Perl_new_stackinfo
 #undef  Perl_ninstr
 #define Perl_ninstr            pPerl->Perl_ninstr
 #undef  ninstr
 #define ninstr                 Perl_ninstr
+#undef  Perl_op_free
+#define Perl_op_free           pPerl->Perl_op_free
+#undef  op_free
+#define op_free                        Perl_op_free
+#undef  Perl_pad_sv
+#define Perl_pad_sv            pPerl->Perl_pad_sv
+#undef  pad_sv
+#define pad_sv                 Perl_pad_sv
 #if defined(PERL_OBJECT)
 #undef  Perl_construct
 #define Perl_construct         pPerl->Perl_construct
 #define Perl_get_cv            pPerl->Perl_get_cv
 #undef  get_cv
 #define get_cv                 Perl_get_cv
+#undef  Perl_init_i18nl10n
+#define Perl_init_i18nl10n     pPerl->Perl_init_i18nl10n
+#undef  init_i18nl10n
+#define init_i18nl10n          Perl_init_i18nl10n
+#undef  Perl_init_i18nl14n
+#define Perl_init_i18nl14n     pPerl->Perl_init_i18nl14n
+#undef  init_i18nl14n
+#define init_i18nl14n          Perl_init_i18nl14n
 #undef  Perl_new_collate
 #define Perl_new_collate       pPerl->Perl_new_collate
 #undef  new_collate
 #define Perl_require_pv                pPerl->Perl_require_pv
 #undef  require_pv
 #define require_pv             Perl_require_pv
+#undef  Perl_pmflag
+#define Perl_pmflag            pPerl->Perl_pmflag
+#undef  pmflag
+#define pmflag                 Perl_pmflag
 #undef  Perl_pop_scope
 #define Perl_pop_scope         pPerl->Perl_pop_scope
 #undef  pop_scope
 #define Perl_regdump           pPerl->Perl_regdump
 #undef  regdump
 #define regdump                        Perl_regdump
+#undef  Perl_pregexec
+#define Perl_pregexec          pPerl->Perl_pregexec
+#undef  pregexec
+#define pregexec               Perl_pregexec
+#undef  Perl_pregfree
+#define Perl_pregfree          pPerl->Perl_pregfree
+#undef  pregfree
+#define pregfree               Perl_pregfree
+#undef  Perl_pregcomp
+#define Perl_pregcomp          pPerl->Perl_pregcomp
+#undef  pregcomp
+#define pregcomp               Perl_pregcomp
+#undef  Perl_re_intuit_start
+#define Perl_re_intuit_start   pPerl->Perl_re_intuit_start
+#undef  re_intuit_start
+#define re_intuit_start                Perl_re_intuit_start
+#undef  Perl_re_intuit_string
+#define Perl_re_intuit_string  pPerl->Perl_re_intuit_string
+#undef  re_intuit_string
+#define re_intuit_string       Perl_re_intuit_string
+#undef  Perl_regexec_flags
+#define Perl_regexec_flags     pPerl->Perl_regexec_flags
+#undef  regexec_flags
+#define regexec_flags          Perl_regexec_flags
+#undef  Perl_regnext
+#define Perl_regnext           pPerl->Perl_regnext
+#undef  regnext
+#define regnext                        Perl_regnext
+#undef  Perl_repeatcpy
+#define Perl_repeatcpy         pPerl->Perl_repeatcpy
+#undef  repeatcpy
+#define repeatcpy              Perl_repeatcpy
 #undef  Perl_rninstr
 #define Perl_rninstr           pPerl->Perl_rninstr
 #undef  rninstr
 #define rninstr                        Perl_rninstr
+#undef  Perl_rsignal
+#define Perl_rsignal           pPerl->Perl_rsignal
+#undef  rsignal
+#define rsignal                        Perl_rsignal
 #if !defined(HAS_RENAME)
 #endif
 #undef  Perl_savepv
 #define Perl_save_generic_svref        pPerl->Perl_save_generic_svref
 #undef  save_generic_svref
 #define save_generic_svref     Perl_save_generic_svref
+#undef  Perl_save_generic_pvref
+#define Perl_save_generic_pvref        pPerl->Perl_save_generic_pvref
+#undef  save_generic_pvref
+#define save_generic_pvref     Perl_save_generic_pvref
 #undef  Perl_save_gp
 #define Perl_save_gp           pPerl->Perl_save_gp
 #undef  save_gp
 #define Perl_save_threadsv     pPerl->Perl_save_threadsv
 #undef  save_threadsv
 #define save_threadsv          Perl_save_threadsv
+#undef  Perl_scan_bin
+#define Perl_scan_bin          pPerl->Perl_scan_bin
+#undef  scan_bin
+#define scan_bin               Perl_scan_bin
+#undef  Perl_scan_hex
+#define Perl_scan_hex          pPerl->Perl_scan_hex
+#undef  scan_hex
+#define scan_hex               Perl_scan_hex
+#undef  Perl_scan_num
+#define Perl_scan_num          pPerl->Perl_scan_num
+#undef  scan_num
+#define scan_num               Perl_scan_num
+#undef  Perl_scan_oct
+#define Perl_scan_oct          pPerl->Perl_scan_oct
+#undef  scan_oct
+#define scan_oct               Perl_scan_oct
+#undef  Perl_screaminstr
+#define Perl_screaminstr       pPerl->Perl_screaminstr
+#undef  screaminstr
+#define screaminstr            Perl_screaminstr
 #if !defined(VMS)
 #endif
+#undef  Perl_sharepvn
+#define Perl_sharepvn          pPerl->Perl_sharepvn
+#undef  sharepvn
+#define sharepvn               Perl_sharepvn
 #undef  Perl_stack_grow
 #define Perl_stack_grow                pPerl->Perl_stack_grow
 #undef  stack_grow
 #undef  sv_collxfrm
 #define sv_collxfrm            Perl_sv_collxfrm
 #endif
+#undef  Perl_sv_compile_2op
+#define Perl_sv_compile_2op    pPerl->Perl_sv_compile_2op
+#undef  sv_compile_2op
+#define sv_compile_2op         Perl_sv_compile_2op
 #undef  Perl_sv_dec
 #define Perl_sv_dec            pPerl->Perl_sv_dec
 #undef  sv_dec
 #define Perl_sv_free           pPerl->Perl_sv_free
 #undef  sv_free
 #define sv_free                        Perl_sv_free
+#undef  Perl_sv_gets
+#define Perl_sv_gets           pPerl->Perl_sv_gets
+#undef  sv_gets
+#define sv_gets                        Perl_sv_gets
 #undef  Perl_sv_grow
 #define Perl_sv_grow           pPerl->Perl_sv_grow
 #undef  sv_grow
 #define Perl_sv_vsetpvfn       pPerl->Perl_sv_vsetpvfn
 #undef  sv_vsetpvfn
 #define sv_vsetpvfn            Perl_sv_vsetpvfn
+#undef  Perl_str_to_version
+#define Perl_str_to_version    pPerl->Perl_str_to_version
+#undef  str_to_version
+#define str_to_version         Perl_str_to_version
+#undef  Perl_swash_init
+#define Perl_swash_init                pPerl->Perl_swash_init
+#undef  swash_init
+#define swash_init             Perl_swash_init
+#undef  Perl_swash_fetch
+#define Perl_swash_fetch       pPerl->Perl_swash_fetch
+#undef  swash_fetch
+#define swash_fetch            Perl_swash_fetch
 #undef  Perl_taint_env
 #define Perl_taint_env         pPerl->Perl_taint_env
 #undef  taint_env
 #define unlnk                  Perl_unlnk
 #endif
 #if defined(USE_THREADS)
+#undef  Perl_unlock_condpair
+#define Perl_unlock_condpair   pPerl->Perl_unlock_condpair
+#undef  unlock_condpair
+#define unlock_condpair                Perl_unlock_condpair
 #endif
+#undef  Perl_unsharepvn
+#define Perl_unsharepvn                pPerl->Perl_unsharepvn
+#undef  unsharepvn
+#define unsharepvn             Perl_unsharepvn
 #undef  Perl_utf16_to_utf8
 #define Perl_utf16_to_utf8     pPerl->Perl_utf16_to_utf8
 #undef  utf16_to_utf8
 #define Perl_utf8_hop          pPerl->Perl_utf8_hop
 #undef  utf8_hop
 #define utf8_hop               Perl_utf8_hop
+#undef  Perl_utf8_to_bytes
+#define Perl_utf8_to_bytes     pPerl->Perl_utf8_to_bytes
+#undef  utf8_to_bytes
+#define utf8_to_bytes          Perl_utf8_to_bytes
+#undef  Perl_bytes_to_utf8
+#define Perl_bytes_to_utf8     pPerl->Perl_bytes_to_utf8
+#undef  bytes_to_utf8
+#define bytes_to_utf8          Perl_bytes_to_utf8
 #undef  Perl_utf8_to_uv
 #define Perl_utf8_to_uv                pPerl->Perl_utf8_to_uv
 #undef  utf8_to_uv
 #define Perl_vwarner           pPerl->Perl_vwarner
 #undef  vwarner
 #define vwarner                        Perl_vwarner
+#undef  Perl_whichsig
+#define Perl_whichsig          pPerl->Perl_whichsig
+#undef  whichsig
+#define whichsig               Perl_whichsig
 #if defined(USE_PURE_BISON)
 #else
 #endif
 #define Perl_dump_mstats       pPerl->Perl_dump_mstats
 #undef  dump_mstats
 #define dump_mstats            Perl_dump_mstats
+#undef  Perl_get_mstats
+#define Perl_get_mstats                pPerl->Perl_get_mstats
+#undef  get_mstats
+#define get_mstats             Perl_get_mstats
 #endif
 #undef  Perl_safesysmalloc
 #define Perl_safesysmalloc     pPerl->Perl_safesysmalloc
 #define Perl_runops_debug      pPerl->Perl_runops_debug
 #undef  runops_debug
 #define runops_debug           Perl_runops_debug
+#if defined(USE_THREADS)
+#undef  Perl_sv_lock
+#define Perl_sv_lock           pPerl->Perl_sv_lock
+#undef  sv_lock
+#define sv_lock                        Perl_sv_lock
+#endif
 #undef  Perl_sv_catpvf_mg
 #define Perl_sv_catpvf_mg      pPerl->Perl_sv_catpvf_mg
 #undef  sv_catpvf_mg
 #define Perl_magic_dump                pPerl->Perl_magic_dump
 #undef  magic_dump
 #define magic_dump             Perl_magic_dump
+#if defined(PERL_FLEXIBLE_EXCEPTIONS)
 #undef  Perl_default_protect
 #define Perl_default_protect   pPerl->Perl_default_protect
 #undef  default_protect
 #define Perl_vdefault_protect  pPerl->Perl_vdefault_protect
 #undef  vdefault_protect
 #define vdefault_protect       Perl_vdefault_protect
+#endif
 #undef  Perl_reginitcolors
 #define Perl_reginitcolors     pPerl->Perl_reginitcolors
 #undef  reginitcolors
 #define Perl_sv_pvbyte         pPerl->Perl_sv_pvbyte
 #undef  sv_pvbyte
 #define sv_pvbyte              Perl_sv_pvbyte
+#undef  Perl_sv_utf8_upgrade
+#define Perl_sv_utf8_upgrade   pPerl->Perl_sv_utf8_upgrade
+#undef  sv_utf8_upgrade
+#define sv_utf8_upgrade                Perl_sv_utf8_upgrade
+#undef  Perl_sv_utf8_downgrade
+#define Perl_sv_utf8_downgrade pPerl->Perl_sv_utf8_downgrade
+#undef  sv_utf8_downgrade
+#define sv_utf8_downgrade      Perl_sv_utf8_downgrade
+#undef  Perl_sv_utf8_encode
+#define Perl_sv_utf8_encode    pPerl->Perl_sv_utf8_encode
+#undef  sv_utf8_encode
+#define sv_utf8_encode         Perl_sv_utf8_encode
+#undef  Perl_sv_utf8_decode
+#define Perl_sv_utf8_decode    pPerl->Perl_sv_utf8_decode
+#undef  sv_utf8_decode
+#define sv_utf8_decode         Perl_sv_utf8_decode
 #undef  Perl_sv_force_normal
 #define Perl_sv_force_normal   pPerl->Perl_sv_force_normal
 #undef  sv_force_normal
 #undef  ptr_table_split
 #define ptr_table_split                Perl_ptr_table_split
 #endif
+#if defined(HAVE_INTERP_INTERN)
+#undef  Perl_sys_intern_clear
+#define Perl_sys_intern_clear  pPerl->Perl_sys_intern_clear
+#undef  sys_intern_clear
+#define sys_intern_clear       Perl_sys_intern_clear
+#undef  Perl_sys_intern_init
+#define Perl_sys_intern_init   pPerl->Perl_sys_intern_init
+#undef  sys_intern_init
+#define sys_intern_init                Perl_sys_intern_init
+#endif
 #if defined(PERL_OBJECT)
 #else
 #endif
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 #  if defined(IAMSUID)
 #  endif
+#if defined(PERL_FLEXIBLE_EXCEPTIONS)
+#endif
 #  if defined(USE_THREADS)
 #  endif
 #endif
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_FLEXIBLE_EXCEPTIONS)
+#endif
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 #endif
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
-#  if defined(PURIFY)
-#  else
-#  endif
 #  if defined(DEBUGGING)
 #  endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+#if 0
+#endif
 #  if defined(CRIPPLED_CC)
 #  endif
 #  if defined(PERL_CR_FILTER)