From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m | 77 +++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m

(limited to 'gcc/testsuite/objc.dg/gnu-api-2-objc_msg_lookup.m')

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 000000000..5751f3fd2
--- /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 <objc/runtime.h>
+
+/* For objc_msg_lookup(), objc_msg_lookup_super() and struct
+   objc_super.  */
+#include <objc/message.h>
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+@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;
+}
-- 
cgit v1.2.3