1 /* Area: closure_call 2 Purpose: Check return value sshort. 3 Limitations: none. 4 PR: none. 5 Originator: <andreast (at) gcc.gnu.org> 20031108 */ 6 7 /* { dg-do run } */ 8 #include "ffitest.h" 9 10 static void cls_ret_sshort_fn(ffi_cif* cif __UNUSED__, void* resp, void** args, 11 void* userdata __UNUSED__) 12 { 13 *(ffi_arg*)resp = *(signed short *)args[0]; 14 printf("%d: %d\n",*(signed short *)args[0], 15 (int)*(ffi_arg *)(resp)); 16 } 17 typedef signed short (*cls_ret_sshort)(signed short); 18 19 int main (void) 20 { 21 ffi_cif cif; 22 #ifndef USING_MMAP 23 static ffi_closure cl; 24 #endif 25 ffi_closure *pcl; 26 ffi_type * cl_arg_types[2]; 27 signed short res; 28 29 #ifdef USING_MMAP 30 pcl = allocate_mmap (sizeof(ffi_closure)); 31 #else 32 pcl = &cl; 33 #endif 34 35 cl_arg_types[0] = &ffi_type_sshort; 36 cl_arg_types[1] = NULL; 37 38 /* Initialize the cif */ 39 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, 40 &ffi_type_sshort, cl_arg_types) == FFI_OK); 41 42 CHECK(ffi_prep_closure(pcl, &cif, cls_ret_sshort_fn, NULL) == FFI_OK); 43 44 res = (*((cls_ret_sshort)pcl))(255); 45 /* { dg-output "255: 255" } */ 46 printf("res: %d\n",res); 47 /* { dg-output "\nres: 255" } */ 48 49 exit(0); 50 } 51
