URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc.dg/] [super-class-3.m] - Rev 704
Compare with Previous | Blame | View Log
/* Ensure that the compiler does not emit spurious extern declarations named '_Foo', where 'Foo' is an ObjC class name. */ /* Contributed by Ziemowit Laski <zlaski@apple.com>. */ /* { dg-do run } */ /* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */ #include "../objc-obj-c++-shared/TestsuiteObject.m" #include <stdlib.h> #define CHECK_IF(expr) if(!(expr)) abort() @interface _Child: TestsuiteObject + (int) flashCache; @end @interface Child: _Child + (int) flushCache1; @end @interface Child (Categ) + (int) flushCache2; @end int _TestsuiteObject = 23; /* Should not conflict with @interface TestsuiteObject. */ @implementation _Child + (int) flashCache { return 12 + _TestsuiteObject; } @end @implementation Child + (int) flushCache1 { return 7 + [super flashCache]; } @end @implementation Child (Categ) + (int) flushCache2 { return 9 + [super flashCache]; } @end int main(void) { CHECK_IF([_Child flashCache] == 35); CHECK_IF([Child flushCache1] == 42); CHECK_IF([Child flushCache2] == 44); return 0; }