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

• Show log

  Commit

• Hash : 164283f4
  Author :
  Date : 2013-11-16T06:38:55
  

  The powerpc64 support opted to pass floating point values both in the
  fpr area and the parameter save area, necessary when the backend
  doesn't know if a function argument corresponds to the ellipsis
  arguments of a variadic function.  This patch adds powerpc support for
  variadic functions, and changes the code to only pass fp in the ABI
  mandated area.  ELFv2 needs this change since the parameter save area
  may not exist there.
  
  This also fixes two faulty tests that used a non-variadic function
  cast to call a variadic function, and spuriously reasoned that this is
  somehow necessary for static functions..
  

Download

• testsuite/libffi.call/cls_longdouble_va.c

• /* Area:		ffi_call, closure_call
     Purpose:		Test long doubles passed in variable argument lists.
     Limitations:	none.
     PR:			none.
     Originator:	Blake Chaffin 6/6/2007	 */
  
  /* { dg-do run { xfail strongarm*-*-* xscale*-*-* } } */
  /* { dg-output "" { xfail avr32*-*-* x86_64-*-mingw* } } */
  /* { dg-output "" { xfail mips-sgi-irix6* } } PR libffi/46660 */
  
  #include "ffitest.h"
  
  static void
  cls_longdouble_va_fn(ffi_cif* cif __UNUSED__, void* resp, 
  		     void** args, void* userdata __UNUSED__)
  {
  	char*		format	= *(char**)args[0];
  	long double	ldValue	= *(long double*)args[1];
  
  	*(ffi_arg*)resp = printf(format, ldValue);
  }
  
  int main (void)
  {
  	ffi_cif cif;
          void *code;
  	ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
  	void* args[3];
  	ffi_type* arg_types[3];
  
  	char*		format	= "%.1Lf\n";
  	long double	ldArg	= 7;
  	ffi_arg		res		= 0;
  
  	arg_types[0] = &ffi_type_pointer;
  	arg_types[1] = &ffi_type_longdouble;
  	arg_types[2] = NULL;
  
  	/* This printf call is variadic */
  	CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 2, &ffi_type_sint,
  			       arg_types) == FFI_OK);
  
  	args[0] = &format;
  	args[1] = &ldArg;
  	args[2] = NULL;
  
  	ffi_call(&cif, FFI_FN(printf), &res, args);
  	/* { dg-output "7.0" } */
  	printf("res: %d\n", (int) res);
  	/* { dg-output "\nres: 4" } */
  
  	CHECK(ffi_prep_closure_loc(pcl, &cif, cls_longdouble_va_fn, NULL,
  				   code) == FFI_OK);
  
  	res = ((int(*)(char*, ...))(code))(format, ldArg);
  	/* { dg-output "\n7.0" } */
  	printf("res: %d\n", (int) res);
  	/* { dg-output "\nres: 4" } */
  
  	exit(0);
  }
  

Download