OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc.dg/] [proto-hier-1.m] - Rev 704

Compare with Previous | Blame | View Log

/* Test for handling of protocol hierarchies.  */
/* Author: Ziemowit Laski <zlaski@apple.com>.  */
/* { dg-do compile } */
 
/* One-line substitute for objc/objc.h */
typedef struct objc_object { struct objc_class *class_pointer; } *id;
 
@protocol NSObj 
- (void)someMethod;
@end
 
@protocol NSCopying 
- (void)someOtherMethod;
@end
 
@interface NSObject <NSObj>
- (void)someMethod; 
@end
 
@implementation NSObject
- (void)someMethod {}
@end
 
@protocol Booing <NSObj>
- (void)boo;
@end
 
@interface Boo: NSObject <Booing>  // protocol has only one parent
@end
 
@implementation Boo
- (void)boo {}
@end
 
@protocol Fooing <NSCopying, NSObj>  // Fooing has two parent protocols
- (void)foo;
@end
 
@interface Foo: NSObject <Fooing>
@end
 
@implementation Foo
- (void)foo {}
- (void)someOtherMethod {}
@end
 
int foo(void) {
  id<Booing, Fooing> stupidVar;
  [stupidVar boo];
  [stupidVar foo];
  [stupidVar anotherMsg]; /* { dg-warning ".\\-anotherMsg. not found in protocol" } */
       /* { dg-warning "no .\\-anotherMsg. method found" "" { target *-*-* } 51 } */
  return 0;
}
 
/* { dg-warning "Messages without a matching method signature" "" { target *-*-* } 0 } */
/* { dg-warning "will be assumed to return .id. and accept" "" { target *-*-* } 0 } */
/* { dg-warning ".\.\.\.. as arguments" "" { target *-*-* } 0 } */
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.