libffi/testsuite/libffi.complex/complex_int.c

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