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
|
/* Area: ffi_call
Purpose: Check non-standard complex types.
Limitations: none.
PR: none.
Originator: <vogt@linux.vnet.ibm.com>. */
/* { dg-do run } */
#include "ffitest.h"
#include "ffi.h"
#include <complex.h>
_Complex int f_complex(_Complex int c, int x, int *py)
{
__real__ c = -2 * __real__ c;
__imag__ c = __imag__ c + 1;
*py += x;
return c;
}
/*
* This macro can be used to define new complex type descriptors
* in a platform independent way.
*
* name: Name of the new descriptor is ffi_type_complex_<name>.
* type: The C base type of the complex type.
*/
#define FFI_COMPLEX_TYPEDEF(name, type, ffitype) \
static ffi_type *ffi_elements_complex_##name [2] = { \
(ffi_type *)(&ffitype), NULL \
}; \
struct struct_align_complex_##name { \
char c; \
_Complex type x; \
}; \
ffi_type ffi_type_complex_##name = { \
sizeof(_Complex type), \
offsetof(struct struct_align_complex_##name, x), \
FFI_TYPE_COMPLEX, \
(ffi_type **)ffi_elements_complex_##name \
}
/* Define new complex type descriptors using the macro: */
/* ffi_type_complex_sint */
FFI_COMPLEX_TYPEDEF(sint, int, ffi_type_sint);
/* ffi_type_complex_uchar */
FFI_COMPLEX_TYPEDEF(uchar, unsigned char, ffi_type_uint8);
int main (void)
{
ffi_cif cif;
ffi_type *args[MAX_ARGS];
void *values[MAX_ARGS];
_Complex int tc_arg;
_Complex int tc_result;
int tc_int_arg_x;
int tc_y;
int *tc_ptr_arg_y = &tc_y;
args[0] = &ffi_type_complex_sint;
args[1] = &ffi_type_sint;
args[2] = &ffi_type_pointer;
values[0] = &tc_arg;
values[1] = &tc_int_arg_x;
values[2] = &tc_ptr_arg_y;
/* Initialize the cif */
CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, &ffi_type_complex_sint, args)
== FFI_OK);
tc_arg = 1 + 7 * I;
tc_int_arg_x = 1234;
tc_y = 9876;
ffi_call(&cif, FFI_FN(f_complex), &tc_result, values);
printf ("%d,%di %d,%di, x %d 1234, y %d 11110\n",
(int)tc_result, (int)(tc_result * -I), 2, 8, tc_int_arg_x, tc_y);
/* dg-output "-2,8i 2,8i, x 1234 1234, y 11110 11110" */
CHECK (creal (tc_result) == -2);
CHECK (cimag (tc_result) == 8);
CHECK (tc_int_arg_x == 1234);
CHECK (*tc_ptr_arg_y == 11110);
exit(0);
}
|
