diff options
Diffstat (limited to 'gcc/testsuite/objc/execute/IMP.m')
-rw-r--r-- | gcc/testsuite/objc/execute/IMP.m | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/gcc/testsuite/objc/execute/IMP.m b/gcc/testsuite/objc/execute/IMP.m new file mode 100644 index 00000000000..979aebb0158 --- /dev/null +++ b/gcc/testsuite/objc/execute/IMP.m @@ -0,0 +1,39 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ +#include <objc/objc.h> +#include <objc/objc-api.h> + +/* Test getting and calling the IMP of a method */ + +@interface TestClass +{ + Class isa; +} +- (int) next: (int)a; +@end + +@implementation TestClass +- (int) next: (int)a +{ + return a + 1; +} +@end + + +int main (void) +{ + Class class; + SEL selector; + int (* imp) (id, SEL, int); + + class = objc_get_class ("TestClass"); + selector = @selector (next:); + imp = (int (*)(id, SEL, int))method_get_imp + (class_get_class_method (class, selector)); + + if (imp (class, selector, 5) != 6) + { + abort (); + } + + return 0; +} |