Retract #14985, #14899, and #14990, following the principles

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index a84707b..9d66677 100644 (file)
--- 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)