URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Details |
Compare with Previous |
View Log
Line No. |
Rev |
Author |
Line |
1 |
149 |
jeremybenn |
/* All calls must be properly stubified. Complain about any "call
|
2 |
|
|
_objc_msgSend<end-of-line>" without the $stub suffix. */
|
3 |
|
|
|
4 |
|
|
/* { dg-do compile { target *-*-darwin* } } */
|
5 |
|
|
/* { dg-options "-Os -mdynamic-no-pic" } */
|
6 |
|
|
|
7 |
|
|
typedef struct objc_object { } *id ;
|
8 |
|
|
int x = 41 ;
|
9 |
|
|
extern id objc_msgSend(id self, char * op, ...);
|
10 |
|
|
extern int bogonic (int, int, int) ;
|
11 |
|
|
@interface Document {}
|
12 |
|
|
- (Document *) window;
|
13 |
|
|
- (Document *) class;
|
14 |
|
|
- (Document *) close;
|
15 |
|
|
@end
|
16 |
|
|
@implementation Document
|
17 |
|
|
- (Document *) class { }
|
18 |
|
|
- (Document *) close { }
|
19 |
|
|
- (Document *) window { }
|
20 |
|
|
- (void)willEndCloseSheet:(void *)sheet returnCode:(int)returnCode contextInfo:(void *)contextInfo {
|
21 |
|
|
[[self window] close];
|
22 |
|
|
((void (*)(id, char *, int))objc_msgSend)([self class], (char *)contextInfo, 1);
|
23 |
|
|
((void (*)(id, char *, int))bogonic)([self class], (char *)contextInfo, 1);
|
24 |
|
|
bogonic (3, 4, 5);
|
25 |
|
|
x++;
|
26 |
|
|
}
|
27 |
|
|
@end
|
28 |
|
|
|
29 |
|
|
/* { dg-final { scan-assembler-not "\(bl|call\)\[ \t\]+_objc_msgSend\n" } } */
|
30 |
|
|
/* { dg-final { scan-assembler "\(bl|call\)\[ \t\]+L_objc_msgSend\\\$stub\n" } } */
|
31 |
|
|
/* { dg-final { scan-assembler-not "\(bl|call\)\[ \t\]+_bogonic\n" } } */
|
32 |
|
|
/* { dg-final { scan-assembler "\(bl|call\)\[ \t\]+L_bogonic\\\$stub\n" } } */
|
33 |
|
|
/* { dg-final { scan-assembler-not "\\\$non_lazy_ptr" } } */
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.