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

Subversion Repositories openrisc

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

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


/* Contributed by Nicola Pero - Thu Mar  8 16:27:46 CET 2001 */
#include <objc/objc.h>
#include <objc/objc-api.h>
#include <objc/Object.h>
 
/* Test very simple @encode */
 
int main (void)
{
  if (strcmp ("i", @encode (int)))
    {
      abort ();
    }
 
  if (strcmp ("@", @encode (id)))
    {
      abort ();
    }
 
  if (strcmp ("@", @encode (Object *)))
    {
      abort ();
    }
 
  if (strcmp (":", @encode (SEL)))
    {
      abort ();
    }
 
  return 0;
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* Contributed by Nicola Pero - Thu Mar 8 16:27:46 CET 2001 */`
2			`#include <objc/objc.h>`
3			`#include <objc/objc-api.h>`
4			`#include <objc/Object.h>`
5
6			`/* Test very simple @encode */`
7
8			`int main (void)`
9			`{`
10			`if (strcmp ("i", @encode (int)))`
11			`{`
12			`abort ();`
13			`}`
14
15			`if (strcmp ("@", @encode (id)))`
16			`{`
17			`abort ();`
18			`}`
19
20			`if (strcmp ("@", @encode (Object *)))`
21			`{`
22			`abort ();`
23			`}`
24
25			`if (strcmp (":", @encode (SEL)))`
26			`{`
27			`abort ();`
28			`}`
29
30			`return 0;`
31			`}`

Browse

Tools

Subversion Repositories openrisc

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