OSDN Git Service

2006-01-16 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / objc.dg / zero-link-1.m
1 /* Check if the '-fzero-link' flag correctly emits an objc_getClass() call. */
2 /* Contributed by Ziemowit Laski <zlaski@apple.com>.  */
3 /* { dg-options "-fnext-runtime -fzero-link" } */
4 /* { dg-do compile } */
5
6 #include <objc/objc.h>
7 #include <objc/Object.h>
8
9 extern void abort(void);
10 #define CHECK_IF(expr) if(!(expr)) abort();
11
12 @interface Base: Object
13 + (int) getValue;
14 @end
15
16 @implementation Base
17 + (int) getValue { return 1593; }
18 @end
19
20 int main(void) {
21   int val = [Base getValue];
22   CHECK_IF(val == 1593);
23   return 0;
24 }
25
26 /* { dg-final { scan-assembler-not "_OBJC_CLASS_REFERENCES_0" } } */
27 /* { dg-final { scan-assembler "objc_getClass" } } */
28