ffi 1.12.0 → 1.14.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (132) hide show
  1. checksums.yaml +4 -4
  2. data/CHANGELOG.md +79 -0
  3. data/Gemfile +4 -2
  4. data/README.md +10 -2
  5. data/Rakefile +24 -43
  6. data/ext/ffi_c/AbstractMemory.c +25 -26
  7. data/ext/ffi_c/Buffer.c +4 -9
  8. data/ext/ffi_c/Call.c +3 -14
  9. data/ext/ffi_c/ClosurePool.c +75 -25
  10. data/ext/ffi_c/ClosurePool.h +3 -1
  11. data/ext/ffi_c/DynamicLibrary.c +1 -6
  12. data/ext/ffi_c/Function.c +15 -35
  13. data/ext/ffi_c/FunctionInfo.c +3 -8
  14. data/ext/ffi_c/LastError.c +2 -6
  15. data/ext/ffi_c/LongDouble.c +5 -3
  16. data/ext/ffi_c/LongDouble.h +0 -4
  17. data/ext/ffi_c/MemoryPointer.c +3 -8
  18. data/ext/ffi_c/MethodHandle.c +21 -31
  19. data/ext/ffi_c/MethodHandle.h +3 -2
  20. data/ext/ffi_c/Platform.c +3 -7
  21. data/ext/ffi_c/Pointer.c +25 -26
  22. data/ext/ffi_c/Struct.c +49 -56
  23. data/ext/ffi_c/Struct.h +12 -6
  24. data/ext/ffi_c/StructByValue.c +2 -7
  25. data/ext/ffi_c/StructLayout.c +22 -19
  26. data/ext/ffi_c/Thread.c +0 -8
  27. data/ext/ffi_c/Thread.h +1 -9
  28. data/ext/ffi_c/Type.c +1 -1
  29. data/ext/ffi_c/Variadic.c +2 -7
  30. data/ext/ffi_c/compat.h +4 -0
  31. data/ext/ffi_c/extconf.rb +33 -24
  32. data/ext/ffi_c/libffi/.travis.yml +4 -0
  33. data/ext/ffi_c/libffi/.travis/bfin-sim.exp +1 -1
  34. data/ext/ffi_c/libffi/.travis/build.sh +4 -0
  35. data/ext/ffi_c/libffi/.travis/m32r-sim.exp +1 -1
  36. data/ext/ffi_c/libffi/.travis/moxie-sim.exp +1 -1
  37. data/ext/ffi_c/libffi/.travis/or1k-sim.exp +1 -1
  38. data/ext/ffi_c/libffi/.travis/powerpc-eabisim.exp +1 -1
  39. data/ext/ffi_c/libffi/.travis/wine-sim.exp +1 -1
  40. data/ext/ffi_c/libffi/Makefile.am +49 -58
  41. data/ext/ffi_c/libffi/README.md +11 -1
  42. data/ext/ffi_c/libffi/config.guess +552 -331
  43. data/ext/ffi_c/libffi/config.sub +1321 -1306
  44. data/ext/ffi_c/libffi/configure.ac +31 -10
  45. data/ext/ffi_c/libffi/configure.host +32 -20
  46. data/ext/ffi_c/libffi/doc/Makefile.am +3 -0
  47. data/ext/ffi_c/libffi/doc/libffi.texi +997 -0
  48. data/ext/ffi_c/libffi/doc/version.texi +4 -0
  49. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +1 -1
  50. data/ext/ffi_c/libffi/include/ffi.h.in +8 -0
  51. data/ext/ffi_c/libffi/libffi.map.in +8 -12
  52. data/ext/ffi_c/libffi/libtool-version +1 -1
  53. data/ext/ffi_c/libffi/msvcc.sh +11 -11
  54. data/ext/ffi_c/libffi/src/aarch64/ffi.c +51 -35
  55. data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +10 -5
  56. data/ext/ffi_c/libffi/src/aarch64/internal.h +1 -0
  57. data/ext/ffi_c/libffi/src/aarch64/sysv.S +14 -3
  58. data/ext/ffi_c/libffi/src/aarch64/win64_armasm.S +1 -1
  59. data/ext/ffi_c/libffi/src/arm/ffi.c +22 -0
  60. data/ext/ffi_c/libffi/src/arm/sysv.S +4 -4
  61. data/ext/ffi_c/libffi/src/closures.c +33 -10
  62. data/ext/ffi_c/libffi/src/csky/ffi.c +395 -0
  63. data/ext/ffi_c/libffi/src/csky/ffitarget.h +63 -0
  64. data/ext/ffi_c/libffi/src/csky/sysv.S +371 -0
  65. data/ext/ffi_c/libffi/src/dlmalloc.c +1 -1
  66. data/ext/ffi_c/libffi/src/kvx/asm.h +5 -0
  67. data/ext/ffi_c/libffi/src/kvx/ffi.c +273 -0
  68. data/ext/ffi_c/libffi/src/kvx/ffitarget.h +75 -0
  69. data/ext/ffi_c/libffi/src/kvx/sysv.S +127 -0
  70. data/ext/ffi_c/libffi/src/mips/ffi.c +5 -1
  71. data/ext/ffi_c/libffi/src/mips/ffitarget.h +1 -1
  72. data/ext/ffi_c/libffi/src/pa/ffi.c +46 -91
  73. data/ext/ffi_c/libffi/src/pa/ffitarget.h +1 -6
  74. data/ext/ffi_c/libffi/src/pa/hpux32.S +4 -2
  75. data/ext/ffi_c/libffi/src/pa/linux.S +4 -2
  76. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +13 -1
  77. data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +1 -1
  78. data/ext/ffi_c/libffi/src/powerpc/linux64.S +8 -0
  79. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +13 -1
  80. data/ext/ffi_c/libffi/src/powerpc/sysv.S +5 -7
  81. data/ext/ffi_c/libffi/src/prep_cif.c +1 -1
  82. data/ext/ffi_c/libffi/src/x86/ffi.c +15 -6
  83. data/ext/ffi_c/libffi/src/x86/ffi64.c +17 -8
  84. data/ext/ffi_c/libffi/src/x86/ffitarget.h +15 -2
  85. data/ext/ffi_c/libffi/src/x86/ffiw64.c +15 -8
  86. data/ext/ffi_c/libffi/src/x86/sysv.S +15 -6
  87. data/ext/ffi_c/libffi/src/x86/unix64.S +59 -4
  88. data/ext/ffi_c/libffi/src/x86/win64.S +7 -3
  89. data/ext/ffi_c/libffi/src/x86/win64_intel.S +3 -2
  90. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +22 -2
  91. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +4 -4
  92. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-callback.c +2 -2
  93. data/ext/ffi_c/libffi/testsuite/libffi.closures/huge_struct.c +2 -0
  94. data/ffi.gemspec +2 -2
  95. data/lib/ffi.rb +10 -2
  96. data/lib/ffi/abstract_memory.rb +44 -0
  97. data/lib/ffi/ffi.rb +1 -0
  98. data/lib/ffi/library.rb +6 -2
  99. data/lib/ffi/platform.rb +21 -8
  100. data/lib/ffi/platform/aarch64-darwin/types.conf +130 -0
  101. data/lib/ffi/platform/aarch64-openbsd/types.conf +134 -0
  102. data/lib/ffi/platform/arm-linux/types.conf +32 -4
  103. data/lib/ffi/platform/i386-windows/types.conf +26 -79
  104. data/lib/ffi/platform/powerpc-linux/types.conf +32 -2
  105. data/lib/ffi/platform/powerpc-openbsd/types.conf +156 -0
  106. data/lib/ffi/platform/sparcv9-openbsd/types.conf +156 -0
  107. data/lib/ffi/platform/x86_64-darwin/types.conf +4 -0
  108. data/lib/ffi/platform/x86_64-dragonflybsd/types.conf +4 -22
  109. data/lib/ffi/platform/x86_64-haiku/types.conf +117 -0
  110. data/lib/ffi/platform/x86_64-linux/types.conf +21 -0
  111. data/lib/ffi/platform/x86_64-msys/types.conf +119 -0
  112. data/lib/ffi/platform/x86_64-windows/types.conf +10 -78
  113. data/lib/ffi/pointer.rb +40 -19
  114. data/lib/ffi/struct.rb +9 -4
  115. data/lib/ffi/tools/types_generator.rb +2 -0
  116. data/lib/ffi/version.rb +1 -1
  117. data/samples/getlogin.rb +1 -1
  118. data/samples/getpid.rb +1 -1
  119. data/samples/gettimeofday.rb +8 -8
  120. data/samples/hello.rb +2 -1
  121. data/samples/inotify.rb +1 -1
  122. data/samples/pty.rb +1 -2
  123. data/samples/qsort.rb +0 -1
  124. metadata +18 -12
  125. data/.appveyor.yml +0 -27
  126. data/.gitignore +0 -25
  127. data/.gitmodules +0 -4
  128. data/.travis.yml +0 -44
  129. data/.yardopts +0 -5
  130. data/ext/ffi_c/win32/stdbool.h +0 -8
  131. data/ext/ffi_c/win32/stdint.h +0 -201
  132. 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
+