Matthias Klose | a834975 | 2010-03-15 13:25:28 +0000 | [diff] [blame^] | 1 | /* Area: ffi_call |
| 2 | Purpose: Check return value float. |
| 3 | Limitations: none. |
| 4 | PR: none. |
| 5 | Originator: <andreast@gcc.gnu.org> 20050212 */ |
| 6 | |
| 7 | /* { dg-do run } */ |
| 8 | #include "ffitest.h" |
| 9 | |
| 10 | static float return_fl(float fl1, float fl2, unsigned int in3, float fl4) |
| 11 | { |
| 12 | return fl1 + fl2 + in3 + fl4; |
| 13 | } |
| 14 | int main (void) |
| 15 | { |
| 16 | ffi_cif cif; |
| 17 | ffi_type *args[MAX_ARGS]; |
| 18 | void *values[MAX_ARGS]; |
| 19 | float fl1, fl2, fl4, rfl; |
| 20 | unsigned int in3; |
| 21 | args[0] = &ffi_type_float; |
| 22 | args[1] = &ffi_type_float; |
| 23 | args[2] = &ffi_type_uint; |
| 24 | args[3] = &ffi_type_float; |
| 25 | values[0] = &fl1; |
| 26 | values[1] = &fl2; |
| 27 | values[2] = &in3; |
| 28 | values[3] = &fl4; |
| 29 | |
| 30 | /* Initialize the cif */ |
| 31 | CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, |
| 32 | &ffi_type_float, args) == FFI_OK); |
| 33 | fl1 = 127.0; |
| 34 | fl2 = 128.0; |
| 35 | in3 = 255; |
| 36 | fl4 = 512.7; |
| 37 | |
| 38 | ffi_call(&cif, FFI_FN(return_fl), &rfl, values); |
| 39 | printf ("%f vs %f\n", rfl, return_fl(fl1, fl2, in3, fl4)); |
| 40 | CHECK(rfl == fl1 + fl2 + in3 + fl4); |
| 41 | exit(0); |
| 42 | } |