1 /* Area: ffi_call, closure_call 2 Purpose: Check passing of multiple signed short/char values. 3 Limitations: none. 4 PR: PR13221. 5 Originator: <andreast (at) gcc.gnu.org> 20031129 */ 6 7 /* { dg-do run } */ 8 #include "ffitest.h" 9 10 signed short test_func_fn(signed char a1, signed short a2, 11 signed char a3, signed short a4) 12 { 13 signed short result; 14 15 result = a1 + a2 + a3 + a4; 16 17 printf("%d %d %d %d: %d\n", a1, a2, a3, a4, result); 18 19 return result; 20 21 } 22 23 static void test_func_gn(ffi_cif *cif __UNUSED__, void *rval, void **avals, 24 void *data __UNUSED__) 25 { 26 signed char a1, a3; 27 signed short a2, a4; 28 29 a1 = *(signed char *)avals[0]; 30 a2 = *(signed short *)avals[1]; 31 a3 = *(signed char *)avals[2]; 32 a4 = *(signed short *)avals[3]; 33 34 *(ffi_arg *)rval = test_func_fn(a1, a2, a3, a4); 35 36 } 37 38 typedef signed short (*test_type)(signed char, signed short, 39 signed char, signed short); 40 41 int main (void) 42 { 43 ffi_cif cif; 44 void *code; 45 ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); 46 void * args_dbl[5]; 47 ffi_type * cl_arg_types[5]; 48 ffi_arg res_call; 49 signed char a, c; 50 signed short b, d, res_closure; 51 52 a = 1; 53 b = 32765; 54 c = 127; 55 d = -128; 56 57 args_dbl[0] = &a; 58 args_dbl[1] = &b; 59 args_dbl[2] = &c; 60 args_dbl[3] = &d; 61 args_dbl[4] = NULL; 62 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; 68 69 /* Initialize the cif */ 70 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, 71 &ffi_type_sshort, cl_arg_types) == FFI_OK); 72 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" } */ 77 78 CHECK(ffi_prep_closure_loc(pcl, &cif, test_func_gn, NULL, code) == FFI_OK); 79 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" } */ 84 85 exit(0); 86 } 87