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

#	count	content
1	n/a	/* Area: ffi_call, closure_call
2	n/a	Purpose: Test doubles passed in variable argument lists.
3	n/a	Limitations: none.
4	n/a	PR: none.
5	n/a	Originator: Blake Chaffin 6/6/2007 */
6	n/a
7	n/a	/* { dg-do run } */
8	n/a	/* { dg-output "" { xfail avr32--* } } */
9	n/a	#include "ffitest.h"
10	n/a
11	n/a	struct small_tag
12	n/a	{
13	n/a	unsigned char a;
14	n/a	unsigned char b;
15	n/a	};
16	n/a
17	n/a	struct large_tag
18	n/a	{
19	n/a	unsigned a;
20	n/a	unsigned b;
21	n/a	unsigned c;
22	n/a	unsigned d;
23	n/a	unsigned e;
24	n/a	};
25	n/a
26	n/a	static void
27	n/a	test_fn (ffi_cif* cif __UNUSED__, void* resp,
28	n/a	void** args, void* userdata __UNUSED__)
29	n/a	{
30	n/a	int n = (int)args[0];
31	n/a	struct small_tag s1 = * (struct small_tag *) args[1];
32	n/a	struct large_tag l1 = * (struct large_tag *) args[2];
33	n/a	struct small_tag s2 = * (struct small_tag *) args[3];
34	n/a
35	n/a	printf ("%d %d %d %d %d %d %d %d %d %d\n", n, s1.a, s1.b,
36	n/a	l1.a, l1.b, l1.c, l1.d, l1.e,
37	n/a	s2.a, s2.b);
38	n/a	* (ffi_arg*) resp = 42;
39	n/a	}
40	n/a
41	n/a	int
42	n/a	main (void)
43	n/a	{
44	n/a	ffi_cif cif;
45	n/a	void *code;
46	n/a	ffi_closure *pcl = ffi_closure_alloc (sizeof (ffi_closure), &code);
47	n/a	ffi_type* arg_types[5];
48	n/a
49	n/a	ffi_arg res = 0;
50	n/a
51	n/a	ffi_type s_type;
52	n/a	ffi_type *s_type_elements[3];
53	n/a
54	n/a	ffi_type l_type;
55	n/a	ffi_type *l_type_elements[6];
56	n/a
57	n/a	struct small_tag s1;
58	n/a	struct small_tag s2;
59	n/a	struct large_tag l1;
60	n/a
61	n/a	int si;
62	n/a
63	n/a	s_type.size = 0;
64	n/a	s_type.alignment = 0;
65	n/a	s_type.type = FFI_TYPE_STRUCT;
66	n/a	s_type.elements = s_type_elements;
67	n/a
68	n/a	s_type_elements[0] = &ffi_type_uchar;
69	n/a	s_type_elements[1] = &ffi_type_uchar;
70	n/a	s_type_elements[2] = NULL;
71	n/a
72	n/a	l_type.size = 0;
73	n/a	l_type.alignment = 0;
74	n/a	l_type.type = FFI_TYPE_STRUCT;
75	n/a	l_type.elements = l_type_elements;
76	n/a
77	n/a	l_type_elements[0] = &ffi_type_uint;
78	n/a	l_type_elements[1] = &ffi_type_uint;
79	n/a	l_type_elements[2] = &ffi_type_uint;
80	n/a	l_type_elements[3] = &ffi_type_uint;
81	n/a	l_type_elements[4] = &ffi_type_uint;
82	n/a	l_type_elements[5] = NULL;
83	n/a
84	n/a	arg_types[0] = &ffi_type_sint;
85	n/a	arg_types[1] = &s_type;
86	n/a	arg_types[2] = &l_type;
87	n/a	arg_types[3] = &s_type;
88	n/a	arg_types[4] = NULL;
89	n/a
90	n/a	CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 4, &ffi_type_sint,
91	n/a	arg_types) == FFI_OK);
92	n/a
93	n/a	si = 4;
94	n/a	s1.a = 5;
95	n/a	s1.b = 6;
96	n/a
97	n/a	s2.a = 20;
98	n/a	s2.b = 21;
99	n/a
100	n/a	l1.a = 10;
101	n/a	l1.b = 11;
102	n/a	l1.c = 12;
103	n/a	l1.d = 13;
104	n/a	l1.e = 14;
105	n/a
106	n/a	CHECK(ffi_prep_closure_loc(pcl, &cif, test_fn, NULL, code) == FFI_OK);
107	n/a
108	n/a	res = ((int (*)(int, ...))(code))(si, s1, l1, s2);
109	n/a	/* { dg-output "4 5 6 10 11 12 13 14 20 21" } */
110	n/a	printf("res: %d\n", (int) res);
111	n/a	/* { dg-output "\nres: 42" } */
112	n/a
113	n/a	exit(0);
114	n/a	}