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
10*1fd5a2e1SPrashanth Swaminathan typedef struct
11*1fd5a2e1SPrashanth Swaminathan {
12*1fd5a2e1SPrashanth Swaminathan double d1;
13*1fd5a2e1SPrashanth Swaminathan double d2;
14*1fd5a2e1SPrashanth Swaminathan } test_structure_2;
15*1fd5a2e1SPrashanth Swaminathan
struct2(test_structure_2 ts)16*1fd5a2e1SPrashanth Swaminathan static test_structure_2 ABI_ATTR struct2(test_structure_2 ts)
17*1fd5a2e1SPrashanth Swaminathan {
18*1fd5a2e1SPrashanth Swaminathan ts.d1--;
19*1fd5a2e1SPrashanth Swaminathan ts.d2--;
20*1fd5a2e1SPrashanth Swaminathan
21*1fd5a2e1SPrashanth Swaminathan return ts;
22*1fd5a2e1SPrashanth Swaminathan }
23*1fd5a2e1SPrashanth Swaminathan
main(void)24*1fd5a2e1SPrashanth Swaminathan int main (void)
25*1fd5a2e1SPrashanth Swaminathan {
26*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
27*1fd5a2e1SPrashanth Swaminathan ffi_type *args[MAX_ARGS];
28*1fd5a2e1SPrashanth Swaminathan void *values[MAX_ARGS];
29*1fd5a2e1SPrashanth Swaminathan test_structure_2 ts2_arg;
30*1fd5a2e1SPrashanth Swaminathan ffi_type ts2_type;
31*1fd5a2e1SPrashanth Swaminathan ffi_type *ts2_type_elements[3];
32*1fd5a2e1SPrashanth Swaminathan
33*1fd5a2e1SPrashanth Swaminathan /* This is a hack to get a properly aligned result buffer */
34*1fd5a2e1SPrashanth Swaminathan test_structure_2 *ts2_result =
35*1fd5a2e1SPrashanth Swaminathan (test_structure_2 *) malloc (sizeof(test_structure_2));
36*1fd5a2e1SPrashanth Swaminathan
37*1fd5a2e1SPrashanth Swaminathan ts2_type.size = 0;
38*1fd5a2e1SPrashanth Swaminathan ts2_type.alignment = 0;
39*1fd5a2e1SPrashanth Swaminathan ts2_type.type = FFI_TYPE_STRUCT;
40*1fd5a2e1SPrashanth Swaminathan ts2_type.elements = ts2_type_elements;
41*1fd5a2e1SPrashanth Swaminathan ts2_type_elements[0] = &ffi_type_double;
42*1fd5a2e1SPrashanth Swaminathan ts2_type_elements[1] = &ffi_type_double;
43*1fd5a2e1SPrashanth Swaminathan ts2_type_elements[2] = NULL;
44*1fd5a2e1SPrashanth Swaminathan
45*1fd5a2e1SPrashanth Swaminathan args[0] = &ts2_type;
46*1fd5a2e1SPrashanth Swaminathan values[0] = &ts2_arg;
47*1fd5a2e1SPrashanth Swaminathan
48*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
49*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, ABI_NUM, 1, &ts2_type, args) == FFI_OK);
50*1fd5a2e1SPrashanth Swaminathan
51*1fd5a2e1SPrashanth Swaminathan ts2_arg.d1 = 5.55;
52*1fd5a2e1SPrashanth Swaminathan ts2_arg.d2 = 6.66;
53*1fd5a2e1SPrashanth Swaminathan
54*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts2_arg.d1);
55*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts2_arg.d2);
56*1fd5a2e1SPrashanth Swaminathan
57*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(struct2), ts2_result, values);
58*1fd5a2e1SPrashanth Swaminathan
59*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts2_result->d1);
60*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts2_result->d2);
61*1fd5a2e1SPrashanth Swaminathan
62*1fd5a2e1SPrashanth Swaminathan CHECK(ts2_result->d1 == 5.55 - 1);
63*1fd5a2e1SPrashanth Swaminathan CHECK(ts2_result->d2 == 6.66 - 1);
64*1fd5a2e1SPrashanth Swaminathan
65*1fd5a2e1SPrashanth Swaminathan free (ts2_result);
66*1fd5a2e1SPrashanth Swaminathan exit(0);
67*1fd5a2e1SPrashanth Swaminathan }
68