1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check structures.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: Sergei Trofimovich <[email protected]>
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan The test originally discovered in ruby's bindings
8*1fd5a2e1SPrashanth Swaminathan for ffi in https://bugs.gentoo.org/634190 */
9*1fd5a2e1SPrashanth Swaminathan
10*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
11*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
12*1fd5a2e1SPrashanth Swaminathan
13*1fd5a2e1SPrashanth Swaminathan struct s {
14*1fd5a2e1SPrashanth Swaminathan int s32;
15*1fd5a2e1SPrashanth Swaminathan float f32;
16*1fd5a2e1SPrashanth Swaminathan signed char s8;
17*1fd5a2e1SPrashanth Swaminathan };
18*1fd5a2e1SPrashanth Swaminathan
make_s(void)19*1fd5a2e1SPrashanth Swaminathan struct s make_s(void) {
20*1fd5a2e1SPrashanth Swaminathan struct s r;
21*1fd5a2e1SPrashanth Swaminathan r.s32 = 0x1234;
22*1fd5a2e1SPrashanth Swaminathan r.f32 = 7.0;
23*1fd5a2e1SPrashanth Swaminathan r.s8 = 0x78;
24*1fd5a2e1SPrashanth Swaminathan return r;
25*1fd5a2e1SPrashanth Swaminathan }
26*1fd5a2e1SPrashanth Swaminathan
main()27*1fd5a2e1SPrashanth Swaminathan int main() {
28*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
29*1fd5a2e1SPrashanth Swaminathan struct s r;
30*1fd5a2e1SPrashanth Swaminathan ffi_type rtype;
31*1fd5a2e1SPrashanth Swaminathan ffi_type* s_fields[] = {
32*1fd5a2e1SPrashanth Swaminathan &ffi_type_sint,
33*1fd5a2e1SPrashanth Swaminathan &ffi_type_float,
34*1fd5a2e1SPrashanth Swaminathan &ffi_type_schar,
35*1fd5a2e1SPrashanth Swaminathan NULL,
36*1fd5a2e1SPrashanth Swaminathan };
37*1fd5a2e1SPrashanth Swaminathan
38*1fd5a2e1SPrashanth Swaminathan rtype.size = 0;
39*1fd5a2e1SPrashanth Swaminathan rtype.alignment = 0,
40*1fd5a2e1SPrashanth Swaminathan rtype.type = FFI_TYPE_STRUCT,
41*1fd5a2e1SPrashanth Swaminathan rtype.elements = s_fields,
42*1fd5a2e1SPrashanth Swaminathan
43*1fd5a2e1SPrashanth Swaminathan r.s32 = 0xbad;
44*1fd5a2e1SPrashanth Swaminathan r.f32 = 999.999;
45*1fd5a2e1SPrashanth Swaminathan r.s8 = 0x51;
46*1fd5a2e1SPrashanth Swaminathan
47*1fd5a2e1SPrashanth Swaminathan // Here we emulate the following call:
48*1fd5a2e1SPrashanth Swaminathan //r = make_s();
49*1fd5a2e1SPrashanth Swaminathan
50*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 0, &rtype, NULL) == FFI_OK);
51*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(make_s), &r, NULL);
52*1fd5a2e1SPrashanth Swaminathan
53*1fd5a2e1SPrashanth Swaminathan CHECK(r.s32 == 0x1234);
54*1fd5a2e1SPrashanth Swaminathan CHECK(r.f32 == 7.0);
55*1fd5a2e1SPrashanth Swaminathan CHECK(r.s8 == 0x78);
56*1fd5a2e1SPrashanth Swaminathan exit(0);
57*1fd5a2e1SPrashanth Swaminathan }
58