Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / objc.dg / stubify-1.m
blob4043492e6b8a2809b97f3de6fc2f189bf5631e7d
1 /* All calls must be properly stubified.  Complain about any "call
2    _objc_msgSend<end-of-line>" without the $stub suffix.  */
4 /* { dg-do compile { target *-*-darwin* } } */
5 /* { dg-skip-if "" { *-*-* } { "-fgnu-runtime" } { "" } } */
6 /* { dg-require-effective-target ilp32 } */
7 /* { dg-options "-Os -mdynamic-no-pic -mmacosx-version-min=10.4 -msymbol-stubs" } */
8 /* { dg-additional-options "-Wno-objc-root-class" } */
10 typedef struct objc_object { } *id ;
11 int x = 41 ;
12 extern id objc_msgSend(id self, char * op, ...);
13 extern int bogonic (int, int, int) ;
14 @interface Document {}
15 - (Document *) window;
16 - (Document *) class;
17 - (Document *) close;
18 @end
19 @implementation Document
20 - (Document *) class { }
21 - (Document *) close { }
22 - (Document *) window { }
23 - (void)willEndCloseSheet:(void *)sheet returnCode:(int)returnCode contextInfo:(void *)contextInfo {
24   [[self window] close];
25   ((void (*)(id, char *, int))objc_msgSend)([self class], (char *)contextInfo, 1);
26   ((void (*)(id, char *, int))bogonic)([self class], (char *)contextInfo, 1);
27   bogonic (3, 4, 5);
28   x++;
30 @end
32 /* { dg-final { scan-assembler-not {(bl|call)[ \t]+_objc_msgSend\n} } } */
33 /* { dg-final { scan-assembler     {(bl|call)[ \t]+L_objc_msgSend\$stub\n} } } */
34 /* { dg-final { scan-assembler-not {(bl|call)[ \t]+_bogonic\n} } } */
35 /* { dg-final { scan-assembler     {(bl|call)[ \t]+L_bogonic\$stub\n} } } */
36 /* { dg-final { scan-assembler-not {\$non_lazy_ptr} } } */