From ff942a982967fec95d6108ce2958306fdbdec959 Mon Sep 17 00:00:00 2001
From: Doug Evans <dje@gnu.org>
Date: Mon, 24 Jan 1994 23:28:33 +0000
Subject: [PATCH] #ifdef out uses of TypedStream for the alpha, not supported
 yet.

From-SVN: r6426
---
 gcc/objc/Object.h | 4 ++++
 gcc/objc/Object.m | 8 ++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/gcc/objc/Object.h b/gcc/objc/Object.h
index cb370ca2396..cb409d23cf5 100644
--- a/gcc/objc/Object.h
+++ b/gcc/objc/Object.h
@@ -112,10 +112,14 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
         /* Archiving */
 + (int)version;
 + setVersion:(int)aVersion;
+
+#ifndef __alpha__ /* TypedStream not supported on alpha yet.  */
 + (int)streamVersion: (TypedStream*)aStream;
 
 - read: (TypedStream*)aStream;
 - write: (TypedStream*)aStream;
+#endif
+
 - awake;
 
 @end
diff --git a/gcc/objc/Object.m b/gcc/objc/Object.m
index 622dcbe64c3..d62094860f7 100644
--- a/gcc/objc/Object.m
+++ b/gcc/objc/Object.m
@@ -339,15 +339,15 @@ extern int errno;
   return self;
 }
 
+#ifndef __alpha__ /* TypedStream not supported on alpha yet.  */
 + (int)streamVersion: (TypedStream*)aStream
 {
-#ifndef __alpha__
   if (aStream->mode == OBJC_READONLY)
     return objc_get_stream_class_version (aStream, self);
   else
-#endif
     return class_get_version (self);
 }
+#endif
 
 // These are used to write or read the instance variables 
 // declared in this particular part of the object.  Subclasses
@@ -355,17 +355,21 @@ extern int errno;
 // before doing their own archiving.  These methods are private, in
 // the sense that they should only be called from subclasses.
 
+#ifndef __alpha__
 - read: (TypedStream*)aStream
 {
   // [super read: aStream];  
   return self;
 }
+#endif
 
+#ifndef __alpha__
 - write: (TypedStream*)aStream
 {
   // [super write: aStream];
   return self;
 }
+#endif
 
 - awake
 {
-- 
2.30.2