ffi 1.9.21-x64-mingw32 → 1.9.22-x64-mingw32

data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c

@@ -1,16 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.exp

@@ -1,36 +0,0 @@
-# Copyright (C) 2003, 2006, 2009, 2010, 2014 Free Software Foundation, Inc.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; see the file COPYING3.  If not see
-# <http://www.gnu.org/licenses/>.
-
-dg-init
-libffi-init
-
-global srcdir subdir
-
-set tlist [lsort [glob -nocomplain -- $srcdir/$subdir/*.{c,cc}]]
-
-if { [libffi_feature_test "#ifdef FFI_TARGET_HAS_COMPLEX_TYPE"] } {
-    run-many-tests $tlist ""
-} else {
-    foreach test $tlist {
-	unsupported "$test"
-    }
-}
-
-dg-finish
-
-# Local Variables:
-# tcl-indent-level:4
-# End:

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc

@@ -1,51 +0,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);
-}

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc

@@ -1,7 +0,0 @@
-/* -*-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

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc

@@ -1,7 +0,0 @@
-/* -*-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)

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc

@@ -1,7 +0,0 @@
-/* -*-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

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c

@@ -1,86 +0,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);
-}

data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h

@@ -1 +0,0 @@
-#include "../libffi.call/ffitest.h"

data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc

@@ -1,78 +0,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);
-}

data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c

@@ -1,10 +0,0 @@
-/* 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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc

@@ -1,37 +0,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);
-}

data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc

@@ -1,41 +0,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);
-}