kc3-lang/libffi/testsuite/libffi.call/return_dbl.c

• Show log

  Commit

• Hash : f308faf1
  Author :
  Date : 2013-02-11T14:25:13
  

  Add moxie support. Release 3.0.12.

Download

• testsuite/libffi.call/return_dbl.c

• /* Area:	ffi_call
     Purpose:	Check return value double.
     Limitations:	none.
     PR:		none.
     Originator:	<andreast@gcc.gnu.org> 20050212  */
  
  /* { dg-do run } */
  #include "ffitest.h"
  
  static double return_dbl(double dbl)
  {
    printf ("%f\n", dbl);
    return 2 * dbl;
  }
  int main (void)
  {
    ffi_cif cif;
    ffi_type *args[MAX_ARGS];
    void *values[MAX_ARGS];
    double dbl, rdbl;
  
    args[0] = &ffi_type_double;
    values[0] = &dbl;
  
    /* Initialize the cif */
    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
  		     &ffi_type_double, args) == FFI_OK);
  
    for (dbl = -127.3; dbl <  127; dbl++)
      {
        ffi_call(&cif, FFI_FN(return_dbl), &rdbl, values);
        printf ("%f vs %f\n", rdbl, return_dbl(dbl));
        CHECK(rdbl == 2 * dbl);
      }
    exit(0);
  }
  

Download