1*1fd5a2e1SPrashanth Swaminathan /* Area: ffi_call, closure_call
2*1fd5a2e1SPrashanth Swaminathan Purpose: Test doubles passed in variable argument lists.
3*1fd5a2e1SPrashanth Swaminathan Limitations: none.
4*1fd5a2e1SPrashanth Swaminathan PR: none.
5*1fd5a2e1SPrashanth Swaminathan Originator: Blake Chaffin 6/6/2007 */
6*1fd5a2e1SPrashanth Swaminathan
7*1fd5a2e1SPrashanth Swaminathan /* { dg-do run { xfail strongarm*-*-* xscale*-*-* } } */
8*1fd5a2e1SPrashanth Swaminathan /* { dg-output "" { xfail avr32*-*-* } } */
9*1fd5a2e1SPrashanth Swaminathan /* { dg-output "" { xfail mips-sgi-irix6* } } PR libffi/46660 */
10*1fd5a2e1SPrashanth Swaminathan
11*1fd5a2e1SPrashanth Swaminathan #include "ffitest.h"
12*1fd5a2e1SPrashanth Swaminathan
13*1fd5a2e1SPrashanth Swaminathan static void
cls_double_va_fn(ffi_cif * cif __UNUSED__,void * resp,void ** args,void * userdata __UNUSED__)14*1fd5a2e1SPrashanth Swaminathan cls_double_va_fn(ffi_cif* cif __UNUSED__, void* resp,
15*1fd5a2e1SPrashanth Swaminathan void** args, void* userdata __UNUSED__)
16*1fd5a2e1SPrashanth Swaminathan {
17*1fd5a2e1SPrashanth Swaminathan char* format = *(char**)args[0];
18*1fd5a2e1SPrashanth Swaminathan double doubleValue = *(double*)args[1];
19*1fd5a2e1SPrashanth Swaminathan
20*1fd5a2e1SPrashanth Swaminathan *(ffi_arg*)resp = printf(format, doubleValue);
21*1fd5a2e1SPrashanth Swaminathan }
22*1fd5a2e1SPrashanth Swaminathan
main(void)23*1fd5a2e1SPrashanth Swaminathan int main (void)
24*1fd5a2e1SPrashanth Swaminathan {
25*1fd5a2e1SPrashanth Swaminathan ffi_cif cif;
26*1fd5a2e1SPrashanth Swaminathan void *code;
27*1fd5a2e1SPrashanth Swaminathan ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
28*1fd5a2e1SPrashanth Swaminathan void* args[3];
29*1fd5a2e1SPrashanth Swaminathan ffi_type* arg_types[3];
30*1fd5a2e1SPrashanth Swaminathan
31*1fd5a2e1SPrashanth Swaminathan char* format = "%.1f\n";
32*1fd5a2e1SPrashanth Swaminathan double doubleArg = 7;
33*1fd5a2e1SPrashanth Swaminathan ffi_arg res = 0;
34*1fd5a2e1SPrashanth Swaminathan
35*1fd5a2e1SPrashanth Swaminathan arg_types[0] = &ffi_type_pointer;
36*1fd5a2e1SPrashanth Swaminathan arg_types[1] = &ffi_type_double;
37*1fd5a2e1SPrashanth Swaminathan arg_types[2] = NULL;
38*1fd5a2e1SPrashanth Swaminathan
39*1fd5a2e1SPrashanth Swaminathan /* This printf call is variadic */
40*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 2, &ffi_type_sint,
41*1fd5a2e1SPrashanth Swaminathan arg_types) == FFI_OK);
42*1fd5a2e1SPrashanth Swaminathan
43*1fd5a2e1SPrashanth Swaminathan args[0] = &format;
44*1fd5a2e1SPrashanth Swaminathan args[1] = &doubleArg;
45*1fd5a2e1SPrashanth Swaminathan args[2] = NULL;
46*1fd5a2e1SPrashanth Swaminathan
47*1fd5a2e1SPrashanth Swaminathan ffi_call(&cif, FFI_FN(printf), &res, args);
48*1fd5a2e1SPrashanth Swaminathan /* { dg-output "7.0" } */
49*1fd5a2e1SPrashanth Swaminathan printf("res: %d\n", (int) res);
50*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\nres: 4" } */
51*1fd5a2e1SPrashanth Swaminathan
52*1fd5a2e1SPrashanth Swaminathan CHECK(ffi_prep_closure_loc(pcl, &cif, cls_double_va_fn, NULL,
53*1fd5a2e1SPrashanth Swaminathan code) == FFI_OK);
54*1fd5a2e1SPrashanth Swaminathan
55*1fd5a2e1SPrashanth Swaminathan res = ((int(*)(char*, ...))(code))(format, doubleArg);
56*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\n7.0" } */
57*1fd5a2e1SPrashanth Swaminathan printf("res: %d\n", (int) res);
58*1fd5a2e1SPrashanth Swaminathan /* { dg-output "\nres: 4" } */
59*1fd5a2e1SPrashanth Swaminathan
60*1fd5a2e1SPrashanth Swaminathan exit(0);
61*1fd5a2e1SPrashanth Swaminathan }
62