jni/ruby/ext/fiddle/libffi-3.2.1/testsuite/libffi.call/cls_longdouble_va.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

/* 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);
}