1*1fd5a2e1SPrashanth Swaminathan /* Area: closure_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Check multiple long long values passing.
3*1fd5a2e1SPrashanth Swaminathan Exceed the limit of gpr registers on PowerPC
4*1fd5a2e1SPrashanth Swaminathan Darwin.
5*1fd5a2e1SPrashanth Swaminathan Limitations: none.
6*1fd5a2e1SPrashanth Swaminathan PR: none.
7*1fd5a2e1SPrashanth Swaminathan Originator: <[email protected]> 20031026 */
8*1fd5a2e1SPrashanth Swaminathan
9*1fd5a2e1SPrashanth Swaminathan /* { dg-do run } */
10*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
11*1fd5a2e1SPrashanth Swaminathan
12*1fd5a2e1SPrashanth Swaminathan static void
closure_test_fn5(ffi_cif * cif __UNUSED__,void * resp,void ** args,void * userdata)13*1fd5a2e1SPrashanth Swaminathan closure_test_fn5(ffi_cif* cif __UNUSED__, void* resp, void** args,
14*1fd5a2e1SPrashanth Swaminathan void* userdata)
15*1fd5a2e1SPrashanth Swaminathan {
16*1fd5a2e1SPrashanth Swaminathan *(ffi_arg*)resp =
17*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[0] + (int)*(unsigned long long *)args[1] +
18*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[2] + (int)*(unsigned long long *)args[3] +
19*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[4] + (int)*(unsigned long long *)args[5] +
20*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[6] + (int)*(unsigned long long *)args[7] +
21*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[8] + (int)*(unsigned long long *)args[9] +
22*1fd5a2e1SPrashanth Swaminathan (int)*(int *)args[10] +
23*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[11] +
24*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[12] +
25*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[13] +
26*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[14] +
27*1fd5a2e1SPrashanth Swaminathan *(int *)args[15] + (intptr_t)userdata;
28*1fd5a2e1SPrashanth Swaminathan
29*1fd5a2e1SPrashanth Swaminathan printf("%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d: %d\n",
30*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[0],
31*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[1],
32*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[2],
33*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[3],
34*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[4],
35*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[5],
36*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[6],
37*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[7],
38*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[8],
39*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[9],
40*1fd5a2e1SPrashanth Swaminathan (int)*(int *)args[10],
41*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[11],
42*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[12],
43*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[13],
44*1fd5a2e1SPrashanth Swaminathan (int)*(unsigned long long *)args[14],
45*1fd5a2e1SPrashanth Swaminathan *(int *)args[15],
46*1fd5a2e1SPrashanth Swaminathan (int)(intptr_t)userdata, (int)*(ffi_arg *)resp);
47*1fd5a2e1SPrashanth Swaminathan
48*1fd5a2e1SPrashanth Swaminathan }
49*1fd5a2e1SPrashanth Swaminathan
50*1fd5a2e1SPrashanth Swaminathan typedef int (*closure_test_type0)(unsigned long long, unsigned long long,
51*1fd5a2e1SPrashanth Swaminathan unsigned long long, unsigned long long,
52*1fd5a2e1SPrashanth Swaminathan unsigned long long, unsigned long long,
53*1fd5a2e1SPrashanth Swaminathan unsigned long long, unsigned long long,
54*1fd5a2e1SPrashanth Swaminathan unsigned long long, unsigned long long,
55*1fd5a2e1SPrashanth Swaminathan int, unsigned long long,
56*1fd5a2e1SPrashanth Swaminathan unsigned long long, unsigned long long,
57*1fd5a2e1SPrashanth Swaminathan unsigned long long, int);
58*1fd5a2e1SPrashanth Swaminathan
main(void)59*1fd5a2e1SPrashanth Swaminathan int main (void)
60*1fd5a2e1SPrashanth Swaminathan {
61*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
62*1fd5a2e1SPrashanth Swaminathan void *code;
63*1fd5a2e1SPrashanth Swaminathan ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
64*1fd5a2e1SPrashanth Swaminathan ffi_type * cl_arg_types[17];
65*1fd5a2e1SPrashanth Swaminathan int i, res;
66*1fd5a2e1SPrashanth Swaminathan
67*1fd5a2e1SPrashanth Swaminathan for (i = 0; i < 10; i++) {
68*1fd5a2e1SPrashanth Swaminathan cl_arg_types[i] = &ffi_type_uint64;
69*1fd5a2e1SPrashanth Swaminathan }
70*1fd5a2e1SPrashanth Swaminathan cl_arg_types[10] = &ffi_type_sint;
71*1fd5a2e1SPrashanth Swaminathan for (i = 11; i < 15; i++) {
72*1fd5a2e1SPrashanth Swaminathan cl_arg_types[i] = &ffi_type_uint64;
73*1fd5a2e1SPrashanth Swaminathan }
74*1fd5a2e1SPrashanth Swaminathan cl_arg_types[15] = &ffi_type_sint;
75*1fd5a2e1SPrashanth Swaminathan cl_arg_types[16] = NULL;
76*1fd5a2e1SPrashanth Swaminathan
77*1fd5a2e1SPrashanth Swaminathan /* Initialize the cif */
78*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 16,
79*1fd5a2e1SPrashanth Swaminathan &ffi_type_sint, cl_arg_types) == FFI_OK);
80*1fd5a2e1SPrashanth Swaminathan
81*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_fn5,
82*1fd5a2e1SPrashanth Swaminathan (void *) 3 /* userdata */, code) == FFI_OK);
83*1fd5a2e1SPrashanth Swaminathan
84*1fd5a2e1SPrashanth Swaminathan res = (*((closure_test_type0)code))
85*1fd5a2e1SPrashanth Swaminathan (1LL, 2LL, 3LL, 4LL, 127LL, 429LL, 7LL, 8LL, 9LL, 10LL, 11, 12LL,
86*1fd5a2e1SPrashanth Swaminathan 13LL, 19LL, 21LL, 1);
87*1fd5a2e1SPrashanth Swaminathan /* { dg-output "1 2 3 4 127 429 7 8 9 10 11 12 13 19 21 1 3: 680" } */
88*1fd5a2e1SPrashanth Swaminathan printf("res: %d\n",res);
89*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\nres: 680" } */
90*1fd5a2e1SPrashanth Swaminathan
91*1fd5a2e1SPrashanth Swaminathan exit(0);
92*1fd5a2e1SPrashanth Swaminathan }
93