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