1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
/* Area: ffi_call
Purpose: Demonstrate structures with integers corrupting earlier floats
Limitations: none.
PR: #848
Originator: kellda */
/* { dg-do run } */
#include "ffitest.h"
typedef struct
{
unsigned long i;
float f;
} test_structure_int_float;
static float ABI_ATTR struct_int_float(test_structure_int_float ts1,
test_structure_int_float ts2 __UNUSED__,
test_structure_int_float ts3 __UNUSED__,
test_structure_int_float ts4 __UNUSED__,
test_structure_int_float ts5 __UNUSED__,
test_structure_int_float ts6 __UNUSED__)
{
return ts1.f;
}
int main (void)
{
ffi_cif cif;
ffi_type *args[MAX_ARGS];
void *values[MAX_ARGS];
ffi_type ts_type;
ffi_type *ts_type_elements[3];
float rfloat;
test_structure_int_float ts_arg[6];
ts_type.size = 0;
ts_type.alignment = 0;
ts_type.type = FFI_TYPE_STRUCT;
ts_type.elements = ts_type_elements;
ts_type_elements[0] = &ffi_type_ulong;
ts_type_elements[1] = &ffi_type_float;
ts_type_elements[2] = NULL;
args[0] = &ts_type;
values[0] = &ts_arg[0];
args[1] = &ts_type;
values[1] = &ts_arg[1];
args[2] = &ts_type;
values[2] = &ts_arg[2];
args[3] = &ts_type;
values[3] = &ts_arg[3];
args[4] = &ts_type;
values[4] = &ts_arg[4];
args[5] = &ts_type;
values[5] = &ts_arg[5];
/* Initialize the cif */
CHECK(ffi_prep_cif(&cif, ABI_NUM, 6, &ffi_type_float, args) == FFI_OK);
ts_arg[0].i = 1;
ts_arg[0].f = 11.11f;
ts_arg[1].i = 2;
ts_arg[1].f = 22.22f;
ts_arg[2].i = 3;
ts_arg[2].f = 33.33f;
ts_arg[3].i = 4;
ts_arg[3].f = 44.44f;
ts_arg[4].i = 5;
ts_arg[4].f = 55.55f;
ts_arg[5].i = 6;
ts_arg[5].f = 66.66f;
printf ("%g\n", ts_arg[0].f);
printf ("%g\n", ts_arg[1].f);
printf ("%g\n", ts_arg[2].f);
printf ("%g\n", ts_arg[3].f);
printf ("%g\n", ts_arg[4].f);
printf ("%g\n", ts_arg[5].f);
ffi_call(&cif, FFI_FN(struct_int_float), &rfloat, values);
printf ("%g\n", rfloat);
CHECK(fabs(rfloat - 11.11) < 3 * FLT_EPSILON);
exit(0);
}
|
