1 /* Area: ffi_call, closure_call
2 Purpose: Check passing of multiple signed short/char values.
5 Originator: <andreast@gcc.gnu.org> 20031129 */
7 /* { dg-do run { xfail mips*-*-* arm*-*-* strongarm*-*-* xscale*-*-* } } */
10 signed short test_func_fn(signed char a1
, signed short a2
,
11 signed char a3
, signed short a4
)
15 result
= a1
+ a2
+ a3
+ a4
;
17 printf("%d %d %d %d: %d\n", a1
, a2
, a3
, a4
, result
);
23 static void test_func_gn(ffi_cif
*cif
, void *rval
, void **avals
, void *data
)
28 a1
= *(signed char *)avals
[0];
29 a2
= *(signed short *)avals
[1];
30 a3
= *(signed char *)avals
[2];
31 a4
= *(signed short *)avals
[3];
33 *(ffi_arg
*)rval
= test_func_fn(a1
, a2
, a3
, a4
);
37 typedef signed short (*test_type
)(signed char, signed short,
38 signed char, signed short);
44 static ffi_closure cl
;
48 ffi_type
* cl_arg_types
[5];
51 signed short b
, d
, res_closure
;
54 pcl
= allocate_mmap (sizeof(ffi_closure
));
70 cl_arg_types
[0] = &ffi_type_schar
;
71 cl_arg_types
[1] = &ffi_type_sshort
;
72 cl_arg_types
[2] = &ffi_type_schar
;
73 cl_arg_types
[3] = &ffi_type_sshort
;
74 cl_arg_types
[4] = NULL
;
76 /* Initialize the cif */
77 CHECK(ffi_prep_cif(&cif
, FFI_DEFAULT_ABI
, 4,
78 &ffi_type_sshort
, cl_arg_types
) == FFI_OK
);
80 ffi_call(&cif
, FFI_FN(test_func_fn
), &res_call
, args_dbl
);
81 /* { dg-output "1 32765 127 -128: 32765" } */
82 printf("res: %d\n", res_call
);
83 /* { dg-output "\nres: 32765" } */
85 CHECK(ffi_prep_closure(pcl
, &cif
, test_func_gn
, NULL
) == FFI_OK
);
87 res_closure
= (*((test_type
)pcl
))(1, 32765, 127, -128);
88 /* { dg-output "\n1 32765 127 -128: 32765" } */
89 printf("res: %d\n", res_closure
);
90 /* { dg-output "\nres: 32765" } */