1  /* Area:	closure_call
       2     Purpose:	Check closures called with many args of mixed types
       3     Limitations:	none.
       4     PR:		none.
       5     Originator:	<david.schneider@picle.org> */
       6  
       7  /* { dg-do run } */
       8  #include "ffitest.h"
       9  #include <float.h>
      10  #include <math.h>
      11  
      12  #define NARGS 16
      13  
      14  static void cls_ret_double_fn(ffi_cif* cif __UNUSED__, void* resp, void** args,
      15  			      void* userdata __UNUSED__)
      16  {
      17    int i;
      18    double r = 0;
      19    double t;
      20    for(i = 0; i < NARGS; i++)
      21      {
      22      if(i == 4 || i == 9 || i == 11 || i == 13 || i == 15)
      23        {
      24        t = *(long int *)args[i];
      25        CHECK(t == i+1);
      26        }
      27      else
      28        {
      29        t = *(double *)args[i];
      30        CHECK(fabs(t - ((i+1) * 0.1)) < FLT_EPSILON);
      31        }
      32      r += t;
      33      }
      34    *(double *)resp = r;
      35  }
      36  typedef double (*cls_ret_double)(double, double, double, double, long int,
      37  double, double, double, double, long int, double, long int, double, long int,
      38  double, long int);
      39  
      40  int main (void)
      41  {
      42    ffi_cif cif;
      43    void *code;
      44    ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
      45    ffi_type * cl_arg_types[NARGS];
      46    double res;
      47    int i;
      48    double expected = 64.9;
      49  
      50    for(i = 0; i < NARGS; i++)
      51      {
      52      if(i == 4 || i == 9 || i == 11 || i == 13 || i == 15)
      53        cl_arg_types[i] = &ffi_type_slong;
      54      else
      55        cl_arg_types[i] = &ffi_type_double;
      56      }
      57  
      58    /* Initialize the cif */
      59    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, NARGS,
      60  		     &ffi_type_double, cl_arg_types) == FFI_OK);
      61  
      62    CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ret_double_fn, NULL, code) == FFI_OK);
      63  
      64    res = (((cls_ret_double)code))(0.1, 0.2, 0.3, 0.4, 5, 0.6, 0.7, 0.8, 0.9, 10,
      65                                   1.1, 12, 1.3, 14, 1.5, 16);
      66    if (fabs(res - expected) < FLT_EPSILON)
      67      exit(0);
      68    else
      69      abort();
      70  }