ffi 1.12.2 → 1.14.2
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +4 -4
- data/CHANGELOG.md +82 -0
- data/Gemfile +4 -2
- data/README.md +10 -2
- data/Rakefile +31 -43
- data/ext/ffi_c/AbstractMemory.c +24 -25
- data/ext/ffi_c/Buffer.c +4 -9
- data/ext/ffi_c/Call.c +3 -14
- data/ext/ffi_c/ClosurePool.c +75 -25
- data/ext/ffi_c/ClosurePool.h +3 -1
- data/ext/ffi_c/DynamicLibrary.c +1 -6
- data/ext/ffi_c/Function.c +15 -35
- data/ext/ffi_c/FunctionInfo.c +3 -8
- data/ext/ffi_c/LastError.c +2 -6
- data/ext/ffi_c/LongDouble.c +5 -3
- data/ext/ffi_c/LongDouble.h +0 -4
- data/ext/ffi_c/MemoryPointer.c +3 -8
- data/ext/ffi_c/MethodHandle.c +21 -31
- data/ext/ffi_c/MethodHandle.h +3 -2
- data/ext/ffi_c/Platform.c +3 -7
- data/ext/ffi_c/Pointer.c +25 -26
- data/ext/ffi_c/Struct.c +3 -6
- data/ext/ffi_c/StructByValue.c +2 -7
- data/ext/ffi_c/StructLayout.c +9 -7
- data/ext/ffi_c/Thread.c +0 -8
- data/ext/ffi_c/Thread.h +1 -9
- data/ext/ffi_c/Type.c +1 -1
- data/ext/ffi_c/Variadic.c +2 -7
- data/ext/ffi_c/compat.h +4 -0
- data/ext/ffi_c/extconf.rb +33 -23
- data/ext/ffi_c/libffi/.travis.yml +4 -0
- data/ext/ffi_c/libffi/.travis/bfin-sim.exp +1 -1
- data/ext/ffi_c/libffi/.travis/build.sh +4 -0
- data/ext/ffi_c/libffi/.travis/m32r-sim.exp +1 -1
- data/ext/ffi_c/libffi/.travis/moxie-sim.exp +1 -1
- data/ext/ffi_c/libffi/.travis/or1k-sim.exp +1 -1
- data/ext/ffi_c/libffi/.travis/powerpc-eabisim.exp +1 -1
- data/ext/ffi_c/libffi/.travis/wine-sim.exp +1 -1
- data/ext/ffi_c/libffi/Makefile.am +49 -58
- data/ext/ffi_c/libffi/README.md +11 -1
- data/ext/ffi_c/libffi/config.guess +552 -331
- data/ext/ffi_c/libffi/config.sub +1321 -1306
- data/ext/ffi_c/libffi/configure.ac +31 -10
- data/ext/ffi_c/libffi/configure.host +32 -20
- data/ext/ffi_c/libffi/doc/Makefile.am +3 -0
- data/ext/ffi_c/libffi/doc/libffi.texi +997 -0
- data/ext/ffi_c/libffi/doc/version.texi +4 -0
- data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +1 -1
- data/ext/ffi_c/libffi/include/ffi.h.in +8 -0
- data/ext/ffi_c/libffi/libffi.map.in +8 -12
- data/ext/ffi_c/libffi/libtool-version +1 -1
- data/ext/ffi_c/libffi/msvcc.sh +11 -11
- data/ext/ffi_c/libffi/src/aarch64/ffi.c +51 -35
- data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +10 -5
- data/ext/ffi_c/libffi/src/aarch64/internal.h +1 -0
- data/ext/ffi_c/libffi/src/aarch64/sysv.S +14 -3
- data/ext/ffi_c/libffi/src/aarch64/win64_armasm.S +1 -1
- data/ext/ffi_c/libffi/src/arm/ffi.c +22 -0
- data/ext/ffi_c/libffi/src/arm/sysv.S +4 -4
- data/ext/ffi_c/libffi/src/closures.c +33 -10
- data/ext/ffi_c/libffi/src/csky/ffi.c +395 -0
- data/ext/ffi_c/libffi/src/csky/ffitarget.h +63 -0
- data/ext/ffi_c/libffi/src/csky/sysv.S +371 -0
- data/ext/ffi_c/libffi/src/dlmalloc.c +1 -1
- data/ext/ffi_c/libffi/src/kvx/asm.h +5 -0
- data/ext/ffi_c/libffi/src/kvx/ffi.c +273 -0
- data/ext/ffi_c/libffi/src/kvx/ffitarget.h +75 -0
- data/ext/ffi_c/libffi/src/kvx/sysv.S +127 -0
- data/ext/ffi_c/libffi/src/mips/ffi.c +5 -1
- data/ext/ffi_c/libffi/src/mips/ffitarget.h +1 -1
- data/ext/ffi_c/libffi/src/pa/ffi.c +46 -91
- data/ext/ffi_c/libffi/src/pa/ffitarget.h +1 -6
- data/ext/ffi_c/libffi/src/pa/hpux32.S +4 -2
- data/ext/ffi_c/libffi/src/pa/linux.S +4 -2
- data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +13 -1
- data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +1 -1
- data/ext/ffi_c/libffi/src/powerpc/linux64.S +8 -0
- data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +13 -1
- data/ext/ffi_c/libffi/src/powerpc/sysv.S +5 -7
- data/ext/ffi_c/libffi/src/prep_cif.c +1 -1
- data/ext/ffi_c/libffi/src/x86/ffi.c +15 -6
- data/ext/ffi_c/libffi/src/x86/ffi64.c +17 -8
- data/ext/ffi_c/libffi/src/x86/ffitarget.h +15 -2
- data/ext/ffi_c/libffi/src/x86/ffiw64.c +15 -8
- data/ext/ffi_c/libffi/src/x86/sysv.S +15 -6
- data/ext/ffi_c/libffi/src/x86/unix64.S +59 -4
- data/ext/ffi_c/libffi/src/x86/win64.S +7 -3
- data/ext/ffi_c/libffi/src/x86/win64_intel.S +3 -2
- data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +22 -2
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +4 -4
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-callback.c +2 -2
- data/ext/ffi_c/libffi/testsuite/libffi.closures/huge_struct.c +2 -0
- data/ffi.gemspec +2 -2
- data/lib/ffi.rb +10 -2
- data/lib/ffi/abstract_memory.rb +44 -0
- data/lib/ffi/autopointer.rb +1 -1
- data/lib/ffi/ffi.rb +1 -0
- data/lib/ffi/io.rb +3 -3
- data/lib/ffi/library.rb +6 -2
- data/lib/ffi/managedstruct.rb +2 -2
- data/lib/ffi/platform.rb +21 -8
- data/lib/ffi/platform/aarch64-darwin/types.conf +130 -0
- data/lib/ffi/platform/aarch64-openbsd/types.conf +134 -0
- data/lib/ffi/platform/arm-linux/types.conf +32 -4
- data/lib/ffi/platform/i386-windows/types.conf +26 -79
- data/lib/ffi/platform/powerpc-linux/types.conf +32 -2
- data/lib/ffi/platform/powerpc-openbsd/types.conf +156 -0
- data/lib/ffi/platform/sparcv9-openbsd/types.conf +156 -0
- data/lib/ffi/platform/x86_64-darwin/types.conf +4 -0
- data/lib/ffi/platform/x86_64-dragonflybsd/types.conf +4 -22
- data/lib/ffi/platform/x86_64-haiku/types.conf +117 -0
- data/lib/ffi/platform/x86_64-linux/types.conf +21 -0
- data/lib/ffi/platform/x86_64-msys/types.conf +119 -0
- data/lib/ffi/platform/x86_64-windows/types.conf +10 -78
- data/lib/ffi/pointer.rb +21 -14
- data/lib/ffi/struct.rb +8 -2
- data/lib/ffi/tools/types_generator.rb +2 -0
- data/lib/ffi/variadic.rb +1 -1
- data/lib/ffi/version.rb +1 -1
- data/samples/getlogin.rb +1 -1
- data/samples/getpid.rb +1 -1
- data/samples/gettimeofday.rb +8 -8
- data/samples/hello.rb +2 -1
- data/samples/inotify.rb +1 -1
- data/samples/pty.rb +1 -2
- data/samples/qsort.rb +0 -1
- metadata +18 -12
- data/.appveyor.yml +0 -27
- data/.gitignore +0 -25
- data/.gitmodules +0 -4
- data/.travis.yml +0 -44
- data/.yardopts +0 -5
- data/ext/ffi_c/win32/stdbool.h +0 -8
- data/ext/ffi_c/win32/stdint.h +0 -201
- data/samples/sample_helper.rb +0 -6
@@ -0,0 +1,273 @@
|
|
1
|
+
/* Copyright (c) 2020 Kalray
|
2
|
+
|
3
|
+
Permission is hereby granted, free of charge, to any person obtaining
|
4
|
+
a copy of this software and associated documentation files (the
|
5
|
+
``Software''), to deal in the Software without restriction, including
|
6
|
+
without limitation the rights to use, copy, modify, merge, publish,
|
7
|
+
distribute, sublicense, and/or sell copies of the Software, and to
|
8
|
+
permit persons to whom the Software is furnished to do so, subject to
|
9
|
+
the following conditions:
|
10
|
+
|
11
|
+
The above copyright notice and this permission notice shall be
|
12
|
+
included in all copies or substantial portions of the Software.
|
13
|
+
|
14
|
+
THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
|
15
|
+
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
16
|
+
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
17
|
+
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
18
|
+
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
19
|
+
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
20
|
+
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
|
21
|
+
|
22
|
+
#if defined(__kvx__)
|
23
|
+
#include <stdio.h>
|
24
|
+
#include <stdlib.h>
|
25
|
+
#include <stdint.h>
|
26
|
+
#include <fficonfig.h>
|
27
|
+
#include <ffi.h>
|
28
|
+
#include "ffi_common.h"
|
29
|
+
#include "asm.h"
|
30
|
+
|
31
|
+
#define ALIGN(x, a) ALIGN_MASK(x, (typeof(x))(a) - 1)
|
32
|
+
#define ALIGN_MASK(x, mask) (((x) + (mask)) & ~(mask))
|
33
|
+
#define KVX_ABI_STACK_ALIGNMENT (32)
|
34
|
+
#define KVX_ABI_STACK_ARG_ALIGNMENT (8)
|
35
|
+
#define max(a,b) ((a) > (b) ? (a) : (b))
|
36
|
+
|
37
|
+
#ifdef FFI_DEBUG
|
38
|
+
#define DEBUG_PRINT(...) do{ fprintf( stderr, __VA_ARGS__ ); } while(0)
|
39
|
+
#else
|
40
|
+
#define DEBUG_PRINT(...)
|
41
|
+
#endif
|
42
|
+
|
43
|
+
struct ret_value {
|
44
|
+
unsigned long int r0;
|
45
|
+
unsigned long int r1;
|
46
|
+
unsigned long int r2;
|
47
|
+
unsigned long int r3;
|
48
|
+
};
|
49
|
+
|
50
|
+
extern struct ret_value ffi_call_SYSV(unsigned total_size,
|
51
|
+
unsigned size,
|
52
|
+
extended_cif *ecif,
|
53
|
+
unsigned *rvalue_addr,
|
54
|
+
void *fn,
|
55
|
+
unsigned int_ext_method);
|
56
|
+
|
57
|
+
/* Perform machine dependent cif processing */
|
58
|
+
ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
|
59
|
+
{
|
60
|
+
cif->flags = cif->rtype->size;
|
61
|
+
return FFI_OK;
|
62
|
+
}
|
63
|
+
|
64
|
+
/* ffi_prep_args is called by the assembly routine once stack space
|
65
|
+
has been allocated for the function's arguments */
|
66
|
+
|
67
|
+
void *ffi_prep_args(char *stack, unsigned int arg_slots_size, extended_cif *ecif)
|
68
|
+
{
|
69
|
+
char *stacktemp = stack;
|
70
|
+
char *current_arg_passed_by_value = stack + arg_slots_size;
|
71
|
+
int i, s;
|
72
|
+
ffi_type **arg;
|
73
|
+
int count = 0;
|
74
|
+
ffi_cif *cif = ecif->cif;
|
75
|
+
void **argv = ecif->avalue;
|
76
|
+
|
77
|
+
arg = cif->arg_types;
|
78
|
+
|
79
|
+
DEBUG_PRINT("stack: %p\n", stack);
|
80
|
+
DEBUG_PRINT("arg_slots_size: %u\n", arg_slots_size);
|
81
|
+
DEBUG_PRINT("current_arg_passed_by_value: %p\n", current_arg_passed_by_value);
|
82
|
+
DEBUG_PRINT("ecif: %p\n", ecif);
|
83
|
+
DEBUG_PRINT("ecif->avalue: %p\n", ecif->avalue);
|
84
|
+
|
85
|
+
for (i = 0; i < cif->nargs; i++) {
|
86
|
+
|
87
|
+
s = KVX_ABI_SLOT_SIZE;
|
88
|
+
switch((*arg)->type) {
|
89
|
+
case FFI_TYPE_SINT8:
|
90
|
+
case FFI_TYPE_UINT8:
|
91
|
+
case FFI_TYPE_SINT16:
|
92
|
+
case FFI_TYPE_UINT16:
|
93
|
+
case FFI_TYPE_SINT32:
|
94
|
+
case FFI_TYPE_UINT32:
|
95
|
+
case FFI_TYPE_FLOAT:
|
96
|
+
case FFI_TYPE_DOUBLE:
|
97
|
+
case FFI_TYPE_UINT64:
|
98
|
+
case FFI_TYPE_SINT64:
|
99
|
+
case FFI_TYPE_POINTER:
|
100
|
+
DEBUG_PRINT("INT64/32/16/8/FLOAT/DOUBLE or POINTER @%p\n", stack);
|
101
|
+
*(uint64_t *) stack = *(uint64_t *)(* argv);
|
102
|
+
break;
|
103
|
+
|
104
|
+
case FFI_TYPE_COMPLEX:
|
105
|
+
if ((*arg)->size == 8)
|
106
|
+
*(_Complex float *) stack = *(_Complex float *)(* argv);
|
107
|
+
else if ((*arg)->size == 16) {
|
108
|
+
*(_Complex double *) stack = *(_Complex double *)(* argv);
|
109
|
+
s = 16;
|
110
|
+
} else
|
111
|
+
abort();
|
112
|
+
break;
|
113
|
+
case FFI_TYPE_STRUCT: {
|
114
|
+
char *value;
|
115
|
+
unsigned int written_size = 0;
|
116
|
+
DEBUG_PRINT("struct by value @%p\n", stack);
|
117
|
+
if ((*arg)->size > KVX_ABI_MAX_AGGREGATE_IN_REG_SIZE) {
|
118
|
+
DEBUG_PRINT("big struct\n");
|
119
|
+
*(uint64_t *) stack = (uintptr_t)current_arg_passed_by_value;
|
120
|
+
value = current_arg_passed_by_value;
|
121
|
+
current_arg_passed_by_value += (*arg)->size;
|
122
|
+
written_size = KVX_ABI_SLOT_SIZE;
|
123
|
+
} else {
|
124
|
+
value = stack;
|
125
|
+
written_size = (*arg)->size;
|
126
|
+
}
|
127
|
+
memcpy(value, *argv, (*arg)->size);
|
128
|
+
s = ALIGN(written_size, KVX_ABI_STACK_ARG_ALIGNMENT);
|
129
|
+
break;
|
130
|
+
}
|
131
|
+
default:
|
132
|
+
printf("Error: unsupported arg type %d\n", (*arg)->type);
|
133
|
+
abort();
|
134
|
+
break;
|
135
|
+
|
136
|
+
}
|
137
|
+
stack += s;
|
138
|
+
count += s;
|
139
|
+
argv++;
|
140
|
+
arg++;
|
141
|
+
}
|
142
|
+
#ifdef FFI_DEBUG
|
143
|
+
FFI_ASSERT(((intptr_t)(stacktemp + REG_ARGS_SIZE) & (KVX_ABI_STACK_ALIGNMENT-1)) == 0);
|
144
|
+
#endif
|
145
|
+
return stacktemp + REG_ARGS_SIZE;
|
146
|
+
}
|
147
|
+
|
148
|
+
/* Perform machine dependent cif processing when we have a variadic function */
|
149
|
+
|
150
|
+
ffi_status ffi_prep_cif_machdep_var(ffi_cif *cif, unsigned int nfixedargs,
|
151
|
+
unsigned int ntotalargs)
|
152
|
+
{
|
153
|
+
cif->flags = cif->rtype->size;
|
154
|
+
return FFI_OK;
|
155
|
+
}
|
156
|
+
|
157
|
+
static unsigned long handle_small_int_ext(kvx_intext_method *int_ext_method,
|
158
|
+
const ffi_type *rtype)
|
159
|
+
{
|
160
|
+
switch (rtype->type) {
|
161
|
+
case FFI_TYPE_SINT8:
|
162
|
+
*int_ext_method = KVX_RET_SXBD;
|
163
|
+
return KVX_REGISTER_SIZE;
|
164
|
+
|
165
|
+
case FFI_TYPE_SINT16:
|
166
|
+
*int_ext_method = KVX_RET_SXHD;
|
167
|
+
return KVX_REGISTER_SIZE;
|
168
|
+
|
169
|
+
case FFI_TYPE_SINT32:
|
170
|
+
*int_ext_method = KVX_RET_SXWD;
|
171
|
+
return KVX_REGISTER_SIZE;
|
172
|
+
|
173
|
+
case FFI_TYPE_UINT8:
|
174
|
+
*int_ext_method = KVX_RET_ZXBD;
|
175
|
+
return KVX_REGISTER_SIZE;
|
176
|
+
|
177
|
+
case FFI_TYPE_UINT16:
|
178
|
+
*int_ext_method = KVX_RET_ZXHD;
|
179
|
+
return KVX_REGISTER_SIZE;
|
180
|
+
|
181
|
+
case FFI_TYPE_UINT32:
|
182
|
+
*int_ext_method = KVX_RET_ZXWD;
|
183
|
+
return KVX_REGISTER_SIZE;
|
184
|
+
|
185
|
+
default:
|
186
|
+
*int_ext_method = KVX_RET_NONE;
|
187
|
+
return rtype->size;
|
188
|
+
}
|
189
|
+
}
|
190
|
+
|
191
|
+
void ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
|
192
|
+
{
|
193
|
+
int i;
|
194
|
+
unsigned long int slot_fitting_args_size = 0;
|
195
|
+
unsigned long int total_size = 0;
|
196
|
+
unsigned long int big_struct_size = 0;
|
197
|
+
kvx_intext_method int_extension_method;
|
198
|
+
ffi_type **arg;
|
199
|
+
struct ret_value local_rvalue = {0};
|
200
|
+
size_t wb_size;
|
201
|
+
|
202
|
+
|
203
|
+
/* Calculate size to allocate on stack */
|
204
|
+
for (i = 0, arg = cif->arg_types; i < cif->nargs; i++, arg++) {
|
205
|
+
DEBUG_PRINT("argument %d, type %d, size %lu\n", i, (*arg)->type, (*arg)->size);
|
206
|
+
if (((*arg)->type == FFI_TYPE_STRUCT) || ((*arg)->type == FFI_TYPE_COMPLEX)) {
|
207
|
+
if ((*arg)->size <= KVX_ABI_MAX_AGGREGATE_IN_REG_SIZE) {
|
208
|
+
slot_fitting_args_size += ALIGN((*arg)->size, KVX_ABI_SLOT_SIZE);
|
209
|
+
} else {
|
210
|
+
slot_fitting_args_size += KVX_ABI_SLOT_SIZE; /* aggregate passed by reference */
|
211
|
+
big_struct_size += ALIGN((*arg)->size, KVX_ABI_SLOT_SIZE);
|
212
|
+
}
|
213
|
+
} else if ((*arg)->size <= KVX_ABI_SLOT_SIZE) {
|
214
|
+
slot_fitting_args_size += KVX_ABI_SLOT_SIZE;
|
215
|
+
} else {
|
216
|
+
printf("Error: unsupported arg size %ld arg type %d\n", (*arg)->size, (*arg)->type);
|
217
|
+
abort(); /* should never happen? */
|
218
|
+
}
|
219
|
+
}
|
220
|
+
|
221
|
+
extended_cif ecif;
|
222
|
+
ecif.cif = cif;
|
223
|
+
ecif.avalue = avalue;
|
224
|
+
ecif.rvalue = rvalue;
|
225
|
+
|
226
|
+
/* This implementation allocates anyway for all register based args */
|
227
|
+
slot_fitting_args_size = max(slot_fitting_args_size, REG_ARGS_SIZE);
|
228
|
+
total_size = slot_fitting_args_size + big_struct_size;
|
229
|
+
total_size = ALIGN(total_size, KVX_ABI_STACK_ALIGNMENT);
|
230
|
+
|
231
|
+
/* wb_size: write back size, the size we will need to write back to user
|
232
|
+
* provided buffer. In theory it should always be cif->flags which is
|
233
|
+
* cif->rtype->size. But libffi API mandates that for integral types
|
234
|
+
* of size <= system register size, then we *MUST* write back
|
235
|
+
* the size of system register size.
|
236
|
+
* in our case, if size <= 8 bytes we must write back 8 bytes.
|
237
|
+
* floats, complex and structs are not affected, only integrals.
|
238
|
+
*/
|
239
|
+
wb_size = handle_small_int_ext(&int_extension_method, cif->rtype);
|
240
|
+
|
241
|
+
switch (cif->abi) {
|
242
|
+
case FFI_SYSV:
|
243
|
+
DEBUG_PRINT("total_size: %lu\n", total_size);
|
244
|
+
DEBUG_PRINT("slot fitting args size: %lu\n", slot_fitting_args_size);
|
245
|
+
DEBUG_PRINT("rvalue: %p\n", rvalue);
|
246
|
+
DEBUG_PRINT("fn: %p\n", fn);
|
247
|
+
DEBUG_PRINT("rsize: %u\n", cif->flags);
|
248
|
+
DEBUG_PRINT("wb_size: %u\n", wb_size);
|
249
|
+
DEBUG_PRINT("int_extension_method: %u\n", int_extension_method);
|
250
|
+
local_rvalue = ffi_call_SYSV(total_size, slot_fitting_args_size,
|
251
|
+
&ecif, rvalue, fn, int_extension_method);
|
252
|
+
if ((cif->flags <= KVX_ABI_MAX_AGGREGATE_IN_REG_SIZE)
|
253
|
+
&& (cif->rtype->type != FFI_TYPE_VOID))
|
254
|
+
memcpy(rvalue, &local_rvalue, wb_size);
|
255
|
+
break;
|
256
|
+
default:
|
257
|
+
abort();
|
258
|
+
break;
|
259
|
+
}
|
260
|
+
}
|
261
|
+
|
262
|
+
/* Closures not supported yet */
|
263
|
+
ffi_status
|
264
|
+
ffi_prep_closure_loc (ffi_closure* closure,
|
265
|
+
ffi_cif* cif,
|
266
|
+
void (*fun)(ffi_cif*,void*,void**,void*),
|
267
|
+
void *user_data,
|
268
|
+
void *codeloc)
|
269
|
+
{
|
270
|
+
return FFI_BAD_ABI;
|
271
|
+
}
|
272
|
+
|
273
|
+
#endif /* (__kvx__) */
|
@@ -0,0 +1,75 @@
|
|
1
|
+
/* -----------------------------------------------------------------------
|
2
|
+
ffitarget.h - Copyright (c) 2020 Kalray
|
3
|
+
|
4
|
+
KVX Target configuration macros
|
5
|
+
|
6
|
+
Permission is hereby granted, free of charge, to any person obtaining
|
7
|
+
a copy of this software and associated documentation files (the
|
8
|
+
``Software''), to deal in the Software without restriction, including
|
9
|
+
without limitation the rights to use, copy, modify, merge, publish,
|
10
|
+
distribute, sublicense, and/or sell copies of the Software, and to
|
11
|
+
permit persons to whom the Software is furnished to do so, subject to
|
12
|
+
the following conditions:
|
13
|
+
|
14
|
+
The above copyright notice and this permission notice shall be included
|
15
|
+
in all copies or substantial portions of the Software.
|
16
|
+
|
17
|
+
THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
|
18
|
+
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
19
|
+
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
20
|
+
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
21
|
+
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
22
|
+
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
23
|
+
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
24
|
+
DEALINGS IN THE SOFTWARE.
|
25
|
+
----------------------------------------------------------------------- */
|
26
|
+
|
27
|
+
#ifndef LIBFFI_TARGET_H
|
28
|
+
#define LIBFFI_TARGET_H
|
29
|
+
|
30
|
+
#ifndef LIBFFI_H
|
31
|
+
#error "Please do not include ffitarget.h directly into your source. Use ffi.h instead."
|
32
|
+
#endif
|
33
|
+
|
34
|
+
/* ---- System specific configurations ----------------------------------- */
|
35
|
+
|
36
|
+
#ifndef LIBFFI_ASM
|
37
|
+
typedef unsigned long ffi_arg;
|
38
|
+
typedef signed long ffi_sarg;
|
39
|
+
|
40
|
+
typedef enum ffi_abi {
|
41
|
+
FFI_FIRST_ABI = 0,
|
42
|
+
FFI_SYSV,
|
43
|
+
FFI_LAST_ABI,
|
44
|
+
FFI_DEFAULT_ABI = FFI_SYSV
|
45
|
+
} ffi_abi;
|
46
|
+
|
47
|
+
/* Those values are set depending on return type
|
48
|
+
* they are used in the assembly code in sysv.S
|
49
|
+
*/
|
50
|
+
typedef enum kvx_intext_method {
|
51
|
+
KVX_RET_NONE = 0,
|
52
|
+
KVX_RET_SXBD = 1,
|
53
|
+
KVX_RET_SXHD = 2,
|
54
|
+
KVX_RET_SXWD = 3,
|
55
|
+
KVX_RET_ZXBD = 4,
|
56
|
+
KVX_RET_ZXHD = 5,
|
57
|
+
KVX_RET_ZXWD = 6
|
58
|
+
} kvx_intext_method;
|
59
|
+
|
60
|
+
#endif
|
61
|
+
|
62
|
+
/* ---- Definitions for closures ----------------------------------------- */
|
63
|
+
|
64
|
+
/* This is only to allow Python to compile
|
65
|
+
* but closures are not supported yet
|
66
|
+
*/
|
67
|
+
#define FFI_CLOSURES 1
|
68
|
+
#define FFI_TRAMPOLINE_SIZE 0
|
69
|
+
|
70
|
+
#define FFI_NATIVE_RAW_API 0
|
71
|
+
#define FFI_TARGET_SPECIFIC_VARIADIC 1
|
72
|
+
#define FFI_TARGET_HAS_COMPLEX_TYPE
|
73
|
+
|
74
|
+
#endif
|
75
|
+
|
@@ -0,0 +1,127 @@
|
|
1
|
+
/* Copyright (c) 2020 Kalray
|
2
|
+
|
3
|
+
Permission is hereby granted, free of charge, to any person obtaining
|
4
|
+
a copy of this software and associated documentation files (the
|
5
|
+
``Software''), to deal in the Software without restriction, including
|
6
|
+
without limitation the rights to use, copy, modify, merge, publish,
|
7
|
+
distribute, sublicense, and/or sell copies of the Software, and to
|
8
|
+
permit persons to whom the Software is furnished to do so, subject to
|
9
|
+
the following conditions:
|
10
|
+
|
11
|
+
The above copyright notice and this permission notice shall be
|
12
|
+
included in all copies or substantial portions of the Software.
|
13
|
+
|
14
|
+
THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
|
15
|
+
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
16
|
+
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
17
|
+
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
18
|
+
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
19
|
+
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
20
|
+
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
|
21
|
+
|
22
|
+
#if defined(__kvx__)
|
23
|
+
#define LIBFFI_ASM
|
24
|
+
#include <fficonfig.h>
|
25
|
+
#include <ffi.h>
|
26
|
+
#include <ffi_cfi.h>
|
27
|
+
#include <kvx/asm.h>
|
28
|
+
|
29
|
+
.text
|
30
|
+
.global ffi_call_SYSV
|
31
|
+
.type ffi_call_SYSV, @function
|
32
|
+
.type ffi_prep_args, @function
|
33
|
+
.align 8
|
34
|
+
|
35
|
+
/* ffi_call_SYSV
|
36
|
+
|
37
|
+
r0: total size to allocate on stack
|
38
|
+
r1: size of arg slots
|
39
|
+
r2: extended cif structure, DO NOT REMOVE: it is used by ffi_prep_args()
|
40
|
+
r3: return value address
|
41
|
+
r4: function to call
|
42
|
+
r5: integer sign extension method to be used
|
43
|
+
*/
|
44
|
+
ffi_call_SYSV:
|
45
|
+
addd $r12 = $r12, -64
|
46
|
+
so (-32)[$r12] = $r20r21r22r23
|
47
|
+
;;
|
48
|
+
sd (0)[$r12] = $r24
|
49
|
+
;;
|
50
|
+
get $r23 = $ra
|
51
|
+
copyd $r20 = $r12
|
52
|
+
sbfd $r12 = $r0, $r12
|
53
|
+
;;
|
54
|
+
copyd $r0 = $r12
|
55
|
+
copyd $r21 = $r3
|
56
|
+
copyd $r22 = $r4
|
57
|
+
copyd $r24 = $r5
|
58
|
+
call ffi_prep_args
|
59
|
+
;;
|
60
|
+
lo $r8r9r10r11 = (64)[$r12]
|
61
|
+
;;
|
62
|
+
lo $r4r5r6r7 = (32)[$r12]
|
63
|
+
;;
|
64
|
+
lo $r0r1r2r3 = (0)[$r12]
|
65
|
+
copyd $r12 = $r0
|
66
|
+
/* $r15 is the register used by the ABI to return big (>32 bytes)
|
67
|
+
* structs by value.
|
68
|
+
* It is also referred to as the "struct register" in the ABI.
|
69
|
+
*/
|
70
|
+
copyd $r15 = $r21
|
71
|
+
icall $r22
|
72
|
+
;;
|
73
|
+
pcrel $r4 = @pcrel(.Ltable)
|
74
|
+
cb.deqz $r24 ? .Lend
|
75
|
+
;;
|
76
|
+
addx8d $r24 = $r24, $r4
|
77
|
+
;;
|
78
|
+
igoto $r24
|
79
|
+
;;
|
80
|
+
.Ltable:
|
81
|
+
0: /* we should never arrive here */
|
82
|
+
goto .Lerror
|
83
|
+
nop
|
84
|
+
;;
|
85
|
+
1: /* Sign extend byte to double */
|
86
|
+
sxbd $r0 = $r0
|
87
|
+
goto .Lend
|
88
|
+
;;
|
89
|
+
2: /* Sign extend half to double */
|
90
|
+
sxhd $r0 = $r0
|
91
|
+
goto .Lend
|
92
|
+
;;
|
93
|
+
3: /* Sign extend word to double */
|
94
|
+
sxwd $r0 = $r0
|
95
|
+
goto .Lend
|
96
|
+
;;
|
97
|
+
4: /* Zero extend byte to double */
|
98
|
+
zxbd $r0 = $r0
|
99
|
+
goto .Lend
|
100
|
+
;;
|
101
|
+
5: /* Zero extend half to double */
|
102
|
+
zxhd $r0 = $r0
|
103
|
+
goto .Lend
|
104
|
+
;;
|
105
|
+
6: /* Zero extend word to double */
|
106
|
+
zxwd $r0 = $r0
|
107
|
+
/* Fallthrough to .Lend */
|
108
|
+
;;
|
109
|
+
.Lend:
|
110
|
+
ld $r24 = (0)[$r12]
|
111
|
+
;;
|
112
|
+
set $ra = $r23
|
113
|
+
lo $r20r21r22r23 = (32)[$r20]
|
114
|
+
addd $r12 = $r20, 64
|
115
|
+
;;
|
116
|
+
ret
|
117
|
+
;;
|
118
|
+
.Lerror:
|
119
|
+
errop
|
120
|
+
;;
|
121
|
+
|
122
|
+
#endif /* __kvx__ */
|
123
|
+
|
124
|
+
#if defined __ELF__ && defined __linux__
|
125
|
+
.section .note.GNU-stack,"",%progbits
|
126
|
+
#endif
|
127
|
+
|