diff options
| author | Mikhail Borisov <borisov.mikhail@gmail.com> | 2022-02-10 16:45:40 +0300 |
|---|---|---|
| committer | Daniil Cherednik <dcherednik@yandex-team.ru> | 2022-02-10 16:45:40 +0300 |
| commit | 5d50718e66d9c037dc587a0211110b7d25a66185 (patch) | |
| tree | e98df59de24d2ef7c77baed9f41e4875a2fef972 /contrib/restricted/libffi/testsuite/libffi.complex | |
| parent | a6a92afe03e02795227d2641b49819b687f088f8 (diff) | |
| download | ydb-5d50718e66d9c037dc587a0211110b7d25a66185.tar.gz | |
Restoring authorship annotation for Mikhail Borisov <borisov.mikhail@gmail.com>. Commit 2 of 2.
Diffstat (limited to 'contrib/restricted/libffi/testsuite/libffi.complex')
70 files changed, 1511 insertions, 1511 deletions
diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex.inc b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex.inc index 80c5b04bb6..4a812edf05 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex.inc @@ -1,91 +1,91 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <complex.h> - -typedef struct cls_struct_align { - unsigned char a; - _Complex T_C_TYPE b; - unsigned char c; -} cls_struct_align; - -cls_struct_align cls_struct_align_fn( - struct cls_struct_align a1, struct cls_struct_align a2) -{ - struct cls_struct_align result; - - result.a = a1.a + a2.a; - result.b = a1.b + a2.b; - result.c = a1.c + a2.c; - - printf("%d %f,%fi %d %d %f,%fi %d: %d %f,%fi %d\n", - a1.a, T_CONV creal (a1.b), T_CONV cimag (a1.b), a1.c, - a2.a, T_CONV creal (a2.b), T_CONV cimag (a2.b), a2.c, - result.a, T_CONV creal (result.b), T_CONV cimag (result.b), result.c); - - return result; -} - -static void -cls_struct_align_gn(ffi_cif* cif __UNUSED__, void* resp, void** args, - void* userdata __UNUSED__) -{ - - struct cls_struct_align a1, a2; - - a1 = *(struct cls_struct_align*)(args[0]); - a2 = *(struct cls_struct_align*)(args[1]); - - *(cls_struct_align*)resp = cls_struct_align_fn(a1, a2); -} - -int main (void) -{ - ffi_cif cif; - void *code; - ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); - void* args_c[5]; - ffi_type* cls_struct_fields[4]; - ffi_type cls_struct_type; - ffi_type* c_arg_types[5]; - - struct cls_struct_align g_c = { 12, 4951 + 7 * I, 127 }; - struct cls_struct_align f_c = { 1, 9320 + 1 * I, 13 }; - struct cls_struct_align res_c; - - cls_struct_type.size = 0; - cls_struct_type.alignment = 0; - cls_struct_type.type = FFI_TYPE_STRUCT; - cls_struct_type.elements = cls_struct_fields; - - cls_struct_fields[0] = &ffi_type_uchar; - cls_struct_fields[1] = &T_FFI_TYPE; - cls_struct_fields[2] = &ffi_type_uchar; - cls_struct_fields[3] = NULL; - - c_arg_types[0] = &cls_struct_type; - c_arg_types[1] = &cls_struct_type; - c_arg_types[2] = NULL; - - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type, - c_arg_types) == FFI_OK); - - args_c[0] = &g_c; - args_c[1] = &f_c; - args_c[2] = NULL; - - ffi_call(&cif, FFI_FN(cls_struct_align_fn), &res_c, args_c); - /* { dg-output "12 4951,7i 127 1 9320,1i 13: 13 14271,8i 140" } */ - printf("res: %d %f,%fi %d\n", - res_c.a, T_CONV creal (res_c.b), T_CONV cimag (res_c.b), res_c.c); - /* { dg-output "\nres: 13 14271,8i 140" } */ - - CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK); - - res_c = ((cls_struct_align(*)(cls_struct_align, cls_struct_align))(code))(g_c, f_c); - /* { dg-output "\n12 4951,7i 127 1 9320,1i 13: 13 14271,8i 140" } */ - printf("res: %d %f,%fi %d\n", - res_c.a, T_CONV creal (res_c.b), T_CONV cimag (res_c.b), res_c.c); - /* { dg-output "\nres: 13 14271,8i 140" } */ - - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" +#include <complex.h> + +typedef struct cls_struct_align { + unsigned char a; + _Complex T_C_TYPE b; + unsigned char c; +} cls_struct_align; + +cls_struct_align cls_struct_align_fn( + struct cls_struct_align a1, struct cls_struct_align a2) +{ + struct cls_struct_align result; + + result.a = a1.a + a2.a; + result.b = a1.b + a2.b; + result.c = a1.c + a2.c; + + printf("%d %f,%fi %d %d %f,%fi %d: %d %f,%fi %d\n", + a1.a, T_CONV creal (a1.b), T_CONV cimag (a1.b), a1.c, + a2.a, T_CONV creal (a2.b), T_CONV cimag (a2.b), a2.c, + result.a, T_CONV creal (result.b), T_CONV cimag (result.b), result.c); + + return result; +} + +static void +cls_struct_align_gn(ffi_cif* cif __UNUSED__, void* resp, void** args, + void* userdata __UNUSED__) +{ + + struct cls_struct_align a1, a2; + + a1 = *(struct cls_struct_align*)(args[0]); + a2 = *(struct cls_struct_align*)(args[1]); + + *(cls_struct_align*)resp = cls_struct_align_fn(a1, a2); +} + +int main (void) +{ + ffi_cif cif; + void *code; + ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); + void* args_c[5]; + ffi_type* cls_struct_fields[4]; + ffi_type cls_struct_type; + ffi_type* c_arg_types[5]; + + struct cls_struct_align g_c = { 12, 4951 + 7 * I, 127 }; + struct cls_struct_align f_c = { 1, 9320 + 1 * I, 13 }; + struct cls_struct_align res_c; + + cls_struct_type.size = 0; + cls_struct_type.alignment = 0; + cls_struct_type.type = FFI_TYPE_STRUCT; + cls_struct_type.elements = cls_struct_fields; + + cls_struct_fields[0] = &ffi_type_uchar; + cls_struct_fields[1] = &T_FFI_TYPE; + cls_struct_fields[2] = &ffi_type_uchar; + cls_struct_fields[3] = NULL; + + c_arg_types[0] = &cls_struct_type; + c_arg_types[1] = &cls_struct_type; + c_arg_types[2] = NULL; + + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type, + c_arg_types) == FFI_OK); + + args_c[0] = &g_c; + args_c[1] = &f_c; + args_c[2] = NULL; + + ffi_call(&cif, FFI_FN(cls_struct_align_fn), &res_c, args_c); + /* { dg-output "12 4951,7i 127 1 9320,1i 13: 13 14271,8i 140" } */ + printf("res: %d %f,%fi %d\n", + res_c.a, T_CONV creal (res_c.b), T_CONV cimag (res_c.b), res_c.c); + /* { dg-output "\nres: 13 14271,8i 140" } */ + + CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK); + + res_c = ((cls_struct_align(*)(cls_struct_align, cls_struct_align))(code))(g_c, f_c); + /* { dg-output "\n12 4951,7i 127 1 9320,1i 13: 13 14271,8i 140" } */ + printf("res: %d %f,%fi %d\n", + res_c.a, T_CONV creal (res_c.b), T_CONV cimag (res_c.b), res_c.c); + /* { dg-output "\nres: 13 14271,8i 140" } */ + + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double.c index cf8cc09038..0dff23ae47 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Check structure alignment of complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "cls_align_complex.inc" +/* Area: ffi_call, closure_call + Purpose: Check structure alignment of complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "cls_align_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double/ya.make index ab71e0fb72..d83d272ce4 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_align_complex_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_align_complex_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float.c index 5f7bc7a02c..0affbd07e5 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Check structure alignment of complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "cls_align_complex.inc" +/* Area: ffi_call, closure_call + Purpose: Check structure alignment of complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "cls_align_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float/ya.make index 9f514f3cdd..57634effef 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_align_complex_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_align_complex_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c index c8307bf2d0..7889ba859b 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Check structure alignment of complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "cls_align_complex.inc" +/* Area: ffi_call, closure_call + Purpose: Check structure alignment of complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "cls_align_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble/ya.make index 30064a1456..455cfb8ac9 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_align_complex_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_align_complex_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_align_complex_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex.inc b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex.inc index 4f27d33417..f9374044e8 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex.inc @@ -1,42 +1,42 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <complex.h> - -static void cls_ret_complex_fn(ffi_cif* cif __UNUSED__, void* resp, void** args, - void* userdata __UNUSED__) - { - _Complex T_C_TYPE *pa; - _Complex T_C_TYPE *pr; - pa = (_Complex T_C_TYPE *)args[0]; - pr = (_Complex T_C_TYPE *)resp; - *pr = *pa; - - printf("%.6f,%.6fi: %.6f,%.6fi\n", - T_CONV creal (*pa), T_CONV cimag (*pa), - T_CONV creal (*pr), T_CONV cimag (*pr)); - } -typedef _Complex T_C_TYPE (*cls_ret_complex)(_Complex T_C_TYPE); - -int main (void) -{ - ffi_cif cif; - void *code; - ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); - ffi_type * cl_arg_types[2]; - _Complex T_C_TYPE res; - - cl_arg_types[0] = &T_FFI_TYPE; - cl_arg_types[1] = NULL; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, - &T_FFI_TYPE, cl_arg_types) == FFI_OK); - - CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ret_complex_fn, NULL, code) == FFI_OK); - - res = (*((cls_ret_complex)code))(0.125 + 128.0 * I); - printf("res: %.6f,%.6fi\n", T_CONV creal (res), T_CONV cimag (res)); - CHECK (res == (0.125 + 128.0 * I)); - - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" +#include <complex.h> + +static void cls_ret_complex_fn(ffi_cif* cif __UNUSED__, void* resp, void** args, + void* userdata __UNUSED__) + { + _Complex T_C_TYPE *pa; + _Complex T_C_TYPE *pr; + pa = (_Complex T_C_TYPE *)args[0]; + pr = (_Complex T_C_TYPE *)resp; + *pr = *pa; + + printf("%.6f,%.6fi: %.6f,%.6fi\n", + T_CONV creal (*pa), T_CONV cimag (*pa), + T_CONV creal (*pr), T_CONV cimag (*pr)); + } +typedef _Complex T_C_TYPE (*cls_ret_complex)(_Complex T_C_TYPE); + +int main (void) +{ + ffi_cif cif; + void *code; + ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); + ffi_type * cl_arg_types[2]; + _Complex T_C_TYPE res; + + cl_arg_types[0] = &T_FFI_TYPE; + cl_arg_types[1] = NULL; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, + &T_FFI_TYPE, cl_arg_types) == FFI_OK); + + CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ret_complex_fn, NULL, code) == FFI_OK); + + res = (*((cls_ret_complex)code))(0.125 + 128.0 * I); + printf("res: %.6f,%.6fi\n", T_CONV creal (res), T_CONV cimag (res)); + CHECK (res == (0.125 + 128.0 * I)); + + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double.c index e20b0b47f8..05e35340e0 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double.c @@ -1,10 +1,10 @@ -/* Area: closure_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "cls_complex.inc" +/* Area: closure_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "cls_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double/ya.make index 712d62197b..2e37bfbd4b 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float.c index 0015dce62c..5df7849d4c 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float.c @@ -1,10 +1,10 @@ -/* Area: closure_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "cls_complex.inc" +/* Area: closure_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "cls_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float/ya.make index cce2de0d06..a837883fba 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble.c index 123fee50c4..2b1c320a20 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble.c @@ -1,10 +1,10 @@ -/* Area: closure_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "cls_complex.inc" +/* Area: closure_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "cls_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble/ya.make index d51f8468ba..84c1f3c271 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct.inc b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct.inc index c2b27564a4..df8708d1c4 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct.inc @@ -1,71 +1,71 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <complex.h> - -typedef struct Cs { - _Complex T_C_TYPE x; - _Complex T_C_TYPE y; -} Cs; - -Cs gc; - -void -closure_test_fn(Cs p) -{ - printf("%.1f,%.1fi %.1f,%.1fi\n", - T_CONV creal (p.x), T_CONV cimag (p.x), - T_CONV creal (p.y), T_CONV cimag (p.y)); - gc = p; -} - -void -closure_test_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__, - void** args, void* userdata __UNUSED__) -{ - closure_test_fn(*(Cs*)args[0]); -} - -int main(int argc __UNUSED__, char** argv __UNUSED__) -{ - ffi_cif cif; - - void *code; - ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); - ffi_type *cl_arg_types[1]; - - ffi_type ts1_type; - ffi_type* ts1_type_elements[4]; - - Cs arg = { 1.0 + 11.0 * I, 2.0 + 22.0 * I}; - - ts1_type.size = 0; - ts1_type.alignment = 0; - ts1_type.type = FFI_TYPE_STRUCT; - ts1_type.elements = ts1_type_elements; - - ts1_type_elements[0] = &T_FFI_TYPE; - ts1_type_elements[1] = &T_FFI_TYPE; - ts1_type_elements[2] = NULL; - - cl_arg_types[0] = &ts1_type; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, - &ffi_type_void, cl_arg_types) == FFI_OK); - - CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_gn, NULL, code) == FFI_OK); - - gc.x = 0.0 + 0.0 * I; - gc.y = 0.0 + 0.0 * I; - ((void*(*)(Cs))(code))(arg); - /* { dg-output "1.0,11.0i 2.0,22.0i\n" } */ - CHECK (gc.x == arg.x && gc.y == arg.y); - - gc.x = 0.0 + 0.0 * I; - gc.y = 0.0 + 0.0 * I; - closure_test_fn(arg); - /* { dg-output "1.0,11.0i 2.0,22.0i\n" } */ - CHECK (gc.x == arg.x && gc.y == arg.y); - - return 0; -} +/* -*-c-*- */ +#include "ffitest.h" +#include <complex.h> + +typedef struct Cs { + _Complex T_C_TYPE x; + _Complex T_C_TYPE y; +} Cs; + +Cs gc; + +void +closure_test_fn(Cs p) +{ + printf("%.1f,%.1fi %.1f,%.1fi\n", + T_CONV creal (p.x), T_CONV cimag (p.x), + T_CONV creal (p.y), T_CONV cimag (p.y)); + gc = p; +} + +void +closure_test_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__, + void** args, void* userdata __UNUSED__) +{ + closure_test_fn(*(Cs*)args[0]); +} + +int main(int argc __UNUSED__, char** argv __UNUSED__) +{ + ffi_cif cif; + + void *code; + ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); + ffi_type *cl_arg_types[1]; + + ffi_type ts1_type; + ffi_type* ts1_type_elements[4]; + + Cs arg = { 1.0 + 11.0 * I, 2.0 + 22.0 * I}; + + ts1_type.size = 0; + ts1_type.alignment = 0; + ts1_type.type = FFI_TYPE_STRUCT; + ts1_type.elements = ts1_type_elements; + + ts1_type_elements[0] = &T_FFI_TYPE; + ts1_type_elements[1] = &T_FFI_TYPE; + ts1_type_elements[2] = NULL; + + cl_arg_types[0] = &ts1_type; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, + &ffi_type_void, cl_arg_types) == FFI_OK); + + CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_gn, NULL, code) == FFI_OK); + + gc.x = 0.0 + 0.0 * I; + gc.y = 0.0 + 0.0 * I; + ((void*(*)(Cs))(code))(arg); + /* { dg-output "1.0,11.0i 2.0,22.0i\n" } */ + CHECK (gc.x == arg.x && gc.y == arg.y); + + gc.x = 0.0 + 0.0 * I; + gc.y = 0.0 + 0.0 * I; + closure_test_fn(arg); + /* { dg-output "1.0,11.0i 2.0,22.0i\n" } */ + CHECK (gc.x == arg.x && gc.y == arg.y); + + return 0; +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double.c index 64468ccd19..ec71346a3f 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Check complex arguments in structs. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "cls_complex_struct.inc" +/* Area: ffi_call, closure_call + Purpose: Check complex arguments in structs. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "cls_complex_struct.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double/ya.make index 9e06c5f890..67041b3b3d 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_struct_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_struct_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float.c index ec44bd1c4a..96fdf75043 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Check complex arguments in structs. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "cls_complex_struct.inc" +/* Area: ffi_call, closure_call + Purpose: Check complex arguments in structs. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "cls_complex_struct.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float/ya.make index f54d1a858d..a73819b826 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_struct_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_struct_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c index 9aa99f3671..005b467398 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Check complex arguments in structs. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "cls_complex_struct.inc" +/* Area: ffi_call, closure_call + Purpose: Check complex arguments in structs. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "cls_complex_struct.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble/ya.make index f4cbcde654..7e223a7b7e 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_struct_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_struct_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va.inc b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va.inc index fb413aa8d7..8a3e15f0f6 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va.inc @@ -1,80 +1,80 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <stdio.h> -#include <stdlib.h> -#include <stdarg.h> -#include <complex.h> - -static _Complex T_C_TYPE gComplexValue1 = 1 + 2 * I; -static _Complex T_C_TYPE gComplexValue2 = 3 + 4 * I; - -static int cls_variadic(const char *format, ...) -{ - va_list ap; - _Complex T_C_TYPE p1, p2; - - va_start (ap, format); - p1 = va_arg (ap, _Complex T_C_TYPE); - p2 = va_arg (ap, _Complex T_C_TYPE); - va_end (ap); - - return printf(format, T_CONV creal (p1), T_CONV cimag (p1), - T_CONV creal (p2), T_CONV cimag (p2)); -} - -static void -cls_complex_va_fn(ffi_cif* cif __UNUSED__, void* resp, - void** args, void* userdata __UNUSED__) -{ - char* format = *(char**)args[0]; - gComplexValue1 = *(_Complex T_C_TYPE*)args[1]; - gComplexValue2 = *(_Complex T_C_TYPE*)args[2]; - - *(ffi_arg*)resp = - printf(format, - T_CONV creal (gComplexValue1), T_CONV cimag (gComplexValue1), - T_CONV creal (gComplexValue2), T_CONV cimag (gComplexValue2)); -} - -int main (void) -{ - ffi_cif cif; - void *code; - ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); - void* args[4]; - ffi_type* arg_types[4]; - char *format = "%.1f,%.1fi %.1f,%.1fi\n"; - - _Complex T_C_TYPE complexArg1 = 1.0 + 22.0 *I; - _Complex T_C_TYPE complexArg2 = 333.0 + 4444.0 *I; - ffi_arg res = 0; - - arg_types[0] = &ffi_type_pointer; - arg_types[1] = &T_FFI_TYPE; - arg_types[2] = &T_FFI_TYPE; - arg_types[3] = NULL; - - /* This printf call is variadic */ - CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 3, &ffi_type_sint, - arg_types) == FFI_OK); - - args[0] = &format; - args[1] = &complexArg1; - args[2] = &complexArg2; - args[3] = NULL; - - ffi_call(&cif, FFI_FN(cls_variadic), &res, args); - printf("res: %d\n", (int) res); - CHECK (res == 24); - - CHECK(ffi_prep_closure_loc(pcl, &cif, cls_complex_va_fn, NULL, code) - == FFI_OK); - - res = ((int(*)(char *, ...))(code))(format, complexArg1, complexArg2); - CHECK (gComplexValue1 == complexArg1); - CHECK (gComplexValue2 == complexArg2); - printf("res: %d\n", (int) res); - CHECK (res == 24); - - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" +#include <stdio.h> +#include <stdlib.h> +#include <stdarg.h> +#include <complex.h> + +static _Complex T_C_TYPE gComplexValue1 = 1 + 2 * I; +static _Complex T_C_TYPE gComplexValue2 = 3 + 4 * I; + +static int cls_variadic(const char *format, ...) +{ + va_list ap; + _Complex T_C_TYPE p1, p2; + + va_start (ap, format); + p1 = va_arg (ap, _Complex T_C_TYPE); + p2 = va_arg (ap, _Complex T_C_TYPE); + va_end (ap); + + return printf(format, T_CONV creal (p1), T_CONV cimag (p1), + T_CONV creal (p2), T_CONV cimag (p2)); +} + +static void +cls_complex_va_fn(ffi_cif* cif __UNUSED__, void* resp, + void** args, void* userdata __UNUSED__) +{ + char* format = *(char**)args[0]; + gComplexValue1 = *(_Complex T_C_TYPE*)args[1]; + gComplexValue2 = *(_Complex T_C_TYPE*)args[2]; + + *(ffi_arg*)resp = + printf(format, + T_CONV creal (gComplexValue1), T_CONV cimag (gComplexValue1), + T_CONV creal (gComplexValue2), T_CONV cimag (gComplexValue2)); +} + +int main (void) +{ + ffi_cif cif; + void *code; + ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code); + void* args[4]; + ffi_type* arg_types[4]; + char *format = "%.1f,%.1fi %.1f,%.1fi\n"; + + _Complex T_C_TYPE complexArg1 = 1.0 + 22.0 *I; + _Complex T_C_TYPE complexArg2 = 333.0 + 4444.0 *I; + ffi_arg res = 0; + + arg_types[0] = &ffi_type_pointer; + arg_types[1] = &T_FFI_TYPE; + arg_types[2] = &T_FFI_TYPE; + arg_types[3] = NULL; + + /* This printf call is variadic */ + CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 3, &ffi_type_sint, + arg_types) == FFI_OK); + + args[0] = &format; + args[1] = &complexArg1; + args[2] = &complexArg2; + args[3] = NULL; + + ffi_call(&cif, FFI_FN(cls_variadic), &res, args); + printf("res: %d\n", (int) res); + CHECK (res == 24); + + CHECK(ffi_prep_closure_loc(pcl, &cif, cls_complex_va_fn, NULL, code) + == FFI_OK); + + res = ((int(*)(char *, ...))(code))(format, complexArg1, complexArg2); + CHECK (gComplexValue1 == complexArg1); + CHECK (gComplexValue2 == complexArg2); + printf("res: %d\n", (int) res); + CHECK (res == 24); + + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double.c index b37e7ef503..879ccf3b81 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Test complex' passed in variable argument lists. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "cls_complex_va.inc" +/* Area: ffi_call, closure_call + Purpose: Test complex' passed in variable argument lists. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "cls_complex_va.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double/ya.make index a3f2950e05..8f437dc41e 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_va_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_va_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float.c index 013edb8f06..2b17826045 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float.c @@ -1,16 +1,16 @@ -/* Area: ffi_call, closure_call - Purpose: Test complex' passed in variable argument lists. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -/* Alpha splits _Complex into two arguments. It's illegal to pass - float through varargs, so _Complex float goes badly. In sort of - gets passed as _Complex double, but the compiler doesn't agree - with itself on this issue. */ -/* { dg-do run { xfail alpha*-*-* } } */ - -#include "complex_defs_float.inc" -#include "cls_complex_va.inc" +/* Area: ffi_call, closure_call + Purpose: Test complex' passed in variable argument lists. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +/* Alpha splits _Complex into two arguments. It's illegal to pass + float through varargs, so _Complex float goes badly. In sort of + gets passed as _Complex double, but the compiler doesn't agree + with itself on this issue. */ +/* { dg-do run { xfail alpha*-*-* } } */ + +#include "complex_defs_float.inc" +#include "cls_complex_va.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float/ya.make index aa33956c76..b936ee74d3 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_va_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_va_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c index 5895b340c1..6eca9656ea 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call, closure_call - Purpose: Test complex' passed in variable argument lists. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "cls_complex_va.inc" +/* Area: ffi_call, closure_call + Purpose: Test complex' passed in variable argument lists. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "cls_complex_va.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble/ya.make index 7992138484..4225df798e 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/cls_complex_va_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - cls_complex_va_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + cls_complex_va_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex.inc b/contrib/restricted/libffi/testsuite/libffi.complex/complex.inc index 61c0994a19..515ae3e60d 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex.inc @@ -1,51 +1,51 @@ -/* -*-c-*-*/ -#include "ffitest.h" -#include <complex.h> - -static _Complex T_C_TYPE f_complex(_Complex T_C_TYPE c, int x, int *py) -{ - c = -(2 * creal (c)) + (cimag (c) + 1)* I; - *py += x; - - return c; -} - -int main (void) -{ - ffi_cif cif; - ffi_type *args[MAX_ARGS]; - void *values[MAX_ARGS]; - - _Complex T_C_TYPE tc_arg; - _Complex T_C_TYPE tc_result; - int tc_int_arg_x; - int tc_y; - int *tc_ptr_arg_y = &tc_y; - - args[0] = &T_FFI_TYPE; - args[1] = &ffi_type_sint; - args[2] = &ffi_type_pointer; - values[0] = &tc_arg; - values[1] = &tc_int_arg_x; - values[2] = &tc_ptr_arg_y; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, - &T_FFI_TYPE, args) == FFI_OK); - - tc_arg = 1 + 7 * I; - tc_int_arg_x = 1234; - tc_y = 9876; - ffi_call(&cif, FFI_FN(f_complex), &tc_result, values); - - printf ("%f,%fi %f,%fi, x %d 1234, y %d 11110\n", - T_CONV creal (tc_result), T_CONV cimag (tc_result), - T_CONV creal (2.0), T_CONV creal (8.0), tc_int_arg_x, tc_y); - - CHECK (creal (tc_result) == -2); - CHECK (cimag (tc_result) == 8); - CHECK (tc_int_arg_x == 1234); - CHECK (*tc_ptr_arg_y == 11110); - - exit(0); -} +/* -*-c-*-*/ +#include "ffitest.h" +#include <complex.h> + +static _Complex T_C_TYPE f_complex(_Complex T_C_TYPE c, int x, int *py) +{ + c = -(2 * creal (c)) + (cimag (c) + 1)* I; + *py += x; + + return c; +} + +int main (void) +{ + ffi_cif cif; + ffi_type *args[MAX_ARGS]; + void *values[MAX_ARGS]; + + _Complex T_C_TYPE tc_arg; + _Complex T_C_TYPE tc_result; + int tc_int_arg_x; + int tc_y; + int *tc_ptr_arg_y = &tc_y; + + args[0] = &T_FFI_TYPE; + args[1] = &ffi_type_sint; + args[2] = &ffi_type_pointer; + values[0] = &tc_arg; + values[1] = &tc_int_arg_x; + values[2] = &tc_ptr_arg_y; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, + &T_FFI_TYPE, args) == FFI_OK); + + tc_arg = 1 + 7 * I; + tc_int_arg_x = 1234; + tc_y = 9876; + ffi_call(&cif, FFI_FN(f_complex), &tc_result, values); + + printf ("%f,%fi %f,%fi, x %d 1234, y %d 11110\n", + T_CONV creal (tc_result), T_CONV cimag (tc_result), + T_CONV creal (2.0), T_CONV creal (8.0), tc_int_arg_x, tc_y); + + CHECK (creal (tc_result) == -2); + CHECK (cimag (tc_result) == 8); + CHECK (tc_int_arg_x == 1234); + CHECK (*tc_ptr_arg_y == 11110); + + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_double.inc b/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_double.inc index 7a35c8e1a8..3583e166d6 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_double.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_double.inc @@ -1,7 +1,7 @@ -/* -*-c-*- */ -/* Complex base type. */ -#define T_FFI_TYPE ffi_type_complex_double -/* C type corresponding to the base type. */ -#define T_C_TYPE double -/* C cast for a value of type T_C_TYPE that is passed to printf. */ -#define T_CONV +/* -*-c-*- */ +/* Complex base type. */ +#define T_FFI_TYPE ffi_type_complex_double +/* C type corresponding to the base type. */ +#define T_C_TYPE double +/* C cast for a value of type T_C_TYPE that is passed to printf. */ +#define T_CONV diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_float.inc b/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_float.inc index 78811e884b..bbd9375cbf 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_float.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_float.inc @@ -1,7 +1,7 @@ -/* -*-c-*- */ -/* Complex base type. */ -#define T_FFI_TYPE ffi_type_complex_float -/* C type corresponding to the base type. */ -#define T_C_TYPE float -/* C cast for a value of type T_C_TYPE that is passed to printf. */ -#define T_CONV (double) +/* -*-c-*- */ +/* Complex base type. */ +#define T_FFI_TYPE ffi_type_complex_float +/* C type corresponding to the base type. */ +#define T_C_TYPE float +/* C cast for a value of type T_C_TYPE that is passed to printf. */ +#define T_CONV (double) diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc b/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc index 3eb9ae3974..14b9f243f4 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc @@ -1,7 +1,7 @@ -/* -*-c-*- */ -/* Complex base type. */ -#define T_FFI_TYPE ffi_type_complex_longdouble -/* C type corresponding to the base type. */ -#define T_C_TYPE long double -/* C cast for a value of type T_C_TYPE that is passed to printf. */ -#define T_CONV +/* -*-c-*- */ +/* Complex base type. */ +#define T_FFI_TYPE ffi_type_complex_longdouble +/* C type corresponding to the base type. */ +#define T_C_TYPE long double +/* C cast for a value of type T_C_TYPE that is passed to printf. */ +#define T_CONV diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/complex_double.c index dffaa9acf2..8a3297b2a2 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check complex types. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "complex.inc" +/* Area: ffi_call + Purpose: Check complex types. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/complex_double/ya.make index c73f64f997..11976473c0 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - complex_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + complex_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/complex_float.c index 9de6f54fb5..5044ebbcaa 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check complex types. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "complex.inc" +/* Area: ffi_call + Purpose: Check complex types. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/complex_float/ya.make index 33ca4b961a..02103a290e 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - complex_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + complex_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_int.c b/contrib/restricted/libffi/testsuite/libffi.complex/complex_int.c index c863e613aa..bac319081e 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_int.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_int.c @@ -1,86 +1,86 @@ -/* Area: ffi_call - Purpose: Check non-standard complex types. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "ffitest.h" -#include "ffi.h" -#include <complex.h> - -_Complex int f_complex(_Complex int c, int x, int *py) -{ - __real__ c = -2 * __real__ c; - __imag__ c = __imag__ c + 1; - *py += x; - return c; -} - -/* - * This macro can be used to define new complex type descriptors - * in a platform independent way. - * - * name: Name of the new descriptor is ffi_type_complex_<name>. - * type: The C base type of the complex type. - */ -#define FFI_COMPLEX_TYPEDEF(name, type, ffitype) \ - static ffi_type *ffi_elements_complex_##name [2] = { \ - (ffi_type *)(&ffitype), NULL \ - }; \ - struct struct_align_complex_##name { \ - char c; \ - _Complex type x; \ - }; \ - ffi_type ffi_type_complex_##name = { \ - sizeof(_Complex type), \ - offsetof(struct struct_align_complex_##name, x), \ - FFI_TYPE_COMPLEX, \ - (ffi_type **)ffi_elements_complex_##name \ - } - -/* Define new complex type descriptors using the macro: */ -/* ffi_type_complex_sint */ -FFI_COMPLEX_TYPEDEF(sint, int, ffi_type_sint); -/* ffi_type_complex_uchar */ -FFI_COMPLEX_TYPEDEF(uchar, unsigned char, ffi_type_uint8); - -int main (void) -{ - ffi_cif cif; - ffi_type *args[MAX_ARGS]; - void *values[MAX_ARGS]; - - _Complex int tc_arg; - _Complex int tc_result; - int tc_int_arg_x; - int tc_y; - int *tc_ptr_arg_y = &tc_y; - - args[0] = &ffi_type_complex_sint; - args[1] = &ffi_type_sint; - args[2] = &ffi_type_pointer; - values[0] = &tc_arg; - values[1] = &tc_int_arg_x; - values[2] = &tc_ptr_arg_y; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, &ffi_type_complex_sint, args) - == FFI_OK); - - tc_arg = 1 + 7 * I; - tc_int_arg_x = 1234; - tc_y = 9876; - ffi_call(&cif, FFI_FN(f_complex), &tc_result, values); - - printf ("%d,%di %d,%di, x %d 1234, y %d 11110\n", - (int)tc_result, (int)(tc_result * -I), 2, 8, tc_int_arg_x, tc_y); - /* dg-output "-2,8i 2,8i, x 1234 1234, y 11110 11110" */ - CHECK (creal (tc_result) == -2); - CHECK (cimag (tc_result) == 8); - CHECK (tc_int_arg_x == 1234); - CHECK (*tc_ptr_arg_y == 11110); - - exit(0); -} +/* Area: ffi_call + Purpose: Check non-standard complex types. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "ffitest.h" +#include "ffi.h" +#include <complex.h> + +_Complex int f_complex(_Complex int c, int x, int *py) +{ + __real__ c = -2 * __real__ c; + __imag__ c = __imag__ c + 1; + *py += x; + return c; +} + +/* + * This macro can be used to define new complex type descriptors + * in a platform independent way. + * + * name: Name of the new descriptor is ffi_type_complex_<name>. + * type: The C base type of the complex type. + */ +#define FFI_COMPLEX_TYPEDEF(name, type, ffitype) \ + static ffi_type *ffi_elements_complex_##name [2] = { \ + (ffi_type *)(&ffitype), NULL \ + }; \ + struct struct_align_complex_##name { \ + char c; \ + _Complex type x; \ + }; \ + ffi_type ffi_type_complex_##name = { \ + sizeof(_Complex type), \ + offsetof(struct struct_align_complex_##name, x), \ + FFI_TYPE_COMPLEX, \ + (ffi_type **)ffi_elements_complex_##name \ + } + +/* Define new complex type descriptors using the macro: */ +/* ffi_type_complex_sint */ +FFI_COMPLEX_TYPEDEF(sint, int, ffi_type_sint); +/* ffi_type_complex_uchar */ +FFI_COMPLEX_TYPEDEF(uchar, unsigned char, ffi_type_uint8); + +int main (void) +{ + ffi_cif cif; + ffi_type *args[MAX_ARGS]; + void *values[MAX_ARGS]; + + _Complex int tc_arg; + _Complex int tc_result; + int tc_int_arg_x; + int tc_y; + int *tc_ptr_arg_y = &tc_y; + + args[0] = &ffi_type_complex_sint; + args[1] = &ffi_type_sint; + args[2] = &ffi_type_pointer; + values[0] = &tc_arg; + values[1] = &tc_int_arg_x; + values[2] = &tc_ptr_arg_y; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, &ffi_type_complex_sint, args) + == FFI_OK); + + tc_arg = 1 + 7 * I; + tc_int_arg_x = 1234; + tc_y = 9876; + ffi_call(&cif, FFI_FN(f_complex), &tc_result, values); + + printf ("%d,%di %d,%di, x %d 1234, y %d 11110\n", + (int)tc_result, (int)(tc_result * -I), 2, 8, tc_int_arg_x, tc_y); + /* dg-output "-2,8i 2,8i, x 1234 1234, y 11110 11110" */ + CHECK (creal (tc_result) == -2); + CHECK (cimag (tc_result) == 8); + CHECK (tc_int_arg_x == 1234); + CHECK (*tc_ptr_arg_y == 11110); + + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_int/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/complex_int/ya.make index 671dff8943..94f7e6ae6a 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_int/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_int/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - complex_int.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + complex_int.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble.c index 098b494f42..7e78366093 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check complex types. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "complex.inc" +/* Area: ffi_call + Purpose: Check complex types. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble/ya.make index ec73c64faa..c68e2c5613 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/complex_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - complex_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + complex_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/ffitest.h b/contrib/restricted/libffi/testsuite/libffi.complex/ffitest.h index 1e9446fbbc..d27d362d6a 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/ffitest.h +++ b/contrib/restricted/libffi/testsuite/libffi.complex/ffitest.h @@ -1 +1 @@ -#include "../libffi.call/ffitest.h" +#include "../libffi.call/ffitest.h" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex.inc b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex.inc index b68458e862..e37a774397 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex.inc @@ -1,78 +1,78 @@ -/* -*-c-*- */ -#include "ffitest.h" - -#include <stdlib.h> -#include <complex.h> - -static _Complex T_C_TYPE many(_Complex T_C_TYPE c1, - _Complex T_C_TYPE c2, - _Complex T_C_TYPE c3, - _Complex T_C_TYPE c4, - _Complex T_C_TYPE c5, - _Complex T_C_TYPE c6, - _Complex T_C_TYPE c7, - _Complex T_C_TYPE c8, - _Complex T_C_TYPE c9, - _Complex T_C_TYPE c10, - _Complex T_C_TYPE c11, - _Complex T_C_TYPE c12, - _Complex T_C_TYPE c13) -{ - printf("0 :%f,%fi\n" - "1 :%f,%fi\n" - "2 :%f,%fi\n" - "3 :%f,%fi\n" - "4 :%f,%fi\n" - "5 :%f,%fi\n" - "6 :%f,%fi\n" - "7 :%f,%fi\n" - "8 :%f,%fi\n" - "9 :%f,%fi\n" - "10:%f,%fi\n" - "11:%f,%fi\n" - "12:%f,%fi\n", - T_CONV creal (c1), T_CONV cimag (c1), - T_CONV creal (c2), T_CONV cimag (c2), - T_CONV creal (c3), T_CONV cimag (c3), - T_CONV creal (c4), T_CONV cimag (c4), - T_CONV creal (c5), T_CONV cimag (c5), - T_CONV creal (c6), T_CONV cimag (c6), - T_CONV creal (c7), T_CONV cimag (c7), - T_CONV creal (c8), T_CONV cimag (c8), - T_CONV creal (c9), T_CONV cimag (c9), - T_CONV creal (c10), T_CONV cimag (c10), - T_CONV creal (c11), T_CONV cimag (c11), - T_CONV creal (c12), T_CONV cimag (c12), - T_CONV creal (c13), T_CONV cimag (c13)); - - return (c1+c2-c3-c4+c5+c6+c7-c8-c9-c10-c11+c12+c13); -} - -int main (void) -{ - ffi_cif cif; - ffi_type *args[13]; - void *values[13]; - _Complex T_C_TYPE ca[13]; - _Complex T_C_TYPE c, cc; - int i; - - for (i = 0; i < 13; i++) - { - args[i] = &T_FFI_TYPE; - values[i] = &ca[i]; - ca[i] = i + (-20 - i) * I; - } - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 13, &T_FFI_TYPE, args) == FFI_OK); - - ffi_call(&cif, FFI_FN(many), &c, values); - - cc = many(ca[0], ca[1], ca[2], ca[3], ca[4], ca[5], ca[6], ca[7], ca[8], - ca[9], ca[10], ca[11], ca[12]); - CHECK(creal (cc) == creal (c)); - CHECK(cimag (cc) == cimag (c)); - - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" + +#include <stdlib.h> +#include <complex.h> + +static _Complex T_C_TYPE many(_Complex T_C_TYPE c1, + _Complex T_C_TYPE c2, + _Complex T_C_TYPE c3, + _Complex T_C_TYPE c4, + _Complex T_C_TYPE c5, + _Complex T_C_TYPE c6, + _Complex T_C_TYPE c7, + _Complex T_C_TYPE c8, + _Complex T_C_TYPE c9, + _Complex T_C_TYPE c10, + _Complex T_C_TYPE c11, + _Complex T_C_TYPE c12, + _Complex T_C_TYPE c13) +{ + printf("0 :%f,%fi\n" + "1 :%f,%fi\n" + "2 :%f,%fi\n" + "3 :%f,%fi\n" + "4 :%f,%fi\n" + "5 :%f,%fi\n" + "6 :%f,%fi\n" + "7 :%f,%fi\n" + "8 :%f,%fi\n" + "9 :%f,%fi\n" + "10:%f,%fi\n" + "11:%f,%fi\n" + "12:%f,%fi\n", + T_CONV creal (c1), T_CONV cimag (c1), + T_CONV creal (c2), T_CONV cimag (c2), + T_CONV creal (c3), T_CONV cimag (c3), + T_CONV creal (c4), T_CONV cimag (c4), + T_CONV creal (c5), T_CONV cimag (c5), + T_CONV creal (c6), T_CONV cimag (c6), + T_CONV creal (c7), T_CONV cimag (c7), + T_CONV creal (c8), T_CONV cimag (c8), + T_CONV creal (c9), T_CONV cimag (c9), + T_CONV creal (c10), T_CONV cimag (c10), + T_CONV creal (c11), T_CONV cimag (c11), + T_CONV creal (c12), T_CONV cimag (c12), + T_CONV creal (c13), T_CONV cimag (c13)); + + return (c1+c2-c3-c4+c5+c6+c7-c8-c9-c10-c11+c12+c13); +} + +int main (void) +{ + ffi_cif cif; + ffi_type *args[13]; + void *values[13]; + _Complex T_C_TYPE ca[13]; + _Complex T_C_TYPE c, cc; + int i; + + for (i = 0; i < 13; i++) + { + args[i] = &T_FFI_TYPE; + values[i] = &ca[i]; + ca[i] = i + (-20 - i) * I; + } + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 13, &T_FFI_TYPE, args) == FFI_OK); + + ffi_call(&cif, FFI_FN(many), &c, values); + + cc = many(ca[0], ca[1], ca[2], ca[3], ca[4], ca[5], ca[6], ca[7], ca[8], + ca[9], ca[10], ca[11], ca[12]); + CHECK(creal (cc) == creal (c)); + CHECK(cimag (cc) == cimag (c)); + + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double.c index 378d4a156a..3fd53c3354 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex, with many arguments - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "many_complex.inc" +/* Area: ffi_call + Purpose: Check return value complex, with many arguments + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "many_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double/ya.make index 5b85306b66..2bcdfea7f1 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - many_complex_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + many_complex_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float.c index 24ea13ec3f..c43d21cd9e 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex, with many arguments - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "many_complex.inc" +/* Area: ffi_call + Purpose: Check return value complex, with many arguments + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "many_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float/ya.make index b525fbfa52..82f2a93933 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - many_complex_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + many_complex_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble.c index 6d32b8b8d0..dbab723969 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex, with many arguments - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "many_complex.inc" +/* Area: ffi_call + Purpose: Check return value complex, with many arguments + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "many_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble/ya.make index 64b7080575..68bf0b2407 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/many_complex_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - many_complex_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + many_complex_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex.inc b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex.inc index 590317e99b..8bf0c1fbab 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex.inc @@ -1,37 +1,37 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <complex.h> - -static _Complex T_C_TYPE return_c(_Complex T_C_TYPE c) -{ - printf ("%f,%fi\n", T_CONV creal (c), T_CONV cimag (c)); - return 2 * c; -} -int main (void) -{ - ffi_cif cif; - ffi_type *args[MAX_ARGS]; - void *values[MAX_ARGS]; - _Complex T_C_TYPE c, rc, rc2; - T_C_TYPE cr, ci; - - args[0] = &T_FFI_TYPE; - values[0] = &c; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, - &T_FFI_TYPE, args) == FFI_OK); - - for (cr = -127.0; cr < 127; cr++) - { - ci = 1000.0 - cr; - c = cr + ci * I; - ffi_call(&cif, FFI_FN(return_c), &rc, values); - rc2 = return_c(c); - printf ("%f,%fi vs %f,%fi\n", - T_CONV creal (rc), T_CONV cimag (rc), - T_CONV creal (rc2), T_CONV cimag (rc2)); - CHECK(rc == 2 * c); - } - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" +#include <complex.h> + +static _Complex T_C_TYPE return_c(_Complex T_C_TYPE c) +{ + printf ("%f,%fi\n", T_CONV creal (c), T_CONV cimag (c)); + return 2 * c; +} +int main (void) +{ + ffi_cif cif; + ffi_type *args[MAX_ARGS]; + void *values[MAX_ARGS]; + _Complex T_C_TYPE c, rc, rc2; + T_C_TYPE cr, ci; + + args[0] = &T_FFI_TYPE; + values[0] = &c; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, + &T_FFI_TYPE, args) == FFI_OK); + + for (cr = -127.0; cr < 127; cr++) + { + ci = 1000.0 - cr; + c = cr + ci * I; + ffi_call(&cif, FFI_FN(return_c), &rc, values); + rc2 = return_c(c); + printf ("%f,%fi vs %f,%fi\n", + T_CONV creal (rc), T_CONV cimag (rc), + T_CONV creal (rc2), T_CONV cimag (rc2)); + CHECK(rc == 2 * c); + } + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1.inc b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1.inc index fb29e31623..7cecc0fefa 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1.inc @@ -1,41 +1,41 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <complex.h> - -static _Complex T_C_TYPE return_c(_Complex T_C_TYPE c1, float fl2, unsigned int in3, _Complex T_C_TYPE c4) -{ - return c1 + fl2 + in3 + c4; -} -int main (void) -{ - ffi_cif cif; - ffi_type *args[MAX_ARGS]; - void *values[MAX_ARGS]; - _Complex T_C_TYPE c1, c4, rc, rc2; - float fl2; - unsigned int in3; - args[0] = &T_FFI_TYPE; - args[1] = &ffi_type_float; - args[2] = &ffi_type_uint; - args[3] = &T_FFI_TYPE; - values[0] = &c1; - values[1] = &fl2; - values[2] = &in3; - values[3] = &c4; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, - &T_FFI_TYPE, args) == FFI_OK); - c1 = 127.0 + 255.0 * I; - fl2 = 128.0; - in3 = 255; - c4 = 512.7 + 1024.1 * I; - - ffi_call(&cif, FFI_FN(return_c), &rc, values); - rc2 = return_c(c1, fl2, in3, c4); - printf ("%f,%fi vs %f,%fi\n", - T_CONV creal (rc), T_CONV cimag (rc), - T_CONV creal (rc2), T_CONV cimag (rc2)); - CHECK(rc == rc2); - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" +#include <complex.h> + +static _Complex T_C_TYPE return_c(_Complex T_C_TYPE c1, float fl2, unsigned int in3, _Complex T_C_TYPE c4) +{ + return c1 + fl2 + in3 + c4; +} +int main (void) +{ + ffi_cif cif; + ffi_type *args[MAX_ARGS]; + void *values[MAX_ARGS]; + _Complex T_C_TYPE c1, c4, rc, rc2; + float fl2; + unsigned int in3; + args[0] = &T_FFI_TYPE; + args[1] = &ffi_type_float; + args[2] = &ffi_type_uint; + args[3] = &T_FFI_TYPE; + values[0] = &c1; + values[1] = &fl2; + values[2] = &in3; + values[3] = &c4; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, + &T_FFI_TYPE, args) == FFI_OK); + c1 = 127.0 + 255.0 * I; + fl2 = 128.0; + in3 = 255; + c4 = 512.7 + 1024.1 * I; + + ffi_call(&cif, FFI_FN(return_c), &rc, values); + rc2 = return_c(c1, fl2, in3, c4); + printf ("%f,%fi vs %f,%fi\n", + T_CONV creal (rc), T_CONV cimag (rc), + T_CONV creal (rc2), T_CONV cimag (rc2)); + CHECK(rc == rc2); + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double.c index 9ddd9beb13..727410d563 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "return_complex1.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "return_complex1.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double/ya.make index 6a8a1cce58..f3666626a6 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex1_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex1_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float.c index 518502d0d8..a2aeada847 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "return_complex1.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "return_complex1.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float/ya.make index ad37e11a10..2f9ebac337 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex1_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex1_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble.c index b6e7793094..103504bf64 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "return_complex1.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "return_complex1.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble/ya.make index 6254737104..e8ea56065b 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex1_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex1_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex1_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2.inc b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2.inc index 1ab6d5bb15..265170bf71 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2.inc +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2.inc @@ -1,44 +1,44 @@ -/* -*-c-*- */ -#include "ffitest.h" -#include <complex.h> - -_Complex T_C_TYPE -return_c(_Complex T_C_TYPE c1, _Complex T_C_TYPE c2, - unsigned int in3, _Complex T_C_TYPE c4) -{ - volatile _Complex T_C_TYPE r = c1 + c2 + in3 + c4; - return r; -} - -int main (void) -{ - ffi_cif cif; - ffi_type *args[MAX_ARGS]; - void *values[MAX_ARGS]; - _Complex T_C_TYPE c1, c2, c4, rc, rc2; - unsigned int in3; - args[0] = &T_FFI_TYPE; - args[1] = &T_FFI_TYPE; - args[2] = &ffi_type_uint; - args[3] = &T_FFI_TYPE; - values[0] = &c1; - values[1] = &c2; - values[2] = &in3; - values[3] = &c4; - - /* Initialize the cif */ - CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, - &T_FFI_TYPE, args) == FFI_OK); - c1 = 127.0 + 255.0 * I; - c2 = 128.0 + 256.0; - in3 = 255; - c4 = 512.7 + 1024.1 * I; - - ffi_call(&cif, FFI_FN(return_c), &rc, values); - rc2 = return_c(c1, c2, in3, c4); - printf ("%f,%fi vs %f,%fi\n", - T_CONV creal (rc), T_CONV cimag (rc), - T_CONV creal (rc2), T_CONV cimag (rc2)); - CHECK(rc == rc2); - exit(0); -} +/* -*-c-*- */ +#include "ffitest.h" +#include <complex.h> + +_Complex T_C_TYPE +return_c(_Complex T_C_TYPE c1, _Complex T_C_TYPE c2, + unsigned int in3, _Complex T_C_TYPE c4) +{ + volatile _Complex T_C_TYPE r = c1 + c2 + in3 + c4; + return r; +} + +int main (void) +{ + ffi_cif cif; + ffi_type *args[MAX_ARGS]; + void *values[MAX_ARGS]; + _Complex T_C_TYPE c1, c2, c4, rc, rc2; + unsigned int in3; + args[0] = &T_FFI_TYPE; + args[1] = &T_FFI_TYPE; + args[2] = &ffi_type_uint; + args[3] = &T_FFI_TYPE; + values[0] = &c1; + values[1] = &c2; + values[2] = &in3; + values[3] = &c4; + + /* Initialize the cif */ + CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4, + &T_FFI_TYPE, args) == FFI_OK); + c1 = 127.0 + 255.0 * I; + c2 = 128.0 + 256.0; + in3 = 255; + c4 = 512.7 + 1024.1 * I; + + ffi_call(&cif, FFI_FN(return_c), &rc, values); + rc2 = return_c(c1, c2, in3, c4); + printf ("%f,%fi vs %f,%fi\n", + T_CONV creal (rc), T_CONV cimag (rc), + T_CONV creal (rc2), T_CONV cimag (rc2)); + CHECK(rc == rc2); + exit(0); +} diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double.c index 48f266ae73..ab9efacb4a 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "return_complex2.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "return_complex2.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double/ya.make index 802fb44076..08804ca850 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex2_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex2_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float.c index 988e5ab395..d7f22c2a0c 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "return_complex2.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "return_complex2.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float/ya.make index 25b3668c11..3fa5a7ebb1 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex2_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex2_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble.c index 5ba8e277f6..3edea629df 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "return_complex2.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "return_complex2.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble/ya.make index 5a9d9b29a3..7104e84373 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex2_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex2_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex2_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double.c index b9a0f56820..e2497cc84a 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_double.inc" -#include "return_complex.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_double.inc" +#include "return_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double/ya.make index 6982692c50..19ccb8899b 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_double/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex_double.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex_double.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float.c index 762821e12d..a35528ff93 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_float.inc" -#include "return_complex.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_float.inc" +#include "return_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float/ya.make index 0871392666..cbe2235218 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_float/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex_float.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex_float.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble.c b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble.c index b0539ff09d..142d7becba 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble.c +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble.c @@ -1,10 +1,10 @@ -/* Area: ffi_call - Purpose: Check return value complex. - Limitations: none. - PR: none. - Originator: <vogt@linux.vnet.ibm.com>. */ - -/* { dg-do run } */ - -#include "complex_defs_longdouble.inc" -#include "return_complex.inc" +/* Area: ffi_call + Purpose: Check return value complex. + Limitations: none. + PR: none. + Originator: <vogt@linux.vnet.ibm.com>. */ + +/* { dg-do run } */ + +#include "complex_defs_longdouble.inc" +#include "return_complex.inc" diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble/ya.make index ac3b3c71f8..a689752038 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/return_complex_longdouble/ya.make @@ -1,9 +1,9 @@ -# Generated by devtools/yamaker. - -PROGRAM() - +# Generated by devtools/yamaker. + +PROGRAM() + WITHOUT_LICENSE_TEXTS() - + OWNER( borman g:cpp-contrib @@ -11,18 +11,18 @@ OWNER( LICENSE(GPL-2.0-only) -PEERDIR( - contrib/restricted/libffi -) - -NO_COMPILER_WARNINGS() - -NO_RUNTIME() - -SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) - -SRCS( - return_complex_longdouble.c -) - -END() +PEERDIR( + contrib/restricted/libffi +) + +NO_COMPILER_WARNINGS() + +NO_RUNTIME() + +SRCDIR(contrib/restricted/libffi/testsuite/libffi.complex) + +SRCS( + return_complex_longdouble.c +) + +END() diff --git a/contrib/restricted/libffi/testsuite/libffi.complex/ya.make b/contrib/restricted/libffi/testsuite/libffi.complex/ya.make index 02036190d0..032d03839a 100644 --- a/contrib/restricted/libffi/testsuite/libffi.complex/ya.make +++ b/contrib/restricted/libffi/testsuite/libffi.complex/ya.make @@ -1,32 +1,32 @@ -# Generated by devtools/yamaker. - -RECURSE( - cls_align_complex_double - cls_align_complex_float - cls_align_complex_longdouble - cls_complex_double - cls_complex_float - cls_complex_longdouble - cls_complex_struct_double - cls_complex_struct_float - cls_complex_struct_longdouble - cls_complex_va_double - cls_complex_va_float - cls_complex_va_longdouble - complex_double - complex_float - complex_int - complex_longdouble - many_complex_double - many_complex_float - many_complex_longdouble - return_complex1_double - return_complex1_float - return_complex1_longdouble - return_complex2_double - return_complex2_float - return_complex2_longdouble - return_complex_double - return_complex_float - return_complex_longdouble -) +# Generated by devtools/yamaker. + +RECURSE( + cls_align_complex_double + cls_align_complex_float + cls_align_complex_longdouble + cls_complex_double + cls_complex_float + cls_complex_longdouble + cls_complex_struct_double + cls_complex_struct_float + cls_complex_struct_longdouble + cls_complex_va_double + cls_complex_va_float + cls_complex_va_longdouble + complex_double + complex_float + complex_int + complex_longdouble + many_complex_double + many_complex_float + many_complex_longdouble + return_complex1_double + return_complex1_float + return_complex1_longdouble + return_complex2_double + return_complex2_float + return_complex2_longdouble + return_complex_double + return_complex_float + return_complex_longdouble +) |