From: Doug MacEachern <dougm@covalent.net>
Date: Fri, 23 Feb 2001 00:05:37 +0000 (-0800)
Subject: [patch] perlio + useithreads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88dbcb007a9600a580bdafb1f5f7c13e74b34e5b;p=p5sagit%2Fp5-mst-13.2.git

[patch] perlio + useithreads
Message-ID: <Pine.LNX.4.21.0102222356460.14249-100000@mako.covalent.net>

Gets things running but not complete.

p4raw-id: //depot/perl@8912
---

diff --git a/objXSUB.h b/objXSUB.h
index 2549344..f9f48d1 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -2339,8 +2339,6 @@
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 #  if defined(LEAKTEST)
 #  endif
-#  if defined(EBCDIC)
-#  endif
 #endif
 #if defined(PERL_OBJECT)
 #endif
diff --git a/perlapi.c b/perlapi.c
index 644bef8..2252ef3 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -4164,8 +4164,6 @@ Perl_sys_intern_init(pTHXo)
 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 #  if defined(LEAKTEST)
 #  endif
-#  if defined(EBCDIC)
-#  endif
 #endif
 #if defined(PERL_OBJECT)
 #endif
diff --git a/proto.h b/proto.h
index a33e8b7..bd27c20 100644
--- a/proto.h
+++ b/proto.h
@@ -1288,9 +1288,6 @@ STATIC SV*	S_mess_alloc(pTHX);
 #  if defined(LEAKTEST)
 STATIC void	S_xstat(pTHX_ int);
 #  endif
-#  if defined(EBCDIC)
-PERL_CALLCONV int	Perl_ebcdic_control(pTHX_ int ch);
-#  endif
 #endif
 
 #if defined(PERL_OBJECT)