1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call, closure_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check double arguments in structs.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: Blake Chaffin 6/23/2007 */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan
9*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
10*1fd5a2e1SPrashanth Swaminathan
11*1fd5a2e1SPrashanth Swaminathan typedef struct Dbls {
12*1fd5a2e1SPrashanth Swaminathan double x;
13*1fd5a2e1SPrashanth Swaminathan double y;
14*1fd5a2e1SPrashanth Swaminathan } Dbls;
15*1fd5a2e1SPrashanth Swaminathan
16*1fd5a2e1SPrashanth Swaminathan void
closure_test_fn(Dbls p)17*1fd5a2e1SPrashanth Swaminathan closure_test_fn(Dbls p)
18*1fd5a2e1SPrashanth Swaminathan {
19*1fd5a2e1SPrashanth Swaminathan printf("%.1f %.1f\n", p.x, p.y);
20*1fd5a2e1SPrashanth Swaminathan }
21*1fd5a2e1SPrashanth Swaminathan
22*1fd5a2e1SPrashanth Swaminathan void
closure_test_gn(ffi_cif * cif __UNUSED__,void * resp __UNUSED__,void ** args,void * userdata __UNUSED__)23*1fd5a2e1SPrashanth Swaminathan closure_test_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
24*1fd5a2e1SPrashanth Swaminathan void** args, void* userdata __UNUSED__)
25*1fd5a2e1SPrashanth Swaminathan {
26*1fd5a2e1SPrashanth Swaminathan closure_test_fn(*(Dbls*)args[0]);
27*1fd5a2e1SPrashanth Swaminathan }
28*1fd5a2e1SPrashanth Swaminathan
main(int argc __UNUSED__,char ** argv __UNUSED__)29*1fd5a2e1SPrashanth Swaminathan int main(int argc __UNUSED__, char** argv __UNUSED__)
30*1fd5a2e1SPrashanth Swaminathan {
31*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
32*1fd5a2e1SPrashanth Swaminathan
33*1fd5a2e1SPrashanth Swaminathan void *code;
34*1fd5a2e1SPrashanth Swaminathan ffi_closure* pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
35*1fd5a2e1SPrashanth Swaminathan ffi_type* cl_arg_types[1];
36*1fd5a2e1SPrashanth Swaminathan
37*1fd5a2e1SPrashanth Swaminathan ffi_type ts1_type;
38*1fd5a2e1SPrashanth Swaminathan ffi_type* ts1_type_elements[4];
39*1fd5a2e1SPrashanth Swaminathan
40*1fd5a2e1SPrashanth Swaminathan Dbls arg = { 1.0, 2.0 };
41*1fd5a2e1SPrashanth Swaminathan
42*1fd5a2e1SPrashanth Swaminathan ts1_type.size = 0;
43*1fd5a2e1SPrashanth Swaminathan ts1_type.alignment = 0;
44*1fd5a2e1SPrashanth Swaminathan ts1_type.type = FFI_TYPE_STRUCT;
45*1fd5a2e1SPrashanth Swaminathan ts1_type.elements = ts1_type_elements;
46*1fd5a2e1SPrashanth Swaminathan
47*1fd5a2e1SPrashanth Swaminathan ts1_type_elements[0] = &ffi_type_double;
48*1fd5a2e1SPrashanth Swaminathan ts1_type_elements[1] = &ffi_type_double;
49*1fd5a2e1SPrashanth Swaminathan ts1_type_elements[2] = NULL;
50*1fd5a2e1SPrashanth Swaminathan
51*1fd5a2e1SPrashanth Swaminathan cl_arg_types[0] = &ts1_type;
52*1fd5a2e1SPrashanth Swaminathan
53*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
54*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
55*1fd5a2e1SPrashanth Swaminathan &ffi_type_void, cl_arg_types) == FFI_OK);
56*1fd5a2e1SPrashanth Swaminathan
57*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_gn, NULL, code) == FFI_OK);
58*1fd5a2e1SPrashanth Swaminathan
59*1fd5a2e1SPrashanth Swaminathan ((void*(*)(Dbls))(code))(arg);
60*1fd5a2e1SPrashanth Swaminathan /* { dg-output "1.0 2.0\n" } */
61*1fd5a2e1SPrashanth Swaminathan
62*1fd5a2e1SPrashanth Swaminathan closure_test_fn(arg);
63*1fd5a2e1SPrashanth Swaminathan /* { dg-output "1.0 2.0\n" } */
64*1fd5a2e1SPrashanth Swaminathan
65*1fd5a2e1SPrashanth Swaminathan return 0;
66*1fd5a2e1SPrashanth Swaminathan }
67