X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ddacffcfccb8d9bc0952350f177ec6e58907d72a..1ea47f6431e8749bc845692316ac30b8fd72e6a9:/embed.h diff --git a/embed.h b/embed.h index 43f18b3..238bda9 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 @@ -1000,7 +1003,7 @@ #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 @@ -1036,6 +1039,7 @@ #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 #endif #endif #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) @@ -1328,7 +1332,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 @@ -1415,6 +1419,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 @@ -1423,7 +1432,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 @@ -1508,8 +1517,8 @@ #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 @@ -2337,6 +2346,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) @@ -2411,6 +2421,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) @@ -2542,6 +2553,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) @@ -2981,7 +2993,7 @@ #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 @@ -3017,6 +3029,7 @@ #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) #endif #endif #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) @@ -3308,9 +3321,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 @@ -3395,6 +3408,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) @@ -3403,7 +3421,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 @@ -3488,8 +3506,8 @@ #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