URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [gcc/] [testsuite/] [objc/] [execute/] [accessing_ivars.m] - Rev 783
Compare with Previous | Blame | View Log
/* Contributed by Nicola Pero - Thu Mar 8 16:27:46 CET 2001 */ #include <stdlib.h> #include "../../objc-obj-c++-shared/TestsuiteObject.m" /* Test that by using -> we can access ivars of other objects of the same class */ @interface TestClass : TestsuiteObject { int value; } - (int) value; - (void) setValue: (int)number; - (void) takeValueFrom: (TestClass *)object; @end @implementation TestClass : TestsuiteObject { int value; } - (int) value { return value; } - (void) 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; }