Encode 1.76 Released

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

diff --git a/embed.h b/embed.h
index efd0352..1bf26e4 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -478,7 +478,12 @@
 #define newUNOP                        Perl_newUNOP
 #define newWHILEOP             Perl_newWHILEOP
 #define new_stackinfo          Perl_new_stackinfo
-#define new_vstring            Perl_new_vstring
+#define scan_vstring           Perl_scan_vstring
+#define scan_version           Perl_scan_version
+#define new_version            Perl_new_version
+#define upg_version            Perl_upg_version
+#define vnumify                        Perl_vnumify
+#define vstringify             Perl_vstringify
 #define nextargv               Perl_nextargv
 #define ninstr                 Perl_ninstr
 #define oopsCV                 Perl_oopsCV
@@ -859,6 +864,9 @@
 #endif
 #define custom_op_name         Perl_custom_op_name
 #define custom_op_desc         Perl_custom_op_desc
+#if defined(PERL_COPY_ON_WRITE)
+#define sv_release_IVX         Perl_sv_release_IVX
+#endif
 #define sv_nosharing           Perl_sv_nosharing
 #define sv_nolocking           Perl_sv_nolocking
 #define sv_nounlocking         Perl_sv_nounlocking
@@ -1113,6 +1121,9 @@
 #  if defined(USE_ITHREADS)
 #define gv_share               S_gv_share
 #  endif
+#if defined(PERL_COPY_ON_WRITE)
+#define sv_release_COW         S_sv_release_COW
+#endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni              S_check_uni
@@ -2040,7 +2051,12 @@
 #define newUNOP(a,b,c)         Perl_newUNOP(aTHX_ a,b,c)
 #define newWHILEOP(a,b,c,d,e,f,g)      Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g)
 #define new_stackinfo(a,b)     Perl_new_stackinfo(aTHX_ a,b)
-#define new_vstring(a,b)       Perl_new_vstring(aTHX_ a,b)
+#define scan_vstring(a,b)      Perl_scan_vstring(aTHX_ a,b)
+#define scan_version(a,b)      Perl_scan_version(aTHX_ a,b)
+#define new_version(a)         Perl_new_version(aTHX_ a)
+#define upg_version(a)         Perl_upg_version(aTHX_ a)
+#define vnumify(a,b)           Perl_vnumify(aTHX_ a,b)
+#define vstringify(a,b)                Perl_vstringify(aTHX_ a,b)
 #define nextargv(a)            Perl_nextargv(aTHX_ a)
 #define ninstr(a,b,c,d)                Perl_ninstr(aTHX_ a,b,c,d)
 #define oopsCV(a)              Perl_oopsCV(aTHX_ a)
@@ -2412,6 +2428,9 @@
 #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)
+#define sv_release_IVX(a)      Perl_sv_release_IVX(aTHX_ a)
+#endif
 #define sv_nosharing(a)                Perl_sv_nosharing(aTHX_ a)
 #define sv_nolocking(a)                Perl_sv_nolocking(aTHX_ a)
 #define sv_nounlocking(a)      Perl_sv_nounlocking(aTHX_ a)
@@ -2665,6 +2684,9 @@
 #  if defined(USE_ITHREADS)
 #define gv_share(a,b)          S_gv_share(aTHX_ a,b)
 #  endif
+#if defined(PERL_COPY_ON_WRITE)
+#define sv_release_COW(a,b,c,d,e,f)    S_sv_release_COW(aTHX_ a,b,c,d,e,f)
+#endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni()            S_check_uni(aTHX)