Lloyd Pique | 457ba79 | 2015-10-27 14:32:21 -0700 | [diff] [blame] | 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 | } |