2 Purpose: Check multiple long long values passing.
3 Exceed the limit of gpr registers on PowerPC
7 Originator: <andreast@gcc.gnu.org> 20031026 */
9 /* { dg-do run { xfail mips64*-*-* arm*-*-* strongarm*-*-* xscale*-*-* } } */
14 closure_test_fn5(ffi_cif* cif,void* resp,void** args, void* userdata)
17 (int)*(unsigned long long *)args[0] + (int)*(unsigned long long *)args[1] +
18 (int)*(unsigned long long *)args[2] + (int)*(unsigned long long *)args[3] +
19 (int)*(unsigned long long *)args[4] + (int)*(unsigned long long *)args[5] +
20 (int)*(unsigned long long *)args[6] + (int)*(unsigned long long *)args[7] +
21 (int)*(unsigned long long *)args[8] + (int)*(unsigned long long *)args[9] +
22 (int)*(int *)args[10] +
23 (int)*(unsigned long long *)args[11] +
24 (int)*(unsigned long long *)args[12] +
25 (int)*(unsigned long long *)args[13] +
26 (int)*(unsigned long long *)args[14] +
27 *(int *)args[15] + (int)(long)userdata;
29 printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d: %d\n",
30 (int)*(unsigned long long *)args[0],
31 (int)*(unsigned long long *)args[1],
32 (int)*(unsigned long long *)args[2],
33 (int)*(unsigned long long *)args[3],
34 (int)*(unsigned long long *)args[4],
35 (int)*(unsigned long long *)args[5],
36 (int)*(unsigned long long *)args[6],
37 (int)*(unsigned long long *)args[7],
38 (int)*(unsigned long long *)args[8],
39 (int)*(unsigned long long *)args[9],
40 (int)*(int *)args[10],
41 (int)*(unsigned long long *)args[11],
42 (int)*(unsigned long long *)args[12],
43 (int)*(unsigned long long *)args[13],
44 (int)*(unsigned long long *)args[14],
46 (int)(long)userdata, (int)*(ffi_arg *)resp);
50 typedef int (*closure_test_type0)(unsigned long long, unsigned long long,
51 unsigned long long, unsigned long long,
52 unsigned long long, unsigned long long,
53 unsigned long long, unsigned long long,
54 unsigned long long, unsigned long long,
55 int, unsigned long long,
56 unsigned long long, unsigned long long,
57 unsigned long long, int);
63 static ffi_closure cl;
66 ffi_type * cl_arg_types[17];
69 pcl = allocate_mmap (sizeof(ffi_closure));
74 for (i = 0; i < 10; i++) {
75 cl_arg_types[i] = &ffi_type_uint64;
77 cl_arg_types[10] = &ffi_type_uint;
78 for (i = 11; i < 15; i++) {
79 cl_arg_types[i] = &ffi_type_uint64;
81 cl_arg_types[15] = &ffi_type_uint;
82 cl_arg_types[16] = NULL;
84 /* Initialize the cif */
85 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 16,
86 &ffi_type_sint, cl_arg_types) == FFI_OK);
88 CHECK(ffi_prep_closure(pcl, &cif, closure_test_fn5,
89 (void *) 3 /* userdata */) == FFI_OK);
91 res = (*((closure_test_type0)pcl))
92 (1LL, 2LL, 3LL, 4LL, 127LL, 429LL, 7LL, 8LL, 9LL, 10LL, 11, 12LL,
94 /* { dg-output "1 2 3 4 127 429 7 8 9 10 11 12 13 19 21 1 3: 680" } */
95 printf("res: %d\n",res);
96 /* { dg-output "\nres: 680" } */