libffi/testsuite/libffi.complex/cls_complex_va.inc

   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 }