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 float f1;
12*1fd5a2e1SPrashanth Swaminathan float f2;
13*1fd5a2e1SPrashanth Swaminathan double d;
14*1fd5a2e1SPrashanth Swaminathan } test_structure_7;
15*1fd5a2e1SPrashanth Swaminathan
struct7(test_structure_7 ts)16*1fd5a2e1SPrashanth Swaminathan static test_structure_7 ABI_ATTR struct7 (test_structure_7 ts)
17*1fd5a2e1SPrashanth Swaminathan {
18*1fd5a2e1SPrashanth Swaminathan ts.f1 += 1;
19*1fd5a2e1SPrashanth Swaminathan ts.f2 += 1;
20*1fd5a2e1SPrashanth Swaminathan ts.d += 1;
21*1fd5a2e1SPrashanth Swaminathan
22*1fd5a2e1SPrashanth Swaminathan return ts;
23*1fd5a2e1SPrashanth Swaminathan }
24*1fd5a2e1SPrashanth Swaminathan
main(void)25*1fd5a2e1SPrashanth Swaminathan int main (void)
26*1fd5a2e1SPrashanth Swaminathan {
27*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
28*1fd5a2e1SPrashanth Swaminathan ffi_type *args[MAX_ARGS];
29*1fd5a2e1SPrashanth Swaminathan void *values[MAX_ARGS];
30*1fd5a2e1SPrashanth Swaminathan ffi_type ts7_type;
31*1fd5a2e1SPrashanth Swaminathan ffi_type *ts7_type_elements[4];
32*1fd5a2e1SPrashanth Swaminathan
33*1fd5a2e1SPrashanth Swaminathan test_structure_7 ts7_arg;
34*1fd5a2e1SPrashanth Swaminathan
35*1fd5a2e1SPrashanth Swaminathan /* This is a hack to get a properly aligned result buffer */
36*1fd5a2e1SPrashanth Swaminathan test_structure_7 *ts7_result =
37*1fd5a2e1SPrashanth Swaminathan (test_structure_7 *) malloc (sizeof(test_structure_7));
38*1fd5a2e1SPrashanth Swaminathan
39*1fd5a2e1SPrashanth Swaminathan ts7_type.size = 0;
40*1fd5a2e1SPrashanth Swaminathan ts7_type.alignment = 0;
41*1fd5a2e1SPrashanth Swaminathan ts7_type.type = FFI_TYPE_STRUCT;
42*1fd5a2e1SPrashanth Swaminathan ts7_type.elements = ts7_type_elements;
43*1fd5a2e1SPrashanth Swaminathan ts7_type_elements[0] = &ffi_type_float;
44*1fd5a2e1SPrashanth Swaminathan ts7_type_elements[1] = &ffi_type_float;
45*1fd5a2e1SPrashanth Swaminathan ts7_type_elements[2] = &ffi_type_double;
46*1fd5a2e1SPrashanth Swaminathan ts7_type_elements[3] = NULL;
47*1fd5a2e1SPrashanth Swaminathan
48*1fd5a2e1SPrashanth Swaminathan args[0] = &ts7_type;
49*1fd5a2e1SPrashanth Swaminathan values[0] = &ts7_arg;
50*1fd5a2e1SPrashanth Swaminathan
51*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
52*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, ABI_NUM, 1, &ts7_type, args) == FFI_OK);
53*1fd5a2e1SPrashanth Swaminathan
54*1fd5a2e1SPrashanth Swaminathan ts7_arg.f1 = 5.55f;
55*1fd5a2e1SPrashanth Swaminathan ts7_arg.f2 = 55.5f;
56*1fd5a2e1SPrashanth Swaminathan ts7_arg.d = 6.66;
57*1fd5a2e1SPrashanth Swaminathan
58*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts7_arg.f1);
59*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts7_arg.f2);
60*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts7_arg.d);
61*1fd5a2e1SPrashanth Swaminathan
62*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(struct7), ts7_result, values);
63*1fd5a2e1SPrashanth Swaminathan
64*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts7_result->f1);
65*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts7_result->f2);
66*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts7_result->d);
67*1fd5a2e1SPrashanth Swaminathan
68*1fd5a2e1SPrashanth Swaminathan CHECK(ts7_result->f1 == 5.55f + 1);
69*1fd5a2e1SPrashanth Swaminathan CHECK(ts7_result->f2 == 55.5f + 1);
70*1fd5a2e1SPrashanth Swaminathan CHECK(ts7_result->d == 6.66 + 1);
71*1fd5a2e1SPrashanth Swaminathan
72*1fd5a2e1SPrashanth Swaminathan free (ts7_result);
73*1fd5a2e1SPrashanth Swaminathan exit(0);
74*1fd5a2e1SPrashanth Swaminathan }
75