1/* Area: closure_call 2 Purpose: Check multiple long long values passing. 3 Exceed the limit of gpr registers on PowerPC 4 Darwin. 5 Limitations: none. 6 PR: none. 7 Originator: <andreast@gcc.gnu.org> 20031026 */ 8 9/* { dg-do run } */ 10#include "ffitest.h" 11 12static void 13closure_test_fn5(ffi_cif* cif __UNUSED__, void* resp, void** args, 14 void* userdata) 15{ 16 *(ffi_arg*)resp = 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; 28 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], 45 *(int *)args[15], 46 (int)(long)userdata, (int)*(ffi_arg *)resp); 47 48} 49 50typedef 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); 58 59int main (void) 60{ 61 ffi_cif cif; 62#ifndef USING_MMAP 63 static ffi_closure cl; 64#endif 65 ffi_closure *pcl; 66 ffi_type * cl_arg_types[17]; 67 int i, res; 68#ifdef USING_MMAP 69 pcl = allocate_mmap (sizeof(ffi_closure)); 70#else 71 pcl = &cl; 72#endif 73 74 for (i = 0; i < 10; i++) { 75 cl_arg_types[i] = &ffi_type_uint64; 76 } 77 cl_arg_types[10] = &ffi_type_sint; 78 for (i = 11; i < 15; i++) { 79 cl_arg_types[i] = &ffi_type_uint64; 80 } 81 cl_arg_types[15] = &ffi_type_sint; 82 cl_arg_types[16] = NULL; 83 84 /* Initialize the cif */ 85 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 16, 86 &ffi_type_sint, cl_arg_types) == FFI_OK); 87 88 CHECK(ffi_prep_closure(pcl, &cif, closure_test_fn5, 89 (void *) 3 /* userdata */) == FFI_OK); 90 91 res = (*((closure_test_type0)pcl)) 92 (1LL, 2LL, 3LL, 4LL, 127LL, 429LL, 7LL, 8LL, 9LL, 10LL, 11, 12LL, 93 13LL, 19LL, 21LL, 1); 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" } */ 97 98 exit(0); 99} 100