libffi/testsuite/libffi.call/cls_struct_va1.c

   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 }