Ruby: ext/fiddle/libffi-3.2.1/testsuite/libffi.call/cls_struct_va1.c Source File

Ruby 3.0.5p211 (2022-11-24 revision ba5cf0f7c52d4d35cc6a173c89eda98ceffa2dcf)

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
26static void
27test_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
41int
42main (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}
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
ffi_arg
unsigned long ffi_arg
Definition: ffitarget.h:30
FFI_DEFAULT_ABI
@ FFI_DEFAULT_ABI
Definition: ffitarget.h:38
main
int main(void)
Definition: cls_struct_va1.c:42
CHECK
#define CHECK(sub)
Definition: compile.c:429
ffitest.h
__UNUSED__
#define __UNUSED__
Definition: ffitest.h:23
int
typedef int(ZCALLBACK *close_file_func) OF((voidpf opaque
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
NULL
#define NULL
Definition: regenc.h:69
code
Definition: inftree9.h:24
large_tag
Definition: cls_struct_va1.c:18
large_tag::b
unsigned b
Definition: cls_struct_va1.c:20
large_tag::a
unsigned a
Definition: cls_struct_va1.c:19
large_tag::d
unsigned d
Definition: cls_struct_va1.c:22
large_tag::e
unsigned e
Definition: cls_struct_va1.c:23
large_tag::c
unsigned c
Definition: cls_struct_va1.c:21
small_tag
Definition: cls_struct_va1.c:12
small_tag::b
unsigned char b
Definition: cls_struct_va1.c:14
small_tag::a
unsigned char a
Definition: cls_struct_va1.c:13