1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call, closure_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check structure passing with different structure size.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: <[email protected]> 20030828 */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
9*1fd5a2e1SPrashanth Swaminathan
10*1fd5a2e1SPrashanth Swaminathan typedef struct my_ffi_struct {
11*1fd5a2e1SPrashanth Swaminathan double a;
12*1fd5a2e1SPrashanth Swaminathan double b;
13*1fd5a2e1SPrashanth Swaminathan double c;
14*1fd5a2e1SPrashanth Swaminathan } my_ffi_struct;
15*1fd5a2e1SPrashanth Swaminathan
callee(struct my_ffi_struct a1,struct my_ffi_struct a2)16*1fd5a2e1SPrashanth Swaminathan my_ffi_struct callee(struct my_ffi_struct a1, struct my_ffi_struct a2)
17*1fd5a2e1SPrashanth Swaminathan {
18*1fd5a2e1SPrashanth Swaminathan struct my_ffi_struct result;
19*1fd5a2e1SPrashanth Swaminathan result.a = a1.a + a2.a;
20*1fd5a2e1SPrashanth Swaminathan result.b = a1.b + a2.b;
21*1fd5a2e1SPrashanth Swaminathan result.c = a1.c + a2.c;
22*1fd5a2e1SPrashanth Swaminathan
23*1fd5a2e1SPrashanth Swaminathan
24*1fd5a2e1SPrashanth Swaminathan printf("%g %g %g %g %g %g: %g %g %g\n", a1.a, a1.b, a1.c,
25*1fd5a2e1SPrashanth Swaminathan a2.a, a2.b, a2.c, result.a, result.b, result.c);
26*1fd5a2e1SPrashanth Swaminathan
27*1fd5a2e1SPrashanth Swaminathan return result;
28*1fd5a2e1SPrashanth Swaminathan }
29*1fd5a2e1SPrashanth Swaminathan
stub(ffi_cif * cif __UNUSED__,void * resp,void ** args,void * userdata __UNUSED__)30*1fd5a2e1SPrashanth Swaminathan void stub(ffi_cif* cif __UNUSED__, void* resp, void** args,
31*1fd5a2e1SPrashanth Swaminathan void* userdata __UNUSED__)
32*1fd5a2e1SPrashanth Swaminathan {
33*1fd5a2e1SPrashanth Swaminathan struct my_ffi_struct a1;
34*1fd5a2e1SPrashanth Swaminathan struct my_ffi_struct a2;
35*1fd5a2e1SPrashanth Swaminathan
36*1fd5a2e1SPrashanth Swaminathan a1 = *(struct my_ffi_struct*)(args[0]);
37*1fd5a2e1SPrashanth Swaminathan a2 = *(struct my_ffi_struct*)(args[1]);
38*1fd5a2e1SPrashanth Swaminathan
39*1fd5a2e1SPrashanth Swaminathan *(my_ffi_struct *)resp = callee(a1, a2);
40*1fd5a2e1SPrashanth Swaminathan }
41*1fd5a2e1SPrashanth Swaminathan
42*1fd5a2e1SPrashanth Swaminathan
main(void)43*1fd5a2e1SPrashanth Swaminathan int main(void)
44*1fd5a2e1SPrashanth Swaminathan {
45*1fd5a2e1SPrashanth Swaminathan ffi_type* my_ffi_struct_fields[4];
46*1fd5a2e1SPrashanth Swaminathan ffi_type my_ffi_struct_type;
47*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
48*1fd5a2e1SPrashanth Swaminathan void *code;
49*1fd5a2e1SPrashanth Swaminathan ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
50*1fd5a2e1SPrashanth Swaminathan void* args[4];
51*1fd5a2e1SPrashanth Swaminathan ffi_type* arg_types[3];
52*1fd5a2e1SPrashanth Swaminathan
53*1fd5a2e1SPrashanth Swaminathan struct my_ffi_struct g = { 1.0, 2.0, 3.0 };
54*1fd5a2e1SPrashanth Swaminathan struct my_ffi_struct f = { 1.0, 2.0, 3.0 };
55*1fd5a2e1SPrashanth Swaminathan struct my_ffi_struct res;
56*1fd5a2e1SPrashanth Swaminathan
57*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_type.size = 0;
58*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_type.alignment = 0;
59*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_type.type = FFI_TYPE_STRUCT;
60*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_type.elements = my_ffi_struct_fields;
61*1fd5a2e1SPrashanth Swaminathan
62*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_fields[0] = &ffi_type_double;
63*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_fields[1] = &ffi_type_double;
64*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_fields[2] = &ffi_type_double;
65*1fd5a2e1SPrashanth Swaminathan my_ffi_struct_fields[3] = NULL;
66*1fd5a2e1SPrashanth Swaminathan
67*1fd5a2e1SPrashanth Swaminathan arg_types[0] = &my_ffi_struct_type;
68*1fd5a2e1SPrashanth Swaminathan arg_types[1] = &my_ffi_struct_type;
69*1fd5a2e1SPrashanth Swaminathan arg_types[2] = NULL;
70*1fd5a2e1SPrashanth Swaminathan
71*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &my_ffi_struct_type,
72*1fd5a2e1SPrashanth Swaminathan arg_types) == FFI_OK);
73*1fd5a2e1SPrashanth Swaminathan
74*1fd5a2e1SPrashanth Swaminathan args[0] = &g;
75*1fd5a2e1SPrashanth Swaminathan args[1] = &f;
76*1fd5a2e1SPrashanth Swaminathan args[2] = NULL;
77*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(callee), &res, args);
78*1fd5a2e1SPrashanth Swaminathan /* { dg-output "1 2 3 1 2 3: 2 4 6" } */
79*1fd5a2e1SPrashanth Swaminathan printf("res: %g %g %g\n", res.a, res.b, res.c);
80*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\nres: 2 4 6" } */
81*1fd5a2e1SPrashanth Swaminathan
82*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_closure_loc(pcl, &cif, stub, NULL, code) == FFI_OK);
83*1fd5a2e1SPrashanth Swaminathan
84*1fd5a2e1SPrashanth Swaminathan res = ((my_ffi_struct(*)(struct my_ffi_struct, struct my_ffi_struct))(code))(g, f);
85*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\n1 2 3 1 2 3: 2 4 6" } */
86*1fd5a2e1SPrashanth Swaminathan printf("res: %g %g %g\n", res.a, res.b, res.c);
87*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\nres: 2 4 6" } */
88*1fd5a2e1SPrashanth Swaminathan
89*1fd5a2e1SPrashanth Swaminathan exit(0);;
90*1fd5a2e1SPrashanth Swaminathan }
91