1/* Area: ffi_call 2 Purpose: Check return value unsigned char. 3 Limitations: none. 4 PR: none. 5 Originator: From the original ffitest.c */ 6 7/* { dg-do run } */ 8#include "ffitest.h" 9 10static unsigned char return_uc(unsigned char uc) 11{ 12 return uc; 13} 14 15int main (void) 16{ 17 ffi_cif cif; 18 ffi_type *args[MAX_ARGS]; 19 void *values[MAX_ARGS]; 20 ffi_arg rint; 21 22 unsigned char uc; 23 unsigned long ul; 24 25 args[0] = &ffi_type_uchar; 26 values[0] = &uc; 27 28 /* Initialize the cif */ 29 CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, 30 &ffi_type_uchar, args) == FFI_OK); 31 32 for (uc = (unsigned char) '\x00'; 33 uc < (unsigned char) '\xff'; uc++) 34 { 35 ul++; 36 ffi_call(&cif, FFI_FN(return_uc), &rint, values); 37 CHECK(rint == (signed int) uc); 38 } 39 exit(0); 40} 41