libffi/testsuite/libffi.call/struct5.c

   1 /* Area:        ffi_call
   2    Purpose:     Check structures.
   3    Limitations: none.
   4    PR:          none.
   5    Originator:  From the original ffitest.c  */
   6
   7 /* { dg-do run } */
   8 #include "ffitest.h"
   9 typedef struct
  10 {
  11   char c1;
  12   char c2;
  13 } test_structure_5;
  14
  15 static test_structure_5 struct5(test_structure_5 ts1, test_structure_5 ts2)
  16 {
  17   ts1.c1 += ts2.c1;
  18   ts1.c2 -= ts2.c2;
  19
  20   return ts1;
  21 }
  22
  23 int main (void)
  24 {
  25   ffi_cif cif;
  26   ffi_type *args[MAX_ARGS];
  27   void *values[MAX_ARGS];
  28   ffi_type ts5_type;
  29   ffi_type *ts5_type_elements[3];
  30   ts5_type.size = 0;
  31   ts5_type.alignment = 0;
  32   ts5_type.type = FFI_TYPE_STRUCT;
  33   ts5_type.elements = ts5_type_elements;
  34   ts5_type_elements[0] = &ffi_type_schar;
  35   ts5_type_elements[1] = &ffi_type_schar;
  36   ts5_type_elements[2] = NULL;
  37
  38   test_structure_5 ts5_arg1, ts5_arg2;
  39
  40   /* This is a hack to get a properly aligned result buffer */
  41   test_structure_5 *ts5_result =
  42     (test_structure_5 *) malloc (sizeof(test_structure_5));
  43
  44   args[0] = &ts5_type;
  45   args[1] = &ts5_type;
  46   values[0] = &ts5_arg1;
  47   values[1] = &ts5_arg2;
  48
  49   /* Initialize the cif */
  50   CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &ts5_type, args) == FFI_OK);
  51
  52   ts5_arg1.c1 = 2;
  53   ts5_arg1.c2 = 6;
  54   ts5_arg2.c1 = 5;
  55   ts5_arg2.c2 = 3;
  56
  57   ffi_call (&cif, FFI_FN(struct5), ts5_result, values);
  58
  59   CHECK(ts5_result->c1 == 7);
  60   CHECK(ts5_result->c2 == 3);
  61
  62
  63   free (ts5_result);
  64   exit(0);
  65 }