33 result.
a = b0.
a + b1.
a + b2.
a + b3.
a;
34 result.
b = b0.
b + b1.
b + b2.
b + b3.
b;
35 result.
c = b0.
c + b1.
c + b2.
c + b3.
c;
36 result.
d = b0.
d + b1.
d + b2.
d + b3.
d;
37 result.
e = b0.
e + b1.
e + b2.
e + b3.
e;
38 result.
f = b0.
f + b1.
f + b2.
f + b3.
f;
39 result.
g = b0.
g + b1.
g + b2.
g + b3.
g;
40 result.
h = b0.
h + b1.
h + b2.
h + b3.
h;
41 result.
i = b0.
i + b1.
i + b2.
i + b3.
i;
43 printf(
"%g %g %g %g %g %g %g %g %" PRIdLL "\n", result.
a, result.
b, result.
c,
44 result.
d, result.
e, result.
f, result.
g, result.
h, result.
i);
66 ffi_closure *pcl = ffi_closure_alloc(
sizeof(ffi_closure), &code);
68 ffi_type* cls_struct_fields[10];
69 ffi_type cls_struct_type;
70 ffi_type* dbl_arg_types[5];
72 struct_72byte e_dbl = { 9.0, 2.0, 6.0, 5.0, 3.0, 4.0, 8.0, 1.0, 7 };
73 struct_72byte f_dbl = { 1.0, 2.0, 3.0, 7.0, 2.0, 5.0, 6.0, 7.0, 4 };
74 struct_72byte g_dbl = { 4.0, 5.0, 7.0, 9.0, 1.0, 1.0, 2.0, 9.0, 3 };
75 struct_72byte h_dbl = { 8.0, 6.0, 1.0, 4.0, 0.0, 3.0, 3.0, 1.0, 2 };
78 cls_struct_type.size = 0;
79 cls_struct_type.alignment = 0;
80 cls_struct_type.type = FFI_TYPE_STRUCT;
81 cls_struct_type.elements = cls_struct_fields;
83 cls_struct_fields[0] = &ffi_type_double;
84 cls_struct_fields[1] = &ffi_type_double;
85 cls_struct_fields[2] = &ffi_type_double;
86 cls_struct_fields[3] = &ffi_type_double;
87 cls_struct_fields[4] = &ffi_type_double;
88 cls_struct_fields[5] = &ffi_type_double;
89 cls_struct_fields[6] = &ffi_type_double;
90 cls_struct_fields[7] = &ffi_type_double;
91 cls_struct_fields[8] = &ffi_type_sint64;
92 cls_struct_fields[9] =
NULL;
94 dbl_arg_types[0] = &cls_struct_type;
95 dbl_arg_types[1] = &cls_struct_type;
96 dbl_arg_types[2] = &cls_struct_type;
97 dbl_arg_types[3] = &cls_struct_type;
98 dbl_arg_types[4] =
NULL;
101 dbl_arg_types) == FFI_OK);
103 args_dbl[0] = &e_dbl;
104 args_dbl[1] = &f_dbl;
105 args_dbl[2] = &g_dbl;
106 args_dbl[3] = &h_dbl;
111 printf(
"res: %g %g %g %g %g %g %g %g %" PRIdLL "\n", res_dbl.
a, res_dbl.
b, res_dbl.
c,
112 res_dbl.
d, res_dbl.
e, res_dbl.
f, res_dbl.
g, res_dbl.
h, res_dbl.
i);
120 printf(
"res: %g %g %g %g %g %g %g %g %" PRIdLL "\n", res_dbl.
a, res_dbl.
b, res_dbl.
c,
121 res_dbl.
d, res_dbl.
e, res_dbl.
f, res_dbl.
g, res_dbl.
h, res_dbl.
i);
ffi_status ffi_prep_closure_loc(ffi_closure *closure, ffi_cif *cif, void(*fun)(ffi_cif *, void *, void **, void *), void *user_data, void *codeloc)
void ffi_call(ffi_cif *cif, void(*fn)(void), void *rvalue, void **avalue)
ffi_status ffi_prep_cif(ffi_cif *cif, ffi_abi abi, unsigned int nargs, ffi_type *rtype, ffi_type **atypes)
struct_72byte cls_struct_72byte_fn(struct_72byte b0, struct_72byte b1, struct_72byte b2, struct_72byte b3)
struct struct_72byte struct_72byte