summaryrefslogtreecommitdiff
path: root/jni/ruby/ext/fiddle/libffi-3.2.1/testsuite/libffi.call/cls_align_longdouble_split.c
blob: 15f936546528f5c64463b941a3d9a94470e11f98 (plain)
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
/* Area:        ffi_call, closure_call
   Purpose:     Check structure alignment of long double.
   Limitations: none.
   PR:          none.
   Originator:  <hos@tamanegi.org> 20031203      */

/* { dg-excess-errors "no long double format" { xfail x86_64-*-mingw* x86_64-*-cygwin* } } */
/* { dg-do run { xfail strongarm*-*-* xscale*-*-* } } */
/* { dg-options -mlong-double-128 { target powerpc64*-*-linux* } } */
/* { dg-output "" { xfail x86_64-*-mingw* x86_64-*-cygwin* } } */

#include "ffitest.h"

typedef struct cls_struct_align {
  long double a;
  long double b;
  long double c;
  long double d;
  long double e;
  long double f;
  long double g;
} cls_struct_align;

cls_struct_align cls_struct_align_fn(
        cls_struct_align        a1,
        cls_struct_align        a2)
{
        struct cls_struct_align r;

        r.a = a1.a + a2.a;
        r.b = a1.b + a2.b;
        r.c = a1.c + a2.c;
        r.d = a1.d + a2.d;
        r.e = a1.e + a2.e;
        r.f = a1.f + a2.f;
        r.g = a1.g + a2.g;

        printf("%Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg: "
                "%Lg %Lg %Lg %Lg %Lg %Lg %Lg\n",
                a1.a, a1.b, a1.c, a1.d, a1.e, a1.f, a1.g,
                a2.a, a2.b, a2.c, a2.d, a2.e, a2.f, a2.g,
                r.a, r.b, r.c, r.d, r.e, r.f, r.g);

        return r;
}

cls_struct_align cls_struct_align_fn2(
        cls_struct_align        a1)
{
        struct cls_struct_align r;

        r.a = a1.a + 1;
        r.b = a1.b + 1;
        r.c = a1.c + 1;
        r.d = a1.d + 1;
        r.e = a1.e + 1;
        r.f = a1.f + 1;
        r.g = a1.g + 1;

        printf("%Lg %Lg %Lg %Lg %Lg %Lg %Lg: "
                "%Lg %Lg %Lg %Lg %Lg %Lg %Lg\n",
                a1.a, a1.b, a1.c, a1.d, a1.e, a1.f, a1.g,
                r.a, r.b, r.c, r.d, r.e, r.f, r.g);

        return r;
}

static void
cls_struct_align_gn(ffi_cif* cif __UNUSED__, void* resp, void** args, 
                    void* userdata __UNUSED__)
{
        struct cls_struct_align a1, a2;

        a1 = *(struct cls_struct_align*)(args[0]);
        a2 = *(struct cls_struct_align*)(args[1]);

        *(cls_struct_align*)resp = cls_struct_align_fn(a1, a2);
}

int main (void)
{
        ffi_cif cif;
        void *code;
        ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
        void* args_dbl[3];
        ffi_type* cls_struct_fields[8];
        ffi_type cls_struct_type;
        ffi_type* dbl_arg_types[3];

        struct cls_struct_align g_dbl = { 1234567 };
        struct cls_struct_align f_dbl = { 891011121314 };
        struct cls_struct_align res_dbl;

        cls_struct_type.size = 0;
        cls_struct_type.alignment = 0;
        cls_struct_type.type = FFI_TYPE_STRUCT;
        cls_struct_type.elements = cls_struct_fields;

        cls_struct_fields[0] = &ffi_type_longdouble;
        cls_struct_fields[1] = &ffi_type_longdouble;
        cls_struct_fields[2] = &ffi_type_longdouble;
        cls_struct_fields[3] = &ffi_type_longdouble;
        cls_struct_fields[4] = &ffi_type_longdouble;
        cls_struct_fields[5] = &ffi_type_longdouble;
        cls_struct_fields[6] = &ffi_type_longdouble;
        cls_struct_fields[7] = NULL;

        dbl_arg_types[0] = &cls_struct_type;
        dbl_arg_types[1] = &cls_struct_type;
        dbl_arg_types[2] = NULL;

        CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type,
                dbl_arg_types) == FFI_OK);

        args_dbl[0] = &g_dbl;
        args_dbl[1] = &f_dbl;
        args_dbl[2] = NULL;

        ffi_call(&cif, FFI_FN(cls_struct_align_fn), &res_dbl, args_dbl);
        /* { dg-output "1 2 3 4 5 6 7 8 9 10 11 12 13 14: 9 11 13 15 17 19 21" } */
        printf("res: %Lg %Lg %Lg %Lg %Lg %Lg %Lg\n", res_dbl.a, res_dbl.b,
                res_dbl.c, res_dbl.d, res_dbl.e, res_dbl.f, res_dbl.g);
        /* { dg-output "\nres: 9 11 13 15 17 19 21" } */

        CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);

        res_dbl = ((cls_struct_align(*)(cls_struct_align, cls_struct_align))(code))(g_dbl, f_dbl);
        /* { dg-output "\n1 2 3 4 5 6 7 8 9 10 11 12 13 14: 9 11 13 15 17 19 21" } */
        printf("res: %Lg %Lg %Lg %Lg %Lg %Lg %Lg\n", res_dbl.a, res_dbl.b,
                res_dbl.c, res_dbl.d, res_dbl.e, res_dbl.f, res_dbl.g);
        /* { dg-output "\nres: 9 11 13 15 17 19 21" } */

  exit(0);
}