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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc/] [execute/] [encode-1.m] - Blame information for rev 702

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 702 jeremybenn
/* Contributed by Nicola Pero - Thu Mar  8 16:27:46 CET 2001 */
2
#include <stdlib.h>
3
#import "../../objc-obj-c++-shared/TestsuiteObject.h"
4
#include <objc/objc.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 (TestsuiteObject *)))
21
    {
22
      abort ();
23
    }
24
 
25
  if (strcmp (":", @encode (SEL)))
26
    {
27
      abort ();
28
    }
29
 
30
  return 0;
31
}

powered by: WebSVN 2.1.0

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