Commit 55bcc47717bb0f9c5276a45710d757cda7a61f8e
2022-09-24T22:03:52
Test idea borrowed from cpython
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
diff --git a/testsuite/libffi.call/struct_return_8H.c b/testsuite/libffi.call/struct_return_8H.c
new file mode 100644
index 0000000..5018daa
--- /dev/null
+++ b/testsuite/libffi.call/struct_return_8H.c
@@ -0,0 +1,90 @@
+/* Area: ffi_call
+ Purpose: Check structures.
+ Limitations: none.
+ PR: none.
+ Originator: From the original ffitest.c */
+
+/* { dg-do run } */
+#include "ffitest.h"
+typedef struct
+{
+ int a;
+ int b;
+ int c;
+ int d;
+ int e;
+ int f;
+ int g;
+ int h;
+} test_structure_5;
+
+static test_structure_5 ABI_ATTR struct5(test_structure_5 inp)
+{
+ inp.a *= 2;
+ inp.b *= 3;
+ inp.c *= 4;
+ inp.d *= 5;
+ inp.e *= 6;
+ inp.f *= 7;
+ inp.g *= 8;
+ inp.h *= 9;
+ return inp;
+}
+
+int main (void)
+{
+ ffi_cif cif;
+ ffi_type *args[MAX_ARGS];
+ void *values[MAX_ARGS];
+ ffi_type ts5_type;
+ ffi_type *ts5_type_elements[9];
+
+ test_structure_5 ts5_arg1;
+
+ /* This is a hack to get a properly aligned result buffer */
+ test_structure_5 *ts5_result =
+ (test_structure_5 *) malloc (sizeof(test_structure_5));
+
+ ts5_type.size = 0;
+ ts5_type.alignment = 0;
+ ts5_type.type = FFI_TYPE_STRUCT;
+ ts5_type.elements = ts5_type_elements;
+ ts5_type_elements[0] = &ffi_type_sint;
+ ts5_type_elements[1] = &ffi_type_sint;
+ ts5_type_elements[2] = &ffi_type_sint;
+ ts5_type_elements[3] = &ffi_type_sint;
+ ts5_type_elements[4] = &ffi_type_sint;
+ ts5_type_elements[5] = &ffi_type_sint;
+ ts5_type_elements[6] = &ffi_type_sint;
+ ts5_type_elements[7] = &ffi_type_sint;
+ ts5_type_elements[8] = NULL;
+
+ args[0] = &ts5_type;
+ values[0] = &ts5_arg1;
+
+ /* Initialize the cif */
+ CHECK(ffi_prep_cif(&cif, ABI_NUM, 1, &ts5_type, args) == FFI_OK);
+
+ ts5_arg1.a = 9;
+ ts5_arg1.b = 8;
+ ts5_arg1.c = 7;
+ ts5_arg1.d = 6;
+ ts5_arg1.e = 5;
+ ts5_arg1.f = 4;
+ ts5_arg1.g = 3;
+ ts5_arg1.h = 2;
+
+ ffi_call (&cif, FFI_FN(struct5), ts5_result, values);
+
+ CHECK(ts5_result->a == 9*2);
+ CHECK(ts5_result->b == 8*3);
+ CHECK(ts5_result->c == 7*4);
+ CHECK(ts5_result->d == 6*5);
+ CHECK(ts5_result->e == 5*6);
+ CHECK(ts5_result->f == 4*7);
+ CHECK(ts5_result->g == 3*8);
+ CHECK(ts5_result->h == 2*9);
+
+ free (ts5_result);
+ exit(0);
+}