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

     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  }