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