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

#	count	content
1	n/a	/* Area: fp and variadics
2	n/a	Purpose: check fp inputs and returns work on variadics, even the fixed params
3	n/a	Limitations: None
4	n/a	PR: none
5	n/a	Originator: <david.gilbert@linaro.org> 2011-01-25
6	n/a
7	n/a	Intended to stress the difference in ABI on ARM vfp
8	n/a	*/
9	n/a
10	n/a	/* { dg-do run } */
11	n/a
12	n/a	#include <stdarg.h>
13	n/a
14	n/a	#include "ffitest.h"
15	n/a
16	n/a	/* prints out all the parameters, and returns the sum of them all.
17	n/a	* 'x' is the number of variadic parameters all of which are double in this test
18	n/a	*/
19	n/a	double float_va_fn(unsigned int x, double y,...)
20	n/a	{
21	n/a	double total=0.0;
22	n/a	va_list ap;
23	n/a	unsigned int i;
24	n/a
25	n/a	total+=(double)x;
26	n/a	total+=y;
27	n/a
28	n/a	printf("%u: %.1f :", x, y);
29	n/a
30	n/a	va_start(ap, y);
31	n/a	for(i=0;i<x;i++)
32	n/a	{
33	n/a	double arg=va_arg(ap, double);
34	n/a	total+=arg;
35	n/a	printf(" %d:%.1f ", i, arg);
36	n/a	}
37	n/a	va_end(ap);
38	n/a
39	n/a	printf(" total: %.1f\n", total);
40	n/a
41	n/a	return total;
42	n/a	}
43	n/a
44	n/a	int main (void)
45	n/a	{
46	n/a	ffi_cif cif;
47	n/a
48	n/a	ffi_type *arg_types[5];
49	n/a	void *values[5];
50	n/a	double doubles[5];
51	n/a	unsigned int firstarg;
52	n/a	double resfp;
53	n/a
54	n/a	/* First test, pass float_va_fn(0,2.0) - note there are no actual
55	n/a	* variadic parameters, but it's declared variadic so the ABI may be
56	n/a	* different. */
57	n/a	/* Call it statically and then via ffi */
58	n/a	resfp=float_va_fn(0,2.0);
59	n/a	/* { dg-output "0: 2.0 : total: 2.0" } */
60	n/a	printf("compiled: %.1f\n", resfp);
61	n/a	/* { dg-output "\ncompiled: 2.0" } */
62	n/a
63	n/a	arg_types[0] = &ffi_type_uint;
64	n/a	arg_types[1] = &ffi_type_double;
65	n/a	arg_types[2] = NULL;
66	n/a	CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 2, 2,
67	n/a	&ffi_type_double, arg_types) == FFI_OK);
68	n/a
69	n/a	firstarg = 0;
70	n/a	doubles[0] = 2.0;
71	n/a	values[0] = &firstarg;
72	n/a	values[1] = &doubles[0];
73	n/a	ffi_call(&cif, FFI_FN(float_va_fn), &resfp, values);
74	n/a	/* { dg-output "\n0: 2.0 : total: 2.0" } */
75	n/a	printf("ffi: %.1f\n", resfp);
76	n/a	/* { dg-output "\nffi: 2.0" } */
77	n/a
78	n/a	/* Second test, float_va_fn(2,2.0,3.0,4.0), now with variadic params */
79	n/a	/* Call it statically and then via ffi */
80	n/a	resfp=float_va_fn(2,2.0,3.0,4.0);
81	n/a	/* { dg-output "\n2: 2.0 : 0:3.0 1:4.0 total: 11.0" } */
82	n/a	printf("compiled: %.1f\n", resfp);
83	n/a	/* { dg-output "\ncompiled: 11.0" } */
84	n/a
85	n/a	arg_types[0] = &ffi_type_uint;
86	n/a	arg_types[1] = &ffi_type_double;
87	n/a	arg_types[2] = &ffi_type_double;
88	n/a	arg_types[3] = &ffi_type_double;
89	n/a	arg_types[4] = NULL;
90	n/a	CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 2, 4,
91	n/a	&ffi_type_double, arg_types) == FFI_OK);
92	n/a
93	n/a	firstarg = 2;
94	n/a	doubles[0] = 2.0;
95	n/a	doubles[1] = 3.0;
96	n/a	doubles[2] = 4.0;
97	n/a	values[0] = &firstarg;
98	n/a	values[1] = &doubles[0];
99	n/a	values[2] = &doubles[1];
100	n/a	values[3] = &doubles[2];
101	n/a	ffi_call(&cif, FFI_FN(float_va_fn), &resfp, values);
102	n/a	/* { dg-output "\n2: 2.0 : 0:3.0 1:4.0 total: 11.0" } */
103	n/a	printf("ffi: %.1f\n", resfp);
104	n/a	/* { dg-output "\nffi: 11.0" } */
105	n/a
106	n/a	exit(0);
107	n/a	}