1 /* Area: closure_call 2 Purpose: Test anonymous unsigned long argument. 3 Limitations: none. 4 PR: none. 5 Originator: ARM Ltd. */ 6 7 /* { dg-do run } */ 8 9 #include "ffitest.h" 10 11 typedef unsigned long T; 12 13 static void cls_ret_T_fn(ffi_cif* cif __UNUSED__, void* resp, void** args, 14 void* userdata __UNUSED__) 15 { 16 *(T *)resp = *(T *)args[0]; 17 18 printf("%ld: %ld %ld\n", *(T *)resp, *(T *)args[0], *(T *)args[1]); 19 } 20 21 typedef T (*cls_ret_T)(T, ...); 22 23 int main (void) 24 { 25 ffi_cif cif; 26 void *code; 27 ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); 28 ffi_type * cl_arg_types[3]; 29 T res; 30 31 cl_arg_types[0] = &ffi_type_ulong; 32 cl_arg_types[1] = &ffi_type_ulong; 33 cl_arg_types[2] = NULL; 34 35 /* Initialize the cif */ 36 CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 2, 37 &ffi_type_ulong, cl_arg_types) == FFI_OK); 38 39 CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ret_T_fn, NULL, code) == FFI_OK); 40 res = ((((cls_ret_T)code)(67, 4))); 41 /* { dg-output "67: 67 4" } */ 42 printf("res: %ld\n", res); 43 /* { dg-output "\nres: 67" } */ 44 exit(0); 45 } 46
