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 float f;
13*1fd5a2e1SPrashanth Swaminathan int i;
14*1fd5a2e1SPrashanth Swaminathan } test_structure_9;
15*1fd5a2e1SPrashanth Swaminathan
struct9(test_structure_9 ts)16*1fd5a2e1SPrashanth Swaminathan static test_structure_9 ABI_ATTR struct9 (test_structure_9 ts)
17*1fd5a2e1SPrashanth Swaminathan {
18*1fd5a2e1SPrashanth Swaminathan ts.f += 1;
19*1fd5a2e1SPrashanth Swaminathan ts.i += 1;
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 ffi_type ts9_type;
30*1fd5a2e1SPrashanth Swaminathan ffi_type *ts9_type_elements[3];
31*1fd5a2e1SPrashanth Swaminathan
32*1fd5a2e1SPrashanth Swaminathan test_structure_9 ts9_arg;
33*1fd5a2e1SPrashanth Swaminathan
34*1fd5a2e1SPrashanth Swaminathan /* This is a hack to get a properly aligned result buffer */
35*1fd5a2e1SPrashanth Swaminathan test_structure_9 *ts9_result =
36*1fd5a2e1SPrashanth Swaminathan (test_structure_9 *) malloc (sizeof(test_structure_9));
37*1fd5a2e1SPrashanth Swaminathan
38*1fd5a2e1SPrashanth Swaminathan ts9_type.size = 0;
39*1fd5a2e1SPrashanth Swaminathan ts9_type.alignment = 0;
40*1fd5a2e1SPrashanth Swaminathan ts9_type.type = FFI_TYPE_STRUCT;
41*1fd5a2e1SPrashanth Swaminathan ts9_type.elements = ts9_type_elements;
42*1fd5a2e1SPrashanth Swaminathan ts9_type_elements[0] = &ffi_type_float;
43*1fd5a2e1SPrashanth Swaminathan ts9_type_elements[1] = &ffi_type_sint;
44*1fd5a2e1SPrashanth Swaminathan ts9_type_elements[2] = NULL;
45*1fd5a2e1SPrashanth Swaminathan
46*1fd5a2e1SPrashanth Swaminathan args[0] = &ts9_type;
47*1fd5a2e1SPrashanth Swaminathan values[0] = &ts9_arg;
48*1fd5a2e1SPrashanth Swaminathan
49*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
50*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, ABI_NUM, 1, &ts9_type, args) == FFI_OK);
51*1fd5a2e1SPrashanth Swaminathan
52*1fd5a2e1SPrashanth Swaminathan ts9_arg.f = 5.55f;
53*1fd5a2e1SPrashanth Swaminathan ts9_arg.i = 5;
54*1fd5a2e1SPrashanth Swaminathan
55*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts9_arg.f);
56*1fd5a2e1SPrashanth Swaminathan printf ("%d\n", ts9_arg.i);
57*1fd5a2e1SPrashanth Swaminathan
58*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(struct9), ts9_result, values);
59*1fd5a2e1SPrashanth Swaminathan
60*1fd5a2e1SPrashanth Swaminathan printf ("%g\n", ts9_result->f);
61*1fd5a2e1SPrashanth Swaminathan printf ("%d\n", ts9_result->i);
62*1fd5a2e1SPrashanth Swaminathan
63*1fd5a2e1SPrashanth Swaminathan CHECK(ts9_result->f == 5.55f + 1);
64*1fd5a2e1SPrashanth Swaminathan CHECK(ts9_result->i == 5 + 1);
65*1fd5a2e1SPrashanth Swaminathan
66*1fd5a2e1SPrashanth Swaminathan free (ts9_result);
67*1fd5a2e1SPrashanth Swaminathan exit(0);
68*1fd5a2e1SPrashanth Swaminathan }
69