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
dummy_fn(ffi_cif * cif __UNUSED__,void * resp __UNUSED__,void ** args __UNUSED__,void * userdata __UNUSED__)12 dummy_fn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
13 void** args __UNUSED__, void* userdata __UNUSED__)
14 {}
15
main(void)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