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

   1 /* Contributed by Nicola Pero - Fri Mar  9 19:39:15 CET 2001 */
   2 #include <objc/objc.h>
   3 #include <objc/objc-api.h>
   4
   5 #include "next_mapping.h"
   6
   7 /* Test the hidden argument _cmd to method calls */
   8
   9 @interface TestClass
  10 {
  11   Class isa;
  12 }
  13 + (const char*) method;
  14 @end
  15
  16 @implementation TestClass
  17 + (const char*) method
  18 {
  19   return sel_get_name (_cmd);
  20 }
  21 #ifdef __NEXT_RUNTIME__
  22 + initialize { return self; }
  23 #endif
  24 @end
  25
  26
  27 int main (void)
  28 {
  29   if (strcmp ([TestClass method], "method"))
  30     {
  31       abort ();
  32     }
  33
  34   return 0;
  35 }