gnu/dist/gcc4/gcc/testsuite/objc/execute/redefining_self.m

   1 /* Contributed by Nicola Pero - Fri Mar  9 19:39:15 CET 2001 */
   2 #include <objc/objc.h>
   3
   4 /* Test redefining self */
   5
   6 @interface TestClass
   7 {
   8   Class isa;
   9 }
  10 + (Class) class;
  11 @end
  12
  13 @implementation TestClass
  14 + (Class) class
  15 {
  16   self = Nil;
  17
  18   return self;
  19 }
  20 #ifdef __NEXT_RUNTIME__
  21 + initialize { return self; }
  22 #endif
  23 @end
  24
  25
  26 int main (void)
  27 {
  28   if ([TestClass class] != Nil)
  29     {
  30       abort ();
  31     }
  32
  33   return 0;
  34 }