buncha MacPerl patches for bleadperl

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

diff --git a/embed.h b/embed.h
index 6d2eea6..1150e98 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1159,6 +1159,9 @@
 #  if defined(LEAKTEST)
 #define xstat                  S_xstat
 #  endif
+#  if defined(EBCDIC)
+#define ebcdic_control         Perl_ebcdic_control
+#  endif
 #endif
 #if defined(PERL_OBJECT)
 #endif
@@ -2633,6 +2636,9 @@
 #  if defined(LEAKTEST)
 #define xstat(a)               S_xstat(aTHX_ a)
 #  endif
+#  if defined(EBCDIC)
+#define ebcdic_control(a)      Perl_ebcdic_control(aTHX_ a)
+#  endif
 #endif
 #if defined(PERL_OBJECT)
 #endif
@@ -5112,6 +5118,10 @@
 #define S_xstat                        CPerlObj::S_xstat
 #define xstat                  S_xstat
 #  endif
+#  if defined(EBCDIC)
+#define Perl_ebcdic_control    CPerlObj::Perl_ebcdic_control
+#define ebcdic_control         Perl_ebcdic_control
+#  endif
 #endif
 #if defined(PERL_OBJECT)
 #endif