ยปCore Development>Code coverage>Modules/_ctypes/libffi/testsuite/libffi.call/cls_3_1byte.c

Python code coverage for Modules/_ctypes/libffi/testsuite/libffi.call/cls_3_1byte.c

#countcontent
1n/a/* Area: ffi_call, closure_call
2n/a Purpose: Check structure passing with different structure size.
3n/a Especially with small structures which may fit in one
4n/a register. Depending on the ABI.
5n/a Limitations: none.
6n/a PR: none.
7n/a Originator: <andreast@gcc.gnu.org> 20030902 */
8n/a
9n/a/* { dg-do run } */
10n/a#include "ffitest.h"
11n/a
12n/atypedef struct cls_struct_3_1byte {
13n/a unsigned char a;
14n/a unsigned char b;
15n/a unsigned char c;
16n/a} cls_struct_3_1byte;
17n/a
18n/acls_struct_3_1byte cls_struct_3_1byte_fn(struct cls_struct_3_1byte a1,
19n/a struct cls_struct_3_1byte a2)
20n/a{
21n/a struct cls_struct_3_1byte result;
22n/a
23n/a result.a = a1.a + a2.a;
24n/a result.b = a1.b + a2.b;
25n/a result.c = a1.c + a2.c;
26n/a
27n/a printf("%d %d %d %d %d %d: %d %d %d\n", a1.a, a1.b, a1.c,
28n/a a2.a, a2.b, a2.c,
29n/a result.a, result.b, result.c);
30n/a
31n/a return result;
32n/a}
33n/a
34n/astatic void
35n/acls_struct_3_1byte_gn(ffi_cif* cif __UNUSED__, void* resp, void** args,
36n/a void* userdata __UNUSED__)
37n/a{
38n/a
39n/a struct cls_struct_3_1byte a1, a2;
40n/a
41n/a a1 = *(struct cls_struct_3_1byte*)(args[0]);
42n/a a2 = *(struct cls_struct_3_1byte*)(args[1]);
43n/a
44n/a *(cls_struct_3_1byte*)resp = cls_struct_3_1byte_fn(a1, a2);
45n/a}
46n/a
47n/aint main (void)
48n/a{
49n/a ffi_cif cif;
50n/a void *code;
51n/a ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
52n/a void* args_dbl[5];
53n/a ffi_type* cls_struct_fields[4];
54n/a ffi_type cls_struct_type;
55n/a ffi_type* dbl_arg_types[5];
56n/a
57n/a struct cls_struct_3_1byte g_dbl = { 12, 13, 14 };
58n/a struct cls_struct_3_1byte f_dbl = { 178, 179, 180 };
59n/a struct cls_struct_3_1byte res_dbl;
60n/a
61n/a cls_struct_type.size = 0;
62n/a cls_struct_type.alignment = 0;
63n/a cls_struct_type.type = FFI_TYPE_STRUCT;
64n/a cls_struct_type.elements = cls_struct_fields;
65n/a
66n/a cls_struct_fields[0] = &ffi_type_uchar;
67n/a cls_struct_fields[1] = &ffi_type_uchar;
68n/a cls_struct_fields[2] = &ffi_type_uchar;
69n/a cls_struct_fields[3] = NULL;
70n/a
71n/a dbl_arg_types[0] = &cls_struct_type;
72n/a dbl_arg_types[1] = &cls_struct_type;
73n/a dbl_arg_types[2] = NULL;
74n/a
75n/a CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type,
76n/a dbl_arg_types) == FFI_OK);
77n/a
78n/a args_dbl[0] = &g_dbl;
79n/a args_dbl[1] = &f_dbl;
80n/a args_dbl[2] = NULL;
81n/a
82n/a ffi_call(&cif, FFI_FN(cls_struct_3_1byte_fn), &res_dbl, args_dbl);
83n/a /* { dg-output "12 13 14 178 179 180: 190 192 194" } */
84n/a printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
85n/a /* { dg-output "\nres: 190 192 194" } */
86n/a
87n/a CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_3_1byte_gn, NULL, code) == FFI_OK);
88n/a
89n/a res_dbl = ((cls_struct_3_1byte(*)(cls_struct_3_1byte, cls_struct_3_1byte))(code))(g_dbl, f_dbl);
90n/a /* { dg-output "\n12 13 14 178 179 180: 190 192 194" } */
91n/a printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
92n/a /* { dg-output "\nres: 190 192 194" } */
93n/a
94n/a exit(0);
95n/a}