OpenCores

gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-tests-1.h Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-1.m (revision 307) @@ -0,0 +1,24 @@ +/* Contributed by Nicola Pero - Fri Jun 4 03:16:17 BST 2004 */ +/* Test that a protocol is equal to itself. */ +#include "../../objc-obj-c++-shared/Protocol1.h" + +@protocol Foo +- (void)foo; +@end + +int main (void) +{ + Protocol *protocol = @protocol(Foo); + +#ifdef NEXT_OBJC_USE_NEW_INTERFACE + if ( !protocol_isEqual (protocol, protocol)) +#else + if (! [protocol isEqual: protocol]) +#endif + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/initialize.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/initialize.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/initialize.m (revision 307) @@ -0,0 +1,36 @@ +/* Contributed by Nicola Pero - Wed Mar 7 17:55:04 CET 2001 */ +#include + +/* Test that +initialize is automatically called before the class is + accessed */ + +static int class_variable = 0; + +@interface TestClass +{ + Class isa; +} ++ (void) initialize; ++ (int) classVariable; +@end + +@implementation TestClass ++ (void) initialize +{ + class_variable = 1; +} ++ (int) classVariable +{ + return class_variable; +} +@end + +int main (void) +{ + if ([TestClass classVariable] != 1) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-3.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-3.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-3.m (revision 307) @@ -0,0 +1,23 @@ +/* Contributed by Nicola Pero - Fri Jun 4 03:16:17 BST 2004 */ +/* Test that a protocol is not equal to nil. */ + +#include "../../objc-obj-c++-shared/Protocol1.h" + +@protocol Foo +- (void)foo; +@end + +int main (void) +{ +#ifdef NEXT_OBJC_USE_NEW_INTERFACE + if (protocol_isEqual (@protocol(Foo), nil)) +#else + if ([@protocol(Foo) isEqual: nil]) +#endif + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/_cmd.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/_cmd.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/_cmd.m (revision 307) @@ -0,0 +1,35 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ + +#include +#include "../../objc-obj-c++-shared/next-mapping.h" +#include + +/* Test the hidden argument _cmd to method calls */ + +@interface TestClass +{ + Class isa; +} ++ (const char*) method; +@end + +@implementation TestClass ++ (const char*) method +{ + return sel_get_name (_cmd); +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + + +int main (void) +{ + if (strcmp ([TestClass method], "method")) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/function-message-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/function-message-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/function-message-1.m (revision 307) @@ -0,0 +1,33 @@ +#import "../../objc-obj-c++-shared/Object1.h" + +@interface Foo : Object ++ bar; +@end + +int foocalled = 0; +int barcalled = 0; + + +id foo() +{ + if (foocalled) + abort (); + foocalled = 1; + return [Foo class]; +} + +@implementation Foo ++ bar +{ + if (barcalled) + abort (); + barcalled = 1; + return self; +} +@end + +int main(int argc,char **argv) +{ + [foo() bar]; + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-20.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-20.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-20.m (revision 307) @@ -0,0 +1,15 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + short s; + char c; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-common.h =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-common.h (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-common.h (revision 307) @@ -0,0 +1,79 @@ +#include +#include "../../objc-obj-c++-shared/next-mapping.h" +#ifndef __NEXT_RUNTIME__ +#include +#endif + +void print_ivars (Class class) +{ + struct objc_ivar_list* ivars = class->ivars; + int i; + + for (i = 0; i < ivars->ivar_count; i++) { + struct objc_ivar *ivar = &(ivars->ivar_list[i]); + printf ("ivar '%s', type '%s', offset %d\n", + ivar->ivar_name, ivar->ivar_type, ivar->ivar_offset); + } +} + +void compare_structures (Class class, const char* type) +{ + struct objc_struct_layout layout; + struct objc_ivar_list* ivars = class->ivars; + int i = 0; + int position; + + objc_layout_structure (type, &layout); + + while (objc_layout_structure_next_member (&layout)) + { + struct objc_ivar *ivar; + const char *ivar_type; + + if (i > ivars->ivar_count) + { + printf ("too many ivars in type %s, layout = %s\n", + type, layout.type); + exit (1); + } + + ivar = &(ivars->ivar_list[i]); + objc_layout_structure_get_info (&layout, &position, NULL, &ivar_type); + printf ("real ivar '%s' offset %d\n", + ivar->ivar_name, ivar->ivar_offset); + printf ("computed type '%s' offset %d\n", ivar_type, position); + if (position != ivar->ivar_offset) + { + printf ("offset %d and computed position %d don't match on ivar '%s'" + " (i = %d)\n", + ivar->ivar_offset, position, ivar->ivar_name, i); + exit (1); + } + i++; + } + + printf ("%d ivars checked\n", i); +} + +int main () +{ + struct class_vars + { + @defs (MyObject); + }; + int size1, size2; + Class class = objc_get_class ("MyObject"); + + printf ("type = %s\n", @encode (struct class_vars)); + print_ivars (class); + + compare_structures (class, @encode(struct class_vars)); + if ((size1 = objc_sizeof_type (@encode(struct class_vars))) + != (size2 = sizeof (struct class_vars))) + { + printf ("sizes don't match (computed %d, exact %d)\n", size1, size2); + abort (); + } + + exit (0); +}

gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-common.h Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/np-2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/np-2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/np-2.m (revision 307) @@ -0,0 +1,32 @@ +/* + * Contributed by Nicola Pero + * Tue Sep 19 4:34AM + */ +#include "../../objc-obj-c++-shared/Protocol1.h" +#include + +@protocol MyProtocol ++ (oneway void) methodA; +@end + +@interface MyObject +@end + +@implementation MyObject ++ (oneway void) methodA +{ + printf ("methodA\n"); +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +int main (void) +{ + [MyObject methodA]; + + exit (0); +} + + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class_self-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class_self-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class_self-1.m (revision 307) @@ -0,0 +1,65 @@ +/* Contributed by Nicola Pero - Fri Oct 26 22:39:32 BST 2001 */ +#include + +/* Test calling a class method when there is an instance method + with conflicting types */ + +/* This class should be unused but on broken compilers its instance + method might get picked up and used instead of the class method of + another class ! */ +struct d +{ + int a; +}; + +@interface UnusedClass +{ + Class isa; +} +- (struct d) method; +@end + +@implementation UnusedClass +- (struct d) method +{ + struct d u; + u.a = 0; + + return u; +} +@end + +/* The real class */ +@interface TestClass +{ + Class isa; +} ++ (void) test; ++ (int) method; +@end + +@implementation TestClass ++ (void) test +{ + if ([self method] != 4) + { + abort (); + } +} + ++ (int) method +{ + return 4; +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + + +int main (void) +{ + [TestClass test]; + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/redefining_self.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/redefining_self.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/redefining_self.m (revision 307) @@ -0,0 +1,34 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ +#include + +/* Test redefining self */ + +@interface TestClass +{ + Class isa; +} ++ (Class) class; +@end + +@implementation TestClass ++ (Class) class +{ + self = Nil; + + return self; +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + + +int main (void) +{ + if ([TestClass class] != Nil) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-10.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-10.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-10.m (revision 307) @@ -0,0 +1,82 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass with an ivar and + accessor methods and a subclass overriding the superclass' + implementation, and using self to call another method of itself */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +@interface SubClass : RootClass +{ + int state; +} +- (void) setState: (int)number; +- (int) state; +@end + +@implementation SubClass +- (void) setState: (int)number +{ + state = number; +} +- (int) state +{ + return state; +} +@end + +@interface SubSubClass : SubClass +- (int) shift; +@end + +@implementation SubSubClass +- (int) state +{ + return state + [self shift]; +} +- (int) shift +{ + return 1; +} +@end + +#include "class-tests-1.h" +#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD SubClass * +#include "class-tests-2.h" + +int main (void) +{ + SubClass *object; + SubSubClass *sub_object; + + test_class_with_superclass ("SubClass", "RootClass"); + test_that_class_has_instance_method ("SubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubClass", @selector (state)); + + test_class_with_superclass ("SubSubClass", "SubClass"); + test_that_class_has_instance_method ("SubSubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubSubClass", @selector (state)); + test_that_class_has_instance_method ("SubSubClass", @selector (shift)); + + object = class_create_instance (objc_lookup_class ("SubClass")); + test_accessor_method (object, 0, -1, -1, 1, 1); + + sub_object = class_create_instance (objc_lookup_class ("SubSubClass")); + test_accessor_method (sub_object, 1, -1, 0, 1, 2); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/static-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/static-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/static-1.m (revision 307) @@ -0,0 +1,37 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ +#include + +/* Test defining a static variable *inside* a class implementation */ + +@interface Test +{ + Class isa; +} ++ (int) test; +@end + +@implementation Test + +static int test = 1; + ++ (int) test +{ + return test; +} + +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +int main (void) +{ + if ([Test test] != 1) + { + abort (); + } + + return 0; +} + + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-12.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-12.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-12.m (revision 307) @@ -0,0 +1,55 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass with a class methods */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +static int class_variable = 0; + +@interface SubClass : RootClass ++ (void) setState: (int)number; ++ (int) state; +@end + +@implementation SubClass ++ (void) setState: (int)number +{ + class_variable = number; +} ++ (int) state +{ + return class_variable; +} +@end + +#include "class-tests-1.h" +#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD Class +#include "class-tests-2.h" + +int main (void) +{ + Class class; + + test_class_with_superclass ("SubClass", "RootClass"); + test_that_class_has_class_method ("SubClass", @selector (setState:)); + test_that_class_has_class_method ("SubClass", @selector (state)); + + class = objc_lookup_class ("SubClass"); + test_accessor_method (class, 0, -1, -1, 1, 1); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/enumeration-2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/enumeration-2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/enumeration-2.m (revision 307) @@ -0,0 +1,52 @@ +/* Contributed by Nicola Pero - Wed Dec 5 17:12:40 GMT 2001 */ +#include +#import "../../objc-obj-c++-shared/Object1.h" +#include + +typedef enum { black, white } color; + +typedef struct +{ + color a:2; + color b:2; +} color_couple; + +@interface TestClass: Object +{ + color_couple *c; +} +- (color_couple *)colorCouple; +- (void)setColorCouple: (color_couple *)a; +@end + +@implementation TestClass +- (color_couple *)colorCouple +{ + return c; +} +- (void)setColorCouple: (color_couple *)a +{ + c = a; +} +@end + + +int main (void) +{ + color_couple cc; + TestClass *c; + + c = [TestClass new]; + + cc.a = black; + cc.b = white; + + [c setColorCouple: &cc]; + if ([c colorCouple] != &cc) + { + abort (); + } + + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-14.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-14.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-14.m (revision 307) @@ -0,0 +1,81 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass with a class accessor + methods and a subclass overriding the superclass' implementation, + and using self to call another method of itself */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +static int class_variable = 0; + +@interface SubClass : RootClass ++ (void) setState: (int)number; ++ (int) state; +@end + +@implementation SubClass ++ (void) setState: (int)number +{ + class_variable = number; +} ++ (int) state +{ + return class_variable; +} +@end + +@interface SubSubClass : SubClass ++ (int) shift; +@end + +@implementation SubSubClass ++ (int) state +{ + return class_variable + [self shift]; +} ++ (int) shift +{ + return 1; +} +@end + +#include "class-tests-1.h" +#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD Class +#include "class-tests-2.h" + +int main (void) +{ + Class class, sub_class; + + test_class_with_superclass ("SubClass", "RootClass"); + test_that_class_has_class_method ("SubClass", @selector (setState:)); + test_that_class_has_class_method ("SubClass", @selector (state)); + + test_class_with_superclass ("SubSubClass", "SubClass"); + test_that_class_has_class_method ("SubSubClass", @selector (setState:)); + test_that_class_has_class_method ("SubSubClass", @selector (state)); + test_that_class_has_class_method ("SubSubClass", @selector (shift)); + + class = objc_lookup_class ("SubClass"); + test_accessor_method (class, 0, -1, -1, 1, 1); + + sub_class = objc_lookup_class ("SubSubClass"); + class_variable = 0; + test_accessor_method (sub_class, 1, -1, 0, 1, 2); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/encode-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/encode-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/encode-1.m (revision 307) @@ -0,0 +1,32 @@ +/* Contributed by Nicola Pero - Thu Mar 8 16:27:46 CET 2001 */ +#include +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +/* Test very simple @encode */ + +int main (void) +{ + if (strcmp ("i", @encode (int))) + { + abort (); + } + + if (strcmp ("@", @encode (id))) + { + abort (); + } + + if (strcmp ("@", @encode (Object *))) + { + abort (); + } + + if (strcmp (":", @encode (SEL))) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-1.m (revision 307) @@ -0,0 +1,45 @@ +/* Contributed by Nicola Pero - Fri Mar 9 21:35:47 CET 2001 */ + +#include +#import "../../objc-obj-c++-shared/Object1.h" + +/* Tests defining a protocol and a class adopting it */ + +@protocol Enabling +- (BOOL) isEnabled; +- (void) setEnabled: (BOOL)flag; +@end + +@interface Feature : Object +{ + const char *name; + BOOL isEnabled; +} +@end + +@implementation Feature +- (BOOL) isEnabled +{ + return isEnabled; +} +- (void) setEnabled: (BOOL)flag +{ + isEnabled = flag; +} +@end + +int main (void) +{ + Feature *object; + + object = [Feature new]; + + [object setEnabled: YES]; + if (![object isEnabled]) + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-3.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-3.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-3.m (revision 307) @@ -0,0 +1,59 @@ +/* Contributed by Nicola Pero - Fri Mar 9 21:35:47 CET 2001 */ + +#include +#import "../../objc-obj-c++-shared/Object1.h" + +/* Test defining two protocol, a class adopting both of them, + and using an object of type `id ' */ + +@protocol Enabling +- (BOOL) isEnabled; +- (void) setEnabled: (BOOL)flag; +@end + +@protocol Evaluating +- (int) importance; +@end + +@interface Feature : Object +{ + const char *name; + BOOL isEnabled; +} +@end + +@implementation Feature +- (BOOL) isEnabled +{ + return isEnabled; +} +- (void) setEnabled: (BOOL)flag +{ + isEnabled = flag; +} +- (int) importance +{ + return 1000; +} +@end + +int main (void) +{ + id object; + + object = [Feature new]; + + [object setEnabled: YES]; + if (![object isEnabled]) + { + abort (); + } + + if ([object importance] != 1000) + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/forward-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/forward-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/forward-1.m (revision 307) @@ -0,0 +1,80 @@ +/* See if -forward::/-performv:: is able to work. */ + +#include +#include + +#import "../../objc-obj-c++-shared/Object1.h" +#import "../../objc-obj-c++-shared/next-mapping.h" +#include + +#define VALUETOUSE 1234567890 + +id forwarder, receiver; + +@interface Forwarder: Object +{ + id receiver; +} + +-initWithReceiver:theReceiver; + +@end + +@interface Receiver:Object +{ + int foo; +} +-display; +-initWithFoo:(int)theFoo; +@end +@implementation Receiver + +-initWithFoo: (int)theFoo +{ + foo = theFoo; + return self; +} + +-display +{ + /* 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; +} +#ifdef __NEXT_RUNTIME__ +- forward: (SEL)theSel: (marg_list)theArgFrame +#else +-(retval_t) forward: (SEL)theSel: (arglist_t)theArgFrame +#endif +{ + /* If we have a reciever try to perform on that object */ + if (receiver) + return [receiver performv: theSel: theArgFrame]; + return [self doesNotRecognize:theSel]; +} +@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); +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/accessing_ivars.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/accessing_ivars.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/accessing_ivars.m (revision 307) @@ -0,0 +1,55 @@ +/* Contributed by Nicola Pero - Thu Mar 8 16:27:46 CET 2001 */ +#include +#import "../../objc-obj-c++-shared/Object1.h" +#include + +/* Test that by using -> we can access ivars of other objects of the same + class */ + +@interface TestClass : Object +{ + int value; +} +- (int) value; +- (int) setValue: (int)number; +- (void) takeValueFrom: (TestClass *)object; +@end + +@implementation TestClass : Object +{ + int value; +} +- (int) value +{ + return value; +} +- (int) setValue: (int)number +{ + value = number; +} +- (void) takeValueFrom: (TestClass *)object +{ + value = object->value; +} +@end + +int main (void) +{ + TestClass *a; + TestClass *b; + + a = [TestClass new]; + [a setValue: 10]; + + b = [TestClass new]; + [b setValue: -10]; + + [b takeValueFrom: a]; + + if ([b value] != [a value]) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-5.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-5.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-5.m (revision 307) @@ -0,0 +1,38 @@ +/* Contributed by Nicola Pero - Fri Mar 9 21:35:47 CET 2001 */ + +#include +#include "../../objc-obj-c++-shared/Protocol1.h" + +/* Test defining a protocol, and accessing it using @protocol */ + +@protocol Evaluating +- (int) importance; +@end + +/* A class adopting the protocol */ +@interface Test +@end + +@implementation Test +- (int) importance +{ + return 1000; +} +@end + +int main (void) +{ + Protocol *protocol = @protocol (Evaluating); + +#ifdef NEXT_OBJC_USE_NEW_INTERFACE + if (strcmp (protocol_getName(protocol), "Evaluating")) +#else + if (strcmp ([protocol name], "Evaluating")) +#endif + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bycopy-2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bycopy-2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bycopy-2.m (revision 307) @@ -0,0 +1,31 @@ +/* + * Contributed by Nicola Pero + * Fri Feb 2 11:48:01 GMT 2001 + */ + +#include "../../objc-obj-c++-shared/Protocol1.h" + +@protocol MyProtocol ++ (bycopy id) bycopyMethod; +@end + +@interface MyObject : Object +@end + +@implementation MyObject ++ (bycopy id) bycopyMethod +{ + return [MyObject alloc]; +} +@end + +int main (void) +{ + MyObject *object; + + object = [MyObject bycopyMethod]; + + exit (0); +} + + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-2.m (revision 307) @@ -0,0 +1,31 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +@end + +@interface SubClass : RootClass +@end + +@implementation SubClass +@end + +#include "class-tests-1.h" + +int main (void) +{ + test_class_with_superclass ("SubClass", "RootClass"); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-10.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-10.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-10.m (revision 307) @@ -0,0 +1,21 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a[3]; + int i:2; + int j:6; + char c; + int k:12; + char d; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-7.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-7.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/formal_protocol-7.m (revision 307) @@ -0,0 +1,44 @@ +/* Contributed by Nicola Pero - Fri Mar 9 21:35:47 CET 2001 */ + +#include +#import "../../objc-obj-c++-shared/Protocol1.h" + +/* Test defining two protocols, one incorporating the other one. */ + +@protocol Configuring +- (void) configure; +@end + +@protocol Processing +- (void) process; +@end + +/* A class adopting the protocol */ +@interface Test : Object +{ + BOOL didConfigure; + BOOL didProcess; +} +@end + +@implementation Test +- (void) configure +{ + didConfigure = YES; +} +- (void) process +{ + didProcess = YES; +} +@end + +int main (void) +{ + id object = [Test new]; + + [object configure]; + [object process]; + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/root_methods.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/root_methods.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/root_methods.m (revision 307) @@ -0,0 +1,47 @@ +/* Contributed by Nicola Pero - Thu Mar 8 16:27:46 CET 2001 */ + +#import "../../objc-obj-c++-shared/next-mapping.h" +#import + +/* Test that instance methods of root classes are available as class + methods to other classes as well */ + +@interface RootClass +{ + Class isa; +} +- (id) self; +@end + +@implementation RootClass +- (id) self +{ + return self; +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +@interface NormalClass : RootClass +@end + +@implementation NormalClass : RootClass +@end + +int main (void) +{ + Class normal = objc_get_class ("NormalClass"); + + if (normal == Nil) + { + abort (); + } + + if ([NormalClass self] != normal) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-4.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-4.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-4.m (revision 307) @@ -0,0 +1,57 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass with an ivar and + accessor methods */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +@interface SubClass : RootClass +{ + int state; +} +- (void) setState: (int)number; +- (int) state; +@end + +@implementation SubClass +- (void) setState: (int)number +{ + state = number; +} +- (int) state +{ + return state; +} +@end + +#include "class-tests-1.h" +#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD SubClass * +#include "class-tests-2.h" + +int main (void) +{ + SubClass *object; + + test_class_with_superclass ("SubClass", "RootClass"); + test_that_class_has_instance_method ("SubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubClass", @selector (state)); + + object = class_create_instance (objc_lookup_class ("SubClass")); + test_accessor_method (object, 0, 1, 1, -3, -3); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-12.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-12.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-12.m (revision 307) @@ -0,0 +1,23 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a[3]; + int i:2; + int j:6; + int s; + int k:12; + char d; + void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-6.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-6.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-6.m (revision 307) @@ -0,0 +1,76 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass with an ivar and + accessor methods and a subclass overriding the superclass' + implementation but reusing it with super */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +@interface SubClass : RootClass +{ + int state; +} +- (void) setState: (int)number; +- (int) state; +@end + +@implementation SubClass +- (void) setState: (int)number +{ + state = number; +} +- (int) state +{ + return state; +} +@end + +@interface SubSubClass : SubClass +@end + +@implementation SubSubClass +- (int) state +{ + return [super state] + 1; +} +@end + +#include "class-tests-1.h" +#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD SubClass * +#include "class-tests-2.h" + +int main (void) +{ + SubClass *object; + SubSubClass *sub_object; + + test_class_with_superclass ("SubClass", "RootClass"); + test_that_class_has_instance_method ("SubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubClass", @selector (state)); + + test_class_with_superclass ("SubSubClass", "SubClass"); + test_that_class_has_instance_method ("SubSubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubSubClass", @selector (state)); + + object = class_create_instance (objc_lookup_class ("SubClass")); + test_accessor_method (object, 0, -1, -1, 1, 1); + + sub_object = class_create_instance (objc_lookup_class ("SubSubClass")); + test_accessor_method (sub_object, 1, -1, 0, 1, 2); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-14.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-14.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-14.m (revision 307) @@ -0,0 +1,24 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a[3]; + struct { + int i:2; + int j:6; + short s; + int k:12; + } flags; + char d; + void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-func-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-func-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-func-1.m (revision 307) @@ -0,0 +1,36 @@ +/* Test basic nested C function functionality within ObjC + methods. */ +/* Contributed by Ziemowit Laski . */ +#include +#include +#import "../../objc-obj-c++-shared/Object1.h" +#include + +int bappy (int (*blargh) (int a, int b, int c)) +{ + return blargh (4, 7, 2) + 3; +} + +@interface Foo: Object ++ (int)foo; +@end + +@implementation Foo ++ (int)foo +{ + int blargh (int a, int b, int c) + { + return a * b + c; + } + return bappy (blargh); +} +@end + +int main () +{ + int f = [Foo foo]; + if (f != 33) + abort (); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-8.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-8.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-8.m (revision 307) @@ -0,0 +1,79 @@ +/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ + +#include "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +/* Tests creating a root class and a subclass with an ivar and + accessor methods and a subclass overriding the superclass' + implementation - in a category */ + +@interface RootClass +{ + Class isa; +} +@end + +@implementation RootClass +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +@interface SubClass : RootClass +{ + int state; +} +- (void) setState: (int)number; +- (int) state; +@end + +@implementation SubClass +- (void) setState: (int)number +{ + state = number; +} +- (int) state +{ + return state; +} +@end + +@interface SubSubClass : SubClass +@end + +@implementation SubSubClass +@end + +@implementation SubSubClass (Additions) +- (int) state +{ + return state + 1; +} +@end + +#include "class-tests-1.h" +#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD SubClass * +#include "class-tests-2.h" + +int main (void) +{ + SubClass *object; + SubSubClass *sub_object; + + test_class_with_superclass ("SubClass", "RootClass"); + test_that_class_has_instance_method ("SubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubClass", @selector (state)); + + test_class_with_superclass ("SubSubClass", "SubClass"); + test_that_class_has_instance_method ("SubSubClass", @selector (setState:)); + test_that_class_has_instance_method ("SubSubClass", @selector (state)); + + object = class_create_instance (objc_lookup_class ("SubClass")); + test_accessor_method (object, 0, -1, -1, 1, 1); + + sub_object = class_create_instance (objc_lookup_class ("SubSubClass")); + test_accessor_method (sub_object, 1, -1, 0, 1, 2); + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/private.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/private.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/private.m (revision 307) @@ -0,0 +1,32 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ +#import "../../objc-obj-c++-shared/Object1.h" +#include + +/* Test the @private, @protected, @public keyworks for ivars. We only + check syntax. */ + +@interface TestClass : Object +{ + int a; + +@private + int ivarOne, ivarTwo; + id ivarThree; + +@protected + int ivarFour; + +@public + id ivarFive; +} +@end + +@implementation TestClass +@end + + +int main (void) +{ + /* Only test compilation */ + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-16.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-16.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-16.m (revision 307) @@ -0,0 +1,25 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +struct A { + int i; + float f; + int a:3; + int b:2; +}; + +@interface MyObject +{ + Class isa; + int i; + float f[3]; + struct A a, b; + char c; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/forward-1.x =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/forward-1.x (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/forward-1.x (revision 307) @@ -0,0 +1,36 @@ +load_lib target-supports.exp + +# XFAIL: PR libobjc/36610, for targets which pass arguments via registers + +if { ([istarget x86_64-*-linux*] && [check_effective_target_lp64] ) + || [istarget powerpc*-*-linux*] + || [istarget powerpc*-*-aix*] + || [istarget s390*-*-*-linux*] + || [istarget sh4-*-linux*] + || [istarget hppa*-*-linux*] + || [istarget hppa*-*-hpux*] + || [istarget ia64-*-linux*] } { + set torture_execute_xfail "*-*-*" +} + +# For darwin and alpha-linux it fails with -fgnu-runtime, +# passes with -fnext-runtime. + +if { [istarget alpha*-*-linux*] + || [istarget alpha*-dec-osf*] + || ([istarget i?86-*-solaris2*] && [check_effective_target_lp64] ) + || [istarget mips-sgi-irix*] + || [istarget sparc*-sun-solaris2*] + || ([istarget *-*-darwin*] && [check_effective_target_lp64] ) } { + set torture_eval_before_execute { + global compiler_conditional_xfail_data + set compiler_conditional_xfail_data { + "Target fails with -fgnu-runtime" \ + "*-*-*" \ + { "-fgnu-runtime" } \ + { "" } + } + } +} + +return 0 Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-18.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-18.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-18.m (revision 307) @@ -0,0 +1,17 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + int i; + char c[1]; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/load-3.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/load-3.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/load-3.m (revision 307) @@ -0,0 +1,109 @@ +/* + load-3.m + + Author: Ovidiu Predescu + Date: June 3, 2001 + + Test if the +load methods are invoked, and are invoked in the + proper order. + */ + +#include +#import "../../objc-obj-c++-shared/Object1.h" +#include + +@interface A : Object +@end + +@interface B : A +@end + +static a_load = 0; +static b_load = 0; +static a_category_load = 0; +static b_category_load = 0; + +@implementation A (Category) ++ (void)load +{ + a_category_load = 1; + printf("+[A(Category) load]\n"); + + if (a_load != 1) + { + printf("+load for A(Category) invoked before A's!\n"); + abort(); + } +} +@end + +@implementation B(Category) ++ (void)load +{ + b_category_load = 1; + printf("+[B(Category) load]\n"); + + if (b_load != 1) + { + printf ("+load for B(Category) invoked before B!\n"); + abort(); + } +} +@end + +@implementation B ++ (void)load +{ + b_load = 1; + printf("+[B load]\n"); + + if (a_load != 1) + { + printf("+load for B invoked before A's!\n"); + abort(); + } + + if (b_category_load != 0) + { + printf("+load for B invoked after B(Category)!\n"); + abort(); + } +} +@end + +@implementation A ++ (void)load +{ + a_load = 1; + printf("+[A load]\n"); + + if (a_category_load != 0) + { + printf("+load for A(Category) invoked before A!\n"); + abort(); + } + + if (b_load != 0) + { + printf("+load for A invoked after B!\n"); + abort(); + } + + if (b_category_load != 0) + { + printf("+load for B(Category) invoked before A and B!\n"); + abort(); + } +} +@end + +int main (void) +{ + if (a_load + b_load + a_category_load + b_category_load != 4) + { + printf("Not all +load methods invoked!\n"); + abort(); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/load.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/load.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/load.m (revision 307) @@ -0,0 +1,30 @@ +/* Contributed by Nicola Pero - Wed Mar 7 17:55:04 CET 2001 */ +#include + +/* Test that +load is automatically called before main is run */ + +static int static_variable = 0; + +@interface TestClass +{ + Class isa; +} ++ (void) load; +@end + +@implementation TestClass ++ (void) load +{ + static_variable = 1; +} +@end + +int main (void) +{ + if (static_variable != 1) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-1.m (revision 307) @@ -0,0 +1,12 @@ +/* Contributed by Nicola Pero Wed Feb 21 12:08:16 GMT 2001 */ + +int main (void) +{ + void nested (void) + { + return; + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/compatibility_alias.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/compatibility_alias.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/compatibility_alias.m (revision 307) @@ -0,0 +1,12 @@ +/* Contributed by Nicola Pero - Thu Mar 8 17:23:59 CET 2001 */ +#import "../../objc-obj-c++-shared/Object1.h" +#include + +@compatibility_alias MyObject Object; + +int main (void) +{ + MyObject *object = [MyObject alloc]; + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-3.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-3.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nested-3.m (revision 307) @@ -0,0 +1,40 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ +#include + +/* Test defining a nested function inside a method */ + +@interface Test +{ + Class isa; +} ++ (int) test; +@end + +@implementation Test + ++ (int) test +{ + int test (void) + { + return 1; + } + + return test (); +} + +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +int main (void) +{ + if ([Test test] != 1) + { + abort (); + } + + return 0; +} + + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/next_mapping.h =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/next_mapping.h (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/next_mapping.h (revision 307) @@ -0,0 +1,906 @@ +/* This file "renames" various ObjC GNU runtime entry points + (and fakes the existence of several others) + if the NeXT runtime is being used. */ +/* Authors: Ziemowit Laski */ +/* David Ayers */ + +#ifdef __NEXT_RUNTIME__ +#include +#include +#include +#include +#include + +#define objc_get_class(C) objc_getClass(C) +#define objc_get_meta_class(C) objc_getMetaClass(C) +#define class_get_class_method(C, S) class_getClassMethod(C, S) +#define class_get_instance_method(C, S) class_getInstanceMethod(C, S) +#define method_get_imp(M) (((Method)M)->method_imp) +#define sel_get_name(S) sel_getName(S) +#define class_create_instance(C) class_createInstance(C, 0) +#define class_get_class_name(C) object_getClassName(C) +#define class_get_super_class(C) (((struct objc_class *)C)->super_class) +#define object_get_super_class(O) class_get_super_class(*(struct objc_class **)O) +#define objc_lookup_class(N) objc_lookUpClass(N) +#define object_get_class(O) (*(struct objc_class **)O) +#define class_is_class(C) (CLS_GETINFO((struct objc_class *)C, CLS_CLASS)? YES: NO) +#define class_is_meta_class(C) (CLS_GETINFO((struct objc_class *)C, CLS_META)? YES: NO) +#define object_is_class(O) class_is_meta_class(*(struct objc_class **)O) +#define object_is_meta_class(O) (class_is_meta_class(O) && class_is_meta_class(*(struct objc_class **)O)) + +/* You need either an empty +initialize method or an empty -forward:: method. + The NeXT runtime unconditionally sends +initialize to classes when they are + first used, and unconditionally tries to forward methods that the class + doesn't understand (including +initialize). If you have neither +initialize + nor -forward::, the runtime complains. + + The simplest workaround is to add + + + initialize { return self; } + + to every root class @implementation. */ + +#ifndef NULL +#define NULL 0 +#endif + +/* The following is necessary to "cover" the bf*.m test cases on NeXT. */ + +#undef MAX +#undef MIN +#undef ROUND + +#ifdef __cplusplus +#define MAX(X, Y) ((X > Y) ? X : Y) +#define MIN(X, Y) ((X < Y) ? X : Y) +#define ROUND(V, A) (A * ((V + A - 1) / A)) +#else +#define MAX(X, Y) \ + ({ typeof (X) __x = (X), __y = (Y); \ + (__x > __y ? __x : __y); }) +#define MIN(X, Y) \ + ({ typeof (X) __x = (X), __y = (Y); \ + (__x < __y ? __x : __y); }) +#define ROUND(V, A) \ + ({ typeof (V) __v = (V); typeof (A) __a = (A); \ + __a * ((__v+__a - 1)/__a); }) +#endif + +#define BITS_PER_UNIT __CHAR_BIT__ +typedef struct{ char a; } __small_struct; +#define STRUCTURE_SIZE_BOUNDARY (BITS_PER_UNIT * sizeof (__small_struct)) + +/* Not sure why the following are missing from NeXT objc headers... */ + +#ifndef _C_LNG_LNG +#define _C_LNG_LNG 'q' +#endif +#ifndef _C_ULNG_LNG +#define _C_ULNG_LNG 'Q' +#endif +#ifndef _C_ATOM +#define _C_ATOM '%' +#endif +#ifndef _C_BOOL +#define _C_BOOL 'B' +#endif + +#define _C_CONST 'r' +#define _C_IN 'n' +#define _C_INOUT 'N' +#define _C_OUT 'o' +#define _C_BYCOPY 'O' +#define _C_BYREF 'R' +#define _C_ONEWAY 'V' +#define _C_GCINVISIBLE '!' + +#define _F_CONST 0x01 +#define _F_IN 0x01 +#define _F_OUT 0x02 +#define _F_INOUT 0x03 +#define _F_BYCOPY 0x04 +#define _F_BYREF 0x08 +#define _F_ONEWAY 0x10 +#define _F_GCINVISIBLE 0x20 + +struct objc_struct_layout +{ + const char *original_type; + const char *type; + const char *prev_type; + unsigned int record_size; + unsigned int record_align; +}; + +typedef union arglist { + char *arg_ptr; + char arg_regs[sizeof (char*)]; +} *arglist_t; /* argument frame */ + +const char *objc_skip_typespec (const char *type); +void objc_layout_structure_get_info (struct objc_struct_layout *layout, + unsigned int *offset, unsigned int *align, const char **type); +void objc_layout_structure (const char *type, + struct objc_struct_layout *layout); +BOOL objc_layout_structure_next_member (struct objc_struct_layout *layout); +void objc_layout_finish_structure (struct objc_struct_layout *layout, + unsigned int *size, unsigned int *align); +int objc_aligned_size (const char *type); + +/* + return the size of an object specified by type +*/ + +int +objc_sizeof_type (const char *type) +{ + /* Skip the variable name if any */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + + switch (*type) { + case _C_ID: + return sizeof (id); + break; + + case _C_CLASS: + return sizeof (Class); + break; + + case _C_SEL: + return sizeof (SEL); + break; + + case _C_CHR: + return sizeof (char); + break; + + case _C_UCHR: + return sizeof (unsigned char); + break; + + case _C_SHT: + return sizeof (short); + break; + + case _C_USHT: + return sizeof (unsigned short); + break; + + case _C_INT: + return sizeof (int); + break; + + case _C_UINT: + return sizeof (unsigned int); + break; + + case _C_LNG: + return sizeof (long); + break; + + case _C_ULNG: + return sizeof (unsigned long); + break; + + case _C_LNG_LNG: + return sizeof (long long); + break; + + case _C_ULNG_LNG: + return sizeof (unsigned long long); + break; + + case _C_FLT: + return sizeof (float); + break; + + case _C_DBL: + return sizeof (double); + break; + + case _C_PTR: + case _C_ATOM: + case _C_CHARPTR: + return sizeof (char *); + break; + + case _C_ARY_B: + { + int len = atoi (type + 1); + while (isdigit ((unsigned char)*++type)) + ; + return len * objc_aligned_size (type); + } + break; + + case _C_BFLD: + { + /* The NeXT encoding of bitfields is _still_: b 'size' */ + int size = atoi (type + 1); + /* Return an upper bound on byte size */ + return (size + BITS_PER_UNIT - 1) / BITS_PER_UNIT; + } + + case _C_STRUCT_B: + { + struct objc_struct_layout layout; + unsigned int size; + + objc_layout_structure (type, &layout); + while (objc_layout_structure_next_member (&layout)) + /* do nothing */ ; + objc_layout_finish_structure (&layout, &size, NULL); + + return size; + } + + case _C_UNION_B: + { + int max_size = 0; + while (*type != _C_UNION_E && *type++ != '=') + /* do nothing */; + while (*type != _C_UNION_E) + { + /* Skip the variable name if any */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + max_size = MAX (max_size, objc_sizeof_type (type)); + type = objc_skip_typespec (type); + } + return max_size; + } + } + return 0; /* error */ +} + + +/* + Return the alignment of an object specified by type +*/ + +int +objc_alignof_type (const char *type) +{ + /* Skip the variable name if any */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + switch (*type) { + case _C_ID: + return __alignof__ (id); + break; + + case _C_CLASS: + return __alignof__ (Class); + break; + + case _C_SEL: + return __alignof__ (SEL); + break; + + case _C_CHR: + return __alignof__ (char); + break; + + case _C_UCHR: + return __alignof__ (unsigned char); + break; + + case _C_SHT: + return __alignof__ (short); + break; + + case _C_USHT: + return __alignof__ (unsigned short); + break; + + case _C_INT: + case _C_BFLD: /* This is for the NeXT only */ + return __alignof__ (int); + break; + + case _C_UINT: + return __alignof__ (unsigned int); + break; + + case _C_LNG: + return __alignof__ (long); + break; + + case _C_ULNG: + return __alignof__ (unsigned long); + break; + + case _C_LNG_LNG: + return __alignof__ (long long); + break; + + case _C_ULNG_LNG: + return __alignof__ (unsigned long long); + break; + + case _C_FLT: + return __alignof__ (float); + break; + + case _C_DBL: + return __alignof__ (double); + break; + + case _C_PTR: + case _C_ATOM: + case _C_CHARPTR: + return __alignof__ (char *); + break; + + case _C_ARY_B: + while (isdigit ((unsigned char)*++type)) + /* do nothing */; + return objc_alignof_type (type); + + case _C_STRUCT_B: + { + struct objc_struct_layout layout; + unsigned int align; + + objc_layout_structure (type, &layout); + while (objc_layout_structure_next_member (&layout)) + /* do nothing */; + objc_layout_finish_structure (&layout, NULL, &align); + + return align; + } + + case _C_UNION_B: + { + int maxalign = 0; + while (*type != _C_UNION_E && *type++ != '=') + /* do nothing */; + while (*type != _C_UNION_E) + { + /* Skip the variable name if any */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + maxalign = MAX (maxalign, objc_alignof_type (type)); + type = objc_skip_typespec (type); + } + return maxalign; + } + } + return 0; /* error */ +} + +/* + The aligned size if the size rounded up to the nearest alignment. +*/ + +int +objc_aligned_size (const char *type) +{ + int size, align; + + /* Skip the variable name */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + + size = objc_sizeof_type (type); + align = objc_alignof_type (type); + + return ROUND (size, align); +} + +/* + The size rounded up to the nearest integral of the wordsize, taken + to be the size of a void *. +*/ + +int +objc_promoted_size (const char *type) +{ + int size, wordsize; + + /* Skip the variable name */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + + size = objc_sizeof_type (type); + wordsize = sizeof (void *); + + return ROUND (size, wordsize); +} + +/* + Skip type qualifiers. These may eventually precede typespecs + occurring in method prototype encodings. +*/ + +inline const char * +objc_skip_type_qualifiers (const char *type) +{ + while (*type == _C_CONST + || *type == _C_IN + || *type == _C_INOUT + || *type == _C_OUT + || *type == _C_BYCOPY + || *type == _C_BYREF + || *type == _C_ONEWAY + || *type == _C_GCINVISIBLE) + { + type += 1; + } + return type; +} + + +/* + Skip one typespec element. If the typespec is prepended by type + qualifiers, these are skipped as well. +*/ + +const char * +objc_skip_typespec (const char *type) +{ + /* Skip the variable name if any */ + if (*type == '"') + { + for (type++; *type++ != '"';) + /* do nothing */; + } + + type = objc_skip_type_qualifiers (type); + + switch (*type) { + + case _C_ID: + /* An id may be annotated by the actual type if it is known + with the @"ClassName" syntax */ + + if (*++type != '"') + return type; + else + { + while (*++type != '"') + /* do nothing */; + return type + 1; + } + + /* The following are one character type codes */ + case _C_CLASS: + case _C_SEL: + case _C_CHR: + case _C_UCHR: + case _C_CHARPTR: + case _C_ATOM: + case _C_SHT: + case _C_USHT: + case _C_INT: + case _C_UINT: + case _C_LNG: + case _C_ULNG: + case _C_LNG_LNG: + case _C_ULNG_LNG: + case _C_FLT: + case _C_DBL: + case _C_VOID: + case _C_UNDEF: + return ++type; + break; + + case _C_ARY_B: + /* skip digits, typespec and closing ']' */ + + while (isdigit ((unsigned char)*++type)) + ; + type = objc_skip_typespec (type); + if (*type == _C_ARY_E) + return ++type; + else + break; /* error */ + + case _C_BFLD: + /* The NeXT encoding for bitfields is _still_: b 'size' */ + while (isdigit ((unsigned char)*++type)) + ; /* skip type and size */ + return type; + + case _C_STRUCT_B: + /* skip name, and elements until closing '}' */ + + while (*type != _C_STRUCT_E && *type++ != '=') + ; + while (*type != _C_STRUCT_E) + { + type = objc_skip_typespec (type); + } + return ++type; + + case _C_UNION_B: + /* skip name, and elements until closing ')' */ + + while (*type != _C_UNION_E && *type++ != '=') + ; + while (*type != _C_UNION_E) + { + type = objc_skip_typespec (type); + } + return ++type; + + case _C_PTR: + /* Just skip the following typespec */ + + return objc_skip_typespec (++type); + } + return 0; /* error */ +} + +/* + Skip an offset as part of a method encoding. This is prepended by a + '+' if the argument is passed in registers. +*/ +inline const char * +objc_skip_offset (const char *type) +{ + if (*type == '+') + type++; + while (isdigit ((unsigned char) *++type)) + ; + return type; +} + +/* + Skip an argument specification of a method encoding. +*/ +const char * +objc_skip_argspec (const char *type) +{ + type = objc_skip_typespec (type); + type = objc_skip_offset (type); + return type; +} + +/* + Return the number of arguments that the method MTH expects. + Note that all methods need two implicit arguments `self' and + `_cmd'. +*/ +int +method_get_number_of_arguments (struct objc_method *mth) +{ + int i = 0; + const char *type = mth->method_types; + while (*type) + { + type = objc_skip_argspec (type); + i += 1; + } + return i - 1; +} + +/* + Return the size of the argument block needed on the stack to invoke + the method MTH. This may be zero, if all arguments are passed in + registers. +*/ + +int +method_get_sizeof_arguments (struct objc_method *mth) +{ + const char *type = objc_skip_typespec (mth->method_types); + return atoi (type); +} + +/* + Return a pointer to the next argument of ARGFRAME. type points to + the last argument. Typical use of this look like: + + { + char *datum, *type; + for (datum = method_get_first_argument (method, argframe, &type); + datum; datum = method_get_next_argument (argframe, &type)) + { + unsigned flags = objc_get_type_qualifiers (type); + type = objc_skip_type_qualifiers (type); + if (*type != _C_PTR) + [portal encodeData: datum ofType: type]; + else + { + if ((flags & _F_IN) == _F_IN) + [portal encodeData: *(char **) datum ofType: ++type]; + } + } + } +*/ + +char * +method_get_next_argument (arglist_t argframe, const char **type) +{ + const char *t = objc_skip_argspec (*type); + + if (*t == '\0') + return 0; + + *type = t; + t = objc_skip_typespec (t); + + if (*t == '+') + return argframe->arg_regs + atoi (++t); + else + return argframe->arg_ptr + atoi (t); +} + +/* + Return a pointer to the value of the first argument of the method + described in M with the given argumentframe ARGFRAME. The type + is returned in TYPE. type must be passed to successive calls of + method_get_next_argument. +*/ +char * +method_get_first_argument (struct objc_method *m, + arglist_t argframe, + const char **type) +{ + *type = m->method_types; + return method_get_next_argument (argframe, type); +} + +/* + Return a pointer to the ARGth argument of the method + M from the frame ARGFRAME. The type of the argument + is returned in the value-result argument TYPE +*/ + +char * +method_get_nth_argument (struct objc_method *m, + arglist_t argframe, int arg, + const char **type) +{ + const char *t = objc_skip_argspec (m->method_types); + + if (arg > method_get_number_of_arguments (m)) + return 0; + + while (arg--) + t = objc_skip_argspec (t); + + *type = t; + t = objc_skip_typespec (t); + + if (*t == '+') + return argframe->arg_regs + atoi (++t); + else + return argframe->arg_ptr + atoi (t); +} + +unsigned +objc_get_type_qualifiers (const char *type) +{ + unsigned res = 0; + BOOL flag = YES; + + while (flag) + switch (*type++) + { + case _C_CONST: res |= _F_CONST; break; + case _C_IN: res |= _F_IN; break; + case _C_INOUT: res |= _F_INOUT; break; + case _C_OUT: res |= _F_OUT; break; + case _C_BYCOPY: res |= _F_BYCOPY; break; + case _C_BYREF: res |= _F_BYREF; break; + case _C_ONEWAY: res |= _F_ONEWAY; break; + case _C_GCINVISIBLE: res |= _F_GCINVISIBLE; break; + default: flag = NO; + } + + return res; +} + + +/* The following three functions can be used to determine how a + structure is laid out by the compiler. For example: + + struct objc_struct_layout layout; + int i; + + objc_layout_structure (type, &layout); + while (objc_layout_structure_next_member (&layout)) + { + int position, align; + const char *type; + + objc_layout_structure_get_info (&layout, &position, &align, &type); + printf ("element %d has offset %d, alignment %d\n", + i++, position, align); + } + + These functions are used by objc_sizeof_type and objc_alignof_type + functions to compute the size and alignment of structures. The + previous method of computing the size and alignment of a structure + was not working on some architectures, particulary on AIX, and in + the presence of bitfields inside the structure. */ +void +objc_layout_structure (const char *type, + struct objc_struct_layout *layout) +{ + const char *ntype; + + layout->original_type = ++type; + + /* Skip "=" if any. Avoid embedded structures and unions. */ + ntype = type; + while (*ntype != _C_STRUCT_E && *ntype != _C_STRUCT_B && *ntype != _C_UNION_B + && *ntype++ != '=') + /* do nothing */; + + /* If there's a "=", ntype - 1 points to '='; skip the the name */ + if (*(ntype - 1) == '=') + type = ntype; + + layout->type = type; + layout->prev_type = NULL; + layout->record_size = 0; + layout->record_align = MAX (BITS_PER_UNIT, STRUCTURE_SIZE_BOUNDARY); +} + + +BOOL +objc_layout_structure_next_member (struct objc_struct_layout *layout) +{ + register int desired_align = 0; + + /* The current type without the type qualifiers */ + const char *type; + + /* Add the size of the previous field to the size of the record. */ + if (layout->prev_type) + { + type = objc_skip_type_qualifiers (layout->prev_type); + + if (*type != _C_BFLD) + layout->record_size += objc_sizeof_type (type) * BITS_PER_UNIT; + else + layout->record_size += atoi (++type); + } + + if (*layout->type == _C_STRUCT_E) + return NO; + + /* Skip the variable name if any */ + if (*layout->type == '"') + { + for (layout->type++; *layout->type++ != '"';) + /* do nothing */; + } + + type = objc_skip_type_qualifiers (layout->type); + + desired_align = objc_alignof_type (type) * BITS_PER_UNIT; + + /* Record must have at least as much alignment as any field. + Otherwise, the alignment of the field within the record + is meaningless. */ + layout->record_align = MAX (layout->record_align, desired_align); + + if (*type == _C_BFLD) + { + int bfld_size = atoi (++type); + int int_align = __alignof__ (int) * BITS_PER_UNIT; + /* If this bitfield would traverse a word alignment boundary, push it out + to that boundary instead. */ + if (layout->record_size % int_align + && (layout->record_size / int_align + < (layout->record_size + bfld_size - 1) / int_align)) + layout->record_size = ROUND (layout->record_size, int_align); + } + else if (layout->record_size % desired_align != 0) + { + /* We need to skip space before this field. + Bump the cumulative size to multiple of field alignment. */ + layout->record_size = ROUND (layout->record_size, desired_align); + } + + /* Jump to the next field in record. */ + + layout->prev_type = layout->type; + layout->type = objc_skip_typespec (layout->type); /* skip component */ + + return YES; +} + + +void objc_layout_finish_structure (struct objc_struct_layout *layout, + unsigned int *size, + unsigned int *align) +{ + if (layout->type && *layout->type == _C_STRUCT_E) + { + /* Round the size up to be a multiple of the required alignment */ + layout->record_size = ROUND (layout->record_size, layout->record_align); + layout->type = NULL; + } + if (size) + *size = layout->record_size / BITS_PER_UNIT; + if (align) + *align = layout->record_align / BITS_PER_UNIT; +} + + +void objc_layout_structure_get_info (struct objc_struct_layout *layout, + unsigned int *offset, + unsigned int *align, + const char **type) +{ + if (offset) + *offset = layout->record_size / BITS_PER_UNIT; + if (align) + *align = layout->record_align / BITS_PER_UNIT; + if (type) + *type = layout->prev_type; +} + +/* A small, portable NSConstantString implementation for use with the NeXT + runtime. + + On full-fledged Mac OS X systems, NSConstantString is provided + as part of the Foundation framework. However, on bare Darwin systems, + Foundation is not included, and hence there is no NSConstantString + implementation to link against. + + This code is derived from the GNU runtime's NXConstantString implementation. +*/ + +struct objc_class _NSConstantStringClassReference; + +@interface NSConstantString : Object +{ + char *c_string; + unsigned int len; +} + +-(const char *) cString; +-(unsigned int) length; + +@end + +@implementation NSConstantString + +-(const char *) cString +{ + return (c_string); +} + +-(unsigned int) length +{ + return (len); +} + +@end + +/* The NSConstantString metaclass will need to be initialized before we can + send messages to strings. */ + +void objc_constant_string_init (void) __attribute__((constructor)); +void objc_constant_string_init (void) { + memcpy (&_NSConstantStringClassReference, + objc_getClass ("NSConstantString"), + sizeof (_NSConstantStringClassReference)); +} + +#endif /* #ifdef __NEXT_RUNTIME__ */

gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/next_mapping.h Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-1.m (revision 307) @@ -0,0 +1,23 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include + +@interface MyObject +{ + Class isa; + float f; + char a; + struct { + int i:2; + int j:3; + int k:12; + } flags; + char c; +// void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/pr25328.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/pr25328.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/pr25328.m (revision 307) @@ -0,0 +1,11 @@ +/* PR objc/25328 */ + +int +main () +{ + int status = 0; + char msg[100] = ""; + if (__builtin_strcmp (msg, "")) + status = 200; + return status; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/no_clash.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/no_clash.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/no_clash.m (revision 307) @@ -0,0 +1,41 @@ +/* Contributed by Nicola Pero - Fri Mar 9 19:39:15 CET 2001 */ +#import "../../objc-obj-c++-shared/Object1.h" +#import + +/* Test that using the same name for different things makes no + problem */ + +@interface TestClass : Object +{ + int test; +} ++ (int) test; +- (int) test; +@end + +@implementation TestClass ++ (int) test +{ + return 1; +} +- (int) test +{ + /* 0 + 2 as `test' is implicitly initialized to zero */ + return test + 2; +} +@end + + +int main (void) +{ + if ([TestClass test] != 1) + { + abort (); + } + if ([[[TestClass alloc] init] test] != 2) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-3.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-3.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-3.m (revision 307) @@ -0,0 +1,24 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a; + struct { + int i:2; + int j:6; + int k:12; + } flags; + char c; + void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/string2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/string2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/string2.m (revision 307) @@ -0,0 +1,17 @@ +/* Based on a test case contributed by Nicola Pero. */ + +#import "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +#ifndef __NEXT_RUNTIME__ +#include +#endif + +int main(int argc, void **args) +{ + if (strcmp ([@"this " @"is " @"a " @"string" cString], + "this " "is " "a " "string")) + abort (); + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-5.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-5.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-5.m (revision 307) @@ -0,0 +1,22 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a; + int i:2; + int j:3; + int k:12; + char c; + void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/string4.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/string4.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/string4.m (revision 307) @@ -0,0 +1,16 @@ +/* Based on a test case contributed by Nicola Pero. */ + +#import "../../objc-obj-c++-shared/next-mapping.h" +#include +#include + +#ifndef __NEXT_RUNTIME__ +#include +#endif + +int main(int argc, void **args) +{ + if ([@"this is a string" length] != strlen ("this is a string")) + abort (); + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-7.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-7.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-7.m (revision 307) @@ -0,0 +1,21 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a; + int i:2; + int j:6; + int k:12; + char c; + void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/object_is_meta_class.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/object_is_meta_class.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/object_is_meta_class.m (revision 307) @@ -0,0 +1,41 @@ +/* Contributed by Nicola Pero - Tue Jul 3 10:55:21 BST 2001 */ +#import "../../objc-obj-c++-shared/Object1.h" +#import "../../objc-obj-c++-shared/next-mapping.h" +#include + +/* This test demonstrate a failure in object_is_meta_class which was fixed */ + +@interface EvilClass : Object +{ + Class super_class; + const char* name; + long version; + unsigned long info; +} +@end + +@implementation EvilClass +- (id) init +{ + self = [super init]; + /* The following one is used in the runtime to mark meta classes */ + info = 0x2L; + return self; +} +@end + +int main (void) +{ + /* Create an object of our EvilClass */ + EvilClass *evilObject = [EvilClass new]; + + /* Now check that the object is not a meta class object */ + if (object_is_meta_class (evilObject)) + { + printf ("object_is_meta_class failed\n"); + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-9.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-9.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-9.m (revision 307) @@ -0,0 +1,22 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +@interface MyObject +{ + Class isa; + float f; + char a[3]; + int i:2; + int j:3; + char c; + int k:12; + char d; + void *pointer; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-tests-2.h =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-tests-2.h (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-tests-2.h (revision 307) @@ -0,0 +1,67 @@ +/* Contributed by Nicola Pero on Tue Mar 6 23:05:53 CET 2001 */ +#include +#include +#include + +/* + * Standard Tests For Methods of Classes and Objects - abort upon + * failing; return normally if all is well. + */ + +/* Test that `class' has an instance method for the selector `selector' */ +void test_that_class_has_instance_method (const char *class_name, + SEL selector) +{ + Class class = objc_lookup_class (class_name); + + if (class_get_instance_method (class, selector) == NULL) + { + printf ("test_class_has_instance_method failed\n"); + abort (); + } +} + +/* Test that `class' has a class method for the selector `selector' */ +void test_that_class_has_class_method (const char *class_name, + SEL selector) +{ + Class meta_class = objc_get_meta_class (class_name); + + if (class_get_class_method (meta_class, selector) == NULL) + { + printf ("test_class_has_class_method failed\n"); + abort (); + } +} + +/* Test the accessor methods (called -state and -setState:) on the + object `object'. */ +#ifdef TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD +void test_accessor_method (TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD object, + int initial_state, + int new_state_0, int expected_result_0, + int new_state_1, int expected_result_1) +{ + if ([object state] != initial_state) + { + printf ("test_accessor_method (initial state) failed\n"); + abort (); + } + + [object setState: new_state_0]; + if ([object state] != expected_result_0) + { + printf ("test_accessor_method (new_state_0) failed\n"); + abort (); + } + + [object setState: new_state_1]; + if ([object state] != expected_result_1) + { + printf ("test_accessor_method (new_state_1) failed\n"); + abort (); + } +} +#endif /* CLASS_WITH_ACCESSOR_METHOD */ + +

gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class-tests-2.h Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-2.m (revision 307) @@ -0,0 +1,27 @@ +/* Contributed by Nicola Pero - Fri Jun 4 03:16:17 BST 2004 */ +/* Test that protocols with different names are different. */ + +#include "../../objc-obj-c++-shared/Protocol1.h" + +@protocol Foo1 +- (void)foo1; +@end + +@protocol Foo2 +- (void)foo2; +@end + +int main (void) +{ +#ifdef NEXT_OBJC_USE_NEW_INTERFACE + if (protocol_isEqual (@protocol(Foo1), @protocol(Foo2))) +#else + if ([@protocol(Foo1) isEqual: @protocol(Foo2)]) +#endif + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol.m (revision 307) @@ -0,0 +1,21 @@ +@protocol Foo +- (void)foo; +@end + +@interface Foo_c +{ +} +- (void)foo; +@end + +@implementation Foo_c +- (void)foo +{ +} +@end + +int main (void) +{ + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-4.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-4.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/protocol-isEqual-4.m (revision 307) @@ -0,0 +1,24 @@ +/* Contributed by David Ayers - Fri Jun 4 03:16:17 BST 2004 */ +/* Test that a protocol is not equal to something which is not a protocol. */ + +#include "../../objc-obj-c++-shared/Protocol1.h" + +@protocol Foo +- (void)foo; +@end + +int main (void) +{ + /* A Protocol object should not be equal to a Class object. */ +#ifdef NEXT_OBJC_USE_NEW_INTERFACE + if (protocol_isEqual (@protocol(Foo), objc_getClass("Protocol"))) +#else + if ([@protocol(Foo) isEqual: [Protocol class]]) +#endif + { + abort (); + } + + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/va_method.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/va_method.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/va_method.m (revision 307) @@ -0,0 +1,48 @@ +/* Contributed by Nicola Pero - Thu Mar 8 16:27:46 CET 2001 */ +#include +#include +#include + +/* Test method with variable number of arguments */ + +@interface MathClass +{ + Class isa; +} +/* sum positive numbers; -1 ends the list */ ++ (int) sum: (int)firstNumber, ...; +@end + +@implementation MathClass ++ (int) sum: (int)firstNumber, ... +{ + va_list ap; + int sum = 0, number = 0; + + va_start (ap, firstNumber); + number = firstNumber; + + while (number >= 0) + { + sum += number; + number = va_arg (ap, int); + } + + va_end (ap); + + return sum; +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + +int main (void) +{ + if ([MathClass sum: 1, 2, 3, 4, 5, -1] != 15) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-21.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-21.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/bf-21.m (revision 307) @@ -0,0 +1,20 @@ +#import "../../objc-obj-c++-shared/Object1.h" +#include +#include + +typedef enum +{ + A, B +} enumeration; + +@interface MyObject +{ + enumeration g:4; +} +@end + +@implementation MyObject +@end + +#include "bf-common.h" + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/cascading-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/cascading-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/cascading-1.m (revision 307) @@ -0,0 +1,34 @@ +#include +#import "../../objc-obj-c++-shared/Object1.h" + +@interface Foo : Object ++ foo; ++ bar; +@end + +int foocalled = 0; +int barcalled = 0; + + +@implementation Foo ++ foo +{ + if (foocalled) + abort (); + foocalled = 1; + return self; +} ++ bar +{ + if (barcalled) + abort (); + barcalled = 1; + return self; +} +@end + +int main(int argc,char **argv) +{ + [[Foo foo] bar]; + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/trivial.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/trivial.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/trivial.m (revision 307) @@ -0,0 +1,9 @@ +#import "../../objc-obj-c++-shared/Object1.h" + +int main(void) +{ + [Object class]; + return 0; +} + +#import "../../objc-obj-c++-shared/Object1-implementation.h" Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/np-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/np-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/np-1.m (revision 307) @@ -0,0 +1,31 @@ +/* + * Contributed by Nicola Pero + * Tue Sep 19 4:29AM + */ + +#include "../../objc-obj-c++-shared/Protocol1.h" +#include + +@protocol MyProtocol +- (oneway void) methodA; +@end + +@interface MyObject +@end + +@implementation MyObject +- (oneway void) methodA +{ +} +@end + +int main (void) +{ + MyObject *object = nil; + + [object methodA]; + + exit (0); +} + + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/fdecl.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/fdecl.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/fdecl.m (revision 307) @@ -0,0 +1,19 @@ +/* Bug report submitted by igorkh@hotbot.com on submit@bugs.debian.org + Thu, 13 Apr 2000 09:42:08 -0400 */ + +@class AClass; + +@interface test +{ + AClass *foo; +} +@end + +@implementation test +@end + +int main (void) +{ + return 0; +} + Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class_self-2.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class_self-2.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/class_self-2.m (revision 307) @@ -0,0 +1,72 @@ +/* Contributed by Nicola Pero - Fri Oct 26 22:39:32 BST 2001 */ +#include +#include + +/* 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; +} +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@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 (); + } +} + +#ifdef __NEXT_RUNTIME__ ++ initialize { return self; } +#endif +@end + + +int main (void) +{ + [TestClass test]; + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nil_method-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nil_method-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/execute/nil_method-1.m (revision 307) @@ -0,0 +1,61 @@ +/* Contributed by Nicola Pero - Fri Aug 30 12:55:37 2002 */ +#include +#include + +/* Test that calling a method of a nil object results in + nothing to happen (but not a crash), and nil to be + returned. */ + +@interface TestClass : Object + +- (void) testVoid; +- (id) testId; + +- (void) testVoidWithA: (int)a; +- (id) testIdWithA: (id)a; + +- (void) testVoidWithA: (int)a andB: (int)b; +- (id) testIdWithA: (id)g andB: (id)b; + +- (void) voidSum: (int)firstNumber, ...; +- (id) sum: (int)firstNumber, ...; + +@end + +int main (void) +{ + TestClass *t = nil; + + [t testVoid]; + + if ([t testId] != nil) + { + abort (); + } + + [t testVoidWithA: 234]; + + if ([t testIdWithA: t] != nil) + { + abort (); + } + + [t testVoidWithA: 12004 andB: -123]; + + if ([t testIdWithA: t andB: nil] != nil) + { + abort (); + } + + + [t voidSum: 1, -2, 3, -4, 5, -6, 7, -8, 9, -10, + 11, -12, 13, -14, 15, -16, 17, -18, 19, -20]; + + if ([t sum: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20] != nil) + { + abort (); + } + + return 0; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/pr18406.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/pr18406.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/pr18406.m (revision 307) @@ -0,0 +1,9 @@ +@interface Test +- (void)test: (long double)val; +@end + +@implementation Test +- (void)test: (long double)val +{ +} +@end Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/20011211-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/20011211-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/20011211-1.m (revision 307) @@ -0,0 +1,19 @@ +typedef struct objc_class *Class; + +typedef struct objc_object { + Class isa; +} *id; + +@interface nsset ++ (id)set; +@end + +@interface baz +- (void)set; +@end + +nsset *fn () +{ + nsset *bar; + bar = [nsset set]; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/compile.exp =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/compile.exp (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/compile.exp (revision 307) @@ -0,0 +1,46 @@ +# Copyright (C) 1991, 1992, 1993, 1995, 1997, 2001, 2007, 2008 +# Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with GCC; see the file COPYING3. If not see +# . + +# This file was written by Rob Savoye. (rob@cygnus.com) +# Modified by Stan Shebs + +if $tracelevel then { + strace $tracelevel +} + +# load support procs +load_lib objc-torture.exp +load_lib torture-options.exp + +torture-init +objc-set-runtime-options "compile" +set-torture-options $OBJC_TORTURE_OPTIONS $OBJC_RUNTIME_OPTIONS + +# +# main test loop +# + +foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.m]] { + # If we're only testing specific files and this isn't one of them, skip it. + if ![runtest_file_p $runtests $src] then { + continue + } + + objc-torture $src +} + +torture-finish Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/trivial.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/trivial.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/trivial.m (revision 307) @@ -0,0 +1,6 @@ +#import "../../objc-obj-c++-shared/Object1.h" + +int main(void) +{ + [Object class]; +} Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/method-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/method-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/method-1.m (revision 307) @@ -0,0 +1,12 @@ +/* PR objc/29195 */ +/* Test that array decls are changed to a pointer type + correctly and make sure we don't crash because the + decl was not relayed out. */ + +@ implementation NGActiveSocket ++ (void) socketPair:(int [2]) + _pair +{ + _pair[0] = 0; +} +@end Index: gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/20060406-1.m =================================================================== --- gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/20060406-1.m (nonexistent) +++ gnu-src/gcc-4.5.1/gcc/testsuite/objc/compile/20060406-1.m (revision 307) @@ -0,0 +1,21 @@ +typedef struct +{ + void *p; +} *S; + +@protocol O +- (unsigned)j; +@end + +@interface I ++ (unsigned char)T:(S[2])p v:(S)h; +@end + +@implementation I ++ (unsigned char)T:(S[2])p v:(S)h +{ + p[0] = (S) 0; + p[1] = (S) 0; + return 0; +} +@end

Browse

Tools

Subversion Repositories openrisc

Compare Revisions

Rev 306 → Rev 307