ยปCore Development>Code coverage>Modules/_ctypes/libffi/testsuite/libffi.call/cls_double_va.c

Python code coverage for Modules/_ctypes/libffi/testsuite/libffi.call/cls_double_va.c

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