]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/objc/execute/class_self-2.m
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / objc / execute / class_self-2.m
diff --git a/gcc/testsuite/objc/execute/class_self-2.m b/gcc/testsuite/objc/execute/class_self-2.m
deleted file mode 100644 (file)
index e64fcf9..0000000
+++ /dev/null
@@ -1,65 +0,0 @@
-/* Contributed by Nicola Pero - Fri Oct 26 22:39:32 BST 2001 */
-#include <objc/objc.h>
-
-/* Test calling a class method on self where self has been redefined
-   to be another class - the call requires a cast */
-
-
-/* The first class */
-struct d
-{
-  int a;
-};
-
-@interface ClassA
-{
-  Class isa;
-}
-+ (Class) class;
-+ (struct d) method;
-@end
-
-@implementation ClassA
-+ (Class) class
-{
-  return self;
-}
-
-+ (struct d) method
-{
-  struct d u;
-  u.a = 5;
-  
-  return u;
-}
-@end
-
-/* The second class */
-@interface TestClass
-{
-  Class isa;
-}
-+ (void) test;
-@end
-
-@implementation TestClass
-+ (void) test
-{
-  self = [ClassA class];
-  
-
-  if ([(Class)self method].a != 5)
-    {
-      abort ();
-    }
-}
-
-@end
-
-
-int main (void)
-{
-  [TestClass test];
-
-  return 0;
-}