ffi 1.17.2 → 1.17.4

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

@@ -1,70 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check return value double, with many arguments
-   Limitations:	none.
-   PR:		none.
-   Originator:	From the original ffitest.c  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-#include <stdlib.h>
-#include <float.h>
-#include <math.h>
-
-static double many(double f1,
-		  double f2,
-		  double f3,
-		  double f4,
-		  double f5,
-		  double f6,
-		  double f7,
-		  double f8,
-		  double f9,
-		  double f10,
-		  double f11,
-		  double f12,
-		  double f13)
-{
-#if 0
-  printf("%f %f %f %f %f %f %f %f %f %f %f %f %f\n",
-	 (double) f1, (double) f2, (double) f3, (double) f4, (double) f5, 
-	 (double) f6, (double) f7, (double) f8, (double) f9, (double) f10,
-	 (double) f11, (double) f12, (double) f13);
-#endif
-
-  return ((f1/f2+f3/f4+f5/f6+f7/f8+f9/f10+f11/f12) * f13);
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[13];
-  void *values[13];
-  double fa[13];
-  double f, ff;
-  int i;
-
-  for (i = 0; i < 13; i++)
-    {
-      args[i] = &ffi_type_double;
-      values[i] = &fa[i];
-      fa[i] = (double) i;
-    }
-
-    /* Initialize the cif */
-    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 13, 
-		       &ffi_type_double, args) == FFI_OK);
-
-    ffi_call(&cif, FFI_FN(many), &f, values);
-
-    ff =  many(fa[0], fa[1],
-	       fa[2], fa[3],
-	       fa[4], fa[5],
-	       fa[6], fa[7],
-	       fa[8], fa[9],
-	       fa[10],fa[11],fa[12]);
-    if (fabs(f - ff) < FLT_EPSILON)
-      exit(0);
-    else
-      abort();
-}

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

@@ -1,78 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check return value double, with many arguments
-   Limitations:	none.
-   PR:		none.
-   Originator:	From the original ffitest.c  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-#include <stdlib.h>
-#include <float.h>
-#include <math.h>
-
-static double many(double f1,
-		  double f2,
-		  long int i1,
-		  double f3,
-		  double f4,
-		  long int i2,
-		  double f5,
-		  double f6,
-		  long int i3,
-		  double f7,
-		  double f8,
-		  long int i4,
-		  double f9,
-		  double f10,
-		  long int i5,
-		  double f11,
-		  double f12,
-		  long int i6,
-		  double f13)
-{
-  return ((double) (i1 + i2 + i3 + i4 + i5 + i6) + (f1/f2+f3/f4+f5/f6+f7/f8+f9/f10+f11/f12) * f13);
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[19];
-  void *values[19];
-  double fa[19];
-  long int la[19];
-  double f, ff;
-  int i;
-
-  for (i = 0; i < 19; i++)
-    {
-	  if( (i - 2) % 3 == 0) {
-	    args[i] = &ffi_type_slong;
-	    la[i] = (long int) i;
-	    values[i] = &la[i];
-	  }
-	  else {
-	    args[i] = &ffi_type_double;
-	    fa[i] = (double) i;
-	    values[i] = &fa[i];
-	  }
-    }
-
-    /* Initialize the cif */
-    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 19,
-		       &ffi_type_double, args) == FFI_OK);
-
-    ffi_call(&cif, FFI_FN(many), &f, values);
-
-    ff =  many(fa[0], fa[1], la[2],
-               fa[3], fa[4], la[5],
-               fa[6], fa[7], la[8],
-               fa[9], fa[10], la[11],
-               fa[12], fa[13], la[14],
-               fa[15], fa[16], la[17],
-               fa[18]);
-    if (fabs(f - ff) < FLT_EPSILON)
-      exit(0);
-    else
-      abort();
-}

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

@@ -1,52 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check that negative integers are passed correctly.
-   Limitations:	none.
-   PR:		none.
-   Originator:	From the original ffitest.c  */
-
-/* { dg-do run } */
-
-#include "ffitest.h"
-
-static int checking(int a, short b, signed char c)
-{
-
-  return (a < 0 && b < 0 && c < 0);
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_arg rint;
-
-  signed int si;
-  signed short ss;
-  signed char sc;
-
-  args[0] = &ffi_type_sint;
-  values[0] = &si;
-  args[1] = &ffi_type_sshort;
-  values[1] = &ss;
-  args[2] = &ffi_type_schar;
-  values[2] = &sc;
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3,
-		     &ffi_type_sint, args) == FFI_OK);
-
-  si = -6;
-  ss = -12;
-  sc = -1;
-
-  checking (si, ss, sc);
-
-  ffi_call(&cif, FFI_FN(checking), &rint, values);
-
-  printf ("%d vs %d\n", (int)rint, checking (si, ss, sc));
-
-  CHECK(rint != 0);
-
-  exit (0);
-}

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

@@ -1,46 +0,0 @@
-/* Area:		Struct layout
-   Purpose:		Test ffi_get_struct_offsets
-   Limitations:		none.
-   PR:			none.
-   Originator: 		Tom Tromey. */
-
-/* { dg-do run } */
-#include "ffitest.h"
-#include <stddef.h>
-
-struct test_1
-{
-  char c;
-  float f;
-  char c2;
-  int i;
-};
-
-int
-main (void)
-{
-  ffi_type test_1_type;
-  ffi_type *test_1_elements[5];
-  size_t test_1_offsets[4];
-
-  test_1_elements[0] = &ffi_type_schar;
-  test_1_elements[1] = &ffi_type_float;
-  test_1_elements[2] = &ffi_type_schar;
-  test_1_elements[3] = &ffi_type_sint;
-  test_1_elements[4] = NULL;
-
-  test_1_type.size = 0;
-  test_1_type.alignment = 0;
-  test_1_type.type = FFI_TYPE_STRUCT;
-  test_1_type.elements = test_1_elements;
-
-  CHECK (ffi_get_struct_offsets (FFI_DEFAULT_ABI, &test_1_type, test_1_offsets)
-	 == FFI_OK);
-  CHECK (test_1_type.size == sizeof (struct test_1));
-  CHECK (offsetof (struct test_1, c) == test_1_offsets[0]);
-  CHECK (offsetof (struct test_1, f) == test_1_offsets[1]);
-  CHECK (offsetof (struct test_1, c2) == test_1_offsets[2]);
-  CHECK (offsetof (struct test_1, i) == test_1_offsets[3]);
-
-  return 0;
-}

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

@@ -1,54 +0,0 @@
-/* Area:        ffi_call
-   Purpose:     Tests if ffi_call reads data beyond end.
-   Limitations: needs mmap.
-   PR:          887
-   Originator:  Mikulas Patocka <mikulas@twibright.com>  */
-
-/* { dg-do run } */
-
-#include "ffitest.h"
-
-#ifdef __linux__
-#include <sys/mman.h>
-#include <unistd.h>
-
-static int ABI_ATTR fn(unsigned char a, unsigned short b, unsigned int c, unsigned long d)
-{
-	return (int)(a + b + c + d);
-}
-#endif
-
-int main(void)
-{
-#ifdef __linux__
-	ffi_cif cif;
-	ffi_type *args[MAX_ARGS];
-	void *values[MAX_ARGS];
-	ffi_arg rint;
-	char *m;
-	int ps;
-	args[0] = &ffi_type_uchar;
-	args[1] = &ffi_type_ushort;
-	args[2] = &ffi_type_uint;
-	args[3] = &ffi_type_ulong;
-	CHECK(ffi_prep_cif(&cif, ABI_NUM, 4, &ffi_type_sint, args) == FFI_OK);
-	ps = getpagesize();
-	m = mmap(NULL, ps * 3, PROT_READ | PROT_WRITE, MAP_ANONYMOUS | MAP_PRIVATE, -1, 0);
-	CHECK(m != MAP_FAILED);
-	CHECK(mprotect(m, ps, PROT_NONE) == 0);
-	CHECK(mprotect(m + ps * 2, ps, PROT_NONE) == 0);
-	values[0] = m + ps * 2 - sizeof(unsigned char);
-	values[1] = m + ps * 2 - sizeof(unsigned short);
-	values[2] = m + ps * 2 - sizeof(unsigned int);
-	values[3] = m + ps * 2 - sizeof(unsigned long);
-	ffi_call(&cif, FFI_FN(fn), &rint, values);
-	CHECK((int)rint == 0);
-	values[0] = m + ps;
-	values[1] = m + ps;
-	values[2] = m + ps;
-	values[3] = m + ps;
-	ffi_call(&cif, FFI_FN(fn), &rint, values);
-	CHECK((int)rint == 0);
-#endif
-	exit(0);
-}

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

@@ -1,127 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Reproduce bug found in python ctypes
-   Limitations:	none.
-   PR:		Fedora 1174037  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-typedef struct {
-  long x;
-  long y;
-} POINT;
-
-typedef struct {
-  long left;
-  long top;
-  long right;
-  long bottom;
-} RECT;
-
-static RECT ABI_ATTR pr_test(int i __UNUSED__, RECT ar __UNUSED__, 
-			     RECT* br __UNUSED__, POINT cp __UNUSED__, 
-			     RECT dr __UNUSED__, RECT *er __UNUSED__, 
-			     POINT fp, RECT gr __UNUSED__)
-{
-  RECT result;
-
-  result.left = fp.x;
-  result.right = fp.y;
-  result.top = fp.x;
-  result.bottom = fp.y;
-
-  return result;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_type point_type, rect_type;
-  ffi_type *point_type_elements[3];  
-  ffi_type *rect_type_elements[5];  
-  
-  int i;
-  POINT cp, fp;
-  RECT ar, br, dr, er, gr; 
-  RECT *p1, *p2;
-
-  /* This is a hack to get a properly aligned result buffer */
-  RECT *rect_result =
-    (RECT *) malloc (sizeof(RECT));
-
-  point_type.size = 0;
-  point_type.alignment = 0;
-  point_type.type = FFI_TYPE_STRUCT;
-  point_type.elements = point_type_elements;
-  point_type_elements[0] = &ffi_type_slong;
-  point_type_elements[1] = &ffi_type_slong;
-  point_type_elements[2] = NULL;
-
-  rect_type.size = 0;
-  rect_type.alignment = 0;
-  rect_type.type = FFI_TYPE_STRUCT;
-  rect_type.elements = rect_type_elements;
-  rect_type_elements[0] = &ffi_type_slong;
-  rect_type_elements[1] = &ffi_type_slong;
-  rect_type_elements[2] = &ffi_type_slong;
-  rect_type_elements[3] = &ffi_type_slong;
-  rect_type_elements[4] = NULL;
-
-  args[0] = &ffi_type_sint;
-  args[1] = &rect_type;
-  args[2] = &ffi_type_pointer;
-  args[3] = &point_type;
-  args[4] = &rect_type;
-  args[5] = &ffi_type_pointer;
-  args[6] = &point_type;
-  args[7] = &rect_type;
-  
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 8, &rect_type, args) == FFI_OK);
-
-  i = 1;
-  ar.left = 2;
-  ar.right = 3;
-  ar.top = 4;
-  ar.bottom = 5;
-  br.left = 6;
-  br.right = 7;
-  br.top = 8;
-  br.bottom = 9;
-  cp.x = 10;
-  cp.y = 11;
-  dr.left = 12;
-  dr.right = 13;
-  dr.top = 14;
-  dr.bottom = 15;
-  er.left = 16;
-  er.right = 17;
-  er.top = 18;
-  er.bottom = 19;
-  fp.x = 20;
-  fp.y = 21;
-  gr.left = 22;
-  gr.right = 23;
-  gr.top = 24;
-  gr.bottom = 25;
-  
-  values[0] = &i;
-  values[1] = &ar;
-  p1 = &br;
-  values[2] = &p1;
-  values[3] = &cp;
-  values[4] = &dr;
-  p2 = &er;
-  values[5] = &p2;
-  values[6] = &fp;
-  values[7] = &gr;
-
-  ffi_call (&cif, FFI_FN(pr_test), rect_result, values);
-  
-  CHECK(rect_result->top == 20);
- 
-  free (rect_result);
-  exit(0);
-}

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

@@ -1,59 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Promotion test.
-   Limitations:	none.
-   PR:		none.
-   Originator:	From the original ffitest.c  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-static int promotion(signed char sc, signed short ss,
-		     unsigned char uc, unsigned short us)
-{
-  int r = (int) sc + (int) ss + (int) uc + (int) us;
-
-  return r;
-}
-
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  ffi_arg rint;
-  signed char sc;
-  unsigned char uc;
-  signed short ss;
-  unsigned short us;
-  unsigned long ul;
-
-  args[0] = &ffi_type_schar;
-  args[1] = &ffi_type_sshort;
-  args[2] = &ffi_type_uchar;
-  args[3] = &ffi_type_ushort;
-  values[0] = ≻
-  values[1] = &ss;
-  values[2] = &uc;
-  values[3] = &us;
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
-		     &ffi_type_sint, args) == FFI_OK);
-
-  us = 0;
-  ul = 0;
-
-  for (sc = (signed char) -127;
-       sc <= (signed char) 120; sc += 1)
-    for (ss = -30000; ss <= 30000; ss += 10000)
-      for (uc = (unsigned char) 0;
-	   uc <= (unsigned char) 200; uc += 20)
-	for (us = 0; us <= 60000; us += 10000)
-	  {
-	    ul++;
-	    ffi_call(&cif, FFI_FN(promotion), &rint, values);
-	    CHECK((int)rint == (signed char) sc + (signed short) ss +
-		  (unsigned char) uc + (unsigned short) us);
-	  }
-  printf("%lu promotion tests run\n", ul);
-  exit(0);
-}

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

@@ -1,114 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check different structures.
-   Limitations:	none.
-   PR:		none.
-   Originator:	Ronald Oussoren <oussoren@cistron.nl> 20030824	*/
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-typedef struct Point {
-	float x;
-	float y;
-} Point;
-
-typedef struct Size {
-	float h;
-	float w;
-} Size;
-
-typedef struct Rect {
-	Point o;
-	Size  s;
-} Rect;
-
-int doit(int o, char* s, Point p, Rect r, int last)
-{
-	printf("CALLED WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
-		o, s, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, last);
-	return 42;
-}
-
-
-int main(void)
-{
-	ffi_type point_type;
-	ffi_type size_type;
-	ffi_type rect_type;
-	ffi_cif cif;
-	ffi_type* arglist[6];
-	void* values[6];
-	int r;
-
-	/*
-	 *  First set up FFI types for the 3 struct types
-	 */
-
-	point_type.size = 0; /*sizeof(Point);*/
-	point_type.alignment = 0; /*__alignof__(Point);*/
-	point_type.type = FFI_TYPE_STRUCT;
-	point_type.elements = malloc(3 * sizeof(ffi_type*));
-	point_type.elements[0] = &ffi_type_float;
-	point_type.elements[1] = &ffi_type_float;
-	point_type.elements[2] = NULL;
-
-	size_type.size = 0;/* sizeof(Size);*/
-	size_type.alignment = 0;/* __alignof__(Size);*/
-	size_type.type = FFI_TYPE_STRUCT;
-	size_type.elements = malloc(3 * sizeof(ffi_type*));
-	size_type.elements[0] = &ffi_type_float;
-	size_type.elements[1] = &ffi_type_float;
-	size_type.elements[2] = NULL;
-
-	rect_type.size = 0;/*sizeof(Rect);*/
-	rect_type.alignment =0;/* __alignof__(Rect);*/
-	rect_type.type = FFI_TYPE_STRUCT;
-	rect_type.elements = malloc(3 * sizeof(ffi_type*));
-	rect_type.elements[0] = &point_type;
-	rect_type.elements[1] = &size_type;
-	rect_type.elements[2] = NULL;
-
-	/*
-	 * Create a CIF
-	 */
-	arglist[0] = &ffi_type_sint;
-	arglist[1] = &ffi_type_pointer;
-	arglist[2] = &point_type;
-	arglist[3] = &rect_type;
-	arglist[4] = &ffi_type_sint;
-	arglist[5] = NULL;
-
-	r = ffi_prep_cif(&cif, FFI_DEFAULT_ABI,
-			5, &ffi_type_sint, arglist);
-	if (r != FFI_OK) {
-		abort();
-	}
-
-
-	/* And call the function through the CIF */
-
-	{
-	Point p = { 1.0, 2.0 };
-	Rect  r = { { 9.0, 10.0}, { -1.0, -2.0 } };
-	int   o = 0;
-	int   l = 42;
-	char* m = "myMethod";
-	ffi_arg result;
-
-	values[0] = &o;
-	values[1] = &m;
-	values[2] = &p;
-	values[3] = &r;
-	values[4] = &l;
-	values[5] = NULL;
-
-	printf("CALLING WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
-		o, m, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, l);
-
-	ffi_call(&cif, FFI_FN(doit), &result, values);
-
-	printf ("The result is %d\n", (int)result);
-
-	}
-	exit(0);
-}

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

@@ -1,36 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check return value double.
-   Limitations:	none.
-   PR:		none.
-   Originator:	<andreast@gcc.gnu.org> 20050212  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-static double return_dbl(double dbl)
-{
-  printf ("%f\n", dbl);
-  return 2 * dbl;
-}
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  double dbl, rdbl;
-
-  args[0] = &ffi_type_double;
-  values[0] = &dbl;
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
-		     &ffi_type_double, args) == FFI_OK);
-
-  for (dbl = -127.3; dbl <  127; dbl++)
-    {
-      ffi_call(&cif, FFI_FN(return_dbl), &rdbl, values);
-      printf ("%f vs %f\n", rdbl, return_dbl(dbl));
-      CHECK(rdbl == 2 * dbl);
-    }
-  exit(0);
-}

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

@@ -1,43 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check return value double.
-   Limitations:	none.
-   PR:		none.
-   Originator:	<andreast@gcc.gnu.org> 20050212  */
-
-/* { dg-do run } */
-#include "ffitest.h"
-
-static double return_dbl(double dbl1, float fl2, unsigned int in3, double dbl4)
-{
-  return dbl1 + fl2 + in3 + dbl4;
-}
-int main (void)
-{
-  ffi_cif cif;
-  ffi_type *args[MAX_ARGS];
-  void *values[MAX_ARGS];
-  double dbl1, dbl4, rdbl;
-  float fl2;
-  unsigned int in3;
-  args[0] = &ffi_type_double;
-  args[1] = &ffi_type_float;
-  args[2] = &ffi_type_uint;
-  args[3] = &ffi_type_double;
-  values[0] = &dbl1;
-  values[1] = &fl2;
-  values[2] = &in3;
-  values[3] = &dbl4;
-
-  /* Initialize the cif */
-  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
-		     &ffi_type_double, args) == FFI_OK);
-  dbl1 = 127.0;
-  fl2 = 128.0;
-  in3 = 255;
-  dbl4 = 512.7;
-
-  ffi_call(&cif, FFI_FN(return_dbl), &rdbl, values);
-  printf ("%f vs %f\n", rdbl, return_dbl(dbl1, fl2, in3, dbl4));
-  CHECK(rdbl ==  dbl1 + fl2 + in3 + dbl4);
-  exit(0);
-}