Sha256: 986ba40b433450cbfde12a85a9098f34432c5b6b0f2255fff8848256d424bce0

Contents?: true

Size: 1.48 KB

Versions: 4069

Compression:

Stored size: 1.48 KB

Contents

/* Area:		ffi_call, closure_call
   Purpose:		Test 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*-*-* } } */
/* { dg-output "" { xfail mips-sgi-irix6* } } PR libffi/46660 */

#include "ffitest.h"

static void
cls_double_va_fn(ffi_cif* cif __UNUSED__, void* resp, 
		 void** args, void* userdata __UNUSED__)
{
	char*	format		= *(char**)args[0];
	double	doubleValue	= *(double*)args[1];

	*(ffi_arg*)resp = printf(format, doubleValue);
}

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		= "%.1f\n";
	double	doubleArg	= 7;
	ffi_arg	res			= 0;

	arg_types[0] = &ffi_type_pointer;
	arg_types[1] = &ffi_type_double;
	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] = &doubleArg;
	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_double_va_fn, NULL,
				   code) == FFI_OK);

	res = ((int(*)(char*, ...))(code))(format, doubleArg);
	/* { dg-output "\n7.0" } */
	printf("res: %d\n", (int) res);
	/* { dg-output "\nres: 4" } */

	exit(0);
}

Version data entries

4,069 entries across 4,052 versions & 39 rubygems

Version Path
tdiary-5.0.11 vendor/bundle/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-unbundled-2.2.2.0 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-unbundled-2.2.0.0 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
config_gems_initialization_aim-0.1.4 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
config_gems_initialization_aim-0.1.4 vendor/bundle/ruby/2.5.0/gems/config_gems_initialization_aim-0.1.1/vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
config_gems_initialization_aim-0.1.3 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
config_gems_initialization_aim-0.1.3 vendor/bundle/ruby/2.5.0/gems/config_gems_initialization_aim-0.1.1/vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-unbundled-2.1.4.0 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-unbundled-2.1.2.0 vendor/bundle/ruby/2.3.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
cloudsmith-api-0.30.7 vendor/bundle/ruby/2.3.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-packet-0.1.1 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-packet-0.1.1 vendor/bundle/ruby/2.4.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-packet-0.1.1 vendor/bundle/ruby/2.3.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
tdiary-5.0.9 vendor/bundle/gems/ffi-1.9.23/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
color_me_shop-1.0.0 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.25/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
ffi-1.9.25 ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
ffi-1.9.24 ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-unbundled-2.1.1.0 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.23/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
vagrant-unbundled-2.0.4.0 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.23/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c
tdiary-5.0.8 vendor/bundle/ruby/2.5.0/gems/ffi-1.9.23/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c