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

#	count	content
1	n/a	/* Area: ffi_call, closure_call
2	n/a	Purpose: Check passing of multiple signed short/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	signed short test_func_fn(signed char a1, signed short a2,
11	n/a	signed char a3, signed short a4)
12	n/a	{
13	n/a	signed short 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	signed char a1, a3;
27	n/a	signed short a2, a4;
28	n/a
29	n/a	a1 = (signed char )avals[0];
30	n/a	a2 = (signed short )avals[1];
31	n/a	a3 = (signed char )avals[2];
32	n/a	a4 = (signed short )avals[3];
33	n/a
34	n/a	(ffi_arg )rval = test_func_fn(a1, a2, a3, a4);
35	n/a
36	n/a	}
37	n/a
38	n/a	typedef signed short (*test_type)(signed char, signed short,
39	n/a	signed char, signed short);
40	n/a
41	n/a	int main (void)
42	n/a	{
43	n/a	ffi_cif cif;
44	n/a	void *code;
45	n/a	ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
46	n/a	void * args_dbl[5];
47	n/a	ffi_type * cl_arg_types[5];
48	n/a	ffi_arg res_call;
49	n/a	signed char a, c;
50	n/a	signed short b, d, res_closure;
51	n/a
52	n/a	a = 1;
53	n/a	b = 32765;
54	n/a	c = 127;
55	n/a	d = -128;
56	n/a
57	n/a	args_dbl[0] = &a;
58	n/a	args_dbl[1] = &b;
59	n/a	args_dbl[2] = &c;
60	n/a	args_dbl[3] = &d;
61	n/a	args_dbl[4] = NULL;
62	n/a
63	n/a	cl_arg_types[0] = &ffi_type_schar;
64	n/a	cl_arg_types[1] = &ffi_type_sshort;
65	n/a	cl_arg_types[2] = &ffi_type_schar;
66	n/a	cl_arg_types[3] = &ffi_type_sshort;
67	n/a	cl_arg_types[4] = NULL;
68	n/a
69	n/a	/* Initialize the cif */
70	n/a	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
71	n/a	&ffi_type_sshort, cl_arg_types) == FFI_OK);
72	n/a
73	n/a	ffi_call(&cif, FFI_FN(test_func_fn), &res_call, args_dbl);
74	n/a	/* { dg-output "1 32765 127 -128: 32765" } */
75	n/a	printf("res: %d\n", (signed short)res_call);
76	n/a	/* { dg-output "\nres: 32765" } */
77	n/a
78	n/a	CHECK(ffi_prep_closure_loc(pcl, &cif, test_func_gn, NULL, code) == FFI_OK);
79	n/a
80	n/a	res_closure = (*((test_type)code))(1, 32765, 127, -128);
81	n/a	/* { dg-output "\n1 32765 127 -128: 32765" } */
82	n/a	printf("res: %d\n", res_closure);
83	n/a	/* { dg-output "\nres: 32765" } */
84	n/a
85	n/a	exit(0);
86	n/a	}