2 Purpose: Check structures.
5 Originator: From the original ffitest.c */
17 static test_structure_8 ABI_ATTR
struct8 (test_structure_8 ts
)
30 ffi_type
*args
[MAX_ARGS
];
31 void *values
[MAX_ARGS
];
33 ffi_type
*ts8_type_elements
[5];
35 test_structure_8 ts8_arg
;
37 /* This is a hack to get a properly aligned result buffer */
38 test_structure_8
*ts8_result
=
39 (test_structure_8
*) malloc (sizeof(test_structure_8
));
42 ts8_type
.alignment
= 0;
43 ts8_type
.type
= FFI_TYPE_STRUCT
;
44 ts8_type
.elements
= ts8_type_elements
;
45 ts8_type_elements
[0] = &ffi_type_float
;
46 ts8_type_elements
[1] = &ffi_type_float
;
47 ts8_type_elements
[2] = &ffi_type_float
;
48 ts8_type_elements
[3] = &ffi_type_float
;
49 ts8_type_elements
[4] = NULL
;
54 /* Initialize the cif */
55 CHECK(ffi_prep_cif(&cif
, ABI_NUM
, 1, &ts8_type
, args
) == FFI_OK
);
62 printf ("%g\n", ts8_arg
.f1
);
63 printf ("%g\n", ts8_arg
.f2
);
64 printf ("%g\n", ts8_arg
.f3
);
65 printf ("%g\n", ts8_arg
.f4
);
67 ffi_call(&cif
, FFI_FN(struct8
), ts8_result
, values
);
69 printf ("%g\n", ts8_result
->f1
);
70 printf ("%g\n", ts8_result
->f2
);
71 printf ("%g\n", ts8_result
->f3
);
72 printf ("%g\n", ts8_result
->f4
);
74 CHECK(ts8_result
->f1
== 5.55f
+ 1);
75 CHECK(ts8_result
->f2
== 55.5f
+ 1);
76 CHECK(ts8_result
->f3
== -5.55f
+ 1);
77 CHECK(ts8_result
->f4
== -55.5f
+ 1);