Ruby: ext/fiddle/libffi-3.2.1/src/m88k/ffi.c Source File

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

ffi.c
Go to the documentation of this file.
1/*
2 * Copyright (c) 2013 Miodrag Vallat. <miod@openbsd.org>
3 *
4 * Permission is hereby granted, free of charge, to any person obtaining
5 * a copy of this software and associated documentation files (the
6 * ``Software''), to deal in the Software without restriction, including
7 * without limitation the rights to use, copy, modify, merge, publish,
8 * distribute, sublicense, and/or sell copies of the Software, and to
9 * permit persons to whom the Software is furnished to do so, subject to
10 * the following conditions:
11 *
12 * The above copyright notice and this permission notice shall be included
13 * in all copies or substantial portions of the Software.
14 *
15 * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
16 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18 * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19 * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22 */
23
24/*
25 * m88k Foreign Function Interface
26 *
27 * This file attempts to provide all the FFI entry points which can reliably
28 * be implemented in C.
29 *
30 * Only OpenBSD/m88k is currently supported; other platforms (such as
31 * Motorola's SysV/m88k) could be supported with the following tweaks:
32 *
33 * - non-OpenBSD systems use an `outgoing parameter area' as part of the
34 * 88BCS calling convention, which is not supported under OpenBSD from
35 * release 3.6 onwards. Supporting it should be as easy as taking it
36 * into account when adjusting the stack, in the assembly code.
37 *
38 * - the logic deciding whether a function argument gets passed through
39 * registers, or on the stack, has changed several times in OpenBSD in
40 * edge cases (especially for structs larger than 32 bytes being passed
41 * by value). The code below attemps to match the logic used by the
42 * system compiler of OpenBSD 5.3, i.e. gcc 3.3.6 with many m88k backend
43 * fixes.
44 */
45
46#include <ffi.h>
47#include <ffi_common.h>
48
49#include <stdlib.h>
50#include <unistd.h>
51
52 void ffi_call_OBSD (unsigned int, extended_cif *, unsigned int, void *,
53 void (*fn) ());
54void *ffi_prep_args (void *, extended_cif *);
55 void ffi_closure_OBSD (ffi_closure *);
56 void ffi_closure_struct_OBSD (ffi_closure *);
57unsigned int ffi_closure_OBSD_inner (ffi_closure *, void *, unsigned int *,
58 char *);
59 void ffi_cacheflush_OBSD (unsigned int, unsigned int);
60
61#define CIF_FLAGS_INT (1 << 0)
62#define CIF_FLAGS_DINT (1 << 1)
63
64/*
65 * Foreign Function Interface API
66 */
67
68/* ffi_prep_args is called by the assembly routine once stack space has
69 been allocated for the function's arguments. */
70
71void *
72 ffi_prep_args (void *stack, extended_cif *ecif)
73{
74 unsigned int i;
75 void **p_argv;
76 char *argp, *stackp;
77 unsigned int *regp;
78 unsigned int regused;
79 ffi_type **p_arg;
80 void *struct_value_ptr;
81
82 regp = (unsigned int *)stack;
83 stackp = (char *)(regp + 8);
84 regused = 0;
85
86 if (ecif->cif->rtype->type == FFI_TYPE_STRUCT
87 && !ecif->cif->flags)
88 struct_value_ptr = ecif->rvalue;
89 else
90 struct_value_ptr = NULL;
91
92 p_argv = ecif->avalue;
93
94 for (i = ecif->cif->nargs, p_arg = ecif->cif->arg_types; i != 0; i--, p_arg++)
95 {
96 size_t z;
97 unsigned short t, a;
98
99 z = (*p_arg)->size;
100 t = (*p_arg)->type;
101 a = (*p_arg)->alignment;
102
103 /*
104 * Figure out whether the argument can be passed through registers
105 * or on the stack.
106 * The rule is that registers can only receive simple types not larger
107 * than 64 bits, or structs the exact size of a register and aligned to
108 * the size of a register.
109 */
110 if (t == FFI_TYPE_STRUCT)
111 {
112 if (z == sizeof (int) && a == sizeof (int) && regused < 8)
113 argp = (char *)regp;
114 else
115 argp = stackp;
116 }
117 else
118 {
119 if (z > sizeof (int) && regused < 8 - 1)
120 {
121 /* align to an even register pair */
122 if (regused & 1)
123 {
124 regp++;
125 regused++;
126 }
127 }
128 if (regused < 8)
129 argp = (char *)regp;
130 else
131 argp = stackp;
132 }
133
134 /* Enforce proper stack alignment of 64-bit types */
135 if (argp == stackp && a > sizeof (int))
136 {
137 stackp = (char *) ALIGN(stackp, a);
138 argp = stackp;
139 }
140
141 switch (t)
142 {
143 case FFI_TYPE_SINT8:
144 *(signed int *) argp = (signed int) *(SINT8 *) *p_argv;
145 break;
146
147 case FFI_TYPE_UINT8:
148 *(unsigned int *) argp = (unsigned int) *(UINT8 *) *p_argv;
149 break;
150
151 case FFI_TYPE_SINT16:
152 *(signed int *) argp = (signed int) *(SINT16 *) *p_argv;
153 break;
154
155 case FFI_TYPE_UINT16:
156 *(unsigned int *) argp = (unsigned int) *(UINT16 *) *p_argv;
157 break;
158
159 case FFI_TYPE_INT:
160 case FFI_TYPE_FLOAT:
161 case FFI_TYPE_UINT32:
162 case FFI_TYPE_SINT32:
163 case FFI_TYPE_POINTER:
164 *(unsigned int *) argp = *(unsigned int *) *p_argv;
165 break;
166
167 case FFI_TYPE_DOUBLE:
168 case FFI_TYPE_UINT64:
169 case FFI_TYPE_SINT64:
170 case FFI_TYPE_STRUCT:
171 memcpy (argp, *p_argv, z);
172 break;
173
174 default:
175 FFI_ASSERT (0);
176 }
177
178 /* Align if necessary. */
179 if ((sizeof (int) - 1) & z)
180 z = ALIGN(z, sizeof (int));
181
182 p_argv++;
183
184 /* Be careful, once all registers are filled, and about to continue
185 on stack, regp == stackp. Therefore the check for regused as well. */
186 if (argp == (char *)regp && regused < 8)
187 {
188 regp += z / sizeof (int);
189 regused += z / sizeof (int);
190 }
191 else
192 stackp += z;
193 }
194
195 return struct_value_ptr;
196}
197
198/* Perform machine dependent cif processing */
199ffi_status
200 ffi_prep_cif_machdep (ffi_cif *cif)
201{
202 /* Set the return type flag */
203 switch (cif->rtype->type)
204 {
205 case FFI_TYPE_VOID:
206 cif->flags = 0;
207 break;
208
209 case FFI_TYPE_STRUCT:
210 if (cif->rtype->size == sizeof (int) &&
211 cif->rtype->alignment == sizeof (int))
212 cif->flags = CIF_FLAGS_INT;
213 else
214 cif->flags = 0;
215 break;
216
217 case FFI_TYPE_DOUBLE:
218 case FFI_TYPE_SINT64:
219 case FFI_TYPE_UINT64:
220 cif->flags = CIF_FLAGS_DINT;
221 break;
222
223 default:
224 cif->flags = CIF_FLAGS_INT;
225 break;
226 }
227
228 return FFI_OK;
229}
230
231void
232 ffi_call (ffi_cif *cif, void (*fn) (), void *rvalue, void **avalue)
233{
234 extended_cif ecif;
235
236 ecif.cif = cif;
237 ecif.avalue = avalue;
238
239 /* If the return value is a struct and we don't have a return value
240 address then we need to make one. */
241
242 if (rvalue == NULL
243 && cif->rtype->type == FFI_TYPE_STRUCT
244 && (cif->rtype->size != sizeof (int)
245 || cif->rtype->alignment != sizeof (int)))
246 ecif.rvalue = alloca (cif->rtype->size);
247 else
248 ecif.rvalue = rvalue;
249
250 switch (cif->abi)
251 {
252 case FFI_OBSD:
253 ffi_call_OBSD (cif->bytes, &ecif, cif->flags, ecif.rvalue, fn);
254 break;
255
256 default:
257 FFI_ASSERT (0);
258 break;
259 }
260}
261
262/*
263 * Closure API
264 */
265
266static void
267ffi_prep_closure_args_OBSD (ffi_cif *cif, void **avalue, unsigned int *regp,
268 char *stackp)
269{
270 unsigned int i;
271 void **p_argv;
272 char *argp;
273 unsigned int regused;
274 ffi_type **p_arg;
275
276 regused = 0;
277
278 p_argv = avalue;
279
280 for (i = cif->nargs, p_arg = cif->arg_types; i != 0; i--, p_arg++)
281 {
282 size_t z;
283 unsigned short t, a;
284
285 z = (*p_arg)->size;
286 t = (*p_arg)->type;
287 a = (*p_arg)->alignment;
288
289 /*
290 * Figure out whether the argument has been passed through registers
291 * or on the stack.
292 * The rule is that registers can only receive simple types not larger
293 * than 64 bits, or structs the exact size of a register and aligned to
294 * the size of a register.
295 */
296 if (t == FFI_TYPE_STRUCT)
297 {
298 if (z == sizeof (int) && a == sizeof (int) && regused < 8)
299 argp = (char *)regp;
300 else
301 argp = stackp;
302 }
303 else
304 {
305 if (z > sizeof (int) && regused < 8 - 1)
306 {
307 /* align to an even register pair */
308 if (regused & 1)
309 {
310 regp++;
311 regused++;
312 }
313 }
314 if (regused < 8)
315 argp = (char *)regp;
316 else
317 argp = stackp;
318 }
319
320 /* Enforce proper stack alignment of 64-bit types */
321 if (argp == stackp && a > sizeof (int))
322 {
323 stackp = (char *) ALIGN(stackp, a);
324 argp = stackp;
325 }
326
327 if (z < sizeof (int) && t != FFI_TYPE_STRUCT)
328 *p_argv = (void *) (argp + sizeof (int) - z);
329 else
330 *p_argv = (void *) argp;
331
332 /* Align if necessary */
333 if ((sizeof (int) - 1) & z)
334 z = ALIGN(z, sizeof (int));
335
336 p_argv++;
337
338 /* Be careful, once all registers are exhausted, and about to fetch from
339 stack, regp == stackp. Therefore the check for regused as well. */
340 if (argp == (char *)regp && regused < 8)
341 {
342 regp += z / sizeof (int);
343 regused += z / sizeof (int);
344 }
345 else
346 stackp += z;
347 }
348}
349
350unsigned int
351ffi_closure_OBSD_inner (ffi_closure *closure, void *resp, unsigned int *regp,
352 char *stackp)
353{
354 ffi_cif *cif;
355 void **arg_area;
356
357 cif = closure->cif;
358 arg_area = (void**) alloca (cif->nargs * sizeof (void *));
359
360 ffi_prep_closure_args_OBSD(cif, arg_area, regp, stackp);
361
362 (closure->fun) (cif, resp, arg_area, closure->user_data);
363
364 return cif->flags;
365}
366
367ffi_status
368 ffi_prep_closure_loc (ffi_closure* closure, ffi_cif* cif,
369 void (*fun)(ffi_cif*,void*,void**,void*),
370 void *user_data, void *codeloc)
371{
372 unsigned int *tramp = (unsigned int *) codeloc;
373 void *fn;
374
375 FFI_ASSERT (cif->abi == FFI_OBSD);
376
377 if (cif->rtype->type == FFI_TYPE_STRUCT && !cif->flags)
378 fn = &ffi_closure_struct_OBSD;
379 else
380 fn = &ffi_closure_OBSD;
381
382 /* or.u %r10, %r0, %hi16(fn) */
383 tramp[0] = 0x5d400000 | (((unsigned int)fn) >> 16);
384 /* or.u %r13, %r0, %hi16(closure) */
385 tramp[1] = 0x5da00000 | ((unsigned int)closure >> 16);
386 /* or %r10, %r10, %lo16(fn) */
387 tramp[2] = 0x594a0000 | (((unsigned int)fn) & 0xffff);
388 /* jmp.n %r10 */
389 tramp[3] = 0xf400c40a;
390 /* or %r13, %r13, %lo16(closure) */
391 tramp[4] = 0x59ad0000 | ((unsigned int)closure & 0xffff);
392
393 ffi_cacheflush_OBSD((unsigned int)codeloc, FFI_TRAMPOLINE_SIZE);
394
395 closure->cif = cif;
396 closure->user_data = user_data;
397 closure->fun = fun;
398
399 return FFI_OK;
400}
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_prep_cif_machdep
ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
Definition: ffi.c:758
ffi_call
void ffi_call(ffi_cif *cif, void(*fn)(void), void *rvalue, void **avalue)
Definition: ffi.c:813
FFI_TRAMPOLINE_SIZE
#define FFI_TRAMPOLINE_SIZE
Definition: ffitarget.h:45
ffi_prep_args
void ffi_prep_args(char *stack, extended_cif *ecif)
Definition: ffi.c:46
ffi_common.h
UINT16
unsigned short UINT16
Definition: ffi_common.h:97
SINT16
signed short SINT16
Definition: ffi_common.h:98
alloca
#define alloca
Definition: ffi_common.h:27
ALIGN
#define ALIGN(v, a)
Definition: ffi_common.h:77
SINT8
signed char SINT8
Definition: ffi_common.h:96
FFI_ASSERT
#define FFI_ASSERT(x)
Definition: ffi_common.h:72
UINT8
unsigned char UINT8
Definition: ffi_common.h:95
memcpy
#define memcpy(d, s, n)
Definition: ffi_common.h:55
int
typedef int(ZCALLBACK *close_file_func) OF((voidpf opaque
CIF_FLAGS_DINT
#define CIF_FLAGS_DINT
Definition: ffi.c:119
CIF_FLAGS_INT
#define CIF_FLAGS_INT
Definition: ffi.c:118
ffi_call_OBSD
void ffi_call_OBSD(unsigned int, extended_cif *, unsigned int, void *, void(*fn)())
ffi_closure_struct_OBSD
void ffi_closure_struct_OBSD(ffi_closure *)
ffi_closure_OBSD
void ffi_closure_OBSD(ffi_closure *)
ffi_cacheflush_OBSD
void ffi_cacheflush_OBSD(unsigned int, unsigned int)
ffi_closure_OBSD_inner
unsigned int ffi_closure_OBSD_inner(ffi_closure *, void *, unsigned int *, char *)
Definition: ffi.c:351
FFI_OBSD
@ FFI_OBSD
Definition: ffitarget.h:37
NULL
#define NULL
Definition: regenc.h:69
extended_cif
Definition: ffi_common.h:87
extended_cif::rvalue
void * rvalue
Definition: ffi_common.h:89
extended_cif::cif
ffi_cif * cif
Definition: ffi_common.h:88
extended_cif::avalue
void ** avalue
Definition: ffi_common.h:90
t
#define t
Definition: symbol.c:253