1 /* Area: ffi_call, closure_call
2 Purpose: Test doubles passed in variable argument lists.
3 Limitations: none.
4 PR: none.
5 Originator: Blake Chaffin 6/6/2007 */
6
7 /* { dg-do run } */
8 /* { dg-output "" { xfail avr32*-*-* } } */
9 #include "ffitest.h"
10
11 struct small_tag
12 {
13 unsigned char a;
14 unsigned char b;
15 };
16
17 struct large_tag
18 {
19 unsigned a;
20 unsigned b;
21 unsigned c;
22 unsigned d;
23 unsigned e;
24 };
25
26 static void
test_fn(ffi_cif * cif __UNUSED__,void * resp,void ** args,void * userdata __UNUSED__)27 test_fn (ffi_cif* cif __UNUSED__, void* resp,
28 void** args, void* userdata __UNUSED__)
29 {
30 int n = *(int*)args[0];
31 struct small_tag s1 = * (struct small_tag *) args[1];
32 struct large_tag l1 = * (struct large_tag *) args[2];
33 struct small_tag s2 = * (struct small_tag *) args[3];
34
35 printf ("%d %d %d %d %d %d %d %d %d %d\n", n, s1.a, s1.b,
36 l1.a, l1.b, l1.c, l1.d, l1.e,
37 s2.a, s2.b);
38 * (ffi_arg*) resp = 42;
39 }
40
41 int
main(void)42 main (void)
43 {
44 ffi_cif cif;
45 void *code;
46 ffi_closure *pcl = ffi_closure_alloc (sizeof (ffi_closure), &code);
47 ffi_type* arg_types[5];
48
49 ffi_arg res = 0;
50
51 ffi_type s_type;
52 ffi_type *s_type_elements[3];
53
54 ffi_type l_type;
55 ffi_type *l_type_elements[6];
56
57 struct small_tag s1;
58 struct small_tag s2;
59 struct large_tag l1;
60
61 int si;
62
63 s_type.size = 0;
64 s_type.alignment = 0;
65 s_type.type = FFI_TYPE_STRUCT;
66 s_type.elements = s_type_elements;
67
68 s_type_elements[0] = &ffi_type_uchar;
69 s_type_elements[1] = &ffi_type_uchar;
70 s_type_elements[2] = NULL;
71
72 l_type.size = 0;
73 l_type.alignment = 0;
74 l_type.type = FFI_TYPE_STRUCT;
75 l_type.elements = l_type_elements;
76
77 l_type_elements[0] = &ffi_type_uint;
78 l_type_elements[1] = &ffi_type_uint;
79 l_type_elements[2] = &ffi_type_uint;
80 l_type_elements[3] = &ffi_type_uint;
81 l_type_elements[4] = &ffi_type_uint;
82 l_type_elements[5] = NULL;
83
84 arg_types[0] = &ffi_type_sint;
85 arg_types[1] = &s_type;
86 arg_types[2] = &l_type;
87 arg_types[3] = &s_type;
88 arg_types[4] = NULL;
89
90 CHECK(ffi_prep_cif_var(&cif, FFI_DEFAULT_ABI, 1, 4, &ffi_type_sint,
91 arg_types) == FFI_OK);
92
93 si = 4;
94 s1.a = 5;
95 s1.b = 6;
96
97 s2.a = 20;
98 s2.b = 21;
99
100 l1.a = 10;
101 l1.b = 11;
102 l1.c = 12;
103 l1.d = 13;
104 l1.e = 14;
105
106 CHECK(ffi_prep_closure_loc(pcl, &cif, test_fn, NULL, code) == FFI_OK);
107
108 res = ((int (*)(int, ...))(code))(si, s1, l1, s2);
109 /* { dg-output "4 5 6 10 11 12 13 14 20 21" } */
110 printf("res: %d\n", (int) res);
111 /* { dg-output "\nres: 42" } */
112
113 exit(0);
114 }
115