Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libffi/testsuite/libffi.closures/testclosure.c
2023-03-06 14:48:14 +01:00

70 lines
1.6 KiB
C

/* Area: closure_call
Purpose: Check return value float.
Limitations: none.
PR: 41908.
Originator: <rfm@gnu.org> 20091102 */
/* { dg-do run } */
#include "ffitest.h"
typedef struct cls_struct_combined {
float a;
float b;
float c;
float d;
} cls_struct_combined;
static void cls_struct_combined_fn(struct cls_struct_combined arg)
{
printf("%g %g %g %g\n",
arg.a, arg.b,
arg.c, arg.d);
fflush(stdout);
}
static void
cls_struct_combined_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
void** args, void* userdata __UNUSED__)
{
struct cls_struct_combined a0;
a0 = *(struct cls_struct_combined*)(args[0]);
cls_struct_combined_fn(a0);
}
int main (void)
{
ffi_cif cif;
void *code;
ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
ffi_type* cls_struct_fields0[5];
ffi_type cls_struct_type0;
ffi_type* dbl_arg_types[5];
struct cls_struct_combined g_dbl = {4.0, 5.0, 1.0, 8.0};
cls_struct_type0.size = 0;
cls_struct_type0.alignment = 0;
cls_struct_type0.type = FFI_TYPE_STRUCT;
cls_struct_type0.elements = cls_struct_fields0;
cls_struct_fields0[0] = &ffi_type_float;
cls_struct_fields0[1] = &ffi_type_float;
cls_struct_fields0[2] = &ffi_type_float;
cls_struct_fields0[3] = &ffi_type_float;
cls_struct_fields0[4] = NULL;
dbl_arg_types[0] = &cls_struct_type0;
dbl_arg_types[1] = NULL;
CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, &ffi_type_void,
dbl_arg_types) == FFI_OK);
CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_combined_gn, NULL, code) == FFI_OK);
((void(*)(cls_struct_combined)) (code))(g_dbl);
/* { dg-output "4 5 1 8" } */
exit(0);
}