From 1b3366786e3f84bf397a0718fa897c579c731f31 Mon Sep 17 00:00:00 2001 From: nicola Date: Sun, 19 Dec 2010 14:00:10 +0000 Subject: [PATCH] In gcc/testsuite/: 2010-12-19 Nicola Pero * objc.dg/gnu-api-2-objc_msg_lookup.m: New. * obj-c++.dg/gnu-api-2-objc_msg_lookup.mm: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168052 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 ++ .../obj-c++.dg/gnu-api-2-objc_msg_lookup.mm | 77 ++++++++++++++++++++++ gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m | 77 ++++++++++++++++++++++ 3 files changed, 159 insertions(+) create mode 100644 gcc/testsuite/obj-c++.dg/gnu-api-2-objc_msg_lookup.mm create mode 100644 gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d8c514654c5..069607901e7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-12-19 Nicola Pero + + * objc.dg/gnu-api-2-objc_msg_lookup.m: New. + * obj-c++.dg/gnu-api-2-objc_msg_lookup.mm: New. + 2010-12-19 Chung-Lin Tang * gcc.target/arm/vfp-1.c (test_ldst): New test for VFP diff --git a/gcc/testsuite/obj-c++.dg/gnu-api-2-objc_msg_lookup.mm b/gcc/testsuite/obj-c++.dg/gnu-api-2-objc_msg_lookup.mm new file mode 100644 index 00000000000..dcbf6d21f14 --- /dev/null +++ b/gcc/testsuite/obj-c++.dg/gnu-api-2-objc_msg_lookup.mm @@ -0,0 +1,77 @@ +/* Test the Modern GNU Objective-C Runtime API. + + This is test 'objc_msg_lookup', covering objc_msg_lookup(), + objc_msg_lookup_super() and struct objc_super. */ + +/* { dg-do run } */ +/* { dg-skip-if "" { *-*-* } { "-fnext-runtime" } { "" } } */ + +/* To get the modern GNU Objective-C Runtime API, you include + objc/runtime.h. */ +#include + +/* For objc_msg_lookup(), objc_msg_lookup_super() and struct + objc_super. */ +#include + +#include +#include +#include + +@interface MyRootClass +{ Class isa; } ++ alloc; +- init; +- (int) test; +@end + +@implementation MyRootClass ++ alloc { return class_createInstance (self, 0); } +- init { return self; } +- (int) test { return 20; } +@end + +@interface MySubClass : MyRootClass +- (int) test; +@end + +@implementation MySubClass +- (int) test { return 11; } +@end + +int main () +{ + /* Functions are tested in alphabetical order. */ + + std::cout << "Testing objc_msg_lookup () ...\n"; + { + MySubClass *object = [[MySubClass alloc] init]; + int (* test_IMP) (id receiver, SEL selector); + + test_IMP = (int (*)(id, SEL))objc_msg_lookup (object, @selector (test)); + + if (test_IMP (object, @selector (test)) != 11) + abort (); + } + + std::cout << "Testing objc_msg_lookup_super () ...\n"; + { + MySubClass *object = [[MySubClass alloc] init]; + struct objc_super super = { 0, 0 }; + int (* test_IMP) (id receiver, SEL selector); + + /* Get the implementation of -test for the superclass of object - + as if we were calling [super test] inside a method + implementation of object. */ + super.self = object; + super.super_class = class_getSuperclass (object_getClass (object)); + test_IMP = (int (*)(id, SEL))objc_msg_lookup_super (&super, @selector (test)); + + /* Invoke it. The method in MyRootClass, not the one in + MySubClass, should be invoked. */ + if (test_IMP (object, @selector (test)) != 20) + abort (); + } + + return (0); +} diff --git a/gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m b/gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m new file mode 100644 index 00000000000..5751f3fd298 --- /dev/null +++ b/gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m @@ -0,0 +1,77 @@ +/* Test the Modern GNU Objective-C Runtime API. + + This is test 'objc_msg_lookup', covering objc_msg_lookup(), + objc_msg_lookup_super() and struct objc_super. */ + +/* { dg-do run } */ +/* { dg-skip-if "" { *-*-* } { "-fnext-runtime" } { "" } } */ + +/* To get the modern GNU Objective-C Runtime API, you include + objc/runtime.h. */ +#include + +/* For objc_msg_lookup(), objc_msg_lookup_super() and struct + objc_super. */ +#include + +#include +#include +#include + +@interface MyRootClass +{ Class isa; } ++ alloc; +- init; +- (int) test; +@end + +@implementation MyRootClass ++ alloc { return class_createInstance (self, 0); } +- init { return self; } +- (int) test { return 20; } +@end + +@interface MySubClass : MyRootClass +- (int) test; +@end + +@implementation MySubClass +- (int) test { return 11; } +@end + +int main (int argc, void **args) +{ + /* Functions are tested in alphabetical order. */ + + printf ("Testing objc_msg_lookup ()...\n"); + { + MySubClass *object = [[MySubClass alloc] init]; + int (* test_IMP) (id receiver, SEL selector); + + test_IMP = (int (*)(id, SEL))objc_msg_lookup (object, @selector (test)); + + if (test_IMP (object, @selector (test)) != 11) + abort (); + } + + printf ("Testing objc_msg_lookup_super ()...\n"); + { + MySubClass *object = [[MySubClass alloc] init]; + struct objc_super super = { 0, 0 }; + int (* test_IMP) (id receiver, SEL selector); + + /* Get the implementation of -test for the superclass of object - + as if we were calling [super test] inside a method + implementation of object. */ + super.self = object; + super.super_class = class_getSuperclass (object_getClass (object)); + test_IMP = (int (*)(id, SEL))objc_msg_lookup_super (&super, @selector (test)); + + /* Invoke it. The method in MyRootClass, not the one in + MySubClass, should be invoked. */ + if (test_IMP (object, @selector (test)) != 20) + abort (); + } + + return 0; +} -- 2.11.0