[ID 20020303.006] [Doc][utf8::up/down grade][use encoding] application for clarification

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

diff --git a/embed.h b/embed.h
index 40bfb28..f9bff8a 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1000,6 +1000,7 @@
 #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
@@ -1214,6 +1215,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)
@@ -2544,6 +2546,7 @@
 #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)
@@ -2757,6 +2760,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)