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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc.dg/] [threedotthree-abi-1.m] - Blame information for rev 708

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

Line No. Rev Author Line
1 704 jeremybenn
/* This file tests that things are encoded using the gcc-3.3 ABI which is only
2
   used by the NeXT runtime.  */
3
/* { dg-do run { target *-*-darwin* } } */
4
/* { dg-require-effective-target ilp32 } */
5
/* { dg-skip-if "" { *-*-* } { "-fgnu-runtime" } { "" } } */
6
 
7
#include <stdio.h>
8
#include <string.h>
9
#include "../objc-obj-c++-shared/runtime.h"
10
 
11
extern void abort();
12
 
13
@protocol CommonProtocol
14
 
15
-(oneway void)methodCall_On:(in bycopy id)someValue_On;
16
-(oneway void)methodCall_nO:(bycopy in id)someValue_nO;
17
 
18
-(oneway void)methodCall_Oo:(out bycopy id)someValue_Oo;
19
-(oneway void)methodCall_oO:(bycopy out id)someValue_oO;
20
 
21
-(oneway void)methodCall_rn:(in const id)someValue_rn;
22
 
23
-(oneway void)methodCall_oOn:(in bycopy out id)someValue_oOn;
24
 
25
@end
26
 
27
@interface ObjCClass <CommonProtocol>
28
{
29
 
30
}
31
 
32
@end
33
 
34
@implementation ObjCClass
35
-(oneway void)methodCall_On:(in bycopy id)someValue_On { }
36
-(oneway void)methodCall_nO:(bycopy in id)someValue_nO { }
37
 
38
-(oneway void)methodCall_Oo:(out bycopy id)someValue_Oo { }
39
-(oneway void)methodCall_oO:(bycopy out id)someValue_oO { }
40
 
41
-(oneway void)methodCall_rn:(in const id)someValue_rn { }
42
-(oneway void)methodCall_oOn:(in bycopy out id)someValue_oOn { }
43
@end
44
 
45
Protocol *proto = @protocol(CommonProtocol);
46
struct objc_method_description *meth;
47
struct objc_method_description meth_object;
48
 
49
int main()
50
{
51
        meth_object = protocol_getMethodDescription (proto, @selector(methodCall_On:), YES, YES);
52
        meth = &meth_object;
53
        if (strcmp (meth->types, "Vv12@0:4On@8"))
54
          abort();
55
        meth_object = protocol_getMethodDescription (proto, @selector(methodCall_nO:), YES, YES);
56
        meth = &meth_object;
57
        if (strcmp (meth->types, "Vv12@0:4nO@8"))
58
          abort();
59
        meth_object = protocol_getMethodDescription (proto, @selector(methodCall_Oo:), YES, YES);
60
        meth = &meth_object;
61
        if (strcmp (meth->types, "Vv12@0:4Oo@8"))
62
          abort();
63
        meth_object = protocol_getMethodDescription (proto, @selector(methodCall_oO:), YES, YES);
64
        meth = &meth_object;
65
        if (strcmp (meth->types, "Vv12@0:4oO@8"))
66
          abort();
67
        meth_object = protocol_getMethodDescription (proto, @selector(methodCall_rn:), YES, YES);
68
        meth = &meth_object;
69
        if (strcmp (meth->types, "Vv12@0:4rn@8"))
70
          abort();
71
        meth_object = protocol_getMethodDescription (proto, @selector(methodCall_oOn:), YES, YES);
72
        meth = &meth_object;
73
        if (strcmp (meth->types, "Vv12@0:4oOn@8"))
74
          abort();
75
        return 0;
76
}

powered by: WebSVN 2.1.0

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