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

#	count	content
1	n/a	/* Area: ffi_call, closure_call
2	n/a	Purpose: Check long double arguments.
3	n/a	Limitations: none.
4	n/a	PR: none.
5	n/a	Originator: Blake Chaffin */
6	n/a
7	n/a	/* { dg-excess-errors "no long double format" { xfail x86_64--mingw x86_64--cygwin } } */
8	n/a	/* This test is known to PASS on armv7l-unknown-linux-gnueabihf, so I have
9	n/a	remove the xfail for arm--* below, until we know more. */
10	n/a	/* { dg-do run { xfail strongarm--* xscale--* } } */
11	n/a	/* { dg-options -mlong-double-128 { target powerpc64--linux* } } */
12	n/a	/* { dg-output "" { xfail x86_64--mingw x86_64--cygwin } } */
13	n/a
14	n/a	#include "ffitest.h"
15	n/a
16	n/a	long double cls_ldouble_fn(
17	n/a	long double a1,
18	n/a	long double a2,
19	n/a	long double a3,
20	n/a	long double a4,
21	n/a	long double a5,
22	n/a	long double a6,
23	n/a	long double a7,
24	n/a	long double a8)
25	n/a	{
26	n/a	long double r = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8;
27	n/a
28	n/a	printf("%Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg: %Lg\n",
29	n/a	a1, a2, a3, a4, a5, a6, a7, a8, r);
30	n/a
31	n/a	return r;
32	n/a	}
33	n/a
34	n/a	static void
35	n/a	cls_ldouble_gn(ffi_cif* cif __UNUSED__, void* resp,
36	n/a	void** args, void* userdata __UNUSED__)
37	n/a	{
38	n/a	long double a1 = (long double)args[0];
39	n/a	long double a2 = (long double)args[1];
40	n/a	long double a3 = (long double)args[2];
41	n/a	long double a4 = (long double)args[3];
42	n/a	long double a5 = (long double)args[4];
43	n/a	long double a6 = (long double)args[5];
44	n/a	long double a7 = (long double)args[6];
45	n/a	long double a8 = (long double)args[7];
46	n/a
47	n/a	(long double)resp = cls_ldouble_fn(
48	n/a	a1, a2, a3, a4, a5, a6, a7, a8);
49	n/a	}
50	n/a
51	n/a	int main(void)
52	n/a	{
53	n/a	ffi_cif cif;
54	n/a	void* code;
55	n/a	ffi_closure* pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
56	n/a	void* args[9];
57	n/a	ffi_type* arg_types[9];
58	n/a	long double res = 0;
59	n/a
60	n/a	long double arg1 = 1;
61	n/a	long double arg2 = 2;
62	n/a	long double arg3 = 3;
63	n/a	long double arg4 = 4;
64	n/a	long double arg5 = 5;
65	n/a	long double arg6 = 6;
66	n/a	long double arg7 = 7;
67	n/a	long double arg8 = 8;
68	n/a
69	n/a	arg_types[0] = &ffi_type_longdouble;
70	n/a	arg_types[1] = &ffi_type_longdouble;
71	n/a	arg_types[2] = &ffi_type_longdouble;
72	n/a	arg_types[3] = &ffi_type_longdouble;
73	n/a	arg_types[4] = &ffi_type_longdouble;
74	n/a	arg_types[5] = &ffi_type_longdouble;
75	n/a	arg_types[6] = &ffi_type_longdouble;
76	n/a	arg_types[7] = &ffi_type_longdouble;
77	n/a	arg_types[8] = NULL;
78	n/a
79	n/a	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 8, &ffi_type_longdouble,
80	n/a	arg_types) == FFI_OK);
81	n/a
82	n/a	args[0] = &arg1;
83	n/a	args[1] = &arg2;
84	n/a	args[2] = &arg3;
85	n/a	args[3] = &arg4;
86	n/a	args[4] = &arg5;
87	n/a	args[5] = &arg6;
88	n/a	args[6] = &arg7;
89	n/a	args[7] = &arg8;
90	n/a	args[8] = NULL;
91	n/a
92	n/a	ffi_call(&cif, FFI_FN(cls_ldouble_fn), &res, args);
93	n/a	/* { dg-output "1 2 3 4 5 6 7 8: 36" } */
94	n/a	printf("res: %Lg\n", res);
95	n/a	/* { dg-output "\nres: 36" } */
96	n/a
97	n/a	CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ldouble_gn, NULL, code) == FFI_OK);
98	n/a
99	n/a	res = ((long double(*)(long double, long double, long double, long double,
100	n/a	long double, long double, long double, long double))(code))(arg1, arg2,
101	n/a	arg3, arg4, arg5, arg6, arg7, arg8);
102	n/a	/* { dg-output "\n1 2 3 4 5 6 7 8: 36" } */
103	n/a	printf("res: %Lg\n", res);
104	n/a	/* { dg-output "\nres: 36" } */
105	n/a
106	n/a	return 0;
107	n/a	}