1 /* Area: ffi_prep_cif, ffi_prep_closure 2 Purpose: Test error return for bad ABIs. 3 Limitations: none. 4 PR: none. 5 Originator: Blake Chaffin 6/6/2007 */ 6 7 /* { dg-do run } */ 8 9 #include "ffitest.h" 10 11 static void 12 dummy_fn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__, 13 void** args __UNUSED__, void* userdata __UNUSED__) 14 {} 15 16 int main (void) 17 { 18 ffi_cif cif; 19 void *code; 20 ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); 21 ffi_type* arg_types[1]; 22 23 arg_types[0] = NULL; 24 25 CHECK(ffi_prep_cif(&cif, 255, 0, &ffi_type_void, 26 arg_types) == FFI_BAD_ABI); 27 28 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 0, &ffi_type_void, 29 arg_types) == FFI_OK); 30 31 cif.abi= 255; 32 33 CHECK(ffi_prep_closure_loc(pcl, &cif, dummy_fn, NULL, code) == FFI_BAD_ABI); 34 35 exit(0); 36 } 37