ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New files from gcc tree.

Browse Source
This commit is contained in:
green
2008-01-29 15:16:43 +00:00
parent 77175b3f72
commit 085520ddc8
4 changed files with 5745 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
libffi/testsuite/libffi.call/return_ldl.c Normal file
View File

@@ -0,0 +1,34 @@
/* Area: ffi_call
Purpose: Check return value long double.
Limitations: none.
PR: none.
Originator: <andreast@gcc.gnu.org> 20071113 */
/* { dg-do run } */
#include "ffitest.h"
static long double return_ldl(long double ldl)
{
return 2*ldl;
}
int main (void)
{
ffi_cif cif;
ffi_type *args[MAX_ARGS];
void *values[MAX_ARGS];
long double ldl, rldl;
args[0] = &ffi_type_longdouble;
values[0] = &ldl;
/* Initialize the cif */
CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
&ffi_type_longdouble, args) == FFI_OK);
for (ldl = -127.0; ldl < 127.0; ldl++)
{
ffi_call(&cif, FFI_FN(return_ldl), &rldl, values);
CHECK(rldl == 2 * ldl);
}
exit(0);
}

38
libffi/testsuite/libffi.call/return_sl.c Normal file
View File

@@ -0,0 +1,38 @@
/* Area: ffi_call
Purpose: Check if long as return type is handled correctly.
Limitations: none.
PR: none.
*/
/* { dg-do run } */
#include "ffitest.h"
static long return_sl(long l1, long l2)
{
return l1 - l2;
}
int main (void)
{
ffi_cif cif;
ffi_type *args[MAX_ARGS];
void *values[MAX_ARGS];
ffi_arg res;
unsigned long l1, l2;
args[0] = &ffi_type_slong;
args[1] = &ffi_type_slong;
values[0] = &l1;
values[1] = &l2;
CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2,
&ffi_type_slong, args) == FFI_OK);
l1 = 1073741823L;
l2 = 1073741824L;
ffi_call(&cif, FFI_FN(return_sl), &res, values);
printf("res: %ld, %ld\n", (long)res, l1 - l2);
/* { dg-output "res: -1, -1" } */
exit(0);
}