1  /* Area:		ffi_call, closure_call
       2     Purpose:		Test doubles passed in variable argument lists.
       3     Limitations:	none.
       4     PR:			none.
       5     Originator:	Blake Chaffin 6/6/2007	 */
       6  
       7  /* { dg-do run } */
       8  /* { dg-output "" { xfail avr32*-*-* } } */
       9  #include "ffitest.h"
      10  
      11  struct small_tag
      12  {
      13    unsigned char a;
      14    unsigned char b;
      15  };
      16  
      17  struct large_tag
      18  {
      19    unsigned a;
      20    unsigned b;
      21    unsigned c;
      22    unsigned d;
      23    unsigned e;
      24  };
      25  
      26  static void
      27  test_fn (ffi_cif* cif __UNUSED__, void* resp,
      28  	 void** args, void* userdata __UNUSED__)
      29  {
      30    int n = *(int*)args[0];
      31    struct small_tag s1 = * (struct small_tag *) args[1];
      32    struct large_tag l1 = * (struct large_tag *) args[2];
      33    struct small_tag s2 = * (struct small_tag *) args[3];
      34  
      35    printf ("%d %d %d %d %d %d %d %d %d %d\n", n, s1.a, s1.b,
      36  	  l1.a, l1.b, l1.c, l1.d, l1.e,
      37  	  s2.a, s2.b);
      38    * (ffi_arg*) resp = 42;
      39  }
      40  
      41  int
      42  main (void)
      43  {
      44    ffi_cif cif;
      45    void *code;
      46    ffi_closure *pcl = ffi_closure_alloc (sizeof (ffi_closure), &code);
      47    ffi_type* arg_types[5];
      48  
      49    ffi_arg res = 0;
      50  
      51    ffi_type s_type;
      52    ffi_type *s_type_elements[3];
      53  
      54    ffi_type l_type;
      55    ffi_type *l_type_elements[6];
      56  
      57    struct small_tag s1;
      58    struct small_tag s2;
      59    struct large_tag l1;
      60  
      61    int si;
      62  
      63    s_type.size = 0;
      64    s_type.alignment = 0;
      65    s_type.type = FFI_TYPE_STRUCT;
      66    s_type.elements = s_type_elements;
      67  
      68    s_type_elements[0] = &ffi_type_uchar;
      69    s_type_elements[1] = &ffi_type_uchar;
      70    s_type_elements[2] = NULL;
      71  
      72    l_type.size = 0;
      73    l_type.alignment = 0;
      74    l_type.type = FFI_TYPE_STRUCT;
      75    l_type.elements = l_type_elements;
      76  
      77    l_type_elements[0] = &ffi_type_uint;
      78    l_type_elements[1] = &ffi_type_uint;
      79    l_type_elements[2] = &ffi_type_uint;
      80    l_type_elements[3] = &ffi_type_uint;
      81    l_type_elements[4] = &ffi_type_uint;
      82    l_type_elements[5] = NULL;
      83  
      84    arg_types[0] = &ffi_type_sint;
      85    arg_types[1] = &s_type;
      86    arg_types[2] = &l_type;
      87    arg_types[3] = &s_type;
      88    arg_types[4] = NULL;
      89  
      90    CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 4, &ffi_type_sint,
      91  			 arg_types) == FFI_OK);
      92  
      93    si = 4;
      94    s1.a = 5;
      95    s1.b = 6;
      96  
      97    s2.a = 20;
      98    s2.b = 21;
      99  
     100    l1.a = 10;
     101    l1.b = 11;
     102    l1.c = 12;
     103    l1.d = 13;
     104    l1.e = 14;
     105  
     106    CHECK(ffi_prep_closure_loc(pcl, &cif, test_fn, NULL, code) == FFI_OK);
     107  
     108    res = ((int (*)(int, ...))(code))(si, s1, l1, s2);
     109    /* { dg-output "4 5 6 10 11 12 13 14 20 21" } */
     110    printf("res: %d\n", (int) res);
     111    /* { dg-output "\nres: 42" } */
     112  
     113    exit(0);
     114  }