From cd11ae061b002913740483529e31b3f6d3da753d Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 3 Mar 2008 21:39:37 +0100 Subject: Update libffi to 3.0.4. darcs-hash:d0cdf89441c98da668f268b1af91e536dc3ed76e --- libffi-3.0.4/testsuite/libffi.call/cls_ulonglong.c | 54 ++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 libffi-3.0.4/testsuite/libffi.call/cls_ulonglong.c (limited to 'libffi-3.0.4/testsuite/libffi.call/cls_ulonglong.c') diff --git a/libffi-3.0.4/testsuite/libffi.call/cls_ulonglong.c b/libffi-3.0.4/testsuite/libffi.call/cls_ulonglong.c new file mode 100644 index 0000000..1cc0a38 --- /dev/null +++ b/libffi-3.0.4/testsuite/libffi.call/cls_ulonglong.c @@ -0,0 +1,54 @@ +/* Area: closure_call + Purpose: Check return value long long. + Limitations: none. + PR: none. + Originator: 20030828 */ + +/* { dg-do run } */ +#include "ffitest.h" + +static void cls_ret_ulonglong_fn(ffi_cif* cif __UNUSED__, void* resp, + void** args, void* userdata __UNUSED__) +{ + *(unsigned long long *)resp= *(unsigned long long *)args[0]; + + printf("%llu: %llu\n",*(unsigned long long *)args[0], + *(unsigned long long *)(resp)); +} +typedef unsigned long long (*cls_ret_ulonglong)(unsigned long long); + +int main (void) +{ + ffi_cif cif; +#ifndef USING_MMAP + static ffi_closure cl; +#endif + ffi_closure *pcl; + ffi_type * cl_arg_types[2]; + unsigned long long res; + +#ifdef USING_MMAP + pcl = allocate_mmap (sizeof(ffi_closure)); +#else + pcl = &cl; +#endif + + cl_arg_types[0] = &ffi_type_uint64; + cl_arg_types[1] = NULL; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, + &ffi_type_uint64, cl_arg_types) == FFI_OK); + CHECK(ffi_prep_closure(pcl, &cif, cls_ret_ulonglong_fn, NULL) == FFI_OK); + res = (*((cls_ret_ulonglong)pcl))(214LL); + /* { dg-output "214: 214" } */ + printf("res: %lld\n", res); + /* { dg-output "\nres: 214" } */ + + res = (*((cls_ret_ulonglong)pcl))(9223372035854775808LL); + /* { dg-output "\n9223372035854775808: 9223372035854775808" } */ + printf("res: %lld\n", res); + /* { dg-output "\nres: 9223372035854775808" } */ + + exit(0); +} -- cgit v1.2.3