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

#	count	content
1	n/a	/* Area: ffi_call, closure_call
2	n/a	Purpose: Check passing of multiple unsigned char values.
3	n/a	Limitations: none.
4	n/a	PR: PR13221.
5	n/a	Originator: <andreast@gcc.gnu.org> 20031129 */
6	n/a
7	n/a	/* { dg-do run } */
8	n/a	#include "ffitest.h"
9	n/a
10	n/a	unsigned char test_func_fn(unsigned char a1, unsigned char a2,
11	n/a	unsigned char a3, unsigned char a4)
12	n/a	{
13	n/a	unsigned char result;
14	n/a
15	n/a	result = a1 + a2 + a3 + a4;
16	n/a
17	n/a	printf("%d %d %d %d: %d\n", a1, a2, a3, a4, result);
18	n/a
19	n/a	return result;
20	n/a
21	n/a	}
22	n/a
23	n/a	static void test_func_gn(ffi_cif cif __UNUSED__, void rval, void **avals,
24	n/a	void *data __UNUSED__)
25	n/a	{
26	n/a	unsigned char a1, a2, a3, a4;
27	n/a
28	n/a	a1 = (unsigned char )avals[0];
29	n/a	a2 = (unsigned char )avals[1];
30	n/a	a3 = (unsigned char )avals[2];
31	n/a	a4 = (unsigned char )avals[3];
32	n/a
33	n/a	(ffi_arg )rval = test_func_fn(a1, a2, a3, a4);
34	n/a
35	n/a	}
36	n/a
37	n/a	typedef unsigned char (*test_type)(unsigned char, unsigned char,
38	n/a	unsigned char, unsigned char);
39	n/a
40	n/a	void test_func(ffi_cif cif __UNUSED__, void rval __UNUSED__, void **avals,
41	n/a	void *data __UNUSED__)
42	n/a	{
43	n/a	printf("%d %d %d %d\n", (unsigned char )avals[0],
44	n/a	(unsigned char )avals[1], (unsigned char )avals[2],
45	n/a	(unsigned char )avals[3]);
46	n/a	}
47	n/a	int main (void)
48	n/a	{
49	n/a	ffi_cif cif;
50	n/a	void *code;
51	n/a	ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
52	n/a	void * args_dbl[5];
53	n/a	ffi_type * cl_arg_types[5];
54	n/a	ffi_arg res_call;
55	n/a	unsigned char a, b, c, d, res_closure;
56	n/a
57	n/a	a = 1;
58	n/a	b = 2;
59	n/a	c = 127;
60	n/a	d = 125;
61	n/a
62	n/a	args_dbl[0] = &a;
63	n/a	args_dbl[1] = &b;
64	n/a	args_dbl[2] = &c;
65	n/a	args_dbl[3] = &d;
66	n/a	args_dbl[4] = NULL;
67	n/a
68	n/a	cl_arg_types[0] = &ffi_type_uchar;
69	n/a	cl_arg_types[1] = &ffi_type_uchar;
70	n/a	cl_arg_types[2] = &ffi_type_uchar;
71	n/a	cl_arg_types[3] = &ffi_type_uchar;
72	n/a	cl_arg_types[4] = NULL;
73	n/a
74	n/a	/* Initialize the cif */
75	n/a	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
76	n/a	&ffi_type_uchar, cl_arg_types) == FFI_OK);
77	n/a
78	n/a	ffi_call(&cif, FFI_FN(test_func_fn), &res_call, args_dbl);
79	n/a	/* { dg-output "1 2 127 125: 255" } */
80	n/a	printf("res: %d\n", (unsigned char)res_call);
81	n/a	/* { dg-output "\nres: 255" } */
82	n/a
83	n/a	CHECK(ffi_prep_closure_loc(pcl, &cif, test_func_gn, NULL, code) == FFI_OK);
84	n/a
85	n/a	res_closure = (*((test_type)code))(1, 2, 127, 125);
86	n/a	/* { dg-output "\n1 2 127 125: 255" } */
87	n/a	printf("res: %d\n", res_closure);
88	n/a	/* { dg-output "\nres: 255" } */
89	n/a
90	n/a	exit(0);
91	n/a	}