2265f64613
2009-11-02 Andreas Tobler <a.tobler@schweiz.org> PR libffi/41908 * testsuite/libffi.call/testclosure.c: New test. From-SVN: r153824
71 lines
1.6 KiB
C
71 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;
|
|
|
|
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];
|
|
|
|
cls_struct_type0.size = 0;
|
|
cls_struct_type0.alignment = 0;
|
|
cls_struct_type0.type = FFI_TYPE_STRUCT;
|
|
cls_struct_type0.elements = cls_struct_fields0;
|
|
|
|
struct cls_struct_combined g_dbl = {4.0, 5.0, 1.0, 8.0};
|
|
|
|
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);
|
|
}
|