1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check structures.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: From the original ffitest.c */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
9*1fd5a2e1SPrashanth Swaminathan typedef struct
10*1fd5a2e1SPrashanth Swaminathan {
11*1fd5a2e1SPrashanth Swaminathan char c1;
12*1fd5a2e1SPrashanth Swaminathan char c2;
13*1fd5a2e1SPrashanth Swaminathan } test_structure_5;
14*1fd5a2e1SPrashanth Swaminathan
struct5(test_structure_5 ts1,test_structure_5 ts2)15*1fd5a2e1SPrashanth Swaminathan static test_structure_5 ABI_ATTR struct5(test_structure_5 ts1, test_structure_5 ts2)
16*1fd5a2e1SPrashanth Swaminathan {
17*1fd5a2e1SPrashanth Swaminathan ts1.c1 += ts2.c1;
18*1fd5a2e1SPrashanth Swaminathan ts1.c2 -= ts2.c2;
19*1fd5a2e1SPrashanth Swaminathan
20*1fd5a2e1SPrashanth Swaminathan return ts1;
21*1fd5a2e1SPrashanth Swaminathan }
22*1fd5a2e1SPrashanth Swaminathan
main(void)23*1fd5a2e1SPrashanth Swaminathan int main (void)
24*1fd5a2e1SPrashanth Swaminathan {
25*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
26*1fd5a2e1SPrashanth Swaminathan ffi_type *args[MAX_ARGS];
27*1fd5a2e1SPrashanth Swaminathan void *values[MAX_ARGS];
28*1fd5a2e1SPrashanth Swaminathan ffi_type ts5_type;
29*1fd5a2e1SPrashanth Swaminathan ffi_type *ts5_type_elements[3];
30*1fd5a2e1SPrashanth Swaminathan
31*1fd5a2e1SPrashanth Swaminathan test_structure_5 ts5_arg1, ts5_arg2;
32*1fd5a2e1SPrashanth Swaminathan
33*1fd5a2e1SPrashanth Swaminathan /* This is a hack to get a properly aligned result buffer */
34*1fd5a2e1SPrashanth Swaminathan test_structure_5 *ts5_result =
35*1fd5a2e1SPrashanth Swaminathan (test_structure_5 *) malloc (sizeof(test_structure_5));
36*1fd5a2e1SPrashanth Swaminathan
37*1fd5a2e1SPrashanth Swaminathan ts5_type.size = 0;
38*1fd5a2e1SPrashanth Swaminathan ts5_type.alignment = 0;
39*1fd5a2e1SPrashanth Swaminathan ts5_type.type = FFI_TYPE_STRUCT;
40*1fd5a2e1SPrashanth Swaminathan ts5_type.elements = ts5_type_elements;
41*1fd5a2e1SPrashanth Swaminathan ts5_type_elements[0] = &ffi_type_schar;
42*1fd5a2e1SPrashanth Swaminathan ts5_type_elements[1] = &ffi_type_schar;
43*1fd5a2e1SPrashanth Swaminathan ts5_type_elements[2] = NULL;
44*1fd5a2e1SPrashanth Swaminathan
45*1fd5a2e1SPrashanth Swaminathan args[0] = &ts5_type;
46*1fd5a2e1SPrashanth Swaminathan args[1] = &ts5_type;
47*1fd5a2e1SPrashanth Swaminathan values[0] = &ts5_arg1;
48*1fd5a2e1SPrashanth Swaminathan values[1] = &ts5_arg2;
49*1fd5a2e1SPrashanth Swaminathan
50*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
51*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts5_type, args) == FFI_OK);
52*1fd5a2e1SPrashanth Swaminathan
53*1fd5a2e1SPrashanth Swaminathan ts5_arg1.c1 = 2;
54*1fd5a2e1SPrashanth Swaminathan ts5_arg1.c2 = 6;
55*1fd5a2e1SPrashanth Swaminathan ts5_arg2.c1 = 5;
56*1fd5a2e1SPrashanth Swaminathan ts5_arg2.c2 = 3;
57*1fd5a2e1SPrashanth Swaminathan
58*1fd5a2e1SPrashanth Swaminathan ffi_call (&cif, FFI_FN(struct5), ts5_result, values);
59*1fd5a2e1SPrashanth Swaminathan
60*1fd5a2e1SPrashanth Swaminathan CHECK(ts5_result->c1 == 7);
61*1fd5a2e1SPrashanth Swaminathan CHECK(ts5_result->c2 == 3);
62*1fd5a2e1SPrashanth Swaminathan
63*1fd5a2e1SPrashanth Swaminathan
64*1fd5a2e1SPrashanth Swaminathan free (ts5_result);
65*1fd5a2e1SPrashanth Swaminathan exit(0);
66*1fd5a2e1SPrashanth Swaminathan }
67