1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check for proper argument alignment.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: <[email protected]> (from many_win32.c) */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan
9*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
10*1fd5a2e1SPrashanth Swaminathan
align_arguments(int i1,double f2,int i3,double f4)11*1fd5a2e1SPrashanth Swaminathan static float ABI_ATTR align_arguments(int i1,
12*1fd5a2e1SPrashanth Swaminathan double f2,
13*1fd5a2e1SPrashanth Swaminathan int i3,
14*1fd5a2e1SPrashanth Swaminathan double f4)
15*1fd5a2e1SPrashanth Swaminathan {
16*1fd5a2e1SPrashanth Swaminathan return i1+f2+i3+f4;
17*1fd5a2e1SPrashanth Swaminathan }
18*1fd5a2e1SPrashanth Swaminathan
main(void)19*1fd5a2e1SPrashanth Swaminathan int main(void)
20*1fd5a2e1SPrashanth Swaminathan {
21*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
22*1fd5a2e1SPrashanth Swaminathan ffi_type *args[4] = {
23*1fd5a2e1SPrashanth Swaminathan &ffi_type_sint,
24*1fd5a2e1SPrashanth Swaminathan &ffi_type_double,
25*1fd5a2e1SPrashanth Swaminathan &ffi_type_sint,
26*1fd5a2e1SPrashanth Swaminathan &ffi_type_double
27*1fd5a2e1SPrashanth Swaminathan };
28*1fd5a2e1SPrashanth Swaminathan double fa[2] = {1,2};
29*1fd5a2e1SPrashanth Swaminathan int ia[2] = {1,2};
30*1fd5a2e1SPrashanth Swaminathan void *values[4] = {&ia[0], &fa[0], &ia[1], &fa[1]};
31*1fd5a2e1SPrashanth Swaminathan float f, ff;
32*1fd5a2e1SPrashanth Swaminathan
33*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
34*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, ABI_NUM, 4,
35*1fd5a2e1SPrashanth Swaminathan &ffi_type_float, args) == FFI_OK);
36*1fd5a2e1SPrashanth Swaminathan
37*1fd5a2e1SPrashanth Swaminathan ff = align_arguments(ia[0], fa[0], ia[1], fa[1]);;
38*1fd5a2e1SPrashanth Swaminathan
39*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(align_arguments), &f, values);
40*1fd5a2e1SPrashanth Swaminathan
41*1fd5a2e1SPrashanth Swaminathan if (f == ff)
42*1fd5a2e1SPrashanth Swaminathan printf("align arguments tests ok!\n");
43*1fd5a2e1SPrashanth Swaminathan else
44*1fd5a2e1SPrashanth Swaminathan CHECK(0);
45*1fd5a2e1SPrashanth Swaminathan exit(0);
46*1fd5a2e1SPrashanth Swaminathan }
47