Subversion Repositories openrisc

/* All calls must be properly stubified.  Complain about any "call

   _objc_msgSend<end-of-line>" without the $stub suffix.  */

/* { dg-do compile { target *-*-darwin* } } */

/* { dg-skip-if "" { *-*-* } { "-fgnu-runtime" } { "" } } */

/* { dg-require-effective-target ilp32 } */

/* { dg-options "-Os -mdynamic-no-pic -mmacosx-version-min=10.4" } */

typedef struct objc_object { } *id ;

int x = 41 ;

extern id objc_msgSend(id self, char * op, ...);

extern int bogonic (int, int, int) ;

@interface Document {}

- (Document *) window;

- (Document *) class;

- (Document *) close;

@end

@implementation Document

- (Document *) class { }

- (Document *) close { }

- (Document *) window { }

- (void)willEndCloseSheet:(void *)sheet returnCode:(int)returnCode contextInfo:(void *)contextInfo {

  [[self window] close];

  ((void (*)(id, char *, int))objc_msgSend)([self class], (char *)contextInfo, 1);

  ((void (*)(id, char *, int))bogonic)([self class], (char *)contextInfo, 1);

  bogonic (3, 4, 5);

  x++;

}

@end

/* { dg-final { scan-assembler-not "\(bl|call\)\[ \t\]+_objc_msgSend\n" } } */

/* { dg-final { scan-assembler     "\(bl|call\)\[ \t\]+L_objc_msgSend\\\$stub\n" } } */

/* { dg-final { scan-assembler-not "\(bl|call\)\[ \t\]+_bogonic\n" } } */

/* { dg-final { scan-assembler     "\(bl|call\)\[ \t\]+L_bogonic\\\$stub\n" } } */

/* { dg-final { scan-assembler-not "\\\$non_lazy_ptr" } } */