1 /* Area: ffi_call 2 Purpose: Check if long long are passed in the corresponding regs on ppc. 3 Limitations: none. 4 PR: 20104. 5 Originator: <andreast (at) gcc.gnu.org> 20050222 */ 6 7 /* { dg-do run } */ 8 /* { dg-options "-Wno-format" { target alpha*-dec-osf* } } */ 9 #include "ffitest.h" 10 static long long return_ll(int ll0, long long ll1, int ll2) 11 { 12 return ll0 + ll1 + ll2; 13 } 14 15 int main (void) 16 { 17 ffi_cif cif; 18 ffi_type *args[MAX_ARGS]; 19 void *values[MAX_ARGS]; 20 long long rlonglong; 21 long long ll1; 22 unsigned ll0, ll2; 23 24 args[0] = &ffi_type_sint; 25 args[1] = &ffi_type_sint64; 26 args[2] = &ffi_type_sint; 27 values[0] = &ll0; 28 values[1] = &ll1; 29 values[2] = &ll2; 30 31 /* Initialize the cif */ 32 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, 33 &ffi_type_sint64, args) == FFI_OK); 34 35 ll0 = 11111111; 36 ll1 = 11111111111000LL; 37 ll2 = 11111111; 38 39 ffi_call(&cif, FFI_FN(return_ll), &rlonglong, values); 40 printf("res: %" PRIdLL ", %" PRIdLL "\n", rlonglong, ll0 + ll1 + ll2); 41 /* { dg-output "res: 11111133333222, 11111133333222" } */ 42 exit(0); 43 } 44
