[patch: perl@8867] embed.{h|pl} need not mention ebcdic_control ...

Message-ID: <Pine.OSF.4.10.10102211624490.12601-100000@aspara.forte.com>

p4raw-id: //depot/perl@8883

diff --git a/embed.h b/embed.h
index a101d23..42ca535 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1164,9 +1164,6 @@
 #  if defined(LEAKTEST)
 #define xstat                  S_xstat
 #  endif
-#  if defined(EBCDIC)
-#define ebcdic_control         Perl_ebcdic_control
-#  endif
 #endif
 #if defined(PERL_OBJECT)
 #endif
@@ -2646,9 +2643,6 @@
 #  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
@@ -5134,10 +5128,6 @@
 #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

diff --git a/embed.pl b/embed.pl
index f1bfd41..a0b9476 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -2559,9 +2559,6 @@ s |SV*    |mess_alloc
 #  if defined(LEAKTEST)
 s      |void   |xstat          |int
 #  endif
-#  if defined(EBCDIC)
-p      |int    |ebcdic_control |int ch
-#  endif
 #endif
 
 #if defined(PERL_OBJECT)