aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/objc/execute/class_self-2.m
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/gcc/testsuite/objc/execute/class_self-2.m')
-rw-r--r--gcc-4.9/gcc/testsuite/objc/execute/class_self-2.m68
1 files changed, 68 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/objc/execute/class_self-2.m b/gcc-4.9/gcc/testsuite/objc/execute/class_self-2.m
new file mode 100644
index 000000000..070c4c1a5
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/objc/execute/class_self-2.m
@@ -0,0 +1,68 @@
+/* Contributed by Nicola Pero - Fri Oct 26 22:39:32 BST 2001 */
+#include <stdlib.h>
+#include <objc/objc.h>
+
+/* Test calling a class method on self where self has been redefined
+ to be another class - the call requires a cast */
+
+
+/* The first class */
+struct d
+{
+ int a;
+};
+
+@interface ClassA
+{
+ Class isa;
+}
++ (Class) class;
++ (struct d) method;
+@end
+
+@implementation ClassA
++ (Class) class
+{
+ return self;
+}
+
++ (struct d) method
+{
+ struct d u;
+ u.a = 5;
+
+ return u;
+}
++ initialize { return self; }
+@end
+
+/* The second class */
+@interface TestClass
+{
+ Class isa;
+}
++ (void) test;
+@end
+
+@implementation TestClass
++ (void) test
+{
+ self = [ClassA class];
+
+
+ if ([(Class)self method].a != 5)
+ {
+ abort ();
+ }
+}
+
++ initialize { return self; }
+@end
+
+
+int main (void)
+{
+ [TestClass test];
+
+ return 0;
+}