aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorDoug Evans <dje@gnu.org>1994-01-24 23:28:33 +0000
committerDoug Evans <dje@gnu.org>1994-01-24 23:28:33 +0000
commitff942a982967fec95d6108ce2958306fdbdec959 (patch)
tree3aa902e1f29a7bbba9619b64087222372545a9f1 /gcc
parenta0a74fda8d82ea0bc8bed0f8c7a092bc5e572291 (diff)
downloadgcc-ff942a982967fec95d6108ce2958306fdbdec959.zip
gcc-ff942a982967fec95d6108ce2958306fdbdec959.tar.gz
gcc-ff942a982967fec95d6108ce2958306fdbdec959.tar.bz2
#ifdef out uses of TypedStream for the alpha, not supported yet.
From-SVN: r6426
Diffstat (limited to 'gcc')
-rw-r--r--gcc/objc/Object.h4
-rw-r--r--gcc/objc/Object.m8
2 files changed, 10 insertions, 2 deletions
diff --git a/gcc/objc/Object.h b/gcc/objc/Object.h
index cb370ca..cb409d2 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 622dcbe..d620948 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
{