summaryrefslogtreecommitdiff
path: root/jni/ruby/ext/fiddle/libffi-3.2.1/testsuite/libffi.call/closure_fn5.c
blob: 99074426c67b5a65e383b48254ea0b8a8950fdda (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
/* Area:        closure_call
   Purpose:     Check multiple long long values passing.
                Exceed the limit of gpr registers on PowerPC
                Darwin.
   Limitations: none.
   PR:          none.
   Originator:  <andreast@gcc.gnu.org> 20031026  */

/* { dg-do run } */
#include "ffitest.h"

static void
closure_test_fn5(ffi_cif* cif __UNUSED__, void* resp, void** args,
                 void* userdata)
{
  *(ffi_arg*)resp =
    (int)*(unsigned long long *)args[0] + (int)*(unsigned long long *)args[1] +
    (int)*(unsigned long long *)args[2] + (int)*(unsigned long long *)args[3] +
    (int)*(unsigned long long *)args[4] + (int)*(unsigned long long *)args[5] +
    (int)*(unsigned long long *)args[6] + (int)*(unsigned long long *)args[7] +
    (int)*(unsigned long long *)args[8] + (int)*(unsigned long long *)args[9] +
    (int)*(int *)args[10] +
    (int)*(unsigned long long *)args[11] +
    (int)*(unsigned long long *)args[12] +
    (int)*(unsigned long long *)args[13] +
    (int)*(unsigned long long *)args[14] +
    *(int *)args[15] + (intptr_t)userdata;

  printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d%d\n",
         (int)*(unsigned long long *)args[0],
         (int)*(unsigned long long *)args[1],
         (int)*(unsigned long long *)args[2],
         (int)*(unsigned long long *)args[3],
         (int)*(unsigned long long *)args[4],
         (int)*(unsigned long long *)args[5],
         (int)*(unsigned long long *)args[6],
         (int)*(unsigned long long *)args[7],
         (int)*(unsigned long long *)args[8],
         (int)*(unsigned long long *)args[9],
         (int)*(int *)args[10],
         (int)*(unsigned long long *)args[11],
         (int)*(unsigned long long *)args[12],
         (int)*(unsigned long long *)args[13],
         (int)*(unsigned long long *)args[14],
         *(int *)args[15],
         (int)(intptr_t)userdata, (int)*(ffi_arg *)resp);

}

typedef int (*closure_test_type0)(unsigned long longunsigned long long,
                                  unsigned long longunsigned long long,
                                  unsigned long longunsigned long long,
                                  unsigned long longunsigned long long,
                                  unsigned long longunsigned long long,
                                  intunsigned long long,
                                  unsigned long longunsigned long long,
                                  unsigned long longint);

int main (void)
{
  ffi_cif cif;
  void *code;
  ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
  ffi_type * cl_arg_types[17];
  int i, res;

  for (i = 0; i < 10; i++) {
    cl_arg_types[i] = &ffi_type_uint64;
  }
  cl_arg_types[10] = &ffi_type_sint;
  for (i = 11; i < 15; i++) {
    cl_arg_types[i] = &ffi_type_uint64;
  }
  cl_arg_types[15] = &ffi_type_sint;
  cl_arg_types[16] = NULL;

  /* Initialize the cif */
  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 16,
                     &ffi_type_sint, cl_arg_types) == FFI_OK);

  CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_fn5,
                             (void *) 3 /* userdata */, code) == FFI_OK);

  res = (*((closure_test_type0)code))
    (1LL2LL3LL4LL127LL429LL7LL8LL9LL10LL1112LL,
     13LL19LL21LL1);
  /* { dg-output "1 2 3 4 127 429 7 8 9 10 11 12 13 19 21 1 3: 680" } */
  printf("res: %d\n",res);
  /* { dg-output "\nres: 680" } */

  exit(0);
}