summaryrefslogtreecommitdiff
path: root/gcc/testsuite/objc.dg/threedotthree-abi-1.m
blob: 5eb00014e7e72797804afa6ad0357851cde9145f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
/* This file tests that things are encoded using the gcc-3.3 ABI which is only
   used by the NeXT runtime.  */
/* { dg-do run { target *-*-darwin* } } */
/* { dg-require-effective-target ilp32 } */
/* { dg-skip-if "" { *-*-* } { "-fgnu-runtime" } { "" } } */

#include "../objc-obj-c++-shared/Protocol1.h"
#include <stdio.h>
#include <string.h>

extern void abort();

@protocol CommonProtocol

-(oneway void)methodCall_On:(in bycopy id)someValue_On;
-(oneway void)methodCall_nO:(bycopy in id)someValue_nO;

-(oneway void)methodCall_Oo:(out bycopy id)someValue_Oo;
-(oneway void)methodCall_oO:(bycopy out id)someValue_oO;

-(oneway void)methodCall_rn:(in const id)someValue_rn;

-(oneway void)methodCall_oOn:(in bycopy out id)someValue_oOn;

@end

@interface ObjCClass <CommonProtocol>
{

}

@end

@implementation ObjCClass
-(oneway void)methodCall_On:(in bycopy id)someValue_On { }
-(oneway void)methodCall_nO:(bycopy in id)someValue_nO { }

-(oneway void)methodCall_Oo:(out bycopy id)someValue_Oo { }
-(oneway void)methodCall_oO:(bycopy out id)someValue_oO { }

-(oneway void)methodCall_rn:(in const id)someValue_rn { }
-(oneway void)methodCall_oOn:(in bycopy out id)someValue_oOn { }
@end

Protocol *proto = @protocol(CommonProtocol);
struct objc_method_description *meth;

int main()
{
        meth = [proto descriptionForInstanceMethod: @selector(methodCall_On:)];
	if (strcmp (meth->types, "Vv12@0:4On@8"))
	  abort();
        meth = [proto descriptionForInstanceMethod: @selector(methodCall_nO:)];
	if (strcmp (meth->types, "Vv12@0:4nO@8"))
	  abort();
        meth = [proto descriptionForInstanceMethod: @selector(methodCall_Oo:)];
	if (strcmp (meth->types, "Vv12@0:4Oo@8"))
	  abort();
        meth = [proto descriptionForInstanceMethod: @selector(methodCall_oO:)];
	if (strcmp (meth->types, "Vv12@0:4oO@8"))
	  abort();
        meth = [proto descriptionForInstanceMethod: @selector(methodCall_rn:)];
	if (strcmp (meth->types, "Vv12@0:4rn@8"))
	  abort();
        meth = [proto descriptionForInstanceMethod: @selector(methodCall_oOn:)];
	if (strcmp (meth->types, "Vv12@0:4oOn@8"))
	  abort();
	return 0;
}