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

     1  /* -*-c-*- */
     2  #include "ffitest.h"
     3  #include <stdio.h>
     4  #include <stdlib.h>
     5  #include <stdarg.h>
     6  #include <complex.h>
     7  
     8  static _Complex T_C_TYPE gComplexValue1 = 1 + 2 * I;
     9  static _Complex T_C_TYPE gComplexValue2 = 3 + 4 * I;
    10  
    11  static int cls_variadic(const char *format, ...)
    12  {
    13    va_list ap;
    14    _Complex T_C_TYPE p1, p2;
    15  
    16    va_start (ap, format);
    17    p1 = va_arg (ap, _Complex T_C_TYPE);
    18    p2 = va_arg (ap, _Complex T_C_TYPE);
    19    va_end (ap);
    20  
    21    return printf(format, T_CONV creal (p1), T_CONV cimag (p1),
    22  		T_CONV creal (p2), T_CONV cimag (p2));
    23  }
    24  
    25  static void
    26  cls_complex_va_fn(ffi_cif* cif __UNUSED__, void* resp,
    27  		  void** args, void* userdata __UNUSED__)
    28  {
    29    char*	format = *(char**)args[0];
    30    gComplexValue1 = *(_Complex T_C_TYPE*)args[1];
    31    gComplexValue2 = *(_Complex T_C_TYPE*)args[2];
    32  
    33    *(ffi_arg*)resp =
    34      printf(format,
    35  	   T_CONV creal (gComplexValue1), T_CONV cimag (gComplexValue1),
    36  	   T_CONV creal (gComplexValue2), T_CONV cimag (gComplexValue2));
    37  }
    38  
    39  int main (void)
    40  {
    41    ffi_cif cif;
    42    void *code;
    43    ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
    44    void* args[4];
    45    ffi_type* arg_types[4];
    46    char *format = "%.1f,%.1fi %.1f,%.1fi\n";
    47  
    48    _Complex T_C_TYPE complexArg1 = 1.0 + 22.0 *I;
    49    _Complex T_C_TYPE complexArg2 = 333.0 + 4444.0 *I;
    50    ffi_arg res = 0;
    51  
    52    arg_types[0] = &ffi_type_pointer;
    53    arg_types[1] = &T_FFI_TYPE;
    54    arg_types[2] = &T_FFI_TYPE;
    55    arg_types[3] = NULL;
    56  
    57    /* This printf call is variadic */
    58    CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 3, &ffi_type_sint,
    59  			 arg_types) == FFI_OK);
    60  
    61    args[0] = &format;
    62    args[1] = &complexArg1;
    63    args[2] = &complexArg2;
    64    args[3] = NULL;
    65  
    66    ffi_call(&cif, FFI_FN(cls_variadic), &res, args);
    67    printf("res: %d\n", (int) res);
    68    CHECK (res == 24);
    69  
    70    CHECK(ffi_prep_closure_loc(pcl, &cif, cls_complex_va_fn, NULL, code)
    71  	== FFI_OK);
    72  
    73    res = ((int(*)(char *, ...))(code))(format, complexArg1, complexArg2);
    74    CHECK (gComplexValue1 == complexArg1);
    75    CHECK (gComplexValue2 == complexArg2);
    76    printf("res: %d\n", (int) res);
    77    CHECK (res == 24);
    78  
    79    exit(0);
    80  }