]>
git.ipfire.org Git - thirdparty/gcc.git/blob - libffi/testsuite/libffi.closures/stret_medium2.c
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 strongarm*-*-* xscale*-*-* } } */
10 /* { dg-options "-Wno-format" { target alpha*-dec-osf* } } */
13 typedef struct struct_72byte
{
25 static struct_72byte
cls_struct_72byte_fn(
33 result
.a
= b0
.a
+ b1
.a
+ b2
.a
+ b3
.a
;
34 result
.b
= b0
.b
+ b1
.b
+ b2
.b
+ b3
.b
;
35 result
.c
= b0
.c
+ b1
.c
+ b2
.c
+ b3
.c
;
36 result
.d
= b0
.d
+ b1
.d
+ b2
.d
+ b3
.d
;
37 result
.e
= b0
.e
+ b1
.e
+ b2
.e
+ b3
.e
;
38 result
.f
= b0
.f
+ b1
.f
+ b2
.f
+ b3
.f
;
39 result
.g
= b0
.g
+ b1
.g
+ b2
.g
+ b3
.g
;
40 result
.h
= b0
.h
+ b1
.h
+ b2
.h
+ b3
.h
;
41 result
.i
= b0
.i
+ b1
.i
+ b2
.i
+ b3
.i
;
43 printf("%g %g %g %g %g %g %g %g %" PRIdLL
"\n", result
.a
, result
.b
, result
.c
,
44 result
.d
, result
.e
, result
.f
, result
.g
, result
.h
, result
.i
);
50 cls_struct_72byte_gn(ffi_cif
* cif __UNUSED__
, void* resp
, void** args
, void* userdata __UNUSED__
)
52 struct_72byte b0
, b1
, b2
, b3
;
54 b0
= *(struct_72byte
*)(args
[0]);
55 b1
= *(struct_72byte
*)(args
[1]);
56 b2
= *(struct_72byte
*)(args
[2]);
57 b3
= *(struct_72byte
*)(args
[3]);
59 *(struct_72byte
*)resp
= cls_struct_72byte_fn(b0
, b1
, b2
, b3
);
66 ffi_closure
*pcl
= ffi_closure_alloc(sizeof(ffi_closure
), &code
);
68 ffi_type
* cls_struct_fields
[10];
69 ffi_type cls_struct_type
;
70 ffi_type
* dbl_arg_types
[5];
72 struct_72byte e_dbl
= { 9.0, 2.0, 6.0, 5.0, 3.0, 4.0, 8.0, 1.0, 7 };
73 struct_72byte f_dbl
= { 1.0, 2.0, 3.0, 7.0, 2.0, 5.0, 6.0, 7.0, 4 };
74 struct_72byte g_dbl
= { 4.0, 5.0, 7.0, 9.0, 1.0, 1.0, 2.0, 9.0, 3 };
75 struct_72byte h_dbl
= { 8.0, 6.0, 1.0, 4.0, 0.0, 3.0, 3.0, 1.0, 2 };
76 struct_72byte res_dbl
;
78 cls_struct_type
.size
= 0;
79 cls_struct_type
.alignment
= 0;
80 cls_struct_type
.type
= FFI_TYPE_STRUCT
;
81 cls_struct_type
.elements
= cls_struct_fields
;
83 cls_struct_fields
[0] = &ffi_type_double
;
84 cls_struct_fields
[1] = &ffi_type_double
;
85 cls_struct_fields
[2] = &ffi_type_double
;
86 cls_struct_fields
[3] = &ffi_type_double
;
87 cls_struct_fields
[4] = &ffi_type_double
;
88 cls_struct_fields
[5] = &ffi_type_double
;
89 cls_struct_fields
[6] = &ffi_type_double
;
90 cls_struct_fields
[7] = &ffi_type_double
;
91 cls_struct_fields
[8] = &ffi_type_sint64
;
92 cls_struct_fields
[9] = NULL
;
94 dbl_arg_types
[0] = &cls_struct_type
;
95 dbl_arg_types
[1] = &cls_struct_type
;
96 dbl_arg_types
[2] = &cls_struct_type
;
97 dbl_arg_types
[3] = &cls_struct_type
;
98 dbl_arg_types
[4] = NULL
;
100 CHECK(ffi_prep_cif(&cif
, FFI_DEFAULT_ABI
, 4, &cls_struct_type
,
101 dbl_arg_types
) == FFI_OK
);
103 args_dbl
[0] = &e_dbl
;
104 args_dbl
[1] = &f_dbl
;
105 args_dbl
[2] = &g_dbl
;
106 args_dbl
[3] = &h_dbl
;
109 ffi_call(&cif
, FFI_FN(cls_struct_72byte_fn
), &res_dbl
, args_dbl
);
110 /* { dg-output "22 15 17 25 6 13 19 18 16" } */
111 printf("res: %g %g %g %g %g %g %g %g %" PRIdLL
"\n", res_dbl
.a
, res_dbl
.b
, res_dbl
.c
,
112 res_dbl
.d
, res_dbl
.e
, res_dbl
.f
, res_dbl
.g
, res_dbl
.h
, res_dbl
.i
);
113 /* { dg-output "\nres: 22 15 17 25 6 13 19 18 16" } */
115 CHECK(ffi_prep_closure_loc(pcl
, &cif
, cls_struct_72byte_gn
, NULL
, code
) == FFI_OK
);
117 res_dbl
= ((struct_72byte(*)(struct_72byte
, struct_72byte
,
118 struct_72byte
, struct_72byte
))(code
))(e_dbl
, f_dbl
, g_dbl
, h_dbl
);
119 /* { dg-output "\n22 15 17 25 6 13 19 18 16" } */
120 printf("res: %g %g %g %g %g %g %g %g %" PRIdLL
"\n", res_dbl
.a
, res_dbl
.b
, res_dbl
.c
,
121 res_dbl
.d
, res_dbl
.e
, res_dbl
.f
, res_dbl
.g
, res_dbl
.h
, res_dbl
.i
);
122 /* { dg-output "\nres: 22 15 17 25 6 13 19 18 16" } */