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