github.com/prattmic/llgo-embedded@v0.0.0-20150820070356-41cfecea0e1e/third_party/gofrontend/libffi/testsuite/libffi.complex/complex_int.c (about)

     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  }