URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libffi/] [testsuite/] [libffi.call/] [many2.c] - Rev 848
Go to most recent revision | Compare with Previous | Blame | View Log
/* Area: ffi_call Purpose: Check uint8_t arguments. Limitations: none. PR: PR45677. Originator: Dan Witte <dwitte@gmail.com> 20100916 */ /* { dg-do run } */ #include "ffitest.h" #define NARGS 7 typedef unsigned char u8; __attribute__((noinline)) uint8_t foo (uint8_t a, uint8_t b, uint8_t c, uint8_t d, uint8_t e, uint8_t f, uint8_t g) { return a + b + c + d + e + f + g; } uint8_t bar (uint8_t a, uint8_t b, uint8_t c, uint8_t d, uint8_t e, uint8_t f, uint8_t g) { return foo (a, b, c, d, e, f, g); } int main (void) { ffi_type *ffitypes[NARGS]; int i; ffi_cif cif; ffi_arg result = 0; uint8_t args[NARGS]; void *argptrs[NARGS]; for (i = 0; i < NARGS; ++i) ffitypes[i] = &ffi_type_uint8; CHECK (ffi_prep_cif (&cif, FFI_DEFAULT_ABI, NARGS, &ffi_type_uint8, ffitypes) == FFI_OK); for (i = 0; i < NARGS; ++i) { args[i] = i; argptrs[i] = &args[i]; } ffi_call (&cif, FFI_FN (bar), &result, argptrs); CHECK (result == 21); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log