X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=9d6667755f3708632dfd40af68e93bff86eae063;hb=7e6b8b1f52e0373e6767447e297b272f88bd4dfc;hp=a84707b9f24902b9fa2054fdaa8dfcace5431119;hpb=eb1102fcca2230364ceadea29bd8e87ee51b15fa;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index a84707b..9d66677 100644 --- a/embed.h +++ b/embed.h @@ -157,6 +157,7 @@ #define debstackptrs Perl_debstackptrs #define delimcpy Perl_delimcpy #define deprecate Perl_deprecate +#define deprecate_old Perl_deprecate_old #define die Perl_die #define vdie Perl_vdie #define die_where Perl_die_where @@ -237,6 +238,7 @@ #define gv_efullname4 Perl_gv_efullname4 #define gv_fetchfile Perl_gv_fetchfile #define gv_fetchmeth Perl_gv_fetchmeth +#define gv_fetchmeth_autoload Perl_gv_fetchmeth_autoload #define gv_fetchmethod Perl_gv_fetchmethod #define gv_fetchmethod_autoload Perl_gv_fetchmethod_autoload #define gv_fetchpv Perl_gv_fetchpv @@ -552,6 +554,7 @@ #define set_numeric_radix Perl_set_numeric_radix #define set_numeric_standard Perl_set_numeric_standard #define require_pv Perl_require_pv +#define pack_cat Perl_pack_cat #define pidgone Perl_pidgone #define pmflag Perl_pmflag #define pmruntime Perl_pmruntime @@ -749,6 +752,7 @@ #if defined(USE_5005THREADS) #define unlock_condpair Perl_unlock_condpair #endif +#define unpack_str Perl_unpack_str #define unsharepvn Perl_unsharepvn #define unshare_hek Perl_unshare_hek #define utilize Perl_utilize @@ -995,6 +999,10 @@ #define mul128 S_mul128 #define is_an_int S_is_an_int #define div128 S_div128 +#define next_symbol S_next_symbol +#define find_count S_find_count +#define group_end S_group_end +#define measure_struct S_measure_struct #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) #define docatch S_docatch @@ -1209,6 +1217,7 @@ #define sv_utf8_upgrade_flags Perl_sv_utf8_upgrade_flags #define sv_pvn_force_flags Perl_sv_pvn_force_flags #define sv_2pv_flags Perl_sv_2pv_flags +#define sv_copypv Perl_sv_copypv #define my_atof2 Perl_my_atof2 #define my_socketpair Perl_my_socketpair #if defined(USE_PERLIO) && !defined(USE_SFIO) @@ -1709,6 +1718,7 @@ #define debstackptrs() Perl_debstackptrs(aTHX) #define delimcpy(a,b,c,d,e,f) Perl_delimcpy(aTHX_ a,b,c,d,e,f) #define deprecate(a) Perl_deprecate(aTHX_ a) +#define deprecate_old(a) Perl_deprecate_old(aTHX_ a) #define vdie(a,b) Perl_vdie(aTHX_ a,b) #define die_where(a,b) Perl_die_where(aTHX_ a,b) #define dounwind(a) Perl_dounwind(aTHX_ a) @@ -1787,6 +1797,7 @@ #define gv_efullname4(a,b,c,d) Perl_gv_efullname4(aTHX_ a,b,c,d) #define gv_fetchfile(a) Perl_gv_fetchfile(aTHX_ a) #define gv_fetchmeth(a,b,c,d) Perl_gv_fetchmeth(aTHX_ a,b,c,d) +#define gv_fetchmeth_autoload(a,b,c,d) Perl_gv_fetchmeth_autoload(aTHX_ a,b,c,d) #define gv_fetchmethod(a,b) Perl_gv_fetchmethod(aTHX_ a,b) #define gv_fetchmethod_autoload(a,b,c) Perl_gv_fetchmethod_autoload(aTHX_ a,b,c) #define gv_fetchpv(a,b,c) Perl_gv_fetchpv(aTHX_ a,b,c) @@ -2099,6 +2110,7 @@ #define set_numeric_radix() Perl_set_numeric_radix(aTHX) #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 pidgone(a,b) Perl_pidgone(aTHX_ a,b) #define pmflag(a,b) Perl_pmflag(aTHX_ a,b) #define pmruntime(a,b,c) Perl_pmruntime(aTHX_ a,b,c) @@ -2294,6 +2306,7 @@ #if defined(USE_5005THREADS) #define unlock_condpair(a) Perl_unlock_condpair(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 unsharepvn(a,b,c) Perl_unsharepvn(aTHX_ a,b,c) #define unshare_hek(a) Perl_unshare_hek(aTHX_ a) #define utilize(a,b,c,d,e) Perl_utilize(aTHX_ a,b,c,d,e) @@ -2534,6 +2547,10 @@ #define mul128(a,b) S_mul128(aTHX_ a,b) #define is_an_int(a,b) S_is_an_int(aTHX_ a,b) #define div128(a,b) S_div128(aTHX_ a,b) +#define next_symbol(a,b) S_next_symbol(aTHX_ a,b) +#define find_count(a,b,c) S_find_count(aTHX_ a,b,c) +#define group_end(a,b,c) S_group_end(aTHX_ a,b,c) +#define measure_struct(a,b) S_measure_struct(aTHX_ a,b) #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) #define docatch(a) S_docatch(aTHX_ a) @@ -2747,6 +2764,7 @@ #define sv_utf8_upgrade_flags(a,b) Perl_sv_utf8_upgrade_flags(aTHX_ a,b) #define sv_pvn_force_flags(a,b,c) Perl_sv_pvn_force_flags(aTHX_ a,b,c) #define sv_2pv_flags(a,b,c) Perl_sv_2pv_flags(aTHX_ a,b,c) +#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 #if defined(USE_PERLIO) && !defined(USE_SFIO)