9761385dbdPR-URL: https://github.com/nodejs/node/pull/64040 Reviewed-By: Antoine du Hamel <duhamelantoine1995@gmail.com> Reviewed-By: René <contact.9a5d6388@renegade334.me.uk> Reviewed-By: Paolo Insogna <paolo@cowtech.it>
88 lines
2.1 KiB
C
88 lines
2.1 KiB
C
/* Area: ffi_call
|
|
Purpose: Demonstrate structures with integers corrupting earlier floats
|
|
Limitations: none.
|
|
PR: #848
|
|
Originator: kellda */
|
|
|
|
/* { dg-do run } */
|
|
#include "ffitest.h"
|
|
|
|
typedef struct
|
|
{
|
|
unsigned long i;
|
|
float f;
|
|
} test_structure_int_float;
|
|
|
|
static float ABI_ATTR struct_int_float(test_structure_int_float ts1,
|
|
test_structure_int_float ts2 __UNUSED__,
|
|
test_structure_int_float ts3 __UNUSED__,
|
|
test_structure_int_float ts4 __UNUSED__,
|
|
test_structure_int_float ts5 __UNUSED__,
|
|
test_structure_int_float ts6 __UNUSED__)
|
|
{
|
|
return ts1.f;
|
|
}
|
|
|
|
int main (void)
|
|
{
|
|
ffi_cif cif;
|
|
ffi_type *args[MAX_ARGS];
|
|
void *values[MAX_ARGS];
|
|
ffi_type ts_type;
|
|
ffi_type *ts_type_elements[3];
|
|
float rfloat;
|
|
|
|
test_structure_int_float ts_arg[6];
|
|
|
|
ts_type.size = 0;
|
|
ts_type.alignment = 0;
|
|
ts_type.type = FFI_TYPE_STRUCT;
|
|
ts_type.elements = ts_type_elements;
|
|
ts_type_elements[0] = &ffi_type_ulong;
|
|
ts_type_elements[1] = &ffi_type_float;
|
|
ts_type_elements[2] = NULL;
|
|
|
|
args[0] = &ts_type;
|
|
values[0] = &ts_arg[0];
|
|
args[1] = &ts_type;
|
|
values[1] = &ts_arg[1];
|
|
args[2] = &ts_type;
|
|
values[2] = &ts_arg[2];
|
|
args[3] = &ts_type;
|
|
values[3] = &ts_arg[3];
|
|
args[4] = &ts_type;
|
|
values[4] = &ts_arg[4];
|
|
args[5] = &ts_type;
|
|
values[5] = &ts_arg[5];
|
|
|
|
/* Initialize the cif */
|
|
CHECK(ffi_prep_cif(&cif, ABI_NUM, 6, &ffi_type_float, args) == FFI_OK);
|
|
|
|
ts_arg[0].i = 1;
|
|
ts_arg[0].f = 11.11f;
|
|
ts_arg[1].i = 2;
|
|
ts_arg[1].f = 22.22f;
|
|
ts_arg[2].i = 3;
|
|
ts_arg[2].f = 33.33f;
|
|
ts_arg[3].i = 4;
|
|
ts_arg[3].f = 44.44f;
|
|
ts_arg[4].i = 5;
|
|
ts_arg[4].f = 55.55f;
|
|
ts_arg[5].i = 6;
|
|
ts_arg[5].f = 66.66f;
|
|
|
|
printf ("%g\n", ts_arg[0].f);
|
|
printf ("%g\n", ts_arg[1].f);
|
|
printf ("%g\n", ts_arg[2].f);
|
|
printf ("%g\n", ts_arg[3].f);
|
|
printf ("%g\n", ts_arg[4].f);
|
|
printf ("%g\n", ts_arg[5].f);
|
|
|
|
ffi_call(&cif, FFI_FN(struct_int_float), &rfloat, values);
|
|
|
|
printf ("%g\n", rfloat);
|
|
|
|
CHECK(fabs(rfloat - 11.11) < 3 * FLT_EPSILON);
|
|
|
|
exit(0);
|
|
}
|