]>
git.ipfire.org Git - thirdparty/gcc.git/blob - libffi/testsuite/libffi.closures/cls_multi_sshortchar.c
1 /* Area: ffi_call, closure_call
2 Purpose: Check passing of multiple signed short/char values.
5 Originator: <andreast@gcc.gnu.org> 20031129 */
10 static signed short test_func_fn(signed char a1
, signed short a2
,
11 signed char a3
, signed short a4
)
15 result
= a1
+ a2
+ a3
+ a4
;
17 printf("%d %d %d %d: %d\n", a1
, a2
, a3
, a4
, result
);
23 static void test_func_gn(ffi_cif
*cif __UNUSED__
, void *rval
, void **avals
,
24 void *data __UNUSED__
)
29 a1
= *(signed char *)avals
[0];
30 a2
= *(signed short *)avals
[1];
31 a3
= *(signed char *)avals
[2];
32 a4
= *(signed short *)avals
[3];
34 *(ffi_arg
*)rval
= test_func_fn(a1
, a2
, a3
, a4
);
38 typedef signed short (*test_type
)(signed char, signed short,
39 signed char, signed short);
45 ffi_closure
*pcl
= ffi_closure_alloc(sizeof(ffi_closure
), &code
);
47 ffi_type
* cl_arg_types
[5];
50 signed short b
, d
, res_closure
;
63 cl_arg_types
[0] = &ffi_type_schar
;
64 cl_arg_types
[1] = &ffi_type_sshort
;
65 cl_arg_types
[2] = &ffi_type_schar
;
66 cl_arg_types
[3] = &ffi_type_sshort
;
67 cl_arg_types
[4] = NULL
;
69 /* Initialize the cif */
70 CHECK(ffi_prep_cif(&cif
, FFI_DEFAULT_ABI
, 4,
71 &ffi_type_sshort
, cl_arg_types
) == FFI_OK
);
73 ffi_call(&cif
, FFI_FN(test_func_fn
), &res_call
, args_dbl
);
74 /* { dg-output "1 32765 127 -128: 32765" } */
75 printf("res: %d\n", (signed short)res_call
);
76 /* { dg-output "\nres: 32765" } */
78 CHECK(ffi_prep_closure_loc(pcl
, &cif
, test_func_gn
, NULL
, code
) == FFI_OK
);
80 res_closure
= (*((test_type
)code
))(1, 32765, 127, -128);
81 /* { dg-output "\n1 32765 127 -128: 32765" } */
82 printf("res: %d\n", res_closure
);
83 /* { dg-output "\nres: 32765" } */