Ruby 2.7.0p0(2019-12-25revision647ee6f091eafcce70ffb75ddf7e121e192ab217)

cls_struct_va1.c
Go to the documentation of this file.
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
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
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 }
small_tag
Definition: cls_struct_va1.c:11
large_tag
Definition: cls_struct_va1.c:17
small_tag::b
unsigned char b
Definition: cls_struct_va1.c:14
ffi_arg
unsigned long ffi_arg
Definition: ffitarget.h:30
main
int main(void)
Definition: cls_struct_va1.c:42
large_tag::b
unsigned b
Definition: cls_struct_va1.c:20
int
__inline__ int
Definition: rb_mjit_min_header-2.7.0.h:2839
large_tag::c
unsigned c
Definition: cls_struct_va1.c:21
printf
int int int printf(const char *__restrict,...) __attribute__((__format__(__printf__
NULL
#define NULL
Definition: _sdbm.c:101
exit
void exit(int __status) __attribute__((__noreturn__))
ffitest.h
large_tag::e
unsigned e
Definition: cls_struct_va1.c:23
__UNUSED__
#define __UNUSED__
Definition: ffitest.h:28
CHECK
#define CHECK(sub)
Definition: compile.c:448
FFI_DEFAULT_ABI
@ FFI_DEFAULT_ABI
Definition: ffitarget.h:38
ffi_prep_cif_var
ffi_status ffi_prep_cif_var(ffi_cif *cif, ffi_abi abi, unsigned int nfixedargs, unsigned int ntotalargs, ffi_type *rtype, ffi_type **atypes)
Definition: prep_cif.c:232
n
const char size_t n
Definition: rb_mjit_min_header-2.7.0.h:5456
small_tag::a
unsigned char a
Definition: cls_struct_va1.c:13
ffi_type_uchar
#define ffi_type_uchar
Definition: fiddle.h:55
large_tag::d
unsigned d
Definition: cls_struct_va1.c:22
s2
const char * s2
Definition: rb_mjit_min_header-2.7.0.h:5454
ffi_prep_closure_loc
ffi_status ffi_prep_closure_loc(ffi_closure *closure, ffi_cif *cif, void(*fun)(ffi_cif *, void *, void **, void *), void *user_data, void *codeloc)
Definition: ffi.c:928
large_tag::a
unsigned a
Definition: cls_struct_va1.c:19