1  /* Area:	ffi_call
       2     Purpose:	Check different structures.
       3     Limitations:	none.
       4     PR:		none.
       5     Originator:	Ronald Oussoren <oussoren@cistron.nl> 20030824	*/
       6  
       7  /* { dg-do run } */
       8  #include "ffitest.h"
       9  
      10  typedef struct Point {
      11  	float x;
      12  	float y;
      13  } Point;
      14  
      15  typedef struct Size {
      16  	float h;
      17  	float w;
      18  } Size;
      19  
      20  typedef struct Rect {
      21  	Point o;
      22  	Size  s;
      23  } Rect;
      24  
      25  int doit(int o, char* s, Point p, Rect r, int last)
      26  {
      27  	printf("CALLED WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
      28  		o, s, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, last);
      29  	return 42;
      30  }
      31  
      32  
      33  int main(void)
      34  {
      35  	ffi_type point_type;
      36  	ffi_type size_type;
      37  	ffi_type rect_type;
      38  	ffi_cif cif;
      39  	ffi_type* arglist[6];
      40  	void* values[6];
      41  	int r;
      42  
      43  	/*
      44  	 *  First set up FFI types for the 3 struct types
      45  	 */
      46  
      47  	point_type.size = 0; /*sizeof(Point);*/
      48  	point_type.alignment = 0; /*__alignof__(Point);*/
      49  	point_type.type = FFI_TYPE_STRUCT;
      50  	point_type.elements = malloc(3 * sizeof(ffi_type*));
      51  	point_type.elements[0] = &ffi_type_float;
      52  	point_type.elements[1] = &ffi_type_float;
      53  	point_type.elements[2] = NULL;
      54  
      55  	size_type.size = 0;/* sizeof(Size);*/
      56  	size_type.alignment = 0;/* __alignof__(Size);*/
      57  	size_type.type = FFI_TYPE_STRUCT;
      58  	size_type.elements = malloc(3 * sizeof(ffi_type*));
      59  	size_type.elements[0] = &ffi_type_float;
      60  	size_type.elements[1] = &ffi_type_float;
      61  	size_type.elements[2] = NULL;
      62  
      63  	rect_type.size = 0;/*sizeof(Rect);*/
      64  	rect_type.alignment =0;/* __alignof__(Rect);*/
      65  	rect_type.type = FFI_TYPE_STRUCT;
      66  	rect_type.elements = malloc(3 * sizeof(ffi_type*));
      67  	rect_type.elements[0] = &point_type;
      68  	rect_type.elements[1] = &size_type;
      69  	rect_type.elements[2] = NULL;
      70  
      71  	/*
      72  	 * Create a CIF
      73  	 */
      74  	arglist[0] = &ffi_type_sint;
      75  	arglist[1] = &ffi_type_pointer;
      76  	arglist[2] = &point_type;
      77  	arglist[3] = &rect_type;
      78  	arglist[4] = &ffi_type_sint;
      79  	arglist[5] = NULL;
      80  
      81  	r = ffi_prep_cif(&cif, FFI_DEFAULT_ABI,
      82  			5, &ffi_type_sint, arglist);
      83  	if (r != FFI_OK) {
      84  		abort();
      85  	}
      86  
      87  
      88  	/* And call the function through the CIF */
      89  
      90  	{
      91  	Point p = { 1.0, 2.0 };
      92  	Rect  r = { { 9.0, 10.0}, { -1.0, -2.0 } };
      93  	int   o = 0;
      94  	int   l = 42;
      95  	char* m = "myMethod";
      96  	ffi_arg result;
      97  
      98  	values[0] = &o;
      99  	values[1] = &m;
     100  	values[2] = &p;
     101  	values[3] = &r;
     102  	values[4] = &l;
     103  	values[5] = NULL;
     104  
     105  	printf("CALLING WITH %d %s {%f %f} {{%f %f} {%f %f}} %d\n",
     106  		o, m, p.x, p.y, r.o.x, r.o.y, r.s.h, r.s.w, l);
     107  
     108  	ffi_call(&cif, FFI_FN(doit), &result, values);
     109  
     110  	printf ("The result is %d\n", (int)result);
     111  
     112  	}
     113  	exit(0);
     114  }