Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 89 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/objc.dg/torture/forward-1.m b/gcc-4.9/gcc/testsuite/objc.dg/torture/forward-1.m
new file mode 100644
index 000000000..b45f1b444
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/objc.dg/torture/forward-1.m
@@ -0,0 +1,89 @@
+/* { dg-do run } */
+/* See if -forward:: is able to work. */
+/* { dg-skip-if "Needs OBJC2 Implementation" { *-*-darwin8* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "../../objc-obj-c++-shared/TestsuiteObject.m"
+
+#define VALUETOUSE 1234567890
+
+id forwarder, receiver;
+
+@interface Forwarder: TestsuiteObject
+{
+    id receiver;
+}
+
+-initWithReceiver:theReceiver;
+
+@end
+
+@interface Receiver:TestsuiteObject
+{
+    int foo;
+}
+-display;
+-initWithFoo:(int)theFoo;
+@end
+@implementation Receiver
+
+-initWithFoo: (int)theFoo
+{
+    foo = theFoo;
+    return self;
+}
+
+-display
+{
+  printf ("Executing display\n");
+    /* Check to see if we are really the reciever. */
+    if (self != receiver)
+        abort ();
+    /* And the value of foo is set correctly. */
+    if (foo != VALUETOUSE)
+      abort ();
+    return self;
+}
+
+@end
+
+@implementation Forwarder
+-initWithReceiver: theReceiver
+{
+    [super init];
+    receiver = theReceiver;
+    return self;
+}
+-(void *) forward: (SEL)theSel: (void *)theArgFrame
+{
+  /* If we have a reciever try to perform on that object */
+    if (receiver)
+      {
+	/* Simple forward that works for methods with no
+	   arguments.  */
+	typedef id (*method_with_no_args) (id receiver, SEL _cmd);
+	Method method = class_getInstanceMethod (object_getClass (receiver),
+						 theSel);
+	method_with_no_args imp = (method_with_no_args)(method_getImplementation
+							(method));
+	return (*imp)(receiver, theSel);
+      }
+
+    /* Normally you'd emit an error here.  */
+    printf ("Unrecognized selector\n");
+    return NULL;
+}
+@end
+int main()
+{
+    /* Init the reciever. */
+    receiver = [[Receiver alloc] initWithFoo: VALUETOUSE];
+    /* Init the fowarder. */
+    forwarder = [[Forwarder alloc] initWithReceiver: receiver];
+    /* Call display on the forwarder which in turns calls display on
+       the reciever. */
+    [forwarder display];
+    exit(0);
+}