1 /* Area: ffi_call, closure_call
2 Purpose: Check passing of multiple unsigned short/char values.
5 Originator: <andreast@gcc.gnu.org> 20031129 */
7 /* { dg-do run { xfail mips64*-*-* arm*-*-* strongarm*-*-* xscale*-*-* } } */
10 unsigned short test_func_fn(unsigned char a1
, unsigned short a2
,
11 unsigned char a3
, unsigned short a4
)
13 unsigned short result
;
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
, void *rval
, void **avals
, void *data
)
26 unsigned short a2
, a4
;
28 a1
= *(unsigned char *)avals
[0];
29 a2
= *(unsigned short *)avals
[1];
30 a3
= *(unsigned char *)avals
[2];
31 a4
= *(unsigned short *)avals
[3];
33 *(ffi_arg
*)rval
= test_func_fn(a1
, a2
, a3
, a4
);
37 typedef unsigned short (*test_type
)(unsigned char, unsigned short,
38 unsigned char, unsigned short);
44 static ffi_closure cl
;
48 ffi_type
* cl_arg_types
[5];
51 unsigned short b
, d
, res_closure
;
54 pcl
= allocate_mmap (sizeof(ffi_closure
));
70 cl_arg_types
[0] = &ffi_type_uchar
;
71 cl_arg_types
[1] = &ffi_type_ushort
;
72 cl_arg_types
[2] = &ffi_type_uchar
;
73 cl_arg_types
[3] = &ffi_type_ushort
;
74 cl_arg_types
[4] = NULL
;
76 /* Initialize the cif */
77 CHECK(ffi_prep_cif(&cif
, FFI_DEFAULT_ABI
, 4,
78 &ffi_type_ushort
, cl_arg_types
) == FFI_OK
);
80 ffi_call(&cif
, FFI_FN(test_func_fn
), &res_call
, args_dbl
);
81 /* { dg-output "1 2 127 128: 258" } */
82 printf("res: %d\n", res_call
);
83 /* { dg-output "\nres: 258" } */
85 CHECK(ffi_prep_closure(pcl
, &cif
, test_func_gn
, NULL
) == FFI_OK
);
87 res_closure
= (*((test_type
)pcl
))(1, 2, 127, 128);
88 /* { dg-output "\n1 2 127 128: 258" } */
89 printf("res: %d\n", res_closure
);
90 /* { dg-output "\nres: 258" } */