1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check non-standard complex types.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: <[email protected]>. */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
8*1fd5a2e1SPrashanth Swaminathan
9*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
10*1fd5a2e1SPrashanth Swaminathan #include "ffi.h"
11*1fd5a2e1SPrashanth Swaminathan #include <complex.h>
12*1fd5a2e1SPrashanth Swaminathan
f_complex(_Complex int c,int x,int * py)13*1fd5a2e1SPrashanth Swaminathan _Complex int f_complex(_Complex int c, int x, int *py)
14*1fd5a2e1SPrashanth Swaminathan {
15*1fd5a2e1SPrashanth Swaminathan c = -(2 * creal (c)) + (cimag (c) + 1)* I;
16*1fd5a2e1SPrashanth Swaminathan *py += x;
17*1fd5a2e1SPrashanth Swaminathan
18*1fd5a2e1SPrashanth Swaminathan return c;
19*1fd5a2e1SPrashanth Swaminathan }
20*1fd5a2e1SPrashanth Swaminathan
21*1fd5a2e1SPrashanth Swaminathan /*
22*1fd5a2e1SPrashanth Swaminathan * This macro can be used to define new complex type descriptors
23*1fd5a2e1SPrashanth Swaminathan * in a platform independent way.
24*1fd5a2e1SPrashanth Swaminathan *
25*1fd5a2e1SPrashanth Swaminathan * name: Name of the new descriptor is ffi_type_complex_<name>.
26*1fd5a2e1SPrashanth Swaminathan * type: The C base type of the complex type.
27*1fd5a2e1SPrashanth Swaminathan */
28*1fd5a2e1SPrashanth Swaminathan #define FFI_COMPLEX_TYPEDEF(name, type, ffitype) \
29*1fd5a2e1SPrashanth Swaminathan static ffi_type *ffi_elements_complex_##name [2] = { \
30*1fd5a2e1SPrashanth Swaminathan (ffi_type *)(&ffitype), NULL \
31*1fd5a2e1SPrashanth Swaminathan }; \
32*1fd5a2e1SPrashanth Swaminathan struct struct_align_complex_##name { \
33*1fd5a2e1SPrashanth Swaminathan char c; \
34*1fd5a2e1SPrashanth Swaminathan _Complex type x; \
35*1fd5a2e1SPrashanth Swaminathan }; \
36*1fd5a2e1SPrashanth Swaminathan ffi_type ffi_type_complex_##name = { \
37*1fd5a2e1SPrashanth Swaminathan sizeof(_Complex type), \
38*1fd5a2e1SPrashanth Swaminathan offsetof(struct struct_align_complex_##name, x), \
39*1fd5a2e1SPrashanth Swaminathan FFI_TYPE_COMPLEX, \
40*1fd5a2e1SPrashanth Swaminathan (ffi_type **)ffi_elements_complex_##name \
41*1fd5a2e1SPrashanth Swaminathan }
42*1fd5a2e1SPrashanth Swaminathan
43*1fd5a2e1SPrashanth Swaminathan /* Define new complex type descriptors using the macro: */
44*1fd5a2e1SPrashanth Swaminathan /* ffi_type_complex_sint */
45*1fd5a2e1SPrashanth Swaminathan FFI_COMPLEX_TYPEDEF(sint, int, ffi_type_sint);
46*1fd5a2e1SPrashanth Swaminathan /* ffi_type_complex_uchar */
47*1fd5a2e1SPrashanth Swaminathan FFI_COMPLEX_TYPEDEF(uchar, unsigned char, ffi_type_uint8);
48*1fd5a2e1SPrashanth Swaminathan
main(void)49*1fd5a2e1SPrashanth Swaminathan int main (void)
50*1fd5a2e1SPrashanth Swaminathan {
51*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
52*1fd5a2e1SPrashanth Swaminathan ffi_type *args[MAX_ARGS];
53*1fd5a2e1SPrashanth Swaminathan void *values[MAX_ARGS];
54*1fd5a2e1SPrashanth Swaminathan
55*1fd5a2e1SPrashanth Swaminathan _Complex int tc_arg;
56*1fd5a2e1SPrashanth Swaminathan _Complex int tc_result;
57*1fd5a2e1SPrashanth Swaminathan int tc_int_arg_x;
58*1fd5a2e1SPrashanth Swaminathan int tc_y;
59*1fd5a2e1SPrashanth Swaminathan int *tc_ptr_arg_y = &tc_y;
60*1fd5a2e1SPrashanth Swaminathan
61*1fd5a2e1SPrashanth Swaminathan args[0] = &ffi_type_complex_sint;
62*1fd5a2e1SPrashanth Swaminathan args[1] = &ffi_type_sint;
63*1fd5a2e1SPrashanth Swaminathan args[2] = &ffi_type_pointer;
64*1fd5a2e1SPrashanth Swaminathan values[0] = &tc_arg;
65*1fd5a2e1SPrashanth Swaminathan values[1] = &tc_int_arg_x;
66*1fd5a2e1SPrashanth Swaminathan values[2] = &tc_ptr_arg_y;
67*1fd5a2e1SPrashanth Swaminathan
68*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
69*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, &ffi_type_complex_sint, args)
70*1fd5a2e1SPrashanth Swaminathan == FFI_OK);
71*1fd5a2e1SPrashanth Swaminathan
72*1fd5a2e1SPrashanth Swaminathan tc_arg = 1 + 7 * I;
73*1fd5a2e1SPrashanth Swaminathan tc_int_arg_x = 1234;
74*1fd5a2e1SPrashanth Swaminathan tc_y = 9876;
75*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(f_complex), &tc_result, values);
76*1fd5a2e1SPrashanth Swaminathan
77*1fd5a2e1SPrashanth Swaminathan printf ("%d,%di %d,%di, x %d 1234, y %d 11110\n",
78*1fd5a2e1SPrashanth Swaminathan (int)tc_result, (int)(tc_result * -I), 2, 8, tc_int_arg_x, tc_y);
79*1fd5a2e1SPrashanth Swaminathan /* dg-output "-2,8i 2,8i, x 1234 1234, y 11110 11110" */
80*1fd5a2e1SPrashanth Swaminathan CHECK (creal (tc_result) == -2);
81*1fd5a2e1SPrashanth Swaminathan CHECK (cimag (tc_result) == 8);
82*1fd5a2e1SPrashanth Swaminathan CHECK (tc_int_arg_x == 1234);
83*1fd5a2e1SPrashanth Swaminathan CHECK (*tc_ptr_arg_y == 11110);
84*1fd5a2e1SPrashanth Swaminathan
85*1fd5a2e1SPrashanth Swaminathan exit(0);
86*1fd5a2e1SPrashanth Swaminathan }
87