1 /* Area: ffi_call 2 Purpose: Check return value double. 3 Limitations: none. 4 PR: none. 5 Originator: From the original ffitest.c */ 6 7 /* { dg-do run } */ 8 #include "ffitest.h" 9 #include "float.h" 10 11 typedef union 12 { 13 double d; 14 unsigned char c[sizeof (double)]; 15 } value_type; 16 17 #define CANARY 0xba 18 dblit(float f)19static double dblit(float f) 20 { 21 return f/3.0; 22 } 23 main(void)24int main (void) 25 { 26 ffi_cif cif; 27 ffi_type *args[MAX_ARGS]; 28 void *values[MAX_ARGS]; 29 float f; 30 value_type result[2]; 31 unsigned int i; 32 33 args[0] = &ffi_type_float; 34 values[0] = &f; 35 36 /* Initialize the cif */ 37 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, 38 &ffi_type_double, args) == FFI_OK); 39 40 f = 3.14159; 41 42 /* Put a canary in the return array. This is a regression test for 43 a buffer overrun. */ 44 memset(result[1].c, CANARY, sizeof (double)); 45 46 ffi_call(&cif, FFI_FN(dblit), &result[0].d, values); 47 48 /* These are not always the same!! Check for a reasonable delta */ 49 50 CHECK(result[0].d - dblit(f) < DBL_EPSILON); 51 52 /* Check the canary. */ 53 for (i = 0; i < sizeof (double); ++i) 54 CHECK(result[1].c[i] == CANARY); 55 56 exit(0); 57 58 } 59