gnu/dist/gcc4/gcc/testsuite/objc/execute/IMP.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 getting and calling the IMP of a method */
   8
   9 @interface TestClass
  10 {
  11   Class isa;
  12 }
  13 - (int) next: (int)a;
  14 @end
  15
  16 @implementation TestClass
  17 - (int) next: (int)a
  18 {
  19   return a + 1;
  20 }
  21 @end
  22
  23
  24 int main (void)
  25 {
  26   Class class;
  27   SEL selector;
  28   int (* imp) (id, SEL, int);
  29
  30   class = objc_get_class ("TestClass");
  31   selector = @selector (next:);
  32   imp = (int (*)(id, SEL, int))method_get_imp
  33     (class_get_class_method (class, selector));
  34
  35   if (imp (class, selector, 5) != 6)
  36     {
  37       abort ();
  38     }
  39
  40   return 0;
  41 }