X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=94d7e50bd1b6cf882e2f54f12b062ff5df558fab;hb=454f1e2628e3c3cf05341675e973e8df77c9b0ae;hp=238bda92b58d234a56a06b0e5ca3186f4e6433ab;hpb=bdd68bc304bfb15597167600a71a074fd0478307;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index 238bda9..94d7e50 100644 --- a/embed.h +++ b/embed.h @@ -675,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 @@ -1040,6 +1041,8 @@ #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) @@ -1281,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 @@ -1511,12 +1492,6 @@ #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_scalar Perl_hv_scalar #define hv_clear_placeholders Perl_hv_clear_placeholders #ifdef PERL_CORE @@ -1655,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 @@ -2672,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) @@ -3030,6 +3006,8 @@ #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) @@ -3270,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) @@ -3500,12 +3456,6 @@ #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_scalar(a) Perl_hv_scalar(aTHX_ a) #define hv_clear_placeholders(a) Perl_hv_clear_placeholders(aTHX_ a) #ifdef PERL_CORE @@ -3644,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)