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

• Show log

  Commit

• Hash : 99db4d42
  Author :
  Date : 2014-10-23T14:12:18
  

  win64: Rewrite It's way too different from the 32-bit ABIs with which it is currently associated. As seen from all of the existing XFAILs.

Download

• testsuite/libffi.call/return_ldl.c

• /* Area:	ffi_call
     Purpose:	Check return value long double.
     Limitations:	none.
     PR:		none.
     Originator:	<andreast@gcc.gnu.org> 20071113  */
  /* { dg-do run } */
  
  #include "ffitest.h"
  
  static long double return_ldl(long double ldl)
  {
    return 2*ldl;
  }
  int main (void)
  {
    ffi_cif cif;
    ffi_type *args[MAX_ARGS];
    void *values[MAX_ARGS];
    long double ldl, rldl;
  
    args[0] = &ffi_type_longdouble;
    values[0] = &ldl;
  
    /* Initialize the cif */
    CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
  		     &ffi_type_longdouble, args) == FFI_OK);
  
    for (ldl = -127.0; ldl <  127.0; ldl++)
      {
        ffi_call(&cif, FFI_FN(return_ldl), &rldl, values);
        CHECK(rldl ==  2 * ldl);
      }
    exit(0);
  }
  

Download