1*1fd5a2e1SPrashanth Swaminathan /* Area: closure_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check return value float.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: 41908.
5*1fd5a2e1SPrashanth Swaminathan Originator: <[email protected]> 20091102 */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
9*1fd5a2e1SPrashanth Swaminathan
10*1fd5a2e1SPrashanth Swaminathan typedef struct cls_struct_combined {
11*1fd5a2e1SPrashanth Swaminathan float a;
12*1fd5a2e1SPrashanth Swaminathan float b;
13*1fd5a2e1SPrashanth Swaminathan float c;
14*1fd5a2e1SPrashanth Swaminathan float d;
15*1fd5a2e1SPrashanth Swaminathan } cls_struct_combined;
16*1fd5a2e1SPrashanth Swaminathan
cls_struct_combined_fn(struct cls_struct_combined arg)17*1fd5a2e1SPrashanth Swaminathan void cls_struct_combined_fn(struct cls_struct_combined arg)
18*1fd5a2e1SPrashanth Swaminathan {
19*1fd5a2e1SPrashanth Swaminathan printf("%g %g %g %g\n",
20*1fd5a2e1SPrashanth Swaminathan arg.a, arg.b,
21*1fd5a2e1SPrashanth Swaminathan arg.c, arg.d);
22*1fd5a2e1SPrashanth Swaminathan fflush(stdout);
23*1fd5a2e1SPrashanth Swaminathan }
24*1fd5a2e1SPrashanth Swaminathan
25*1fd5a2e1SPrashanth Swaminathan static void
cls_struct_combined_gn(ffi_cif * cif __UNUSED__,void * resp __UNUSED__,void ** args,void * userdata __UNUSED__)26*1fd5a2e1SPrashanth Swaminathan cls_struct_combined_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
27*1fd5a2e1SPrashanth Swaminathan void** args, void* userdata __UNUSED__)
28*1fd5a2e1SPrashanth Swaminathan {
29*1fd5a2e1SPrashanth Swaminathan struct cls_struct_combined a0;
30*1fd5a2e1SPrashanth Swaminathan
31*1fd5a2e1SPrashanth Swaminathan a0 = *(struct cls_struct_combined*)(args[0]);
32*1fd5a2e1SPrashanth Swaminathan
33*1fd5a2e1SPrashanth Swaminathan cls_struct_combined_fn(a0);
34*1fd5a2e1SPrashanth Swaminathan }
35*1fd5a2e1SPrashanth Swaminathan
36*1fd5a2e1SPrashanth Swaminathan
main(void)37*1fd5a2e1SPrashanth Swaminathan int main (void)
38*1fd5a2e1SPrashanth Swaminathan {
39*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
40*1fd5a2e1SPrashanth Swaminathan void *code;
41*1fd5a2e1SPrashanth Swaminathan ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
42*1fd5a2e1SPrashanth Swaminathan ffi_type* cls_struct_fields0[5];
43*1fd5a2e1SPrashanth Swaminathan ffi_type cls_struct_type0;
44*1fd5a2e1SPrashanth Swaminathan ffi_type* dbl_arg_types[5];
45*1fd5a2e1SPrashanth Swaminathan
46*1fd5a2e1SPrashanth Swaminathan struct cls_struct_combined g_dbl = {4.0, 5.0, 1.0, 8.0};
47*1fd5a2e1SPrashanth Swaminathan
48*1fd5a2e1SPrashanth Swaminathan cls_struct_type0.size = 0;
49*1fd5a2e1SPrashanth Swaminathan cls_struct_type0.alignment = 0;
50*1fd5a2e1SPrashanth Swaminathan cls_struct_type0.type = FFI_TYPE_STRUCT;
51*1fd5a2e1SPrashanth Swaminathan cls_struct_type0.elements = cls_struct_fields0;
52*1fd5a2e1SPrashanth Swaminathan
53*1fd5a2e1SPrashanth Swaminathan cls_struct_fields0[0] = &ffi_type_float;
54*1fd5a2e1SPrashanth Swaminathan cls_struct_fields0[1] = &ffi_type_float;
55*1fd5a2e1SPrashanth Swaminathan cls_struct_fields0[2] = &ffi_type_float;
56*1fd5a2e1SPrashanth Swaminathan cls_struct_fields0[3] = &ffi_type_float;
57*1fd5a2e1SPrashanth Swaminathan cls_struct_fields0[4] = NULL;
58*1fd5a2e1SPrashanth Swaminathan
59*1fd5a2e1SPrashanth Swaminathan dbl_arg_types[0] = &cls_struct_type0;
60*1fd5a2e1SPrashanth Swaminathan dbl_arg_types[1] = NULL;
61*1fd5a2e1SPrashanth Swaminathan
62*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, &ffi_type_void,
63*1fd5a2e1SPrashanth Swaminathan dbl_arg_types) == FFI_OK);
64*1fd5a2e1SPrashanth Swaminathan
65*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_combined_gn, NULL, code) == FFI_OK);
66*1fd5a2e1SPrashanth Swaminathan
67*1fd5a2e1SPrashanth Swaminathan ((void(*)(cls_struct_combined)) (code))(g_dbl);
68*1fd5a2e1SPrashanth Swaminathan /* { dg-output "4 5 1 8" } */
69*1fd5a2e1SPrashanth Swaminathan exit(0);
70*1fd5a2e1SPrashanth Swaminathan }
71