1 /* Area: ffi_call, closure_call
2 Purpose: Check structure returning with different structure size.
3 Depending on the ABI. Check bigger struct which overlaps
4 the gp and fp register count on Darwin/AIX/ppc64.
7 Originator: Blake Chaffin 6/21/2007 */
9 /* { dg-do run { xfail mips*-*-* arm*-*-* strongarm*-*-* xscale*-*-* } } */
15 typedef struct struct_116byte
{
33 struct_116byte
cls_struct_116byte_fn(
39 struct_116byte result
;
41 result
.a
= b0
.a
+ b1
.a
+ b2
.a
+ b3
.a
;
42 result
.b
= b0
.b
+ b1
.b
+ b2
.b
+ b3
.b
;
43 result
.c
= b0
.c
+ b1
.c
+ b2
.c
+ b3
.c
;
44 result
.d
= b0
.d
+ b1
.d
+ b2
.d
+ b3
.d
;
45 result
.e
= b0
.e
+ b1
.e
+ b2
.e
+ b3
.e
;
46 result
.f
= b0
.f
+ b1
.f
+ b2
.f
+ b3
.f
;
47 result
.g
= b0
.g
+ b1
.g
+ b2
.g
+ b3
.g
;
48 result
.h
= b0
.h
+ b1
.h
+ b2
.h
+ b3
.h
;
49 result
.i
= b0
.i
+ b1
.i
+ b2
.i
+ b3
.i
;
50 result
.j
= b0
.j
+ b1
.j
+ b2
.j
+ b3
.j
;
51 result
.k
= b0
.k
+ b1
.k
+ b2
.k
+ b3
.k
;
52 result
.l
= b0
.l
+ b1
.l
+ b2
.l
+ b3
.l
;
53 result
.m
= b0
.m
+ b1
.m
+ b2
.m
+ b3
.m
;
54 result
.n
= b0
.n
+ b1
.n
+ b2
.n
+ b3
.n
;
55 result
.o
= b0
.o
+ b1
.o
+ b2
.o
+ b3
.o
;
57 printf("%g %g %g %g %g %g %g %g %g %g %g %g %g %g %d\n", result
.a
, result
.b
, result
.c
,
58 result
.d
, result
.e
, result
.f
, result
.g
, result
.h
, result
.i
,
59 result
.j
, result
.k
, result
.l
, result
.m
, result
.n
, result
.o
);
65 cls_struct_116byte_gn(ffi_cif
* cif __UNUSED__
, void* resp
, void** args
, void* userdata __UNUSED__
)
67 struct_116byte b0
, b1
, b2
, b3
;
69 b0
= *(struct_116byte
*)(args
[0]);
70 b1
= *(struct_116byte
*)(args
[1]);
71 b2
= *(struct_116byte
*)(args
[2]);
72 b3
= *(struct_116byte
*)(args
[3]);
74 *(struct_116byte
*)resp
= cls_struct_116byte_fn(b0
, b1
, b2
, b3
);
81 ffi_closure
*pcl
= ffi_closure_alloc(sizeof(ffi_closure
), &code
);
83 ffi_type
* cls_struct_fields
[16];
84 ffi_type cls_struct_type
;
85 ffi_type
* dbl_arg_types
[5];
87 cls_struct_type
.size
= 0;
88 cls_struct_type
.alignment
= 0;
89 cls_struct_type
.type
= FFI_TYPE_STRUCT
;
90 cls_struct_type
.elements
= cls_struct_fields
;
92 struct_116byte e_dbl
= { 9.0, 2.0, 6.0, 5.0, 3.0, 4.0, 8.0, 1.0, 1.0, 2.0, 3.0, 7.0, 2.0, 5.0, 7 };
93 struct_116byte f_dbl
= { 1.0, 2.0, 3.0, 7.0, 2.0, 5.0, 6.0, 7.0, 4.0, 5.0, 7.0, 9.0, 1.0, 6.0, 4 };
94 struct_116byte g_dbl
= { 4.0, 5.0, 7.0, 9.0, 1.0, 1.0, 2.0, 9.0, 8.0, 6.0, 1.0, 4.0, 0.0, 7.0, 3 };
95 struct_116byte h_dbl
= { 8.0, 6.0, 1.0, 4.0, 0.0, 3.0, 3.0, 1.0, 9.0, 2.0, 6.0, 5.0, 3.0, 8.0, 2 };
96 struct_116byte res_dbl
;
98 cls_struct_fields
[0] = &ffi_type_double
;
99 cls_struct_fields
[1] = &ffi_type_double
;
100 cls_struct_fields
[2] = &ffi_type_double
;
101 cls_struct_fields
[3] = &ffi_type_double
;
102 cls_struct_fields
[4] = &ffi_type_double
;
103 cls_struct_fields
[5] = &ffi_type_double
;
104 cls_struct_fields
[6] = &ffi_type_double
;
105 cls_struct_fields
[7] = &ffi_type_double
;
106 cls_struct_fields
[8] = &ffi_type_double
;
107 cls_struct_fields
[9] = &ffi_type_double
;
108 cls_struct_fields
[10] = &ffi_type_double
;
109 cls_struct_fields
[11] = &ffi_type_double
;
110 cls_struct_fields
[12] = &ffi_type_double
;
111 cls_struct_fields
[13] = &ffi_type_double
;
112 cls_struct_fields
[14] = &ffi_type_sint32
;
113 cls_struct_fields
[15] = NULL
;
115 dbl_arg_types
[0] = &cls_struct_type
;
116 dbl_arg_types
[1] = &cls_struct_type
;
117 dbl_arg_types
[2] = &cls_struct_type
;
118 dbl_arg_types
[3] = &cls_struct_type
;
119 dbl_arg_types
[4] = NULL
;
121 CHECK(ffi_prep_cif(&cif
, FFI_DEFAULT_ABI
, 4, &cls_struct_type
,
122 dbl_arg_types
) == FFI_OK
);
124 args_dbl
[0] = &e_dbl
;
125 args_dbl
[1] = &f_dbl
;
126 args_dbl
[2] = &g_dbl
;
127 args_dbl
[3] = &h_dbl
;
130 ffi_call(&cif
, FFI_FN(cls_struct_116byte_fn
), &res_dbl
, args_dbl
);
131 /* { dg-output "22 15 17 25 6 13 19 18 22 15 17 25 6 26 16" } */
132 printf("res: %g %g %g %g %g %g %g %g %g %g %g %g %g %g %d\n", res_dbl
.a
, res_dbl
.b
,
133 res_dbl
.c
, res_dbl
.d
, res_dbl
.e
, res_dbl
.f
, res_dbl
.g
, res_dbl
.h
, res_dbl
.i
,
134 res_dbl
.j
, res_dbl
.k
, res_dbl
.l
, res_dbl
.m
, res_dbl
.n
, res_dbl
.o
);
135 /* { dg-output "\nres: 22 15 17 25 6 13 19 18 22 15 17 25 6 26 16" } */
137 CHECK(ffi_prep_closure_loc(pcl
, &cif
, cls_struct_116byte_gn
, NULL
, code
) == FFI_OK
);
139 res_dbl
= ((struct_116byte(*)(struct_116byte
, struct_116byte
,
140 struct_116byte
, struct_116byte
))(code
))(e_dbl
, f_dbl
, g_dbl
, h_dbl
);
141 /* { dg-output "\n22 15 17 25 6 13 19 18 22 15 17 25 6 26 16" } */
142 printf("res: %g %g %g %g %g %g %g %g %g %g %g %g %g %g %d\n", res_dbl
.a
, res_dbl
.b
,
143 res_dbl
.c
, res_dbl
.d
, res_dbl
.e
, res_dbl
.f
, res_dbl
.g
, res_dbl
.h
, res_dbl
.i
,
144 res_dbl
.j
, res_dbl
.k
, res_dbl
.l
, res_dbl
.m
, res_dbl
.n
, res_dbl
.o
);
145 /* { dg-output "\nres: 22 15 17 25 6 13 19 18 22 15 17 25 6 26 16" } */