From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 21 Feb 2001 16:30:06 +0000 (-0800)
Subject: [patch: perl@8867] embed.{h|pl} need not mention ebcdic_control ...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a66eeb6bbb6537e05dc694a7b8653f9a512a197c;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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
--- 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)