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

#	count	content
1	n/a	/* Area: closure_call
2	n/a	Purpose: Check multiple long long values passing.
3	n/a	Exceed the limit of gpr registers on PowerPC
4	n/a	Darwin.
5	n/a	Limitations: none.
6	n/a	PR: none.
7	n/a	Originator: <andreast@gcc.gnu.org> 20031026 */
8	n/a
9	n/a	/* { dg-do run } */
10	n/a	#include "ffitest.h"
11	n/a
12	n/a	static void
13	n/a	closure_test_fn5(ffi_cif* cif __UNUSED__, void* resp, void** args,
14	n/a	void* userdata)
15	n/a	{
16	n/a	(ffi_arg)resp =
17	n/a	(int)(unsigned long long )args[0] + (int)(unsigned long long )args[1] +
18	n/a	(int)(unsigned long long )args[2] + (int)(unsigned long long )args[3] +
19	n/a	(int)(unsigned long long )args[4] + (int)(unsigned long long )args[5] +
20	n/a	(int)(unsigned long long )args[6] + (int)(unsigned long long )args[7] +
21	n/a	(int)(unsigned long long )args[8] + (int)(unsigned long long )args[9] +
22	n/a	(int)(int )args[10] +
23	n/a	(int)(unsigned long long )args[11] +
24	n/a	(int)(unsigned long long )args[12] +
25	n/a	(int)(unsigned long long )args[13] +
26	n/a	(int)(unsigned long long )args[14] +
27	n/a	(int )args[15] + (intptr_t)userdata;
28	n/a
29	n/a	printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d: %d\n",
30	n/a	(int)(unsigned long long )args[0],
31	n/a	(int)(unsigned long long )args[1],
32	n/a	(int)(unsigned long long )args[2],
33	n/a	(int)(unsigned long long )args[3],
34	n/a	(int)(unsigned long long )args[4],
35	n/a	(int)(unsigned long long )args[5],
36	n/a	(int)(unsigned long long )args[6],
37	n/a	(int)(unsigned long long )args[7],
38	n/a	(int)(unsigned long long )args[8],
39	n/a	(int)(unsigned long long )args[9],
40	n/a	(int)(int )args[10],
41	n/a	(int)(unsigned long long )args[11],
42	n/a	(int)(unsigned long long )args[12],
43	n/a	(int)(unsigned long long )args[13],
44	n/a	(int)(unsigned long long )args[14],
45	n/a	(int )args[15],
46	n/a	(int)(intptr_t)userdata, (int)(ffi_arg )resp);
47	n/a
48	n/a	}
49	n/a
50	n/a	typedef int (*closure_test_type0)(unsigned long long, unsigned long long,
51	n/a	unsigned long long, unsigned long long,
52	n/a	unsigned long long, unsigned long long,
53	n/a	unsigned long long, unsigned long long,
54	n/a	unsigned long long, unsigned long long,
55	n/a	int, unsigned long long,
56	n/a	unsigned long long, unsigned long long,
57	n/a	unsigned long long, int);
58	n/a
59	n/a	int main (void)
60	n/a	{
61	n/a	ffi_cif cif;
62	n/a	void *code;
63	n/a	ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
64	n/a	ffi_type * cl_arg_types[17];
65	n/a	int i, res;
66	n/a
67	n/a	for (i = 0; i < 10; i++) {
68	n/a	cl_arg_types[i] = &ffi_type_uint64;
69	n/a	}
70	n/a	cl_arg_types[10] = &ffi_type_sint;
71	n/a	for (i = 11; i < 15; i++) {
72	n/a	cl_arg_types[i] = &ffi_type_uint64;
73	n/a	}
74	n/a	cl_arg_types[15] = &ffi_type_sint;
75	n/a	cl_arg_types[16] = NULL;
76	n/a
77	n/a	/* Initialize the cif */
78	n/a	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 16,
79	n/a	&ffi_type_sint, cl_arg_types) == FFI_OK);
80	n/a
81	n/a	CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_fn5,
82	n/a	(void ) 3 / userdata */, code) == FFI_OK);
83	n/a
84	n/a	res = (*((closure_test_type0)code))
85	n/a	(1LL, 2LL, 3LL, 4LL, 127LL, 429LL, 7LL, 8LL, 9LL, 10LL, 11, 12LL,
86	n/a	13LL, 19LL, 21LL, 1);
87	n/a	/* { dg-output "1 2 3 4 127 429 7 8 9 10 11 12 13 19 21 1 3: 680" } */
88	n/a	printf("res: %d\n",res);
89	n/a	/* { dg-output "\nres: 680" } */
90	n/a
91	n/a	exit(0);
92	n/a	}