Ruby: ext/fiddle/libffi-3.2.1/testsuite/libffi.call/many2.c Source File

Ruby 3.0.5p211 (2022-11-24 revision ba5cf0f7c52d4d35cc6a173c89eda98ceffa2dcf)

many2.c
Go to the documentation of this file.
1/* Area: ffi_call
2 Purpose: Check uint8_t arguments.
3 Limitations: none.
4 PR: PR45677.
5 Originator: Dan Witte <dwitte@gmail.com> 20100916 */
6
7/* { dg-do run } */
8
9#include "ffitest.h"
10
11#define NARGS 7
12
13 typedef unsigned char u8;
14
15#ifdef __GNUC__
16 __attribute__((noinline))
17#endif
18 uint8_t
19foo (uint8_t a, uint8_t b, uint8_t c, uint8_t d,
20 uint8_t e, uint8_t f, uint8_t g)
21{
22 return a + b + c + d + e + f + g;
23}
24
25 uint8_t ABI_ATTR
26bar (uint8_t a, uint8_t b, uint8_t c, uint8_t d,
27 uint8_t e, uint8_t f, uint8_t g)
28{
29 return foo (a, b, c, d, e, f, g);
30}
31
32int
33main (void)
34{
35 ffi_type *ffitypes[NARGS];
36 int i;
37 ffi_cif cif;
38 ffi_arg result = 0;
39 uint8_t args[NARGS];
40 void *argptrs[NARGS];
41
42 for (i = 0; i < NARGS; ++i)
43 ffitypes[i] = &ffi_type_uint8;
44
45 CHECK (ffi_prep_cif (&cif, ABI_NUM, NARGS,
46 &ffi_type_uint8, ffitypes) == FFI_OK);
47
48 for (i = 0; i < NARGS; ++i)
49 {
50 args[i] = i;
51 argptrs[i] = &args[i];
52 }
53 ffi_call (&cif, FFI_FN (bar), &result, argptrs);
54
55 CHECK (result == 21);
56 return 0;
57}
ffi_call
void ffi_call(ffi_cif *cif, void(*fn)(void), void *rvalue, void **avalue)
Definition: ffi.c:813
ffi_arg
unsigned long ffi_arg
Definition: ffitarget.h:30
CHECK
#define CHECK(sub)
Definition: compile.c:429
g
struct @77 g
ffitest.h
ABI_NUM
#define ABI_NUM
Definition: ffitest.h:35
ABI_ATTR
#define ABI_ATTR
Definition: ffitest.h:36
__attribute__
void *PTR64 __attribute__((mode(DI)))
Definition: ffi.c:41
main
int main(void)
Definition: many2.c:33
bar
uint8_t ABI_ATTR bar(uint8_t a, uint8_t b, uint8_t c, uint8_t d, uint8_t e, uint8_t f, uint8_t g)
Definition: many2.c:26
u8
unsigned char u8
Definition: many2.c:13
NARGS
#define NARGS
Definition: many2.c:11
ffi_prep_cif
ffi_status ffi_prep_cif(ffi_cif *cif, ffi_abi abi, unsigned int nargs, ffi_type *rtype, ffi_type **atypes)
Definition: prep_cif.c:226
uint8_t
unsigned char uint8_t
Definition: sha2.h:100
f
#define f