Home | History | Annotate | Download | only in libffi.call
      1 /* Area:	ffi_call, closure_call
      2    Purpose:	Check passing of multiple unsigned short/char values.
      3    Limitations:	none.
      4    PR:		PR13221.
      5    Originator:	<andreast (at) gcc.gnu.org> 20031129  */
      6 
      7 /* { dg-do run } */
      8 #include "ffitest.h"
      9 
     10 unsigned short test_func_fn(unsigned char a1, unsigned short a2,
     11 			    unsigned char a3, unsigned short a4)
     12 {
     13   unsigned short result;
     14 
     15   result = a1 + a2 + a3 + a4;
     16 
     17   printf("%d %d %d %d: %d\n", a1, a2, a3, a4, result);
     18 
     19   return result;
     20 
     21 }
     22 
     23 static void test_func_gn(ffi_cif *cif __UNUSED__, void *rval, void **avals,
     24 			 void *data __UNUSED__)
     25 {
     26   unsigned char a1, a3;
     27   unsigned short a2, a4;
     28 
     29   a1 = *(unsigned char *)avals[0];
     30   a2 = *(unsigned short *)avals[1];
     31   a3 = *(unsigned char *)avals[2];
     32   a4 = *(unsigned short *)avals[3];
     33 
     34   *(ffi_arg *)rval = test_func_fn(a1, a2, a3, a4);
     35 
     36 }
     37 
     38 typedef unsigned short (*test_type)(unsigned char, unsigned short,
     39 				   unsigned char, unsigned short);
     40 
     41 int main (void)
     42 {
     43   ffi_cif cif;
     44 #ifndef USING_MMAP
     45   static ffi_closure cl;
     46 #endif
     47   ffi_closure *pcl;
     48   void * args_dbl[5];
     49   ffi_type * cl_arg_types[5];
     50   ffi_arg res_call;
     51   unsigned char a, c;
     52   unsigned short b, d, res_closure;
     53 
     54 #ifdef USING_MMAP
     55   pcl = allocate_mmap (sizeof(ffi_closure));
     56 #else
     57   pcl = &cl;
     58 #endif
     59 
     60   a = 1;
     61   b = 2;
     62   c = 127;
     63   d = 128;
     64 
     65   args_dbl[0] = &a;
     66   args_dbl[1] = &b;
     67   args_dbl[2] = &c;
     68   args_dbl[3] = &d;
     69   args_dbl[4] = NULL;
     70 
     71   cl_arg_types[0] = &ffi_type_uchar;
     72   cl_arg_types[1] = &ffi_type_ushort;
     73   cl_arg_types[2] = &ffi_type_uchar;
     74   cl_arg_types[3] = &ffi_type_ushort;
     75   cl_arg_types[4] = NULL;
     76 
     77   /* Initialize the cif */
     78   CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
     79 		     &ffi_type_ushort, cl_arg_types) == FFI_OK);
     80 
     81   ffi_call(&cif, FFI_FN(test_func_fn), &res_call, args_dbl);
     82   /* { dg-output "1 2 127 128: 258" } */
     83   printf("res: %d\n", (unsigned short)res_call);
     84   /* { dg-output "\nres: 258" } */
     85 
     86   CHECK(ffi_prep_closure(pcl, &cif, test_func_gn, NULL)  == FFI_OK);
     87 
     88   res_closure = (*((test_type)pcl))(1, 2, 127, 128);
     89   /* { dg-output "\n1 2 127 128: 258" } */
     90   printf("res: %d\n", res_closure);
     91   /* { dg-output "\nres: 258" } */
     92 
     93   exit(0);
     94 }
     95