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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [objc/] [execute/] [protocol-isEqual-1.m] - Blame information for rev 832

Go to most recent revision | Details | Compare with Previous | View Log


/* Contributed by Nicola Pero - Fri Jun  4 03:16:17 BST 2004 */
/* Test that a protocol is equal to itself.  */
#include <objc/Protocol.h>
 
@protocol Foo
- (void)foo;
@end
 
int main (void)
{
  Protocol *protocol = @protocol(Foo);
 
  if (! [protocol isEqual: protocol])
    {
      abort ();
    }
 
  return 0;
}
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* Contributed by Nicola Pero - Fri Jun 4 03:16:17 BST 2004 */`
2			`/* Test that a protocol is equal to itself. */`
3			`#include <objc/Protocol.h>`
4
5			`@protocol Foo`
6			`- (void)foo;`
7			`@end`
8
9			`int main (void)`
10			`{`
11			`Protocol *protocol = @protocol(Foo);`
12
13			`if (! [protocol isEqual: protocol])`
14			`{`
15			`abort ();`
16			`}`
17
18			`return 0;`
19			`}`
20

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [objc/] [execute/] [protocol-isEqual-1.m] - Blame information for rev 832