From 1b05e8bf3c1c63c7d9b069e876aadcba0ced9a5f Mon Sep 17 00:00:00 2001 From: Andreas Tobler Date: Wed, 23 Feb 2005 14:56:01 +0100 Subject: re PR libffi/20104 (gij fails on ppc and not on x86) 2005-02-23 Andreas Tobler PR libffi/20104 * testsuite/libffi.call/return_ll1.c: New test case. From-SVN: r95454 --- libffi/ChangeLog | 5 ++++ libffi/testsuite/libffi.call/return_ll1.c | 42 +++++++++++++++++++++++++++++++ 2 files changed, 47 insertions(+) create mode 100644 libffi/testsuite/libffi.call/return_ll1.c diff --git a/libffi/ChangeLog b/libffi/ChangeLog index be46054..6de6ef5 100644 --- a/libffi/ChangeLog +++ b/libffi/ChangeLog @@ -1,3 +1,8 @@ +2005-02-23 Andreas Tobler + + PR libffi/20104 + * testsuite/libffi.call/return_ll1.c: New test case. + 2005-02-11 Janis Johnson * testsuite/libffi.call/cls_align_longdouble.c: Remove dg-options. diff --git a/libffi/testsuite/libffi.call/return_ll1.c b/libffi/testsuite/libffi.call/return_ll1.c new file mode 100644 index 0000000..32fdfa1 --- /dev/null +++ b/libffi/testsuite/libffi.call/return_ll1.c @@ -0,0 +1,42 @@ +/* Area: ffi_call + Purpose: Check if long long are passed in the corresponding regs on ppc. + Limitations: none. + PR: 20104. + Originator: 20050222 */ + +/* { dg-do run } */ +#include "ffitest.h" +static long long return_ll(int ll0, long long ll1, int ll2) +{ + return ll0 + ll1 + ll2; +} + +int main (void) +{ + ffi_cif cif; + ffi_type *args[MAX_ARGS]; + void *values[MAX_ARGS]; + long long rlonglong; + long long ll1; + unsigned ll0, ll2; + + args[0] = &ffi_type_uint32; + args[1] = &ffi_type_sint64; + args[2] = &ffi_type_uint32; + values[0] = &ll0; + values[1] = &ll1; + values[2] = &ll2; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, + &ffi_type_sint64, args) == FFI_OK); + + ll0 = 11111111; + ll1 = 11111111111000LL; + ll2 = 11111111; + + ffi_call(&cif, FFI_FN(return_ll), &rlonglong, values); + printf("res: %lld, %lld\n", rlonglong, ll0 + ll1 + ll2); + /* { dg-output "res: 11111133333222, 11111133333222" } */ + exit(0); +} -- cgit v1.1