]>
Commit | Line | Data |
---|---|---|
d18c3386 AT |
1 | /* Area: ffi_call, closure_call |
2 | Purpose: Check passing of multiple unsigned short/char values. | |
3 | Limitations: none. | |
4 | PR: PR13221. | |
5 | Originator: <andreast@gcc.gnu.org> 20031129 */ | |
6 | ||
4c5f37d5 | 7 | /* { dg-do run { xfail mips64*-*-* arm*-*-* strongarm*-*-* xscale*-*-* } } */ |
d18c3386 AT |
8 | #include "ffitest.h" |
9 | ||
10 | unsigned short test_func_fn(unsigned char a1, unsigned short a2, | |
11 | unsigned char a3, unsigned short a4) | |
12 | { | |
13 | unsigned short result; | |
14 | ||
15 | result = a1 + a2 + a3 + a4; | |
16 | ||
17 | printf("%d %d %d %d: %d\n", a1, a2, a3, a4, result); | |
18 | ||
19 | return result; | |
20 | ||
21 | } | |
22 | ||
9fdeb13b AT |
23 | static void test_func_gn(ffi_cif *cif __UNUSED__, void *rval, void **avals, |
24 | void *data __UNUSED__) | |
d18c3386 AT |
25 | { |
26 | unsigned char a1, a3; | |
27 | unsigned short a2, a4; | |
28 | ||
29 | a1 = *(unsigned char *)avals[0]; | |
30 | a2 = *(unsigned short *)avals[1]; | |
31 | a3 = *(unsigned char *)avals[2]; | |
32 | a4 = *(unsigned short *)avals[3]; | |
33 | ||
34 | *(ffi_arg *)rval = test_func_fn(a1, a2, a3, a4); | |
35 | ||
36 | } | |
37 | ||
38 | typedef unsigned short (*test_type)(unsigned char, unsigned short, | |
39 | unsigned char, unsigned short); | |
40 | ||
41 | int main (void) | |
42 | { | |
43 | ffi_cif cif; | |
44 | #ifndef USING_MMAP | |
45 | static ffi_closure cl; | |
46 | #endif | |
47 | ffi_closure *pcl; | |
48 | void * args_dbl[5]; | |
49 | ffi_type * cl_arg_types[5]; | |
50 | ffi_arg res_call; | |
51 | unsigned char a, c; | |
52 | unsigned short b, d, res_closure; | |
53 | ||
54 | #ifdef USING_MMAP | |
55 | pcl = allocate_mmap (sizeof(ffi_closure)); | |
56 | #else | |
57 | pcl = &cl; | |
58 | #endif | |
59 | ||
60 | a = 1; | |
61 | b = 2; | |
62 | c = 127; | |
63 | d = 128; | |
64 | ||
65 | args_dbl[0] = &a; | |
66 | args_dbl[1] = &b; | |
67 | args_dbl[2] = &c; | |
68 | args_dbl[3] = &d; | |
69 | args_dbl[4] = NULL; | |
70 | ||
71 | cl_arg_types[0] = &ffi_type_uchar; | |
72 | cl_arg_types[1] = &ffi_type_ushort; | |
73 | cl_arg_types[2] = &ffi_type_uchar; | |
74 | cl_arg_types[3] = &ffi_type_ushort; | |
75 | cl_arg_types[4] = NULL; | |
76 | ||
77 | /* Initialize the cif */ | |
78 | CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, | |
79 | &ffi_type_ushort, cl_arg_types) == FFI_OK); | |
80 | ||
81 | ffi_call(&cif, FFI_FN(test_func_fn), &res_call, args_dbl); | |
82 | /* { dg-output "1 2 127 128: 258" } */ | |
9fdeb13b | 83 | printf("res: %d\n", (unsigned short)res_call); |
d18c3386 AT |
84 | /* { dg-output "\nres: 258" } */ |
85 | ||
86 | CHECK(ffi_prep_closure(pcl, &cif, test_func_gn, NULL) == FFI_OK); | |
87 | ||
88 | res_closure = (*((test_type)pcl))(1, 2, 127, 128); | |
89 | /* { dg-output "\n1 2 127 128: 258" } */ | |
90 | printf("res: %d\n", res_closure); | |
91 | /* { dg-output "\nres: 258" } */ | |
92 | ||
93 | exit(0); | |
94 | } |