Mercurial > hg > CbC > CbC_gcc

annotate libffi/testsuite/libffi.call/err_bad_abi.c @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* Area: ffi_prep_cif, ffi_prep_closure
kono
parents:
diff changeset
2 Purpose: Test error return for bad ABIs.
kono
parents:
diff changeset
3 Limitations: none.
kono
parents:
diff changeset
4 PR: none.
kono
parents:
diff changeset
5 Originator: Blake Chaffin 6/6/2007 */
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 /* { dg-do run } */
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 #include "ffitest.h"
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 static void
kono
parents:
diff changeset
12 dummy_fn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
kono
parents:
diff changeset
13 void** args __UNUSED__, void* userdata __UNUSED__)
kono
parents:
diff changeset
14 {}
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 int main (void)
kono
parents:
diff changeset
17 {
kono
parents:
diff changeset
18 ffi_cif cif;
kono
parents:
diff changeset
19 void *code;
kono
parents:
diff changeset
20 ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
kono
parents:
diff changeset
21 ffi_type* arg_types[1];
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 arg_types[0] = NULL;
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 CHECK(ffi_prep_cif(&cif, 255, 0, &ffi_type_void,
kono
parents:
diff changeset
26 arg_types) == FFI_BAD_ABI);
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 0, &ffi_type_void,
kono
parents:
diff changeset
29 arg_types) == FFI_OK);
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 cif.abi= 255;
kono
parents:
diff changeset
32
kono
parents:
diff changeset
33 CHECK(ffi_prep_closure_loc(pcl, &cif, dummy_fn, NULL, code) == FFI_BAD_ABI);
kono
parents:
diff changeset
34
kono
parents:
diff changeset
35 exit(0);
kono
parents:
diff changeset
36 }