X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=94d7e50bd1b6cf882e2f54f12b062ff5df558fab;hb=454f1e2628e3c3cf05341675e973e8df77c9b0ae;hp=648f821f420a1f65977562447b9c02e3dd1be80f;hpb=0bff533ca2a343dc64973f34f3c611670d92fff1;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index 648f821..94d7e50 100644 --- a/embed.h +++ b/embed.h @@ -345,6 +345,7 @@ #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_string_loclen Perl_is_utf8_string_loclen #define is_utf8_alnum Perl_is_utf8_alnum #define is_utf8_alnumc Perl_is_utf8_alnumc #define is_utf8_idfirst Perl_is_utf8_idfirst @@ -420,6 +421,7 @@ #define magic_set Perl_magic_set #define magic_setamagic Perl_magic_setamagic #define magic_setarylen Perl_magic_setarylen +#define magic_freearylen_p Perl_magic_freearylen_p #define magic_setbm Perl_magic_setbm #define magic_setdbline Perl_magic_setdbline #define magic_setdefelem Perl_magic_setdefelem @@ -552,6 +554,7 @@ #define newSVnv Perl_newSVnv #define newSVpv Perl_newSVpv #define newSVpvn Perl_newSVpvn +#define newSVhek Perl_newSVhek #define newSVpvn_share Perl_newSVpvn_share #define newSVpvf Perl_newSVpvf #define vnewSVpvf Perl_vnewSVpvf @@ -672,8 +675,9 @@ #endif #endif #define savepv Perl_savepv -#define savesharedpv Perl_savesharedpv #define savepvn Perl_savepvn +#define savesharedpv Perl_savesharedpv +#define savesvpv Perl_savesvpv #define savestack_grow Perl_savestack_grow #define savestack_grow_cnt Perl_savestack_grow_cnt #define save_aelem Perl_save_aelem @@ -992,13 +996,15 @@ #define ptr_table_free Perl_ptr_table_free # if defined(HAVE_INTERP_INTERN) #define sys_intern_dup Perl_sys_intern_dup +# endif +#endif +#if defined(HAVE_INTERP_INTERN) #define sys_intern_clear Perl_sys_intern_clear #define sys_intern_init Perl_sys_intern_init -# endif #endif #define custom_op_name Perl_custom_op_name #define custom_op_desc Perl_custom_op_desc -#if defined(PERL_COPY_ON_WRITE) +#if defined(PERL_OLD_COPY_ON_WRITE) #ifdef PERL_CORE #define sv_release_IVX Perl_sv_release_IVX #endif @@ -1034,6 +1040,9 @@ #define unshare_hek_or_pvn S_unshare_hek_or_pvn #define share_hek_flags S_share_hek_flags #define hv_notallowed S_hv_notallowed +#define hv_auxinit S_hv_auxinit +#define hv_delete_common S_hv_delete_common +#define hv_fetch_common S_hv_fetch_common #endif #endif #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) @@ -1275,28 +1284,6 @@ #ifdef PERL_CORE #define asIV S_asIV #define asUV S_asUV -#define new_xnv S_new_xnv -#define new_xpv S_new_xpv -#define new_xpviv S_new_xpviv -#define new_xpvnv S_new_xpvnv -#define new_xpvcv S_new_xpvcv -#define new_xpvav S_new_xpvav -#define new_xpvhv S_new_xpvhv -#define new_xpvmg S_new_xpvmg -#define new_xpvgv S_new_xpvgv -#define new_xpvlv S_new_xpvlv -#define new_xpvbm S_new_xpvbm -#define del_xnv S_del_xnv -#define del_xpv S_del_xpv -#define del_xpviv S_del_xpviv -#define del_xpvnv S_del_xpvnv -#define del_xpvcv S_del_xpvcv -#define del_xpvav S_del_xpvav -#define del_xpvhv S_del_xpvhv -#define del_xpvmg S_del_xpvmg -#define del_xpvgv S_del_xpvgv -#define del_xpvlv S_del_xpvlv -#define del_xpvbm S_del_xpvbm #define sv_unglob S_sv_unglob #define not_a_number S_not_a_number #define visit S_visit @@ -1326,7 +1313,7 @@ #define utf8_mg_pos S_utf8_mg_pos #define utf8_mg_pos_init S_utf8_mg_pos_init #endif -#if defined(PERL_COPY_ON_WRITE) +#if defined(PERL_OLD_COPY_ON_WRITE) #ifdef PERL_CORE #define sv_release_COW S_sv_release_COW #endif @@ -1413,6 +1400,11 @@ #define mulexp10 S_mulexp10 #endif #endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define is_utf8_char_slow S_is_utf8_char_slow +#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 @@ -1421,7 +1413,7 @@ #define sv_copypv Perl_sv_copypv #define my_atof2 Perl_my_atof2 #define my_socketpair Perl_my_socketpair -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE #if defined(PERL_CORE) || defined(PERL_EXT) #define sv_setsv_cow Perl_sv_setsv_cow #endif @@ -1500,14 +1492,8 @@ #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 -#define hv_fetch_common S_hv_fetch_common -#endif -#endif -#define hv_clear_placeholders Perl_hv_clear_placeholders #define hv_scalar Perl_hv_scalar +#define hv_clear_placeholders Perl_hv_clear_placeholders #ifdef PERL_CORE #define magic_scalarpack Perl_magic_scalarpack #endif @@ -1644,7 +1630,7 @@ #ifdef PERL_CORE #define is_gv_magical_sv Perl_is_gv_magical_sv #endif -#define savesvpv Perl_savesvpv +#define stashpv_hvname_match Perl_stashpv_hvname_match #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -2335,6 +2321,7 @@ #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_string_loclen(a,b,c,d) Perl_is_utf8_string_loclen(aTHX_ a,b,c,d) #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) @@ -2409,6 +2396,7 @@ #define magic_set(a,b) Perl_magic_set(aTHX_ a,b) #define magic_setamagic(a,b) Perl_magic_setamagic(aTHX_ a,b) #define magic_setarylen(a,b) Perl_magic_setarylen(aTHX_ a,b) +#define magic_freearylen_p(a,b) Perl_magic_freearylen_p(aTHX_ a,b) #define magic_setbm(a,b) Perl_magic_setbm(aTHX_ a,b) #define magic_setdbline(a,b) Perl_magic_setdbline(aTHX_ a,b) #define magic_setdefelem(a,b) Perl_magic_setdefelem(aTHX_ a,b) @@ -2540,6 +2528,7 @@ #define newSVnv(a) Perl_newSVnv(aTHX_ a) #define newSVpv(a,b) Perl_newSVpv(aTHX_ a,b) #define newSVpvn(a,b) Perl_newSVpvn(aTHX_ a,b) +#define newSVhek(a) Perl_newSVhek(aTHX_ a) #define newSVpvn_share(a,b,c) Perl_newSVpvn_share(aTHX_ a,b,c) #define vnewSVpvf(a,b) Perl_vnewSVpvf(aTHX_ a,b) #define newSVrv(a,b) Perl_newSVrv(aTHX_ a,b) @@ -2658,8 +2647,9 @@ #endif #endif #define savepv(a) Perl_savepv(aTHX_ a) -#define savesharedpv(a) Perl_savesharedpv(aTHX_ a) #define savepvn(a,b) Perl_savepvn(aTHX_ a,b) +#define savesharedpv(a) Perl_savesharedpv(aTHX_ a) +#define savesvpv(a) Perl_savesvpv(aTHX_ a) #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) @@ -2971,13 +2961,15 @@ #define ptr_table_free(a) Perl_ptr_table_free(aTHX_ a) # if defined(HAVE_INTERP_INTERN) #define sys_intern_dup(a,b) Perl_sys_intern_dup(aTHX_ a,b) +# endif +#endif +#if defined(HAVE_INTERP_INTERN) #define sys_intern_clear() Perl_sys_intern_clear(aTHX) #define sys_intern_init() Perl_sys_intern_init(aTHX) -# endif #endif #define custom_op_name(a) Perl_custom_op_name(aTHX_ a) #define custom_op_desc(a) Perl_custom_op_desc(aTHX_ a) -#if defined(PERL_COPY_ON_WRITE) +#if defined(PERL_OLD_COPY_ON_WRITE) #ifdef PERL_CORE #define sv_release_IVX(a) Perl_sv_release_IVX(aTHX_ a) #endif @@ -3013,6 +3005,9 @@ #define unshare_hek_or_pvn(a,b,c,d) S_unshare_hek_or_pvn(aTHX_ a,b,c,d) #define share_hek_flags(a,b,c,d) S_share_hek_flags(aTHX_ a,b,c,d) #define hv_notallowed(a,b,c,d) S_hv_notallowed(aTHX_ a,b,c,d) +#define hv_auxinit(a) S_hv_auxinit(aTHX_ a) +#define hv_delete_common(a,b,c,d,e,f,g) S_hv_delete_common(aTHX_ a,b,c,d,e,f,g) +#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 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) @@ -3253,28 +3248,6 @@ #ifdef PERL_CORE #define asIV(a) S_asIV(aTHX_ a) #define asUV(a) S_asUV(aTHX_ a) -#define new_xnv() S_new_xnv(aTHX) -#define new_xpv() S_new_xpv(aTHX) -#define new_xpviv() S_new_xpviv(aTHX) -#define new_xpvnv() S_new_xpvnv(aTHX) -#define new_xpvcv() S_new_xpvcv(aTHX) -#define new_xpvav() S_new_xpvav(aTHX) -#define new_xpvhv() S_new_xpvhv(aTHX) -#define new_xpvmg() S_new_xpvmg(aTHX) -#define new_xpvgv() S_new_xpvgv(aTHX) -#define new_xpvlv() S_new_xpvlv(aTHX) -#define new_xpvbm() S_new_xpvbm(aTHX) -#define del_xnv(a) S_del_xnv(aTHX_ a) -#define del_xpv(a) S_del_xpv(aTHX_ a) -#define del_xpviv(a) S_del_xpviv(aTHX_ a) -#define del_xpvnv(a) S_del_xpvnv(aTHX_ a) -#define del_xpvcv(a) S_del_xpvcv(aTHX_ a) -#define del_xpvav(a) S_del_xpvav(aTHX_ a) -#define del_xpvhv(a) S_del_xpvhv(aTHX_ a) -#define del_xpvmg(a) S_del_xpvmg(aTHX_ a) -#define del_xpvgv(a) S_del_xpvgv(aTHX_ a) -#define del_xpvlv(a) S_del_xpvlv(aTHX_ a) -#define del_xpvbm(a) S_del_xpvbm(aTHX_ a) #define sv_unglob(a) S_sv_unglob(aTHX_ a) #define not_a_number(a) S_not_a_number(aTHX_ a) #define visit(a,b,c) S_visit(aTHX_ a,b,c) @@ -3304,9 +3277,9 @@ #define utf8_mg_pos(a,b,c,d,e,f,g,h,i) S_utf8_mg_pos(aTHX_ a,b,c,d,e,f,g,h,i) #define utf8_mg_pos_init(a,b,c,d,e,f,g) S_utf8_mg_pos_init(aTHX_ a,b,c,d,e,f,g) #endif -#if defined(PERL_COPY_ON_WRITE) +#if defined(PERL_OLD_COPY_ON_WRITE) #ifdef PERL_CORE -#define sv_release_COW(a,b,c,d,e,f) S_sv_release_COW(aTHX_ a,b,c,d,e,f) +#define sv_release_COW(a,b,c,d) S_sv_release_COW(aTHX_ a,b,c,d) #endif #endif #endif @@ -3391,6 +3364,11 @@ #define mulexp10 S_mulexp10 #endif #endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define is_utf8_char_slow(a,b) S_is_utf8_char_slow(aTHX_ a,b) +#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) @@ -3399,7 +3377,7 @@ #define sv_copypv(a,b) Perl_sv_copypv(aTHX_ a,b) #define my_atof2(a,b) Perl_my_atof2(aTHX_ a,b) #define my_socketpair Perl_my_socketpair -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE #if defined(PERL_CORE) || defined(PERL_EXT) #define sv_setsv_cow(a,b) Perl_sv_setsv_cow(aTHX_ a,b) #endif @@ -3478,14 +3456,8 @@ #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) -#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) +#define hv_clear_placeholders(a) Perl_hv_clear_placeholders(aTHX_ a) #ifdef PERL_CORE #define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b) #endif @@ -3622,7 +3594,7 @@ #ifdef PERL_CORE #define is_gv_magical_sv(a,b) Perl_is_gv_magical_sv(aTHX_ a,b) #endif -#define savesvpv(a) Perl_savesvpv(aTHX_ a) +#define stashpv_hvname_match(a,b) Perl_stashpv_hvname_match(aTHX_ a,b) #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a)