ffi 1.17.2 → 1.17.4

data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c

@@ -1,46 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check for proper argument alignment.
-   Limitations:	none.
-   PR:		none.
-   Originator:	<twalljava@java.net> (from many_win32.c) */
-
-/* { dg-do run } */
-
-#include "ffitest.h"
-
-static float ABI_ATTR align_arguments(int i1,
-                                      double f2,
-                                      int i3,
-                                      double f4)
-{
-  return i1+f2+i3+f4;
-}
-
-int main(void)
-{
-  ffi_cif cif;
-  ffi_type *args[4] = {
-    &ffi_type_sint,
-    &ffi_type_double,
-    &ffi_type_sint,
-    &ffi_type_double
-  };
-  double fa[2] = {1,2};
-  int ia[2] = {1,2};
-  void *values[4] = {&ia[0], &fa[0], &ia[1], &fa[1]};
-  float f, ff;
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 4,
-		     &ffi_type_float, args) == FFI_OK);
-
-  ff = align_arguments(ia[0], fa[0], ia[1], fa[1]);
-
-  ffi_call(&cif, FFI_FN(align_arguments), &f, values);
-
-  if (f == ff)
-    printf("align arguments tests ok!\n");
-  else
-    CHECK(0);
-  exit(0);
-}

data/ext/ffi_c/libffi/testsuite/libffi.call/align_stdcall.c

@@ -1,46 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check for proper argument alignment.
-   Limitations:	none.
-   PR:		none.
-   Originator:	<twalljava@java.net> (from many_win32.c) */
-
-/* { dg-do run } */
-
-#include "ffitest.h"
-
-static float ABI_ATTR align_arguments(int i1,
-                                      double f2,
-                                      int i3,
-                                      double f4)
-{
-  return i1+f2+i3+f4;
-}
-
-int main(void)
-{
-  ffi_cif cif;
-  ffi_type *args[4] = {
-    &ffi_type_sint,
-    &ffi_type_double,
-    &ffi_type_sint,
-    &ffi_type_double
-  };
-  double fa[2] = {1,2};
-  int ia[2] = {1,2};
-  void *values[4] = {&ia[0], &fa[0], &ia[1], &fa[1]};
-  float f, ff;
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 4,
-		     &ffi_type_float, args) == FFI_OK);
-
-  ff = align_arguments(ia[0], fa[0], ia[1], fa[1]);;
-
-  ffi_call(&cif, FFI_FN(align_arguments), &f, values);
-
-  if (f == ff)
-    printf("align arguments tests ok!\n");
-  else
-    CHECK(0);
-  exit(0);
-}

data/ext/ffi_c/libffi/testsuite/libffi.call/bpo_38748.c

@@ -1,41 +0,0 @@
-/* Area:	bpo-38748
-   Purpose:	test for stdcall alignment problem
-   Source:      github.com/python/cpython/pull/26204 */
-
-/* { dg-do run } */
-
-#include "ffitest.h"
-#include "ffi_common.h"
-
-static UINT32 ABI_ATTR align_arguments(UINT32 l1,
-				       UINT64 l2)
-{
-  return l1 + (UINT32) l2;
-}
-
-int main(void)
-{
-  ffi_cif cif;
-  ffi_type *args[4] = {
-    &ffi_type_uint32,
-    &ffi_type_uint64
-  };
-  ffi_arg lr1, lr2;
-  UINT32 l1 = 1;
-  UINT64 l2 = 2;
-  void *values[2] = {&l1, &l2};
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2,
-		     &ffi_type_uint32, args) == FFI_OK);
-
-  lr1 = align_arguments(l1, l2);
-
-  ffi_call(&cif, FFI_FN(align_arguments), &lr2, values);
-
-  if (lr1 == lr2)
-    printf("bpo-38748 arguments tests ok!\n");
-  else
-    CHECK(0);
-  exit(0);
-}

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

@@ -1,54 +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
-
-if { [string match $compiler_vendor "microsoft"] } {
-    # -wd4005  macro redefinition
-    # -wd4244  implicit conversion to type of smaller size
-    # -wd4305  truncation to smaller type
-    # -wd4477  printf %lu of uintptr_t
-    # -wd4312  implicit conversion to type of greater size
-    # -wd4311  pointer truncation to unsigned long
-    # -EHsc    C++ Exception Handling (no SEH exceptions)
-    set additional_options "-wd4005 -wd4244 -wd4305 -wd4477 -wd4312 -wd4311 -EHsc";
-} else {
-    set additional_options "";
-}
-
-set tlist [lsort [glob -nocomplain -- $srcdir/$subdir/*.c]]
-
-run-many-tests $tlist $additional_options
-
-set tlist [lsort [glob -nocomplain -- $srcdir/$subdir/*.cc]]
-
-# No C++ for or1k
-if { [istarget "or1k-*-*"] } {
-    foreach test $tlist {
-        unsupported "$test"
-    }
-} else {
-    run-many-tests $tlist $additional_options
-}
-
-dg-finish
-
-# Local Variables:
-# tcl-indent-level:4
-# End:

data/ext/ffi_c/libffi/testsuite/libffi.call/callback.c

@@ -1,99 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-static int i=5;
-
-static void callback(void) { i++; }
-
-typedef struct
-{
-  unsigned char c1;
-  double s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.c1 += 1;
-  ts.c2 += 1;
-  ts.s[0] += 1;
-  ts.s[1] += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12a_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12a_type_elements[3];
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_double;
-  ts12a_type_elements[1] = &ffi_type_double;
-  ts12a_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ffi_type_uchar;
-  ts12_type_elements[1] = &ts12a_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.c1 = 5;
-  ts12_arg.c2 = 6;
-  ts12_arg.s[0] = 7.77;
-  ts12_arg.s[1] = 8.88;
-
-  printf ("%u\n", ts12_arg.c1);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%g\n", ts12_arg.s[0]);
-  printf ("%g\n", ts12_arg.s[1]);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%u\n", ts12_result->c1);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%g\n", ts12_result->s[0]);
-  printf ("%g\n", ts12_result->s[1]);
-  printf ("%d\n", i);
-  CHECK(ts12_result->c1 == 5 + 1);
-  CHECK(ts12_result->c2 == 6 + 1);
-  CHECK(ts12_result->s[0] == 7.77 + 1);
-  CHECK(ts12_result->s[1] == 8.88 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/ext/ffi_c/libffi/testsuite/libffi.call/callback2.c

@@ -1,108 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with nested array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-static int i=5;
-
-static void callback(void) { i++; }
-
-typedef struct
-{
-  struct { double d; } s1;
-  double s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.s1.d += 1;
-  ts.c2 += 1;
-  ts.s[0] += 1;
-  ts.s[1] += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12a_type, ts12b_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12a_type_elements[2];
-  ffi_type *ts12b_type_elements[3];
-
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_double;
-  ts12a_type_elements[1] = NULL;
-
-  ts12b_type.size = 0;
-  ts12b_type.alignment = 0;
-  ts12b_type.type = FFI_TYPE_STRUCT;
-  ts12b_type.elements = ts12b_type_elements;
-  ts12b_type_elements[0] = &ffi_type_double;
-  ts12b_type_elements[1] = &ffi_type_double;
-  ts12b_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ts12a_type;
-  ts12_type_elements[1] = &ts12b_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.s1.d = 5.55;
-  ts12_arg.c2 = 6;
-  ts12_arg.s[0] = 7.77;
-  ts12_arg.s[1] = 8.88;
-
-  printf ("%g\n", ts12_arg.s1.d);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%g\n", ts12_arg.s[0]);
-  printf ("%g\n", ts12_arg.s[1]);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%g\n", ts12_result->s1.d);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%g\n", ts12_result->s[0]);
-  printf ("%g\n", ts12_result->s[1]);
-  printf ("%d\n", i);
-  CHECK(ts12_result->s1.d == 5.55 + 1);
-  CHECK(ts12_result->c2 == 6 + 1);
-  CHECK(ts12_result->s[0] == 7.77 + 1);
-  CHECK(ts12_result->s[1] == 8.88 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/ext/ffi_c/libffi/testsuite/libffi.call/callback3.c

@@ -1,114 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-static int i=5;
-
-static void callback(void) { i++; }
-
-
-typedef struct
-{
-  struct { unsigned char c; double d; } s1;
-  double s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.s1.c += 1;
-  ts.s1.d += 1;
-  ts.c2 += 1;
-  ts.s[0] += 1;
-  ts.s[1] += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12b_type, ts12a_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12b_type_elements[3];
-  ffi_type *ts12a_type_elements[3];
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_uchar;
-  ts12a_type_elements[1] = &ffi_type_double;
-  ts12a_type_elements[2] = NULL;
-
-  ts12b_type.size = 0;
-  ts12b_type.alignment = 0;
-  ts12b_type.type = FFI_TYPE_STRUCT;
-  ts12b_type.elements = ts12b_type_elements;
-  ts12b_type_elements[0] = &ffi_type_double;
-  ts12b_type_elements[1] = &ffi_type_double;
-  ts12b_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ts12a_type;
-  ts12_type_elements[1] = &ts12b_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.s1.c = 5;
-  ts12_arg.s1.d = 5.55;
-  ts12_arg.c2 = 6;
-  ts12_arg.s[0] = 7.77;
-  ts12_arg.s[1] = 8.88;
-
-  printf ("%d\n", ts12_arg.s1.c);
-  printf ("%g\n", ts12_arg.s1.d);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%g\n", ts12_arg.s[0]);
-  printf ("%g\n", ts12_arg.s[1]);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%d\n", ts12_result->s1.c);
-  printf ("%g\n", ts12_result->s1.d);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%g\n", ts12_result->s[0]);
-  printf ("%g\n", ts12_result->s[1]);
-  printf ("%d\n", i);
-  CHECK(ts12_result->s1.c == 5 + 1);
-  CHECK(ts12_result->s1.d == 5.55 + 1);
-  CHECK(ts12_result->c2 == 6 + 1);
-  CHECK(ts12_result->s[0] == 7.77 + 1);
-  CHECK(ts12_result->s[1] == 8.88 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/ext/ffi_c/libffi/testsuite/libffi.call/callback4.c

@@ -1,119 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check structures with array and callback.
-   Limitations:	none.
-   PR:		none.
-   Originator:	David Tenty <daltenty@ibm.com>  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-static int i=5;
-
-static void callback(void) { i++; }
-
-
-typedef struct
-{
-  unsigned char c1;
-  struct { double d; unsigned char c; } s[2];
-  unsigned char c2;
-} test_structure_12;
-
-static test_structure_12 ABI_ATTR struct12 (test_structure_12 ts, void (*func)(void))
-{
-  ts.c1 += 1;
-  ts.s[0].d += 1;
-  ts.s[0].c += 1;
-  ts.s[1].d += 1;
-  ts.s[1].c += 1;
-  ts.c2 += 1;
-
-  func();
-  return ts;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type ts12_type,ts12b_type, ts12a_type;
-  ffi_type *ts12_type_elements[4];
-  ffi_type *ts12b_type_elements[3];
-  ffi_type *ts12a_type_elements[3];
-
-  test_structure_12 ts12_arg;
-  void (*ptr)(void)=&callback;
-
-  test_structure_12 *ts12_result =
-    (test_structure_12 *) malloc (sizeof(test_structure_12));
-
-  ts12a_type.size = 0;
-  ts12a_type.alignment = 0;
-  ts12a_type.type = FFI_TYPE_STRUCT;
-  ts12a_type.elements = ts12a_type_elements;
-  ts12a_type_elements[0] = &ffi_type_double;
-  ts12a_type_elements[1] = &ffi_type_uchar;
-  ts12a_type_elements[2] = NULL;
-
-  ts12b_type.size = 0;
-  ts12b_type.alignment = 0;
-  ts12b_type.type = FFI_TYPE_STRUCT;
-  ts12b_type.elements = ts12b_type_elements;
-  ts12b_type_elements[0] = &ts12a_type;
-  ts12b_type_elements[1] = &ts12a_type;
-  ts12b_type_elements[2] = NULL;
-
-  ts12_type.size = 0;
-  ts12_type.alignment = 0;
-  ts12_type.type = FFI_TYPE_STRUCT;
-  ts12_type.elements = ts12_type_elements;
-  ts12_type_elements[0] = &ffi_type_uchar;
-  ts12_type_elements[1] = &ts12b_type;
-  ts12_type_elements[2] = &ffi_type_uchar;
-  ts12_type_elements[3] = NULL;
-
-
-  args[0] = &ts12_type;
-  args[1] = &ffi_type_pointer;
-  values[0] = &ts12_arg;
-  values[1] = &ptr;
-
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 2, &ts12_type, args) == FFI_OK);
-
-  ts12_arg.c1 = 5;
-  ts12_arg.s[0].d = 5.55;
-  ts12_arg.s[0].c = 6;
-  ts12_arg.s[1].d = 7.77;
-  ts12_arg.s[1].c = 8;
-  ts12_arg.c2 = 9;
-
-  printf ("%u\n", ts12_arg.c1);
-  printf ("%g\n", ts12_arg.s[0].d);
-  printf ("%u\n", ts12_arg.s[0].c);
-  printf ("%g\n", ts12_arg.s[1].d);
-  printf ("%u\n", ts12_arg.s[1].c);
-  printf ("%u\n", ts12_arg.c2);
-  printf ("%d\n", i);
-
-  ffi_call(&cif, FFI_FN(struct12), ts12_result, values);
-
-  printf ("%u\n", ts12_result->c1);
-  printf ("%g\n", ts12_result->s[0].d);
-  printf ("%u\n", ts12_result->s[0].c);
-  printf ("%g\n", ts12_result->s[1].d);
-  printf ("%u\n", ts12_result->s[1].c);
-  printf ("%u\n", ts12_result->c2);
-  printf ("%d\n", i);
-  CHECK(ts12_result->c1 == 5 + 1);
-  CHECK(ts12_result->s[0].d == 5.55 + 1);
-  CHECK(ts12_result->s[0].c == 6 + 1);
-  CHECK(ts12_result->s[1].d == 7.77 + 1);
-  CHECK(ts12_result->s[1].c == 8 + 1);
-  CHECK(ts12_result->c2 == 9 + 1);
-  CHECK(i == 5 + 1);
-  CHECK(ts12_type.size == sizeof(test_structure_12));
-
-  free (ts12_result);
-  exit(0);
-}

data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c

@@ -1,26 +0,0 @@
-/* Area:		ffi_prep_cif
-   Purpose:		Test error return for bad typedefs.
-   Limitations:	none.
-   PR:			none.
-   Originator:	Blake Chaffin 6/6/2007	 */
-
-/* { dg-do run } */
-
-#include "ffitest.h"
-
-int main (void)
-{
-	ffi_cif cif;
-	ffi_type* arg_types[1];
-
-	ffi_type	badType	= ffi_type_void;
-
-	arg_types[0] = NULL;
-
-	badType.size = 0;
-
-	CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 0, &badType,
-		arg_types) == FFI_BAD_TYPEDEF);
-
-	exit(0);
-}