Home | History | Annotate | Download | only in libffi.call
      1 /* Area:	ffi_call
      2    Purpose:	Check return value float.
      3    Limitations:	none.
      4    PR:		none.
      5    Originator:	<andreast (at) gcc.gnu.org> 20050212  */
      6 
      7 /* { dg-do run } */
      8 #include "ffitest.h"
      9 
     10 static float return_fl(float fl1, float fl2, unsigned int in3, float fl4)
     11 {
     12   return fl1 + fl2 + in3 + fl4;
     13 }
     14 int main (void)
     15 {
     16   ffi_cif cif;
     17   ffi_type *args[MAX_ARGS];
     18   void *values[MAX_ARGS];
     19   float fl1, fl2, fl4, rfl;
     20   unsigned int in3;
     21   args[0] = &ffi_type_float;
     22   args[1] = &ffi_type_float;
     23   args[2] = &ffi_type_uint;
     24   args[3] = &ffi_type_float;
     25   values[0] = &fl1;
     26   values[1] = &fl2;
     27   values[2] = &in3;
     28   values[3] = &fl4;
     29 
     30   /* Initialize the cif */
     31   CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 4,
     32 		     &ffi_type_float, args) == FFI_OK);
     33   fl1 = 127.0;
     34   fl2 = 128.0;
     35   in3 = 255;
     36   fl4 = 512.7;
     37 
     38   ffi_call(&cif, FFI_FN(return_fl), &rfl, values);
     39   printf ("%f vs %f\n", rfl, return_fl(fl1, fl2, in3, fl4));
     40   CHECK(rfl ==  fl1 + fl2 + in3 + fl4);
     41   exit(0);
     42 }
     43