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

#	count	content
1	n/a	/* Area: ffi_call
2	n/a	Purpose: Check if long as return type is handled correctly.
3	n/a	Limitations: none.
4	n/a	PR: none.
5	n/a	*/
6	n/a
7	n/a	/* { dg-do run } */
8	n/a	#include "ffitest.h"
9	n/a	static long return_sl(long l1, long l2)
10	n/a	{
11	n/a	return l1 - l2;
12	n/a	}
13	n/a
14	n/a	int main (void)
15	n/a	{
16	n/a	ffi_cif cif;
17	n/a	ffi_type *args[MAX_ARGS];
18	n/a	void *values[MAX_ARGS];
19	n/a	ffi_arg res;
20	n/a	unsigned long l1, l2;
21	n/a
22	n/a	args[0] = &ffi_type_slong;
23	n/a	args[1] = &ffi_type_slong;
24	n/a	values[0] = &l1;
25	n/a	values[1] = &l2;
26	n/a
27	n/a	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2,
28	n/a	&ffi_type_slong, args) == FFI_OK);
29	n/a
30	n/a	l1 = 1073741823L;
31	n/a	l2 = 1073741824L;
32	n/a
33	n/a	ffi_call(&cif, FFI_FN(return_sl), &res, values);
34	n/a	printf("res: %ld, %ld\n", (long)res, l1 - l2);
35	n/a	/* { dg-output "res: -1, -1" } */
36	n/a
37	n/a	exit(0);
38	n/a	}