/*
* embed.h
*
- * Copyright (c) 1997-2002, Larry Wall
+ * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+ * 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
#if defined(PERL_IMPLICIT_SYS)
#endif
+#define doing_taint Perl_doing_taint
#if defined(USE_ITHREADS)
# if defined(PERL_IMPLICIT_SYS)
# endif
#define is_uni_xdigit_lc Perl_is_uni_xdigit_lc
#define is_utf8_char Perl_is_utf8_char
#define is_utf8_string Perl_is_utf8_string
+#define is_utf8_string_loc Perl_is_utf8_string_loc
#define is_utf8_alnum Perl_is_utf8_alnum
#define is_utf8_alnumc Perl_is_utf8_alnumc
#define is_utf8_idfirst Perl_is_utf8_idfirst
#define magic_setpos Perl_magic_setpos
#endif
#ifdef PERL_CORE
+#define magic_setregexp Perl_magic_setregexp
+#endif
+#ifdef PERL_CORE
#define magic_setsig Perl_magic_setsig
#endif
#ifdef PERL_CORE
#define new_version Perl_new_version
#define upg_version Perl_upg_version
#define vnumify Perl_vnumify
+#define vnormal Perl_vnormal
#define vstringify Perl_vstringify
#define vcmp Perl_vcmp
#ifdef PERL_CORE
#ifdef PERL_CORE
#define pad_findmy Perl_pad_findmy
#endif
+#define find_rundefsvoffset Perl_find_rundefsvoffset
#ifdef PERL_CORE
#define oopsAV Perl_oopsAV
#endif
#ifdef PERL_CORE
#define peep Perl_peep
#endif
-#ifdef PERL_CORE
-#endif
#if defined(USE_REENTRANT_API)
#define reentrant_size Perl_reentrant_size
#define reentrant_init Perl_reentrant_init
#define set_numeric_standard Perl_set_numeric_standard
#define require_pv Perl_require_pv
#define pack_cat Perl_pack_cat
+#define packlist Perl_packlist
#ifdef PERL_CORE
#define pidgone Perl_pidgone
#endif
#ifdef PERL_CORE
#define pmtrans Perl_pmtrans
#endif
-#ifdef PERL_CORE
-#define pop_return Perl_pop_return
-#endif
#define pop_scope Perl_pop_scope
#ifdef PERL_CORE
#define prepend_elem Perl_prepend_elem
#endif
-#ifdef PERL_CORE
-#define push_return Perl_push_return
-#endif
#define push_scope Perl_push_scope
#ifdef PERL_CORE
#define ref Perl_ref
#define savesharedpv Perl_savesharedpv
#define savepvn Perl_savepvn
#define savestack_grow Perl_savestack_grow
+#define savestack_grow_cnt Perl_savestack_grow_cnt
#define save_aelem Perl_save_aelem
#define save_alloc Perl_save_alloc
#define save_aptr Perl_save_aptr
#ifdef PERL_CORE
#define sighandler Perl_sighandler
#endif
+#define csighandler Perl_csighandler
#define stack_grow Perl_stack_grow
#define start_subparse Perl_start_subparse
#ifdef PERL_CORE
#define sv_2bool Perl_sv_2bool
#define sv_2cv Perl_sv_2cv
#define sv_2io Perl_sv_2io
-#define sv_2iv Perl_sv_2iv
+#define sv_2iv_flags Perl_sv_2iv_flags
#define sv_2mortal Perl_sv_2mortal
#define sv_2nv Perl_sv_2nv
#define sv_2pvutf8 Perl_sv_2pvutf8
#define sv_2pvbyte Perl_sv_2pvbyte
#define sv_pvn_nomg Perl_sv_pvn_nomg
-#define sv_2uv Perl_sv_2uv
+#define sv_2uv_flags Perl_sv_2uv_flags
#define sv_iv Perl_sv_iv
#define sv_uv Perl_sv_uv
#define sv_nv Perl_sv_nv
#define sv_eq Perl_sv_eq
#define sv_free Perl_sv_free
#ifdef PERL_CORE
-#endif
-#ifdef PERL_CORE
#define sv_free_arenas Perl_sv_free_arenas
#endif
#define sv_gets Perl_sv_gets
#define sv_setpvf Perl_sv_setpvf
#define sv_vsetpvf Perl_sv_vsetpvf
#define sv_setiv Perl_sv_setiv
+#define sv_setpviv Perl_sv_setpviv
#define sv_setuv Perl_sv_setuv
#define sv_setnv Perl_sv_setnv
#define sv_setref_iv Perl_sv_setref_iv
#define unlnk Perl_unlnk
#endif
#define unpack_str Perl_unpack_str
+#define unpackstring Perl_unpackstring
#define unsharepvn Perl_unsharepvn
#ifdef PERL_CORE
#define unshare_hek Perl_unshare_hek
#define parse_unicode_opts Perl_parse_unicode_opts
#endif
#ifdef PERL_CORE
+#define seed Perl_seed
+#endif
+#ifdef PERL_CORE
+#define get_hash_seed Perl_get_hash_seed
+#endif
+#ifdef PERL_CORE
#define report_evil_fh Perl_report_evil_fh
#endif
#ifdef PERL_CORE
#endif
#define whichsig Perl_whichsig
#ifdef PERL_CORE
-#define yyerror Perl_yyerror
+#define write_to_stderr Perl_write_to_stderr
#endif
-#ifdef USE_PURE_BISON
#ifdef PERL_CORE
-#define yylex_r Perl_yylex_r
-#endif
+#define yyerror Perl_yyerror
#endif
#ifdef PERL_CORE
#define yylex Perl_yylex
#define sv_setpvf_mg Perl_sv_setpvf_mg
#define sv_vsetpvf_mg Perl_sv_vsetpvf_mg
#define sv_setiv_mg Perl_sv_setiv_mg
+#define sv_setpviv_mg Perl_sv_setpviv_mg
#define sv_setuv_mg Perl_sv_setuv_mg
#define sv_setnv_mg Perl_sv_setnv_mg
#define sv_setpv_mg Perl_sv_setpv_mg
#define share_hek_flags S_share_hek_flags
#endif
#ifdef PERL_CORE
-#define hv_fetch_flags S_hv_fetch_flags
-#endif
-#ifdef PERL_CORE
#define hv_notallowed S_hv_notallowed
#endif
#endif
#ifdef PERL_CORE
#define apply_attrs_my S_apply_attrs_my
#endif
-# if defined(PL_OP_SLAB_ALLOC)
-#ifdef PERL_CORE
-#define Slab_Alloc S_Slab_Alloc
#endif
-#ifdef PERL_CORE
-#define Slab_Free S_Slab_Free
-#endif
-# endif
+#if defined(PL_OP_SLAB_ALLOC)
+#define Slab_Alloc Perl_Slab_Alloc
+#define Slab_Free Perl_Slab_Free
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#ifdef PERL_CORE
#define refto S_refto
#endif
-#ifdef PERL_CORE
-#define seed S_seed
-#endif
#endif
#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
-#define doencodes S_doencodes
+#define unpack_rec S_unpack_rec
+#endif
+#ifdef PERL_CORE
+#define pack_rec S_pack_rec
#endif
#ifdef PERL_CORE
#define mul128 S_mul128
#endif
#ifdef PERL_CORE
-#define is_an_int S_is_an_int
+#define measure_struct S_measure_struct
#endif
#ifdef PERL_CORE
-#define div128 S_div128
+#define group_end S_group_end
+#endif
+#ifdef PERL_CORE
+#define get_num S_get_num
#endif
#ifdef PERL_CORE
#define next_symbol S_next_symbol
#endif
#ifdef PERL_CORE
-#define find_count S_find_count
+#define doencodes S_doencodes
#endif
#ifdef PERL_CORE
-#define group_end S_group_end
+#define is_an_int S_is_an_int
#endif
#ifdef PERL_CORE
-#define measure_struct S_measure_struct
+#define div128 S_div128
#endif
#endif
#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
#define doparseform S_doparseform
#endif
#ifdef PERL_CORE
+#define num_overflow S_num_overflow
+#endif
+#ifdef PERL_CORE
#define dopoptoeval S_dopoptoeval
#endif
#ifdef PERL_CORE
#define doeval S_doeval
#endif
#ifdef PERL_CORE
-#define doopen_pmc S_doopen_pmc
+#define doopen_pm S_doopen_pm
#endif
#ifdef PERL_CORE
#define path_is_absolute S_path_is_absolute
#define mess_alloc S_mess_alloc
#endif
#endif
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define mulexp10 S_mulexp10
+#endif
+#endif
#define sv_setsv_flags Perl_sv_setsv_flags
#define sv_catpvn_flags Perl_sv_catpvn_flags
#define sv_catsv_flags Perl_sv_catsv_flags
#define my_atof2 Perl_my_atof2
#define my_socketpair Perl_my_socketpair
#ifdef PERL_COPY_ON_WRITE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define sv_setsv_cow Perl_sv_setsv_cow
#endif
+#endif
#if defined(USE_PERLIO) && !defined(USE_SFIO)
#define PerlIO_close Perl_PerlIO_close
#define PerlIO_fill Perl_PerlIO_fill
#define cv_dump S_cv_dump
#endif
# endif
+#endif
#ifdef PERL_CORE
-#define cv_clone2 S_cv_clone2
+#define find_runcv Perl_find_runcv
#endif
+#ifdef PERL_CORE
+#define free_tied_hv_pool Perl_free_tied_hv_pool
#endif
+#if defined(DEBUGGING)
#ifdef PERL_CORE
-#define find_runcv Perl_find_runcv
+#define get_debug_opts Perl_get_debug_opts
+#endif
+#endif
+#define save_set_svflags Perl_save_set_svflags
+#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define hv_delete_common S_hv_delete_common
+#endif
+#ifdef PERL_CORE
+#define hv_fetch_common S_hv_fetch_common
+#endif
+#endif
+#define hv_clear_placeholders Perl_hv_clear_placeholders
+#define hv_scalar Perl_hv_scalar
+#ifdef PERL_CORE
+#define magic_scalarpack Perl_magic_scalarpack
+#endif
+#ifdef PERL_IN_SV_C
+#ifdef PERL_CORE
+#define find_uninit_var S_find_uninit_var
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLE16
+#ifdef PERL_CORE
+#define my_htole16 Perl_my_htole16
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOH16
+#ifdef PERL_CORE
+#define my_letoh16 Perl_my_letoh16
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBE16
+#ifdef PERL_CORE
+#define my_htobe16 Perl_my_htobe16
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOH16
+#ifdef PERL_CORE
+#define my_betoh16 Perl_my_betoh16
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLE32
+#ifdef PERL_CORE
+#define my_htole32 Perl_my_htole32
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOH32
+#ifdef PERL_CORE
+#define my_letoh32 Perl_my_letoh32
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBE32
+#ifdef PERL_CORE
+#define my_htobe32 Perl_my_htobe32
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOH32
+#ifdef PERL_CORE
+#define my_betoh32 Perl_my_betoh32
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLE64
+#ifdef PERL_CORE
+#define my_htole64 Perl_my_htole64
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOH64
+#ifdef PERL_CORE
+#define my_letoh64 Perl_my_letoh64
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBE64
+#ifdef PERL_CORE
+#define my_htobe64 Perl_my_htobe64
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOH64
+#ifdef PERL_CORE
+#define my_betoh64 Perl_my_betoh64
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLES
+#ifdef PERL_CORE
+#define my_htoles Perl_my_htoles
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOHS
+#ifdef PERL_CORE
+#define my_letohs Perl_my_letohs
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBES
+#ifdef PERL_CORE
+#define my_htobes Perl_my_htobes
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOHS
+#ifdef PERL_CORE
+#define my_betohs Perl_my_betohs
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLEI
+#ifdef PERL_CORE
+#define my_htolei Perl_my_htolei
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOHI
+#ifdef PERL_CORE
+#define my_letohi Perl_my_letohi
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBEI
+#ifdef PERL_CORE
+#define my_htobei Perl_my_htobei
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOHI
+#ifdef PERL_CORE
+#define my_betohi Perl_my_betohi
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLEL
+#ifdef PERL_CORE
+#define my_htolel Perl_my_htolel
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOHL
+#ifdef PERL_CORE
+#define my_letohl Perl_my_letohl
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBEL
+#ifdef PERL_CORE
+#define my_htobel Perl_my_htobel
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOHL
+#ifdef PERL_CORE
+#define my_betohl Perl_my_betohl
+#endif
+#endif
+#ifdef PERL_CORE
+#define my_swabn Perl_my_swabn
#endif
#define ck_anoncode Perl_ck_anoncode
#define ck_bitop Perl_ck_bitop
#define ck_substr Perl_ck_substr
#define ck_svconst Perl_ck_svconst
#define ck_trunc Perl_ck_trunc
+#define ck_unpack Perl_ck_unpack
#define pp_aassign Perl_pp_aassign
#define pp_abs Perl_pp_abs
#define pp_accept Perl_pp_accept
#if defined(PERL_IMPLICIT_SYS)
#endif
+#define doing_taint Perl_doing_taint
#if defined(USE_ITHREADS)
# if defined(PERL_IMPLICIT_SYS)
# endif
#define is_uni_xdigit_lc(a) Perl_is_uni_xdigit_lc(aTHX_ a)
#define is_utf8_char(a) Perl_is_utf8_char(aTHX_ a)
#define is_utf8_string(a,b) Perl_is_utf8_string(aTHX_ a,b)
+#define is_utf8_string_loc(a,b,c) Perl_is_utf8_string_loc(aTHX_ a,b,c)
#define is_utf8_alnum(a) Perl_is_utf8_alnum(aTHX_ a)
#define is_utf8_alnumc(a) Perl_is_utf8_alnumc(aTHX_ a)
#define is_utf8_idfirst(a) Perl_is_utf8_idfirst(aTHX_ a)
#define magic_setpos(a,b) Perl_magic_setpos(aTHX_ a,b)
#endif
#ifdef PERL_CORE
+#define magic_setregexp(a,b) Perl_magic_setregexp(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
#define magic_setsig(a,b) Perl_magic_setsig(aTHX_ a,b)
#endif
#ifdef PERL_CORE
#define newWHILEOP(a,b,c,d,e,f,g) Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g)
#define new_stackinfo(a,b) Perl_new_stackinfo(aTHX_ a,b)
#define scan_vstring(a,b) Perl_scan_vstring(aTHX_ a,b)
-#define scan_version(a,b) Perl_scan_version(aTHX_ a,b)
+#define scan_version(a,b,c) Perl_scan_version(aTHX_ a,b,c)
#define new_version(a) Perl_new_version(aTHX_ a)
#define upg_version(a) Perl_upg_version(aTHX_ a)
#define vnumify(a) Perl_vnumify(aTHX_ a)
+#define vnormal(a) Perl_vnormal(aTHX_ a)
#define vstringify(a) Perl_vstringify(aTHX_ a)
#define vcmp(a,b) Perl_vcmp(aTHX_ a,b)
#ifdef PERL_CORE
#ifdef PERL_CORE
#define pad_findmy(a) Perl_pad_findmy(aTHX_ a)
#endif
+#define find_rundefsvoffset() Perl_find_rundefsvoffset(aTHX)
#ifdef PERL_CORE
#define oopsAV(a) Perl_oopsAV(aTHX_ a)
#endif
#define set_numeric_standard() Perl_set_numeric_standard(aTHX)
#define require_pv(a) Perl_require_pv(aTHX_ a)
#define pack_cat(a,b,c,d,e,f,g) Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
+#define packlist(a,b,c,d,e) Perl_packlist(aTHX_ a,b,c,d,e)
#ifdef PERL_CORE
#define pidgone(a,b) Perl_pidgone(aTHX_ a,b)
#endif
#ifdef PERL_CORE
#define pmtrans(a,b,c) Perl_pmtrans(aTHX_ a,b,c)
#endif
-#ifdef PERL_CORE
-#define pop_return() Perl_pop_return(aTHX)
-#endif
#define pop_scope() Perl_pop_scope(aTHX)
#ifdef PERL_CORE
#define prepend_elem(a,b,c) Perl_prepend_elem(aTHX_ a,b,c)
#endif
-#ifdef PERL_CORE
-#define push_return(a) Perl_push_return(aTHX_ a)
-#endif
#define push_scope() Perl_push_scope(aTHX)
#ifdef PERL_CORE
#define ref(a,b) Perl_ref(aTHX_ a,b)
#define savesharedpv(a) Perl_savesharedpv(aTHX_ a)
#define savepvn(a,b) Perl_savepvn(aTHX_ a,b)
#define savestack_grow() Perl_savestack_grow(aTHX)
+#define savestack_grow_cnt(a) Perl_savestack_grow_cnt(aTHX_ a)
#define save_aelem(a,b,c) Perl_save_aelem(aTHX_ a,b,c)
#define save_alloc(a,b) Perl_save_alloc(aTHX_ a,b)
#define save_aptr(a) Perl_save_aptr(aTHX_ a)
#ifdef PERL_CORE
#define sighandler Perl_sighandler
#endif
+#define csighandler Perl_csighandler
#define stack_grow(a,b,c) Perl_stack_grow(aTHX_ a,b,c)
#define start_subparse(a,b) Perl_start_subparse(aTHX_ a,b)
#ifdef PERL_CORE
#define sv_2bool(a) Perl_sv_2bool(aTHX_ a)
#define sv_2cv(a,b,c,d) Perl_sv_2cv(aTHX_ a,b,c,d)
#define sv_2io(a) Perl_sv_2io(aTHX_ a)
-#define sv_2iv(a) Perl_sv_2iv(aTHX_ a)
+#define sv_2iv_flags(a,b) Perl_sv_2iv_flags(aTHX_ a,b)
#define sv_2mortal(a) Perl_sv_2mortal(aTHX_ a)
#define sv_2nv(a) Perl_sv_2nv(aTHX_ a)
#define sv_2pvutf8(a,b) Perl_sv_2pvutf8(aTHX_ a,b)
#define sv_2pvbyte(a,b) Perl_sv_2pvbyte(aTHX_ a,b)
#define sv_pvn_nomg(a,b) Perl_sv_pvn_nomg(aTHX_ a,b)
-#define sv_2uv(a) Perl_sv_2uv(aTHX_ a)
+#define sv_2uv_flags(a,b) Perl_sv_2uv_flags(aTHX_ a,b)
#define sv_iv(a) Perl_sv_iv(aTHX_ a)
#define sv_uv(a) Perl_sv_uv(aTHX_ a)
#define sv_nv(a) Perl_sv_nv(aTHX_ a)
#define sv_reset(a,b) Perl_sv_reset(aTHX_ a,b)
#define sv_vsetpvf(a,b,c) Perl_sv_vsetpvf(aTHX_ a,b,c)
#define sv_setiv(a,b) Perl_sv_setiv(aTHX_ a,b)
+#define sv_setpviv(a,b) Perl_sv_setpviv(aTHX_ a,b)
#define sv_setuv(a,b) Perl_sv_setuv(aTHX_ a,b)
#define sv_setnv(a,b) Perl_sv_setnv(aTHX_ a,b)
#define sv_setref_iv(a,b,c) Perl_sv_setref_iv(aTHX_ a,b,c)
#define unlnk(a) Perl_unlnk(aTHX_ a)
#endif
#define unpack_str(a,b,c,d,e,f,g,h) Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
+#define unpackstring(a,b,c,d,e) Perl_unpackstring(aTHX_ a,b,c,d,e)
#define unsharepvn(a,b,c) Perl_unsharepvn(aTHX_ a,b,c)
#ifdef PERL_CORE
#define unshare_hek(a) Perl_unshare_hek(aTHX_ a)
#define parse_unicode_opts(a) Perl_parse_unicode_opts(aTHX_ a)
#endif
#ifdef PERL_CORE
+#define seed() Perl_seed(aTHX)
+#endif
+#ifdef PERL_CORE
+#define get_hash_seed() Perl_get_hash_seed(aTHX)
+#endif
+#ifdef PERL_CORE
#define report_evil_fh(a,b,c) Perl_report_evil_fh(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
-#define report_uninit() Perl_report_uninit(aTHX)
+#define report_uninit(a) Perl_report_uninit(aTHX_ a)
#endif
#define vwarn(a,b) Perl_vwarn(aTHX_ a,b)
#define vwarner(a,b,c) Perl_vwarner(aTHX_ a,b,c)
#endif
#define whichsig(a) Perl_whichsig(aTHX_ a)
#ifdef PERL_CORE
-#define yyerror(a) Perl_yyerror(aTHX_ a)
+#define write_to_stderr(a,b) Perl_write_to_stderr(aTHX_ a,b)
#endif
-#ifdef USE_PURE_BISON
#ifdef PERL_CORE
-#define yylex_r(a,b) Perl_yylex_r(aTHX_ a,b)
-#endif
+#define yyerror(a) Perl_yyerror(aTHX_ a)
#endif
#ifdef PERL_CORE
#define yylex() Perl_yylex(aTHX)
#define sv_catsv_mg(a,b) Perl_sv_catsv_mg(aTHX_ a,b)
#define sv_vsetpvf_mg(a,b,c) Perl_sv_vsetpvf_mg(aTHX_ a,b,c)
#define sv_setiv_mg(a,b) Perl_sv_setiv_mg(aTHX_ a,b)
+#define sv_setpviv_mg(a,b) Perl_sv_setpviv_mg(aTHX_ a,b)
#define sv_setuv_mg(a,b) Perl_sv_setuv_mg(aTHX_ a,b)
#define sv_setnv_mg(a,b) Perl_sv_setnv_mg(aTHX_ a,b)
#define sv_setpv_mg(a,b) Perl_sv_setpv_mg(aTHX_ a,b)
#define share_hek_flags(a,b,c,d) S_share_hek_flags(aTHX_ a,b,c,d)
#endif
#ifdef PERL_CORE
-#define hv_fetch_flags(a,b,c,d,e) S_hv_fetch_flags(aTHX_ a,b,c,d,e)
-#endif
-#ifdef PERL_CORE
#define hv_notallowed(a,b,c,d) S_hv_notallowed(aTHX_ a,b,c,d)
#endif
#endif
#ifdef PERL_CORE
#define apply_attrs_my(a,b,c,d) S_apply_attrs_my(aTHX_ a,b,c,d)
#endif
-# if defined(PL_OP_SLAB_ALLOC)
-#ifdef PERL_CORE
-#define Slab_Alloc(a,b) S_Slab_Alloc(aTHX_ a,b)
#endif
-#ifdef PERL_CORE
-#define Slab_Free(a) S_Slab_Free(aTHX_ a)
-#endif
-# endif
+#if defined(PL_OP_SLAB_ALLOC)
+#define Slab_Alloc(a,b) Perl_Slab_Alloc(aTHX_ a,b)
+#define Slab_Free(a) Perl_Slab_Free(aTHX_ a)
#endif
#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
#define nuke_stacks() S_nuke_stacks(aTHX)
#endif
#ifdef PERL_CORE
-#define open_script(a,b,c,d) S_open_script(aTHX_ a,b,c,d)
+#define open_script(a,b,c) S_open_script(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
#define usage(a) S_usage(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define validate_suid(a,b,c) S_validate_suid(aTHX_ a,b,c)
+#define validate_suid(a,b) S_validate_suid(aTHX_ a,b)
#endif
# if defined(IAMSUID)
#ifdef PERL_CORE
#ifdef PERL_CORE
#define refto(a) S_refto(aTHX_ a)
#endif
-#ifdef PERL_CORE
-#define seed() S_seed(aTHX)
-#endif
#endif
#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
-#define doencodes(a,b,c) S_doencodes(aTHX_ a,b,c)
+#define unpack_rec(a,b,c,d,e) S_unpack_rec(aTHX_ a,b,c,d,e)
+#endif
+#ifdef PERL_CORE
+#define pack_rec(a,b,c,d) S_pack_rec(aTHX_ a,b,c,d)
#endif
#ifdef PERL_CORE
#define mul128(a,b) S_mul128(aTHX_ a,b)
#endif
#ifdef PERL_CORE
-#define is_an_int(a,b) S_is_an_int(aTHX_ a,b)
+#define measure_struct(a) S_measure_struct(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define div128(a,b) S_div128(aTHX_ a,b)
+#define group_end(a,b,c) S_group_end(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
-#define next_symbol(a,b) S_next_symbol(aTHX_ a,b)
+#define get_num(a,b) S_get_num(aTHX_ a,b)
#endif
#ifdef PERL_CORE
-#define find_count(a,b,c) S_find_count(aTHX_ a,b,c)
+#define next_symbol(a) S_next_symbol(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define group_end(a,b,c) S_group_end(aTHX_ a,b,c)
+#define doencodes(a,b,c) S_doencodes(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
-#define measure_struct(a,b) S_measure_struct(aTHX_ a,b)
+#define is_an_int(a,b) S_is_an_int(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
+#define div128(a,b) S_div128(aTHX_ a,b)
#endif
#endif
#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
#define doparseform(a) S_doparseform(aTHX_ a)
#endif
#ifdef PERL_CORE
+#define num_overflow S_num_overflow
+#endif
+#ifdef PERL_CORE
#define dopoptoeval(a) S_dopoptoeval(aTHX_ a)
#endif
#ifdef PERL_CORE
#define doeval(a,b,c,d) S_doeval(aTHX_ a,b,c,d)
#endif
#ifdef PERL_CORE
-#define doopen_pmc(a,b) S_doopen_pmc(aTHX_ a,b)
+#define doopen_pm(a,b) S_doopen_pm(aTHX_ a,b)
#endif
#ifdef PERL_CORE
#define path_is_absolute(a) S_path_is_absolute(aTHX_ a)
#define not_a_number(a) S_not_a_number(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define visit(a) S_visit(aTHX_ a)
+#define visit(a,b,c) S_visit(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
#define sv_add_backref(a,b) S_sv_add_backref(aTHX_ a,b)
#endif
# if defined(DEBUGGING)
#ifdef PERL_CORE
-#define tokereport(a,b,c) S_tokereport(aTHX_ a,b,c)
+#define tokereport(a,b) S_tokereport(aTHX_ a,b)
#endif
# endif
#ifdef PERL_CORE
#define mess_alloc() S_mess_alloc(aTHX)
#endif
#endif
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define mulexp10 S_mulexp10
+#endif
+#endif
#define sv_setsv_flags(a,b,c) Perl_sv_setsv_flags(aTHX_ a,b,c)
#define sv_catpvn_flags(a,b,c,d) Perl_sv_catpvn_flags(aTHX_ a,b,c,d)
#define sv_catsv_flags(a,b,c) Perl_sv_catsv_flags(aTHX_ a,b,c)
#define my_atof2(a,b) Perl_my_atof2(aTHX_ a,b)
#define my_socketpair Perl_my_socketpair
#ifdef PERL_COPY_ON_WRITE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define sv_setsv_cow(a,b) Perl_sv_setsv_cow(aTHX_ a,b)
#endif
+#endif
#if defined(USE_PERLIO) && !defined(USE_SFIO)
#define PerlIO_close(a) Perl_PerlIO_close(aTHX_ a)
#define PerlIO_fill(a) Perl_PerlIO_fill(aTHX_ a)
#endif
#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
#ifdef PERL_CORE
-#define pad_findlex(a,b,c) S_pad_findlex(aTHX_ a,b,c)
+#define pad_findlex(a,b,c,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
#endif
# if defined(DEBUGGING)
#ifdef PERL_CORE
#define cv_dump(a,b) S_cv_dump(aTHX_ a,b)
#endif
# endif
+#endif
#ifdef PERL_CORE
-#define cv_clone2(a,b) S_cv_clone2(aTHX_ a,b)
+#define find_runcv(a) Perl_find_runcv(aTHX_ a)
#endif
+#ifdef PERL_CORE
+#define free_tied_hv_pool() Perl_free_tied_hv_pool(aTHX)
#endif
+#if defined(DEBUGGING)
#ifdef PERL_CORE
-#define find_runcv(a) Perl_find_runcv(aTHX_ a)
+#define get_debug_opts(a,b) Perl_get_debug_opts(aTHX_ a,b)
+#endif
+#endif
+#define save_set_svflags(a,b,c) Perl_save_set_svflags(aTHX_ a,b,c)
+#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define hv_delete_common(a,b,c,d,e,f,g) S_hv_delete_common(aTHX_ a,b,c,d,e,f,g)
+#endif
+#ifdef PERL_CORE
+#define hv_fetch_common(a,b,c,d,e,f,g,h) S_hv_fetch_common(aTHX_ a,b,c,d,e,f,g,h)
+#endif
+#endif
+#define hv_clear_placeholders(a) Perl_hv_clear_placeholders(aTHX_ a)
+#define hv_scalar(a) Perl_hv_scalar(aTHX_ a)
+#ifdef PERL_CORE
+#define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b)
+#endif
+#ifdef PERL_IN_SV_C
+#ifdef PERL_CORE
+#define find_uninit_var(a,b,c) S_find_uninit_var(aTHX_ a,b,c)
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLE16
+#ifdef PERL_CORE
+#define my_htole16 Perl_my_htole16
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOH16
+#ifdef PERL_CORE
+#define my_letoh16 Perl_my_letoh16
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBE16
+#ifdef PERL_CORE
+#define my_htobe16 Perl_my_htobe16
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOH16
+#ifdef PERL_CORE
+#define my_betoh16 Perl_my_betoh16
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLE32
+#ifdef PERL_CORE
+#define my_htole32 Perl_my_htole32
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOH32
+#ifdef PERL_CORE
+#define my_letoh32 Perl_my_letoh32
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBE32
+#ifdef PERL_CORE
+#define my_htobe32 Perl_my_htobe32
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOH32
+#ifdef PERL_CORE
+#define my_betoh32 Perl_my_betoh32
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLE64
+#ifdef PERL_CORE
+#define my_htole64 Perl_my_htole64
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOH64
+#ifdef PERL_CORE
+#define my_letoh64 Perl_my_letoh64
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBE64
+#ifdef PERL_CORE
+#define my_htobe64 Perl_my_htobe64
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOH64
+#ifdef PERL_CORE
+#define my_betoh64 Perl_my_betoh64
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLES
+#ifdef PERL_CORE
+#define my_htoles Perl_my_htoles
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOHS
+#ifdef PERL_CORE
+#define my_letohs Perl_my_letohs
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBES
+#ifdef PERL_CORE
+#define my_htobes Perl_my_htobes
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOHS
+#ifdef PERL_CORE
+#define my_betohs Perl_my_betohs
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLEI
+#ifdef PERL_CORE
+#define my_htolei Perl_my_htolei
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOHI
+#ifdef PERL_CORE
+#define my_letohi Perl_my_letohi
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBEI
+#ifdef PERL_CORE
+#define my_htobei Perl_my_htobei
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOHI
+#ifdef PERL_CORE
+#define my_betohi Perl_my_betohi
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOLEL
+#ifdef PERL_CORE
+#define my_htolel Perl_my_htolel
+#endif
+#endif
+#ifdef PERL_NEED_MY_LETOHL
+#ifdef PERL_CORE
+#define my_letohl Perl_my_letohl
+#endif
+#endif
+#ifdef PERL_NEED_MY_HTOBEL
+#ifdef PERL_CORE
+#define my_htobel Perl_my_htobel
+#endif
+#endif
+#ifdef PERL_NEED_MY_BETOHL
+#ifdef PERL_CORE
+#define my_betohl Perl_my_betohl
+#endif
+#endif
+#ifdef PERL_CORE
+#define my_swabn Perl_my_swabn
#endif
#define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a)
#define ck_bitop(a) Perl_ck_bitop(aTHX_ a)
#define ck_substr(a) Perl_ck_substr(aTHX_ a)
#define ck_svconst(a) Perl_ck_svconst(aTHX_ a)
#define ck_trunc(a) Perl_ck_trunc(aTHX_ a)
+#define ck_unpack(a) Perl_ck_unpack(aTHX_ a)
#define pp_aassign() Perl_pp_aassign(aTHX)
#define pp_abs() Perl_pp_abs(aTHX)
#define pp_accept() Perl_pp_accept(aTHX)