2003-01-13 Joel Sherrill <joel@OARcorp.com>

[pf3gnuchains/gcc-fork.git] / libobjc / Object.m

diff --git a/libobjc/Object.m b/libobjc/Object.m
index 0bec4c9..1882754 100644 (file)
--- a/libobjc/Object.m
+++ b/libobjc/Object.m
@@ -1,5 +1,5 @@
 /* The implementation of class Object for Objective-C.
-   Copyright (C) 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
+   Copyright (C) 1993, 1994, 1995, 1997, 2002 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -199,7 +199,7 @@ extern int errno;
 
 + (BOOL) conformsTo: (Protocol*)aProtocol
 {
-  int i;
+  size_t i;
   struct objc_protocol_list* proto_list;
   id parent;
 
@@ -271,6 +271,7 @@ extern int errno;
 
 - (retval_t)forward:(SEL)aSel :(arglist_t)argFrame
 {
+  (void) argFrame; /* UNUSED */
   return (retval_t)[self doesNotRecognize: aSel];
 }
 
@@ -320,10 +321,6 @@ extern int errno;
                      object_get_class_name(self), sel_get_name(aSel)];
 }
 
-#if defined(__alpha__) || (defined (_ARCH_PPC) && defined (__64BIT__)) || (defined(__sparc__) && (defined(__sparcv9) || defined(__arch64__))) || (defined(__ia64__) && defined(__LP64__))
-extern size_t strlen(const char*);
-#endif
-
 - error:(const char *)aString, ...
 {
 #define FMT "error: %s (%s)\n%s\n"
@@ -368,12 +365,14 @@ extern size_t strlen(const char*);
 
 - read: (TypedStream*)aStream
 {
+  (void) aStream; /* UNUSED */
   // [super read: aStream];  
   return self;
 }
 
 - write: (TypedStream*)aStream
 {
+  (void) aStream; /* UNUSED */
   // [super write: aStream];
   return self;
 }