Matthias Klose | a834975 | 2010-03-15 13:25:28 +0000 | [diff] [blame] | 1 | /* Area: ffi_call |
| 2 | Purpose: Check structures. |
| 3 | Limitations: none. |
| 4 | PR: none. |
| 5 | Originator: From the original ffitest.c */ |
| 6 | |
| 7 | /* { dg-do run } */ |
| 8 | #include "ffitest.h" |
| 9 | typedef struct |
| 10 | { |
| 11 | float f1; |
| 12 | float f2; |
| 13 | double d; |
| 14 | } test_structure_7; |
| 15 | |
| 16 | static test_structure_7 struct7 (test_structure_7 ts) |
| 17 | { |
| 18 | ts.f1 += 1; |
| 19 | ts.f2 += 1; |
| 20 | ts.d += 1; |
| 21 | |
| 22 | return ts; |
| 23 | } |
| 24 | |
| 25 | int main (void) |
| 26 | { |
| 27 | ffi_cif cif; |
| 28 | ffi_type *args[MAX_ARGS]; |
| 29 | void *values[MAX_ARGS]; |
| 30 | ffi_type ts7_type; |
| 31 | ffi_type *ts7_type_elements[4]; |
doko@ubuntu.com | 2a91876 | 2012-06-26 17:56:44 +0200 | [diff] [blame] | 32 | |
| 33 | test_structure_7 ts7_arg; |
| 34 | |
| 35 | /* This is a hack to get a properly aligned result buffer */ |
| 36 | test_structure_7 *ts7_result = |
| 37 | (test_structure_7 *) malloc (sizeof(test_structure_7)); |
| 38 | |
Matthias Klose | a834975 | 2010-03-15 13:25:28 +0000 | [diff] [blame] | 39 | ts7_type.size = 0; |
| 40 | ts7_type.alignment = 0; |
| 41 | ts7_type.type = FFI_TYPE_STRUCT; |
| 42 | ts7_type.elements = ts7_type_elements; |
| 43 | ts7_type_elements[0] = &ffi_type_float; |
| 44 | ts7_type_elements[1] = &ffi_type_float; |
| 45 | ts7_type_elements[2] = &ffi_type_double; |
| 46 | ts7_type_elements[3] = NULL; |
| 47 | |
Matthias Klose | a834975 | 2010-03-15 13:25:28 +0000 | [diff] [blame] | 48 | args[0] = &ts7_type; |
| 49 | values[0] = &ts7_arg; |
| 50 | |
| 51 | /* Initialize the cif */ |
| 52 | CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, &ts7_type, args) == FFI_OK); |
| 53 | |
| 54 | ts7_arg.f1 = 5.55f; |
| 55 | ts7_arg.f2 = 55.5f; |
| 56 | ts7_arg.d = 6.66; |
| 57 | |
| 58 | printf ("%g\n", ts7_arg.f1); |
| 59 | printf ("%g\n", ts7_arg.f2); |
| 60 | printf ("%g\n", ts7_arg.d); |
| 61 | |
| 62 | ffi_call(&cif, FFI_FN(struct7), ts7_result, values); |
| 63 | |
| 64 | printf ("%g\n", ts7_result->f1); |
| 65 | printf ("%g\n", ts7_result->f2); |
| 66 | printf ("%g\n", ts7_result->d); |
| 67 | |
| 68 | CHECK(ts7_result->f1 == 5.55f + 1); |
| 69 | CHECK(ts7_result->f2 == 55.5f + 1); |
| 70 | CHECK(ts7_result->d == 6.66 + 1); |
| 71 | |
| 72 | free (ts7_result); |
| 73 | exit(0); |
| 74 | } |