2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / objc.dg / zero-link-1.m
blob96fd0c290d38ff4ab476116f801a822d33f8a378
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 } */
6 #include <objc/objc.h>
7 #include <objc/Object.h>
9 extern void abort(void);
10 #define CHECK_IF(expr) if(!(expr)) abort();
12 @interface Base: Object
13 + (int) getValue;
14 @end
16 @implementation Base
17 + (int) getValue { return 1593; }
18 @end
20 int main(void) {
21   int val = [Base getValue];
22   CHECK_IF(val == 1593);
23   return 0;
26 /* { dg-final { scan-assembler-not "_OBJC_CLASS_REFERENCES_0" } } */
27 /* { dg-final { scan-assembler "objc_getClass" } } */