Python code coverage for Modules/_ctypes/libffi/testsuite/libffi.call/pyobjc-tc.c

#	count	content
1	n/a	/* Area: ffi_call
2	n/a	Purpose: Check different structures.
3	n/a	Limitations: none.
4	n/a	PR: none.
5	n/a	Originator: Ronald Oussoren <oussoren@cistron.nl> 20030824 */
6	n/a
7	n/a	/* { dg-do run } */
8	n/a	#include "ffitest.h"
9	n/a
10	n/a	typedef struct Point {
11	n/a	float x;
12	n/a	float y;
13	n/a	} Point;
14	n/a
15	n/a	typedef struct Size {
16	n/a	float h;
17	n/a	float w;
18	n/a	} Size;
19	n/a
20	n/a	typedef struct Rect {
21	n/a	Point o;
22	n/a	Size s;
23	n/a	} Rect;
24	n/a
25	n/a	int doit(int o, char* s, Point p, Rect r, int last)
26	n/a	{
27	n/a	printf("CALLED WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
28	n/a	o, s, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, last);
29	n/a	return 42;
30	n/a	}
31	n/a
32	n/a
33	n/a	int main(void)
34	n/a	{
35	n/a	ffi_type point_type;
36	n/a	ffi_type size_type;
37	n/a	ffi_type rect_type;
38	n/a	ffi_cif cif;
39	n/a	ffi_type* arglist[6];
40	n/a	void* values[6];
41	n/a	int r;
42	n/a
43	n/a	/*
44	n/a	* First set up FFI types for the 3 struct types
45	n/a	*/
46	n/a
47	n/a	point_type.size = 0; /sizeof(Point);/
48	n/a	point_type.alignment = 0; /__alignof__(Point);/
49	n/a	point_type.type = FFI_TYPE_STRUCT;
50	n/a	point_type.elements = malloc(3 * sizeof(ffi_type*));
51	n/a	point_type.elements[0] = &ffi_type_float;
52	n/a	point_type.elements[1] = &ffi_type_float;
53	n/a	point_type.elements[2] = NULL;
54	n/a
55	n/a	size_type.size = 0;/* sizeof(Size);*/
56	n/a	size_type.alignment = 0;/* __alignof__(Size);*/
57	n/a	size_type.type = FFI_TYPE_STRUCT;
58	n/a	size_type.elements = malloc(3 * sizeof(ffi_type*));
59	n/a	size_type.elements[0] = &ffi_type_float;
60	n/a	size_type.elements[1] = &ffi_type_float;
61	n/a	size_type.elements[2] = NULL;
62	n/a
63	n/a	rect_type.size = 0;/sizeof(Rect);/
64	n/a	rect_type.alignment =0;/* __alignof__(Rect);*/
65	n/a	rect_type.type = FFI_TYPE_STRUCT;
66	n/a	rect_type.elements = malloc(3 * sizeof(ffi_type*));
67	n/a	rect_type.elements[0] = &point_type;
68	n/a	rect_type.elements[1] = &size_type;
69	n/a	rect_type.elements[2] = NULL;
70	n/a
71	n/a	/*
72	n/a	* Create a CIF
73	n/a	*/
74	n/a	arglist[0] = &ffi_type_sint;
75	n/a	arglist[1] = &ffi_type_pointer;
76	n/a	arglist[2] = &point_type;
77	n/a	arglist[3] = &rect_type;
78	n/a	arglist[4] = &ffi_type_sint;
79	n/a	arglist[5] = NULL;
80	n/a
81	n/a	r = ffi_prep_cif(&cif, FFI_DEFAULT_ABI,
82	n/a	5, &ffi_type_sint, arglist);
83	n/a	if (r != FFI_OK) {
84	n/a	abort();
85	n/a	}
86	n/a
87	n/a
88	n/a	/* And call the function through the CIF */
89	n/a
90	n/a	{
91	n/a	Point p = { 1.0, 2.0 };
92	n/a	Rect r = { { 9.0, 10.0}, { -1.0, -2.0 } };
93	n/a	int o = 0;
94	n/a	int l = 42;
95	n/a	char* m = "myMethod";
96	n/a	ffi_arg result;
97	n/a
98	n/a	values[0] = &o;
99	n/a	values[1] = &m;
100	n/a	values[2] = &p;
101	n/a	values[3] = &r;
102	n/a	values[4] = &l;
103	n/a	values[5] = NULL;
104	n/a
105	n/a	printf("CALLING WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
106	n/a	o, m, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, l);
107	n/a
108	n/a	ffi_call(&cif, FFI_FN(doit), &result, values);
109	n/a
110	n/a	printf ("The result is %d\n", (int)result);
111	n/a
112	n/a	}
113	n/a	exit(0);
114	n/a	}