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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc.dg/] [exceptions-3.m] - Blame information for rev 707

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


/* Contributed by Nicola Pero <nicola.pero@meta-innovation.com>, November 2010.  */
/* { dg-options "-fobjc-exceptions" } */
/* { dg-do compile } */
 
/* Test that the compiler is checking the argument of @catch(), and
   produce errors when invalid types are used.  */
 
#include <objc/objc.h>
 
@interface MyObject
{
  Class isa;
}
@end
 
@implementation MyObject
@end
 
@protocol MyProtocol;
 
typedef MyObject MyObjectTypedef;
typedef MyObject *MyObjectPtrTypedef;
typedef int intTypedef;
 
int test (id object)
{
  int dummy = 0;
 
  @try { @throw object; }
  @catch (int x)          /* { dg-error "@catch parameter is not a known Objective-C class type" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (intTypedef x)   /* { dg-error "@catch parameter is not a known Objective-C class type" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (int *x)         /* { dg-error "@catch parameter is not a known Objective-C class type" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (id x)           /* Ok */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (id <MyProtocol> x) /* { dg-error "@catch parameter can not be protocol-qualified" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (MyObject *x)    /* Ok */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (MyObject <MyProtocol> *x)  /* { dg-error "@catch parameter can not be protocol-qualified" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (MyObject x)     /* { dg-error "@catch parameter is not a known Objective-C class type" } */
    {                     /* { dg-error "conversion to non-scalar type requested" "" { target *-*-* } 72 } */
      dummy++;
    }
 
  @try { @throw object; }
  @catch (static MyObject *x) /* { dg-error "storage class specified for" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (MyObjectTypedef *x) /* Ok */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (MyObjectTypedef <MyProtocol> *x) /* { dg-error "@catch parameter can not be protocol-qualified" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (MyObjectPtrTypedef x) /* Ok */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (Class x)   /* { dg-error "@catch parameter is not a known Objective-C class type" } */
    {
      dummy++;
    }
 
  @try { @throw object; }
  @catch (...)            /* Ok */
    {
      dummy++;
    }
 
  return dummy;
}

Line No.	Rev	Author	Line
1	704	jeremybenn	`/* Contributed by Nicola Pero <nicola.pero@meta-innovation.com>, November 2010. */`
2			`/* { dg-options "-fobjc-exceptions" } */`
3			`/* { dg-do compile } */`
4
5			`/* Test that the compiler is checking the argument of @catch(), and`
6			`produce errors when invalid types are used. */`
7
8			`#include <objc/objc.h>`
9
10			`@interface MyObject`
11			`{`
12			`Class isa;`
13			`}`
14			`@end`
15
16			`@implementation MyObject`
17			`@end`
18
19			`@protocol MyProtocol;`
20
21			`typedef MyObject MyObjectTypedef;`
22			`typedef MyObject *MyObjectPtrTypedef;`
23			`typedef int intTypedef;`
24
25			`int test (id object)`
26			`{`
27			`int dummy = 0;`
28
29			`@try { @throw object; }`
30			`@catch (int x) /* { dg-error "@catch parameter is not a known Objective-C class type" } */`
31			`{`
32			`dummy++;`
33			`}`
34
35			`@try { @throw object; }`
36			`@catch (intTypedef x) /* { dg-error "@catch parameter is not a known Objective-C class type" } */`
37			`{`
38			`dummy++;`
39			`}`
40
41			`@try { @throw object; }`
42			`@catch (int x) / { dg-error "@catch parameter is not a known Objective-C class type" } */`
43			`{`
44			`dummy++;`
45			`}`
46
47			`@try { @throw object; }`
48			`@catch (id x) /* Ok */`
49			`{`
50			`dummy++;`
51			`}`
52
53			`@try { @throw object; }`
54			`@catch (id <MyProtocol> x) /* { dg-error "@catch parameter can not be protocol-qualified" } */`
55			`{`
56			`dummy++;`
57			`}`
58
59			`@try { @throw object; }`
60			`@catch (MyObject x) / Ok */`
61			`{`
62			`dummy++;`
63			`}`
64
65			`@try { @throw object; }`
66			`@catch (MyObject <MyProtocol> x) / { dg-error "@catch parameter can not be protocol-qualified" } */`
67			`{`
68			`dummy++;`
69			`}`
70
71			`@try { @throw object; }`
72			`@catch (MyObject x) /* { dg-error "@catch parameter is not a known Objective-C class type" } */`
73			`{ /* { dg-error "conversion to non-scalar type requested" "" { target --* } 72 } */`
74			`dummy++;`
75			`}`
76
77			`@try { @throw object; }`
78			`@catch (static MyObject x) / { dg-error "storage class specified for" } */`
79			`{`
80			`dummy++;`
81			`}`
82
83			`@try { @throw object; }`
84			`@catch (MyObjectTypedef x) / Ok */`
85			`{`
86			`dummy++;`
87			`}`
88
89			`@try { @throw object; }`
90			`@catch (MyObjectTypedef <MyProtocol> x) / { dg-error "@catch parameter can not be protocol-qualified" } */`
91			`{`
92			`dummy++;`
93			`}`
94
95			`@try { @throw object; }`
96			`@catch (MyObjectPtrTypedef x) /* Ok */`
97			`{`
98			`dummy++;`
99			`}`
100
101			`@try { @throw object; }`
102			`@catch (Class x) /* { dg-error "@catch parameter is not a known Objective-C class type" } */`
103			`{`
104			`dummy++;`
105			`}`
106
107			`@try { @throw object; }`
108			`@catch (...) /* Ok */`
109			`{`
110			`dummy++;`
111			`}`
112
113			`return dummy;`
114			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc.dg/] [exceptions-3.m] - Blame information for rev 707