diff options
Diffstat (limited to 'gcc/testsuite/objc/execute/IMP.m')
-rw-r--r-- | gcc/testsuite/objc/execute/IMP.m | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/gcc/testsuite/objc/execute/IMP.m b/gcc/testsuite/objc/execute/IMP.m new file mode 100644 index 000000000..f07909757 --- /dev/null +++ b/gcc/testsuite/objc/execute/IMP.m @@ -0,0 +1,41 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ + +#include <stdlib.h> +#include "../../objc-obj-c++-shared/next-mapping.h" +#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; +} |