The Ecere SDK - sdk/blob - deps/libffi-3.0.11/testsuite/libffi.call/testclosure.c

   1 /* Area:        closure_call
   2    Purpose:     Check return value float.
   3    Limitations: none.
   4    PR:          41908.
   5    Originator:  <rfm@gnu.org> 20091102   */
   6
   7 /* { dg-do run } */
   8 #include "ffitest.h"
   9
  10 typedef struct cls_struct_combined {
  11   float a;
  12   float b;
  13   float c;
  14   float d;
  15 } cls_struct_combined;
  16
  17 void cls_struct_combined_fn(struct cls_struct_combined arg)
  18 {
  19   printf("%g %g %g %g\n",
  20          arg.a, arg.b,
  21          arg.c, arg.d);
  22   fflush(stdout);
  23 }
  24
  25 static void
  26 cls_struct_combined_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
  27         void** args, void* userdata __UNUSED__)
  28 {
  29   struct cls_struct_combined a0;
  30
  31   a0 = *(struct cls_struct_combined*)(args[0]);
  32
  33   cls_struct_combined_fn(a0);
  34 }
  35
  36
  37 int main (void)
  38 {
  39   ffi_cif cif;
  40   void *code;
  41   ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
  42   ffi_type* cls_struct_fields0[5];
  43   ffi_type cls_struct_type0;
  44   ffi_type* dbl_arg_types[5];
  45
  46   struct cls_struct_combined g_dbl = {4.0, 5.0, 1.0, 8.0};
  47
  48   cls_struct_type0.size = 0;
  49   cls_struct_type0.alignment = 0;
  50   cls_struct_type0.type = FFI_TYPE_STRUCT;
  51   cls_struct_type0.elements = cls_struct_fields0;
  52
  53   cls_struct_fields0[0] = &ffi_type_float;
  54   cls_struct_fields0[1] = &ffi_type_float;
  55   cls_struct_fields0[2] = &ffi_type_float;
  56   cls_struct_fields0[3] = &ffi_type_float;
  57   cls_struct_fields0[4] = NULL;
  58
  59   dbl_arg_types[0] = &cls_struct_type0;
  60   dbl_arg_types[1] = NULL;
  61
  62   CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, &ffi_type_void,
  63                      dbl_arg_types) == FFI_OK);
  64
  65   CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_combined_gn, NULL, code) == FFI_OK);
  66
  67   ((void(*)(cls_struct_combined)) (code))(g_dbl);
  68   /* { dg-output "4 5 1 8" } */
  69   exit(0);
  70 }