ffi 1.11.1

Sign up to get free protection for your applications and to get access to all the features.
Files changed (530) hide show
  1. checksums.yaml +7 -0
  2. data/.gitignore +25 -0
  3. data/.gitmodules +4 -0
  4. data/.travis.yml +42 -0
  5. data/.yardopts +5 -0
  6. data/CHANGELOG.md +131 -0
  7. data/COPYING +49 -0
  8. data/Gemfile +15 -0
  9. data/LICENSE +24 -0
  10. data/LICENSE.SPECS +22 -0
  11. data/README.md +115 -0
  12. data/Rakefile +195 -0
  13. data/appveyor.yml +27 -0
  14. data/ext/ffi_c/AbstractMemory.c +1109 -0
  15. data/ext/ffi_c/AbstractMemory.h +175 -0
  16. data/ext/ffi_c/ArrayType.c +162 -0
  17. data/ext/ffi_c/ArrayType.h +59 -0
  18. data/ext/ffi_c/Buffer.c +365 -0
  19. data/ext/ffi_c/Call.c +503 -0
  20. data/ext/ffi_c/Call.h +107 -0
  21. data/ext/ffi_c/ClosurePool.c +283 -0
  22. data/ext/ffi_c/ClosurePool.h +57 -0
  23. data/ext/ffi_c/DynamicLibrary.c +339 -0
  24. data/ext/ffi_c/DynamicLibrary.h +98 -0
  25. data/ext/ffi_c/Function.c +917 -0
  26. data/ext/ffi_c/Function.h +87 -0
  27. data/ext/ffi_c/FunctionInfo.c +271 -0
  28. data/ext/ffi_c/LastError.c +229 -0
  29. data/ext/ffi_c/LastError.h +47 -0
  30. data/ext/ffi_c/LongDouble.c +63 -0
  31. data/ext/ffi_c/LongDouble.h +51 -0
  32. data/ext/ffi_c/MappedType.c +168 -0
  33. data/ext/ffi_c/MappedType.h +59 -0
  34. data/ext/ffi_c/MemoryPointer.c +197 -0
  35. data/ext/ffi_c/MemoryPointer.h +53 -0
  36. data/ext/ffi_c/MethodHandle.c +358 -0
  37. data/ext/ffi_c/MethodHandle.h +55 -0
  38. data/ext/ffi_c/Platform.c +82 -0
  39. data/ext/ffi_c/Platform.h +45 -0
  40. data/ext/ffi_c/Pointer.c +508 -0
  41. data/ext/ffi_c/Pointer.h +63 -0
  42. data/ext/ffi_c/Struct.c +829 -0
  43. data/ext/ffi_c/Struct.h +106 -0
  44. data/ext/ffi_c/StructByValue.c +150 -0
  45. data/ext/ffi_c/StructByValue.h +55 -0
  46. data/ext/ffi_c/StructLayout.c +698 -0
  47. data/ext/ffi_c/Thread.c +137 -0
  48. data/ext/ffi_c/Thread.h +84 -0
  49. data/ext/ffi_c/Type.c +379 -0
  50. data/ext/ffi_c/Type.h +61 -0
  51. data/ext/ffi_c/Types.c +139 -0
  52. data/ext/ffi_c/Types.h +89 -0
  53. data/ext/ffi_c/Variadic.c +298 -0
  54. data/ext/ffi_c/compat.h +78 -0
  55. data/ext/ffi_c/extconf.rb +86 -0
  56. data/ext/ffi_c/ffi.c +93 -0
  57. data/ext/ffi_c/libffi.bsd.mk +40 -0
  58. data/ext/ffi_c/libffi.darwin.mk +105 -0
  59. data/ext/ffi_c/libffi.gnu.mk +32 -0
  60. data/ext/ffi_c/libffi.mk +18 -0
  61. data/ext/ffi_c/libffi.vc.mk +26 -0
  62. data/ext/ffi_c/libffi.vc64.mk +26 -0
  63. data/ext/ffi_c/libffi/.appveyor.yml +50 -0
  64. data/ext/ffi_c/libffi/.github/issue_template.md +10 -0
  65. data/ext/ffi_c/libffi/.gitignore +38 -0
  66. data/ext/ffi_c/libffi/.travis.yml +34 -0
  67. data/ext/ffi_c/libffi/.travis/ar-lib +270 -0
  68. data/ext/ffi_c/libffi/.travis/build.sh +34 -0
  69. data/ext/ffi_c/libffi/.travis/compile +351 -0
  70. data/ext/ffi_c/libffi/.travis/install.sh +22 -0
  71. data/ext/ffi_c/libffi/.travis/moxie-sim.exp +60 -0
  72. data/ext/ffi_c/libffi/.travis/site.exp +18 -0
  73. data/ext/ffi_c/libffi/ChangeLog.libffi +584 -0
  74. data/ext/ffi_c/libffi/ChangeLog.libffi-3.1 +6000 -0
  75. data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
  76. data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
  77. data/ext/ffi_c/libffi/LICENSE +21 -0
  78. data/ext/ffi_c/libffi/LICENSE-BUILDTOOLS +352 -0
  79. data/ext/ffi_c/libffi/Makefile.am +166 -0
  80. data/ext/ffi_c/libffi/README.md +461 -0
  81. data/ext/ffi_c/libffi/acinclude.m4 +479 -0
  82. data/ext/ffi_c/libffi/autogen.sh +2 -0
  83. data/ext/ffi_c/libffi/config.guess +1466 -0
  84. data/ext/ffi_c/libffi/config.sub +1836 -0
  85. data/ext/ffi_c/libffi/configure.ac +394 -0
  86. data/ext/ffi_c/libffi/configure.host +289 -0
  87. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +203 -0
  88. data/ext/ffi_c/libffi/include/Makefile.am +9 -0
  89. data/ext/ffi_c/libffi/include/ffi.h.in +511 -0
  90. data/ext/ffi_c/libffi/include/ffi_cfi.h +55 -0
  91. data/ext/ffi_c/libffi/include/ffi_common.h +149 -0
  92. data/ext/ffi_c/libffi/libffi.map.in +80 -0
  93. data/ext/ffi_c/libffi/libffi.pc.in +11 -0
  94. data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +1043 -0
  95. data/ext/ffi_c/libffi/libtool-version +29 -0
  96. data/ext/ffi_c/libffi/m4/asmcfi.m4 +13 -0
  97. data/ext/ffi_c/libffi/m4/ax_append_flag.m4 +71 -0
  98. data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +194 -0
  99. data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +122 -0
  100. data/ext/ffi_c/libffi/m4/ax_check_compile_flag.m4 +74 -0
  101. data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +87 -0
  102. data/ext/ffi_c/libffi/m4/ax_configure_args.m4 +70 -0
  103. data/ext/ffi_c/libffi/m4/ax_enable_builddir.m4 +302 -0
  104. data/ext/ffi_c/libffi/m4/ax_gcc_archflag.m4 +263 -0
  105. data/ext/ffi_c/libffi/m4/ax_gcc_x86_cpuid.m4 +89 -0
  106. data/ext/ffi_c/libffi/m4/ax_require_defined.m4 +37 -0
  107. data/ext/ffi_c/libffi/man/Makefile.am +8 -0
  108. data/ext/ffi_c/libffi/man/ffi.3 +41 -0
  109. data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
  110. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +68 -0
  111. data/ext/ffi_c/libffi/man/ffi_prep_cif_var.3 +73 -0
  112. data/ext/ffi_c/libffi/msvcc.sh +328 -0
  113. data/ext/ffi_c/libffi/src/aarch64/ffi.c +941 -0
  114. data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +81 -0
  115. data/ext/ffi_c/libffi/src/aarch64/internal.h +67 -0
  116. data/ext/ffi_c/libffi/src/aarch64/sysv.S +438 -0
  117. data/ext/ffi_c/libffi/src/alpha/ffi.c +521 -0
  118. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +57 -0
  119. data/ext/ffi_c/libffi/src/alpha/internal.h +23 -0
  120. data/ext/ffi_c/libffi/src/alpha/osf.S +282 -0
  121. data/ext/ffi_c/libffi/src/arc/arcompact.S +135 -0
  122. data/ext/ffi_c/libffi/src/arc/ffi.c +266 -0
  123. data/ext/ffi_c/libffi/src/arc/ffitarget.h +53 -0
  124. data/ext/ffi_c/libffi/src/arm/ffi.c +819 -0
  125. data/ext/ffi_c/libffi/src/arm/ffitarget.h +82 -0
  126. data/ext/ffi_c/libffi/src/arm/internal.h +7 -0
  127. data/ext/ffi_c/libffi/src/arm/sysv.S +383 -0
  128. data/ext/ffi_c/libffi/src/avr32/ffi.c +423 -0
  129. data/ext/ffi_c/libffi/src/avr32/ffitarget.h +55 -0
  130. data/ext/ffi_c/libffi/src/avr32/sysv.S +208 -0
  131. data/ext/ffi_c/libffi/src/bfin/ffi.c +196 -0
  132. data/ext/ffi_c/libffi/src/bfin/ffitarget.h +43 -0
  133. data/ext/ffi_c/libffi/src/bfin/sysv.S +179 -0
  134. data/ext/ffi_c/libffi/src/closures.c +966 -0
  135. data/ext/ffi_c/libffi/src/cris/ffi.c +386 -0
  136. data/ext/ffi_c/libffi/src/cris/ffitarget.h +56 -0
  137. data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
  138. data/ext/ffi_c/libffi/src/debug.c +64 -0
  139. data/ext/ffi_c/libffi/src/dlmalloc.c +5166 -0
  140. data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
  141. data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
  142. data/ext/ffi_c/libffi/src/frv/ffitarget.h +62 -0
  143. data/ext/ffi_c/libffi/src/ia64/ffi.c +604 -0
  144. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +56 -0
  145. data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
  146. data/ext/ffi_c/libffi/src/ia64/unix.S +567 -0
  147. data/ext/ffi_c/libffi/src/java_raw_api.c +374 -0
  148. data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
  149. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +53 -0
  150. data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
  151. data/ext/ffi_c/libffi/src/m68k/ffi.c +362 -0
  152. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +54 -0
  153. data/ext/ffi_c/libffi/src/m68k/sysv.S +357 -0
  154. data/ext/ffi_c/libffi/src/m88k/ffi.c +400 -0
  155. data/ext/ffi_c/libffi/src/m88k/ffitarget.h +49 -0
  156. data/ext/ffi_c/libffi/src/m88k/obsd.S +209 -0
  157. data/ext/ffi_c/libffi/src/metag/ffi.c +330 -0
  158. data/ext/ffi_c/libffi/src/metag/ffitarget.h +53 -0
  159. data/ext/ffi_c/libffi/src/metag/sysv.S +311 -0
  160. data/ext/ffi_c/libffi/src/microblaze/ffi.c +321 -0
  161. data/ext/ffi_c/libffi/src/microblaze/ffitarget.h +53 -0
  162. data/ext/ffi_c/libffi/src/microblaze/sysv.S +302 -0
  163. data/ext/ffi_c/libffi/src/mips/ffi.c +1130 -0
  164. data/ext/ffi_c/libffi/src/mips/ffitarget.h +244 -0
  165. data/ext/ffi_c/libffi/src/mips/n32.S +663 -0
  166. data/ext/ffi_c/libffi/src/mips/o32.S +502 -0
  167. data/ext/ffi_c/libffi/src/moxie/eabi.S +101 -0
  168. data/ext/ffi_c/libffi/src/moxie/ffi.c +285 -0
  169. data/ext/ffi_c/libffi/src/moxie/ffitarget.h +52 -0
  170. data/ext/ffi_c/libffi/src/nios2/ffi.c +304 -0
  171. data/ext/ffi_c/libffi/src/nios2/ffitarget.h +52 -0
  172. data/ext/ffi_c/libffi/src/nios2/sysv.S +136 -0
  173. data/ext/ffi_c/libffi/src/or1k/ffi.c +328 -0
  174. data/ext/ffi_c/libffi/src/or1k/ffitarget.h +58 -0
  175. data/ext/ffi_c/libffi/src/or1k/sysv.S +107 -0
  176. data/ext/ffi_c/libffi/src/pa/ffi.c +719 -0
  177. data/ext/ffi_c/libffi/src/pa/ffitarget.h +85 -0
  178. data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
  179. data/ext/ffi_c/libffi/src/pa/linux.S +357 -0
  180. data/ext/ffi_c/libffi/src/powerpc/aix.S +566 -0
  181. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +694 -0
  182. data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
  183. data/ext/ffi_c/libffi/src/powerpc/darwin.S +378 -0
  184. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +571 -0
  185. data/ext/ffi_c/libffi/src/powerpc/ffi.c +173 -0
  186. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +1440 -0
  187. data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +974 -0
  188. data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +94 -0
  189. data/ext/ffi_c/libffi/src/powerpc/ffi_sysv.c +923 -0
  190. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +198 -0
  191. data/ext/ffi_c/libffi/src/powerpc/linux64.S +228 -0
  192. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +488 -0
  193. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +397 -0
  194. data/ext/ffi_c/libffi/src/powerpc/sysv.S +175 -0
  195. data/ext/ffi_c/libffi/src/prep_cif.c +261 -0
  196. data/ext/ffi_c/libffi/src/raw_api.c +267 -0
  197. data/ext/ffi_c/libffi/src/riscv/ffi.c +481 -0
  198. data/ext/ffi_c/libffi/src/riscv/ffitarget.h +69 -0
  199. data/ext/ffi_c/libffi/src/riscv/sysv.S +293 -0
  200. data/ext/ffi_c/libffi/src/s390/ffi.c +756 -0
  201. data/ext/ffi_c/libffi/src/s390/ffitarget.h +70 -0
  202. data/ext/ffi_c/libffi/src/s390/internal.h +11 -0
  203. data/ext/ffi_c/libffi/src/s390/sysv.S +325 -0
  204. data/ext/ffi_c/libffi/src/sh/ffi.c +717 -0
  205. data/ext/ffi_c/libffi/src/sh/ffitarget.h +54 -0
  206. data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
  207. data/ext/ffi_c/libffi/src/sh64/ffi.c +469 -0
  208. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +58 -0
  209. data/ext/ffi_c/libffi/src/sh64/sysv.S +539 -0
  210. data/ext/ffi_c/libffi/src/sparc/ffi.c +468 -0
  211. data/ext/ffi_c/libffi/src/sparc/ffi64.c +608 -0
  212. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +81 -0
  213. data/ext/ffi_c/libffi/src/sparc/internal.h +26 -0
  214. data/ext/ffi_c/libffi/src/sparc/v8.S +443 -0
  215. data/ext/ffi_c/libffi/src/sparc/v9.S +440 -0
  216. data/ext/ffi_c/libffi/src/tile/ffi.c +355 -0
  217. data/ext/ffi_c/libffi/src/tile/ffitarget.h +65 -0
  218. data/ext/ffi_c/libffi/src/tile/tile.S +360 -0
  219. data/ext/ffi_c/libffi/src/types.c +108 -0
  220. data/ext/ffi_c/libffi/src/vax/elfbsd.S +195 -0
  221. data/ext/ffi_c/libffi/src/vax/ffi.c +276 -0
  222. data/ext/ffi_c/libffi/src/vax/ffitarget.h +49 -0
  223. data/ext/ffi_c/libffi/src/x86/asmnames.h +30 -0
  224. data/ext/ffi_c/libffi/src/x86/ffi.c +754 -0
  225. data/ext/ffi_c/libffi/src/x86/ffi64.c +884 -0
  226. data/ext/ffi_c/libffi/src/x86/ffitarget.h +147 -0
  227. data/ext/ffi_c/libffi/src/x86/ffiw64.c +308 -0
  228. data/ext/ffi_c/libffi/src/x86/internal.h +29 -0
  229. data/ext/ffi_c/libffi/src/x86/internal64.h +22 -0
  230. data/ext/ffi_c/libffi/src/x86/sysv.S +1129 -0
  231. data/ext/ffi_c/libffi/src/x86/unix64.S +566 -0
  232. data/ext/ffi_c/libffi/src/x86/win64.S +232 -0
  233. data/ext/ffi_c/libffi/src/x86/win64_intel.S +237 -0
  234. data/ext/ffi_c/libffi/src/xtensa/ffi.c +298 -0
  235. data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +53 -0
  236. data/ext/ffi_c/libffi/src/xtensa/sysv.S +258 -0
  237. data/ext/ffi_c/libffi/stamp-h.in +1 -0
  238. data/ext/ffi_c/libffi/testsuite/Makefile.am +117 -0
  239. data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
  240. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +636 -0
  241. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +283 -0
  242. data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
  243. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/Makefile +28 -0
  244. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/README +78 -0
  245. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/alignof.h +50 -0
  246. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/bhaible.exp +58 -0
  247. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +1745 -0
  248. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-callback.c +2885 -0
  249. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/testcases.c +743 -0
  250. data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c +46 -0
  251. data/ext/ffi_c/libffi/testsuite/libffi.call/align_stdcall.c +46 -0
  252. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +43 -0
  253. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +89 -0
  254. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +81 -0
  255. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +81 -0
  256. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +82 -0
  257. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +89 -0
  258. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +92 -0
  259. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +90 -0
  260. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_loc_fn0.c +95 -0
  261. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_simple.c +55 -0
  262. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +94 -0
  263. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +95 -0
  264. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +96 -0
  265. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +102 -0
  266. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +89 -0
  267. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +91 -0
  268. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +93 -0
  269. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +113 -0
  270. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +90 -0
  271. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +95 -0
  272. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +90 -0
  273. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +90 -0
  274. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3float.c +95 -0
  275. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +98 -0
  276. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +90 -0
  277. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +109 -0
  278. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +98 -0
  279. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +124 -0
  280. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +113 -0
  281. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +99 -0
  282. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +117 -0
  283. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +97 -0
  284. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +88 -0
  285. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +90 -0
  286. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +91 -0
  287. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +93 -0
  288. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +91 -0
  289. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +92 -0
  290. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split.c +132 -0
  291. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c +115 -0
  292. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +95 -0
  293. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +91 -0
  294. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +91 -0
  295. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +92 -0
  296. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +91 -0
  297. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +91 -0
  298. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +93 -0
  299. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_dbls_struct.c +66 -0
  300. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +43 -0
  301. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c +61 -0
  302. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +42 -0
  303. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble.c +105 -0
  304. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble_va.c +61 -0
  305. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_args.c +70 -0
  306. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_float_double.c +55 -0
  307. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +74 -0
  308. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +74 -0
  309. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +86 -0
  310. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +91 -0
  311. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +74 -0
  312. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +86 -0
  313. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer.c +74 -0
  314. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer_stack.c +142 -0
  315. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +44 -0
  316. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +42 -0
  317. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +42 -0
  318. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_struct_va1.c +114 -0
  319. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +42 -0
  320. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar_va.c +44 -0
  321. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +43 -0
  322. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint_va.c +45 -0
  323. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulong_va.c +45 -0
  324. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +47 -0
  325. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +43 -0
  326. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort_va.c +44 -0
  327. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_abi.c +36 -0
  328. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c +26 -0
  329. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +138 -0
  330. data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
  331. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +60 -0
  332. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +60 -0
  333. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +74 -0
  334. data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
  335. data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +107 -0
  336. data/ext/ffi_c/libffi/testsuite/libffi.call/huge_struct.c +341 -0
  337. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +59 -0
  338. data/ext/ffi_c/libffi/testsuite/libffi.call/many2.c +57 -0
  339. data/ext/ffi_c/libffi/testsuite/libffi.call/many_double.c +70 -0
  340. data/ext/ffi_c/libffi/testsuite/libffi.call/many_mixed.c +78 -0
  341. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +52 -0
  342. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +152 -0
  343. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +161 -0
  344. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +134 -0
  345. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct11.c +121 -0
  346. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +110 -0
  347. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +111 -0
  348. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +111 -0
  349. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +112 -0
  350. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +131 -0
  351. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +111 -0
  352. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +131 -0
  353. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +131 -0
  354. data/ext/ffi_c/libffi/testsuite/libffi.call/offsets.c +46 -0
  355. data/ext/ffi_c/libffi/testsuite/libffi.call/pr1172638.c +127 -0
  356. data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +90 -0
  357. data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
  358. data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
  359. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +36 -0
  360. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
  361. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
  362. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
  363. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
  364. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
  365. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
  366. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
  367. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
  368. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +43 -0
  369. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
  370. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
  371. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
  372. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
  373. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large.c +145 -0
  374. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large2.c +148 -0
  375. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium.c +124 -0
  376. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium2.c +125 -0
  377. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
  378. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +49 -0
  379. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +49 -0
  380. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +55 -0
  381. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +67 -0
  382. data/ext/ffi_c/libffi/testsuite/libffi.call/struct10.c +57 -0
  383. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
  384. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +60 -0
  385. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +64 -0
  386. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +66 -0
  387. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
  388. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
  389. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +81 -0
  390. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +68 -0
  391. data/ext/ffi_c/libffi/testsuite/libffi.call/testclosure.c +70 -0
  392. data/ext/ffi_c/libffi/testsuite/libffi.call/uninitialized.c +61 -0
  393. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest.cc +117 -0
  394. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest_ffi_call.cc +54 -0
  395. data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +196 -0
  396. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +121 -0
  397. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +123 -0
  398. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +125 -0
  399. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex.inc +91 -0
  400. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_double.c +10 -0
  401. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_float.c +10 -0
  402. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +10 -0
  403. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex.inc +42 -0
  404. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_double.c +10 -0
  405. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_float.c +10 -0
  406. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +10 -0
  407. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct.inc +71 -0
  408. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +10 -0
  409. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +10 -0
  410. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +10 -0
  411. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va.inc +80 -0
  412. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c +10 -0
  413. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c +16 -0
  414. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +10 -0
  415. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.exp +36 -0
  416. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc +51 -0
  417. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc +7 -0
  418. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc +7 -0
  419. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +7 -0
  420. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c +10 -0
  421. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c +10 -0
  422. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c +86 -0
  423. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c +10 -0
  424. data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h +1 -0
  425. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc +78 -0
  426. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c +10 -0
  427. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c +10 -0
  428. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c +10 -0
  429. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc +37 -0
  430. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc +41 -0
  431. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_double.c +10 -0
  432. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_float.c +10 -0
  433. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +10 -0
  434. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2.inc +44 -0
  435. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_double.c +10 -0
  436. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_float.c +10 -0
  437. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +10 -0
  438. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_double.c +10 -0
  439. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c +10 -0
  440. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c +10 -0
  441. data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c +34 -0
  442. data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c +28 -0
  443. data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h +1 -0
  444. data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp +36 -0
  445. data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h +19 -0
  446. data/ext/ffi_c/rbffi.h +55 -0
  447. data/ext/ffi_c/rbffi_endian.h +59 -0
  448. data/ext/ffi_c/win32/stdbool.h +8 -0
  449. data/ext/ffi_c/win32/stdint.h +201 -0
  450. data/ffi.gemspec +43 -0
  451. data/lib/ffi.rb +20 -0
  452. data/lib/ffi/autopointer.rb +203 -0
  453. data/lib/ffi/buffer.rb +4 -0
  454. data/lib/ffi/callback.rb +4 -0
  455. data/lib/ffi/data_converter.rb +67 -0
  456. data/lib/ffi/enum.rb +296 -0
  457. data/lib/ffi/errno.rb +43 -0
  458. data/lib/ffi/ffi.rb +45 -0
  459. data/lib/ffi/io.rb +62 -0
  460. data/lib/ffi/library.rb +588 -0
  461. data/lib/ffi/managedstruct.rb +84 -0
  462. data/lib/ffi/memorypointer.rb +1 -0
  463. data/lib/ffi/platform.rb +172 -0
  464. data/lib/ffi/platform/aarch64-freebsd/types.conf +128 -0
  465. data/lib/ffi/platform/aarch64-freebsd12/types.conf +128 -0
  466. data/lib/ffi/platform/aarch64-linux/types.conf +104 -0
  467. data/lib/ffi/platform/arm-freebsd/types.conf +152 -0
  468. data/lib/ffi/platform/arm-freebsd12/types.conf +152 -0
  469. data/lib/ffi/platform/arm-linux/types.conf +104 -0
  470. data/lib/ffi/platform/i386-cygwin/types.conf +3 -0
  471. data/lib/ffi/platform/i386-darwin/types.conf +100 -0
  472. data/lib/ffi/platform/i386-freebsd/types.conf +152 -0
  473. data/lib/ffi/platform/i386-freebsd12/types.conf +152 -0
  474. data/lib/ffi/platform/i386-gnu/types.conf +107 -0
  475. data/lib/ffi/platform/i386-linux/types.conf +103 -0
  476. data/lib/ffi/platform/i386-netbsd/types.conf +126 -0
  477. data/lib/ffi/platform/i386-openbsd/types.conf +128 -0
  478. data/lib/ffi/platform/i386-solaris/types.conf +122 -0
  479. data/lib/ffi/platform/i386-windows/types.conf +105 -0
  480. data/lib/ffi/platform/ia64-linux/types.conf +104 -0
  481. data/lib/ffi/platform/mips-linux/types.conf +102 -0
  482. data/lib/ffi/platform/mips64-linux/types.conf +104 -0
  483. data/lib/ffi/platform/mips64el-linux/types.conf +104 -0
  484. data/lib/ffi/platform/mipsel-linux/types.conf +102 -0
  485. data/lib/ffi/platform/mipsisa32r6-linux/types.conf +102 -0
  486. data/lib/ffi/platform/mipsisa32r6el-linux/types.conf +102 -0
  487. data/lib/ffi/platform/mipsisa64r6-linux/types.conf +104 -0
  488. data/lib/ffi/platform/mipsisa64r6el-linux/types.conf +104 -0
  489. data/lib/ffi/platform/powerpc-aix/types.conf +180 -0
  490. data/lib/ffi/platform/powerpc-darwin/types.conf +100 -0
  491. data/lib/ffi/platform/powerpc-linux/types.conf +100 -0
  492. data/lib/ffi/platform/powerpc64-linux/types.conf +104 -0
  493. data/lib/ffi/platform/s390-linux/types.conf +102 -0
  494. data/lib/ffi/platform/s390x-linux/types.conf +102 -0
  495. data/lib/ffi/platform/sparc-linux/types.conf +102 -0
  496. data/lib/ffi/platform/sparc-solaris/types.conf +128 -0
  497. data/lib/ffi/platform/sparc64-linux/types.conf +102 -0
  498. data/lib/ffi/platform/sparcv9-solaris/types.conf +128 -0
  499. data/lib/ffi/platform/x86_64-cygwin/types.conf +3 -0
  500. data/lib/ffi/platform/x86_64-darwin/types.conf +126 -0
  501. data/lib/ffi/platform/x86_64-freebsd/types.conf +128 -0
  502. data/lib/ffi/platform/x86_64-freebsd12/types.conf +128 -0
  503. data/lib/ffi/platform/x86_64-linux/types.conf +102 -0
  504. data/lib/ffi/platform/x86_64-netbsd/types.conf +128 -0
  505. data/lib/ffi/platform/x86_64-openbsd/types.conf +134 -0
  506. data/lib/ffi/platform/x86_64-solaris/types.conf +122 -0
  507. data/lib/ffi/platform/x86_64-windows/types.conf +120 -0
  508. data/lib/ffi/pointer.rb +160 -0
  509. data/lib/ffi/struct.rb +311 -0
  510. data/lib/ffi/struct_by_reference.rb +72 -0
  511. data/lib/ffi/struct_layout.rb +96 -0
  512. data/lib/ffi/struct_layout_builder.rb +227 -0
  513. data/lib/ffi/tools/const_generator.rb +230 -0
  514. data/lib/ffi/tools/generator.rb +105 -0
  515. data/lib/ffi/tools/generator_task.rb +32 -0
  516. data/lib/ffi/tools/struct_generator.rb +194 -0
  517. data/lib/ffi/tools/types_generator.rb +134 -0
  518. data/lib/ffi/types.rb +194 -0
  519. data/lib/ffi/union.rb +43 -0
  520. data/lib/ffi/variadic.rb +78 -0
  521. data/lib/ffi/version.rb +3 -0
  522. data/samples/getlogin.rb +8 -0
  523. data/samples/getpid.rb +8 -0
  524. data/samples/gettimeofday.rb +18 -0
  525. data/samples/hello.rb +7 -0
  526. data/samples/inotify.rb +60 -0
  527. data/samples/pty.rb +76 -0
  528. data/samples/qsort.rb +21 -0
  529. data/samples/sample_helper.rb +6 -0
  530. metadata +663 -0
@@ -0,0 +1,69 @@
1
+ /* -----------------------------------------------------------------*-C-*-
2
+ ffitarget.h - 2014 Michael Knyszek
3
+
4
+ Target configuration macros for RISC-V.
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
+
28
+ #ifndef LIBFFI_TARGET_H
29
+ #define LIBFFI_TARGET_H
30
+
31
+ #ifndef LIBFFI_H
32
+ #error "Please do not include ffitarget.h directly into your source. Use ffi.h instead."
33
+ #endif
34
+
35
+ #ifndef __riscv
36
+ #error "libffi was configured for a RISC-V target but this does not appear to be a RISC-V compiler."
37
+ #endif
38
+
39
+ #ifndef LIBFFI_ASM
40
+
41
+ typedef unsigned long ffi_arg;
42
+ typedef signed long ffi_sarg;
43
+
44
+ /* FFI_UNUSED_NN and riscv_unused are to maintain ABI compatibility with a
45
+ distributed Berkeley patch from 2014, and can be removed at SONAME bump */
46
+ typedef enum ffi_abi {
47
+ FFI_FIRST_ABI = 0,
48
+ FFI_SYSV,
49
+ FFI_UNUSED_1,
50
+ FFI_UNUSED_2,
51
+ FFI_UNUSED_3,
52
+ FFI_LAST_ABI,
53
+
54
+ FFI_DEFAULT_ABI = FFI_SYSV
55
+ } ffi_abi;
56
+
57
+ #endif /* LIBFFI_ASM */
58
+
59
+ /* ---- Definitions for closures ----------------------------------------- */
60
+
61
+ #define FFI_CLOSURES 1
62
+ #define FFI_GO_CLOSURES 1
63
+ #define FFI_TRAMPOLINE_SIZE 24
64
+ #define FFI_NATIVE_RAW_API 0
65
+ #define FFI_EXTRA_CIF_FIELDS unsigned riscv_nfixedargs; unsigned riscv_unused;
66
+ #define FFI_TARGET_SPECIFIC_VARIADIC
67
+
68
+ #endif
69
+
@@ -0,0 +1,293 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2015 Michael Knyszek <mknyszek@berkeley.edu>
3
+ 2015 Andrew Waterman <waterman@cs.berkeley.edu>
4
+ 2018 Stef O'Rear <sorear2@gmail.com>
5
+
6
+ RISC-V Foreign Function Interface
7
+
8
+ Permission is hereby granted, free of charge, to any person obtaining
9
+ a copy of this software and associated documentation files (the
10
+ ``Software''), to deal in the Software without restriction, including
11
+ without limitation the rights to use, copy, modify, merge, publish,
12
+ distribute, sublicense, and/or sell copies of the Software, and to
13
+ permit persons to whom the Software is furnished to do so, subject to
14
+ the following conditions:
15
+
16
+ The above copyright notice and this permission notice shall be included
17
+ in all copies or substantial portions of the Software.
18
+
19
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
20
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
21
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
22
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
23
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
24
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
25
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
26
+ DEALINGS IN THE SOFTWARE.
27
+ ----------------------------------------------------------------------- */
28
+
29
+ #define LIBFFI_ASM
30
+ #include <fficonfig.h>
31
+ #include <ffi.h>
32
+
33
+ /* Define aliases so that we can handle all ABIs uniformly */
34
+
35
+ #if __SIZEOF_POINTER__ == 8
36
+ #define PTRS 8
37
+ #define LARG ld
38
+ #define SARG sd
39
+ #else
40
+ #define PTRS 4
41
+ #define LARG lw
42
+ #define SARG sw
43
+ #endif
44
+
45
+ #if __riscv_float_abi_double
46
+ #define FLTS 8
47
+ #define FLARG fld
48
+ #define FSARG fsd
49
+ #elif __riscv_float_abi_single
50
+ #define FLTS 4
51
+ #define FLARG flw
52
+ #define FSARG fsw
53
+ #else
54
+ #define FLTS 0
55
+ #endif
56
+
57
+ #define fp s0
58
+
59
+ .text
60
+ .globl ffi_call_asm
61
+ .type ffi_call_asm, @function
62
+ .hidden ffi_call_asm
63
+ /*
64
+ struct call_context {
65
+ floatreg fa[8];
66
+ intreg a[8];
67
+ intreg pad[rv32 ? 2 : 0];
68
+ intreg save_fp, save_ra;
69
+ }
70
+ void ffi_call_asm (size_t *stackargs, struct call_context *regargs,
71
+ void (*fn) (void), void *closure);
72
+ */
73
+
74
+ #define FRAME_LEN (8 * FLTS + 8 * PTRS + 16)
75
+
76
+ ffi_call_asm:
77
+ .cfi_startproc
78
+
79
+ /*
80
+ We are NOT going to set up an ordinary stack frame. In order to pass
81
+ the stacked args to the called function, we adjust our stack pointer to
82
+ a0, which is in the _caller's_ alloca area. We establish our own stack
83
+ frame at the end of the call_context.
84
+
85
+ Anything below the arguments will be freed at this point, although we
86
+ preserve the call_context so that it can be read back in the caller.
87
+ */
88
+
89
+ .cfi_def_cfa 11, FRAME_LEN # interim CFA based on a1
90
+ SARG fp, FRAME_LEN - 2*PTRS(a1)
91
+ .cfi_offset 8, -2*PTRS
92
+ SARG ra, FRAME_LEN - 1*PTRS(a1)
93
+ .cfi_offset 1, -1*PTRS
94
+
95
+ addi fp, a1, FRAME_LEN
96
+ mv sp, a0
97
+ .cfi_def_cfa 8, 0 # our frame is fully set up
98
+
99
+ # Load arguments
100
+ mv t1, a2
101
+ mv t2, a3
102
+
103
+ #if FLTS
104
+ FLARG fa0, -FRAME_LEN+0*FLTS(fp)
105
+ FLARG fa1, -FRAME_LEN+1*FLTS(fp)
106
+ FLARG fa2, -FRAME_LEN+2*FLTS(fp)
107
+ FLARG fa3, -FRAME_LEN+3*FLTS(fp)
108
+ FLARG fa4, -FRAME_LEN+4*FLTS(fp)
109
+ FLARG fa5, -FRAME_LEN+5*FLTS(fp)
110
+ FLARG fa6, -FRAME_LEN+6*FLTS(fp)
111
+ FLARG fa7, -FRAME_LEN+7*FLTS(fp)
112
+ #endif
113
+
114
+ LARG a0, -FRAME_LEN+8*FLTS+0*PTRS(fp)
115
+ LARG a1, -FRAME_LEN+8*FLTS+1*PTRS(fp)
116
+ LARG a2, -FRAME_LEN+8*FLTS+2*PTRS(fp)
117
+ LARG a3, -FRAME_LEN+8*FLTS+3*PTRS(fp)
118
+ LARG a4, -FRAME_LEN+8*FLTS+4*PTRS(fp)
119
+ LARG a5, -FRAME_LEN+8*FLTS+5*PTRS(fp)
120
+ LARG a6, -FRAME_LEN+8*FLTS+6*PTRS(fp)
121
+ LARG a7, -FRAME_LEN+8*FLTS+7*PTRS(fp)
122
+
123
+ /* Call */
124
+ jalr t1
125
+
126
+ /* Save return values - only a0/a1 (fa0/fa1) are used */
127
+ #if FLTS
128
+ FSARG fa0, -FRAME_LEN+0*FLTS(fp)
129
+ FSARG fa1, -FRAME_LEN+1*FLTS(fp)
130
+ #endif
131
+
132
+ SARG a0, -FRAME_LEN+8*FLTS+0*PTRS(fp)
133
+ SARG a1, -FRAME_LEN+8*FLTS+1*PTRS(fp)
134
+
135
+ /* Restore and return */
136
+ addi sp, fp, -FRAME_LEN
137
+ .cfi_def_cfa 2, FRAME_LEN
138
+ LARG ra, -1*PTRS(fp)
139
+ .cfi_restore 1
140
+ LARG fp, -2*PTRS(fp)
141
+ .cfi_restore 8
142
+ ret
143
+ .cfi_endproc
144
+ .size ffi_call_asm, .-ffi_call_asm
145
+
146
+
147
+ /*
148
+ ffi_closure_asm. Expects address of the passed-in ffi_closure in t1.
149
+ void ffi_closure_inner (ffi_cif *cif,
150
+ void (*fun) (ffi_cif *, void *, void **, void *),
151
+ void *user_data,
152
+ size_t *stackargs, struct call_context *regargs)
153
+ */
154
+
155
+ .globl ffi_closure_asm
156
+ .hidden ffi_closure_asm
157
+ .type ffi_closure_asm, @function
158
+ ffi_closure_asm:
159
+ .cfi_startproc
160
+
161
+ addi sp, sp, -FRAME_LEN
162
+ .cfi_def_cfa_offset FRAME_LEN
163
+
164
+ /* make a frame */
165
+ SARG fp, FRAME_LEN - 2*PTRS(sp)
166
+ .cfi_offset 8, -2*PTRS
167
+ SARG ra, FRAME_LEN - 1*PTRS(sp)
168
+ .cfi_offset 1, -1*PTRS
169
+ addi fp, sp, FRAME_LEN
170
+
171
+ /* save arguments */
172
+ #if FLTS
173
+ FSARG fa0, 0*FLTS(sp)
174
+ FSARG fa1, 1*FLTS(sp)
175
+ FSARG fa2, 2*FLTS(sp)
176
+ FSARG fa3, 3*FLTS(sp)
177
+ FSARG fa4, 4*FLTS(sp)
178
+ FSARG fa5, 5*FLTS(sp)
179
+ FSARG fa6, 6*FLTS(sp)
180
+ FSARG fa7, 7*FLTS(sp)
181
+ #endif
182
+
183
+ SARG a0, 8*FLTS+0*PTRS(sp)
184
+ SARG a1, 8*FLTS+1*PTRS(sp)
185
+ SARG a2, 8*FLTS+2*PTRS(sp)
186
+ SARG a3, 8*FLTS+3*PTRS(sp)
187
+ SARG a4, 8*FLTS+4*PTRS(sp)
188
+ SARG a5, 8*FLTS+5*PTRS(sp)
189
+ SARG a6, 8*FLTS+6*PTRS(sp)
190
+ SARG a7, 8*FLTS+7*PTRS(sp)
191
+
192
+ /* enter C */
193
+ LARG a0, FFI_TRAMPOLINE_SIZE+0*PTRS(t1)
194
+ LARG a1, FFI_TRAMPOLINE_SIZE+1*PTRS(t1)
195
+ LARG a2, FFI_TRAMPOLINE_SIZE+2*PTRS(t1)
196
+ addi a3, sp, FRAME_LEN
197
+ mv a4, sp
198
+
199
+ call ffi_closure_inner
200
+
201
+ /* return values */
202
+ #if FLTS
203
+ FLARG fa0, 0*FLTS(sp)
204
+ FLARG fa1, 1*FLTS(sp)
205
+ #endif
206
+
207
+ LARG a0, 8*FLTS+0*PTRS(sp)
208
+ LARG a1, 8*FLTS+1*PTRS(sp)
209
+
210
+ /* restore and return */
211
+ LARG ra, FRAME_LEN-1*PTRS(sp)
212
+ .cfi_restore 1
213
+ LARG fp, FRAME_LEN-2*PTRS(sp)
214
+ .cfi_restore 8
215
+ addi sp, sp, FRAME_LEN
216
+ .cfi_def_cfa_offset 0
217
+ ret
218
+ .cfi_endproc
219
+ .size ffi_closure_asm, .-ffi_closure_asm
220
+
221
+ /*
222
+ ffi_go_closure_asm. Expects address of the passed-in ffi_go_closure in t2.
223
+ void ffi_closure_inner (ffi_cif *cif,
224
+ void (*fun) (ffi_cif *, void *, void **, void *),
225
+ void *user_data,
226
+ size_t *stackargs, struct call_context *regargs)
227
+ */
228
+
229
+ .globl ffi_go_closure_asm
230
+ .hidden ffi_go_closure_asm
231
+ .type ffi_go_closure_asm, @function
232
+ ffi_go_closure_asm:
233
+ .cfi_startproc
234
+
235
+ addi sp, sp, -FRAME_LEN
236
+ .cfi_def_cfa_offset FRAME_LEN
237
+
238
+ /* make a frame */
239
+ SARG fp, FRAME_LEN - 2*PTRS(sp)
240
+ .cfi_offset 8, -2*PTRS
241
+ SARG ra, FRAME_LEN - 1*PTRS(sp)
242
+ .cfi_offset 1, -1*PTRS
243
+ addi fp, sp, FRAME_LEN
244
+
245
+ /* save arguments */
246
+ #if FLTS
247
+ FSARG fa0, 0*FLTS(sp)
248
+ FSARG fa1, 1*FLTS(sp)
249
+ FSARG fa2, 2*FLTS(sp)
250
+ FSARG fa3, 3*FLTS(sp)
251
+ FSARG fa4, 4*FLTS(sp)
252
+ FSARG fa5, 5*FLTS(sp)
253
+ FSARG fa6, 6*FLTS(sp)
254
+ FSARG fa7, 7*FLTS(sp)
255
+ #endif
256
+
257
+ SARG a0, 8*FLTS+0*PTRS(sp)
258
+ SARG a1, 8*FLTS+1*PTRS(sp)
259
+ SARG a2, 8*FLTS+2*PTRS(sp)
260
+ SARG a3, 8*FLTS+3*PTRS(sp)
261
+ SARG a4, 8*FLTS+4*PTRS(sp)
262
+ SARG a5, 8*FLTS+5*PTRS(sp)
263
+ SARG a6, 8*FLTS+6*PTRS(sp)
264
+ SARG a7, 8*FLTS+7*PTRS(sp)
265
+
266
+ /* enter C */
267
+ LARG a0, 1*PTRS(t2)
268
+ LARG a1, 2*PTRS(t2)
269
+ mv a2, t2
270
+ addi a3, sp, FRAME_LEN
271
+ mv a4, sp
272
+
273
+ call ffi_closure_inner
274
+
275
+ /* return values */
276
+ #if FLTS
277
+ FLARG fa0, 0*FLTS(sp)
278
+ FLARG fa1, 1*FLTS(sp)
279
+ #endif
280
+
281
+ LARG a0, 8*FLTS+0*PTRS(sp)
282
+ LARG a1, 8*FLTS+1*PTRS(sp)
283
+
284
+ /* restore and return */
285
+ LARG ra, FRAME_LEN-1*PTRS(sp)
286
+ .cfi_restore 1
287
+ LARG fp, FRAME_LEN-2*PTRS(sp)
288
+ .cfi_restore 8
289
+ addi sp, sp, FRAME_LEN
290
+ .cfi_def_cfa_offset 0
291
+ ret
292
+ .cfi_endproc
293
+ .size ffi_go_closure_asm, .-ffi_go_closure_asm
@@ -0,0 +1,756 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2000, 2007 Software AG
3
+ Copyright (c) 2008 Red Hat, Inc
4
+
5
+ S390 Foreign Function Interface
6
+
7
+ Permission is hereby granted, free of charge, to any person obtaining
8
+ a copy of this software and associated documentation files (the
9
+ ``Software''), to deal in the Software without restriction, including
10
+ without limitation the rights to use, copy, modify, merge, publish,
11
+ distribute, sublicense, and/or sell copies of the Software, and to
12
+ permit persons to whom the Software is furnished to do so, subject to
13
+ the following conditions:
14
+
15
+ The above copyright notice and this permission notice shall be included
16
+ in all copies or substantial portions of the Software.
17
+
18
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
19
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
21
+ IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR
22
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
23
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24
+ OTHER DEALINGS IN THE SOFTWARE.
25
+ ----------------------------------------------------------------------- */
26
+ /*====================================================================*/
27
+ /* Includes */
28
+ /* -------- */
29
+ /*====================================================================*/
30
+
31
+ #include <ffi.h>
32
+ #include <ffi_common.h>
33
+ #include <stdint.h>
34
+ #include "internal.h"
35
+
36
+ /*====================== End of Includes =============================*/
37
+
38
+ /*====================================================================*/
39
+ /* Defines */
40
+ /* ------- */
41
+ /*====================================================================*/
42
+
43
+ /* Maximum number of GPRs available for argument passing. */
44
+ #define MAX_GPRARGS 5
45
+
46
+ /* Maximum number of FPRs available for argument passing. */
47
+ #ifdef __s390x__
48
+ #define MAX_FPRARGS 4
49
+ #else
50
+ #define MAX_FPRARGS 2
51
+ #endif
52
+
53
+ /* Round to multiple of 16. */
54
+ #define ROUND_SIZE(size) (((size) + 15) & ~15)
55
+
56
+ /*===================== End of Defines ===============================*/
57
+
58
+ /*====================================================================*/
59
+ /* Externals */
60
+ /* --------- */
61
+ /*====================================================================*/
62
+
63
+ struct call_frame
64
+ {
65
+ void *back_chain;
66
+ void *eos;
67
+ unsigned long gpr_args[5];
68
+ unsigned long gpr_save[9];
69
+ unsigned long long fpr_args[4];
70
+ };
71
+
72
+ extern void FFI_HIDDEN ffi_call_SYSV(struct call_frame *, unsigned, void *,
73
+ void (*fn)(void), void *);
74
+
75
+ extern void ffi_closure_SYSV(void);
76
+ extern void ffi_go_closure_SYSV(void);
77
+
78
+ /*====================== End of Externals ============================*/
79
+
80
+ /*====================================================================*/
81
+ /* */
82
+ /* Name - ffi_check_struct_type. */
83
+ /* */
84
+ /* Function - Determine if a structure can be passed within a */
85
+ /* general purpose or floating point register. */
86
+ /* */
87
+ /*====================================================================*/
88
+
89
+ static int
90
+ ffi_check_struct_type (ffi_type *arg)
91
+ {
92
+ size_t size = arg->size;
93
+
94
+ /* If the struct has just one element, look at that element
95
+ to find out whether to consider the struct as floating point. */
96
+ while (arg->type == FFI_TYPE_STRUCT
97
+ && arg->elements[0] && !arg->elements[1])
98
+ arg = arg->elements[0];
99
+
100
+ /* Structs of size 1, 2, 4, and 8 are passed in registers,
101
+ just like the corresponding int/float types. */
102
+ switch (size)
103
+ {
104
+ case 1:
105
+ return FFI_TYPE_UINT8;
106
+
107
+ case 2:
108
+ return FFI_TYPE_UINT16;
109
+
110
+ case 4:
111
+ if (arg->type == FFI_TYPE_FLOAT)
112
+ return FFI_TYPE_FLOAT;
113
+ else
114
+ return FFI_TYPE_UINT32;
115
+
116
+ case 8:
117
+ if (arg->type == FFI_TYPE_DOUBLE)
118
+ return FFI_TYPE_DOUBLE;
119
+ else
120
+ return FFI_TYPE_UINT64;
121
+
122
+ default:
123
+ break;
124
+ }
125
+
126
+ /* Other structs are passed via a pointer to the data. */
127
+ return FFI_TYPE_POINTER;
128
+ }
129
+
130
+ /*======================== End of Routine ============================*/
131
+
132
+ /*====================================================================*/
133
+ /* */
134
+ /* Name - ffi_prep_cif_machdep. */
135
+ /* */
136
+ /* Function - Perform machine dependent CIF processing. */
137
+ /* */
138
+ /*====================================================================*/
139
+
140
+ ffi_status FFI_HIDDEN
141
+ ffi_prep_cif_machdep(ffi_cif *cif)
142
+ {
143
+ size_t struct_size = 0;
144
+ int n_gpr = 0;
145
+ int n_fpr = 0;
146
+ int n_ov = 0;
147
+
148
+ ffi_type **ptr;
149
+ int i;
150
+
151
+ /* Determine return value handling. */
152
+
153
+ switch (cif->rtype->type)
154
+ {
155
+ /* Void is easy. */
156
+ case FFI_TYPE_VOID:
157
+ cif->flags = FFI390_RET_VOID;
158
+ break;
159
+
160
+ /* Structures and complex are returned via a hidden pointer. */
161
+ case FFI_TYPE_STRUCT:
162
+ case FFI_TYPE_COMPLEX:
163
+ cif->flags = FFI390_RET_STRUCT;
164
+ n_gpr++; /* We need one GPR to pass the pointer. */
165
+ break;
166
+
167
+ /* Floating point values are returned in fpr 0. */
168
+ case FFI_TYPE_FLOAT:
169
+ cif->flags = FFI390_RET_FLOAT;
170
+ break;
171
+
172
+ case FFI_TYPE_DOUBLE:
173
+ cif->flags = FFI390_RET_DOUBLE;
174
+ break;
175
+
176
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
177
+ case FFI_TYPE_LONGDOUBLE:
178
+ cif->flags = FFI390_RET_STRUCT;
179
+ n_gpr++;
180
+ break;
181
+ #endif
182
+ /* Integer values are returned in gpr 2 (and gpr 3
183
+ for 64-bit values on 31-bit machines). */
184
+ case FFI_TYPE_UINT64:
185
+ case FFI_TYPE_SINT64:
186
+ cif->flags = FFI390_RET_INT64;
187
+ break;
188
+
189
+ case FFI_TYPE_POINTER:
190
+ case FFI_TYPE_INT:
191
+ case FFI_TYPE_UINT32:
192
+ case FFI_TYPE_SINT32:
193
+ case FFI_TYPE_UINT16:
194
+ case FFI_TYPE_SINT16:
195
+ case FFI_TYPE_UINT8:
196
+ case FFI_TYPE_SINT8:
197
+ /* These are to be extended to word size. */
198
+ #ifdef __s390x__
199
+ cif->flags = FFI390_RET_INT64;
200
+ #else
201
+ cif->flags = FFI390_RET_INT32;
202
+ #endif
203
+ break;
204
+
205
+ default:
206
+ FFI_ASSERT (0);
207
+ break;
208
+ }
209
+
210
+ /* Now for the arguments. */
211
+
212
+ for (ptr = cif->arg_types, i = cif->nargs;
213
+ i > 0;
214
+ i--, ptr++)
215
+ {
216
+ int type = (*ptr)->type;
217
+
218
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
219
+ /* 16-byte long double is passed like a struct. */
220
+ if (type == FFI_TYPE_LONGDOUBLE)
221
+ type = FFI_TYPE_STRUCT;
222
+ #endif
223
+
224
+ /* Check how a structure type is passed. */
225
+ if (type == FFI_TYPE_STRUCT || type == FFI_TYPE_COMPLEX)
226
+ {
227
+ if (type == FFI_TYPE_COMPLEX)
228
+ type = FFI_TYPE_POINTER;
229
+ else
230
+ type = ffi_check_struct_type (*ptr);
231
+
232
+ /* If we pass the struct via pointer, we must reserve space
233
+ to copy its data for proper call-by-value semantics. */
234
+ if (type == FFI_TYPE_POINTER)
235
+ struct_size += ROUND_SIZE ((*ptr)->size);
236
+ }
237
+
238
+ /* Now handle all primitive int/float data types. */
239
+ switch (type)
240
+ {
241
+ /* The first MAX_FPRARGS floating point arguments
242
+ go in FPRs, the rest overflow to the stack. */
243
+
244
+ case FFI_TYPE_DOUBLE:
245
+ if (n_fpr < MAX_FPRARGS)
246
+ n_fpr++;
247
+ else
248
+ n_ov += sizeof (double) / sizeof (long);
249
+ break;
250
+
251
+ case FFI_TYPE_FLOAT:
252
+ if (n_fpr < MAX_FPRARGS)
253
+ n_fpr++;
254
+ else
255
+ n_ov++;
256
+ break;
257
+
258
+ /* On 31-bit machines, 64-bit integers are passed in GPR pairs,
259
+ if one is still available, or else on the stack. If only one
260
+ register is free, skip the register (it won't be used for any
261
+ subsequent argument either). */
262
+
263
+ #ifndef __s390x__
264
+ case FFI_TYPE_UINT64:
265
+ case FFI_TYPE_SINT64:
266
+ if (n_gpr == MAX_GPRARGS-1)
267
+ n_gpr = MAX_GPRARGS;
268
+ if (n_gpr < MAX_GPRARGS)
269
+ n_gpr += 2;
270
+ else
271
+ n_ov += 2;
272
+ break;
273
+ #endif
274
+
275
+ /* Everything else is passed in GPRs (until MAX_GPRARGS
276
+ have been used) or overflows to the stack. */
277
+
278
+ default:
279
+ if (n_gpr < MAX_GPRARGS)
280
+ n_gpr++;
281
+ else
282
+ n_ov++;
283
+ break;
284
+ }
285
+ }
286
+
287
+ /* Total stack space as required for overflow arguments
288
+ and temporary structure copies. */
289
+
290
+ cif->bytes = ROUND_SIZE (n_ov * sizeof (long)) + struct_size;
291
+
292
+ return FFI_OK;
293
+ }
294
+
295
+ /*======================== End of Routine ============================*/
296
+
297
+ /*====================================================================*/
298
+ /* */
299
+ /* Name - ffi_call. */
300
+ /* */
301
+ /* Function - Call the FFI routine. */
302
+ /* */
303
+ /*====================================================================*/
304
+
305
+ static void
306
+ ffi_call_int(ffi_cif *cif,
307
+ void (*fn)(void),
308
+ void *rvalue,
309
+ void **avalue,
310
+ void *closure)
311
+ {
312
+ int ret_type = cif->flags;
313
+ size_t rsize = 0, bytes = cif->bytes;
314
+ unsigned char *stack, *p_struct;
315
+ struct call_frame *frame;
316
+ unsigned long *p_ov, *p_gpr;
317
+ unsigned long long *p_fpr;
318
+ int n_fpr, n_gpr, n_ov, i, n;
319
+ ffi_type **arg_types;
320
+
321
+ FFI_ASSERT (cif->abi == FFI_SYSV);
322
+
323
+ /* If we don't have a return value, we need to fake one. */
324
+ if (rvalue == NULL)
325
+ {
326
+ if (ret_type & FFI390_RET_IN_MEM)
327
+ rsize = cif->rtype->size;
328
+ else
329
+ ret_type = FFI390_RET_VOID;
330
+ }
331
+
332
+ /* The stack space will be filled with those areas:
333
+
334
+ dummy structure return (highest addresses)
335
+ FPR argument register save area
336
+ GPR argument register save area
337
+ stack frame for ffi_call_SYSV
338
+ temporary struct copies
339
+ overflow argument area (lowest addresses)
340
+
341
+ We set up the following pointers:
342
+
343
+ p_fpr: bottom of the FPR area (growing upwards)
344
+ p_gpr: bottom of the GPR area (growing upwards)
345
+ p_ov: bottom of the overflow area (growing upwards)
346
+ p_struct: top of the struct copy area (growing downwards)
347
+
348
+ All areas are kept aligned to twice the word size.
349
+
350
+ Note that we're going to create the stack frame for both
351
+ ffi_call_SYSV _and_ the target function right here. This
352
+ works because we don't make any function calls with more
353
+ than 5 arguments (indeed only memcpy and ffi_call_SYSV),
354
+ and thus we don't have any stacked outgoing parameters. */
355
+
356
+ stack = alloca (bytes + sizeof(struct call_frame) + rsize);
357
+ frame = (struct call_frame *)(stack + bytes);
358
+ if (rsize)
359
+ rvalue = frame + 1;
360
+
361
+ /* Link the new frame back to the one from this function. */
362
+ frame->back_chain = __builtin_frame_address (0);
363
+
364
+ /* Fill in all of the argument stuff. */
365
+ p_ov = (unsigned long *)stack;
366
+ p_struct = (unsigned char *)frame;
367
+ p_gpr = frame->gpr_args;
368
+ p_fpr = frame->fpr_args;
369
+ n_fpr = n_gpr = n_ov = 0;
370
+
371
+ /* If we returning a structure then we set the first parameter register
372
+ to the address of where we are returning this structure. */
373
+ if (cif->flags & FFI390_RET_IN_MEM)
374
+ p_gpr[n_gpr++] = (uintptr_t) rvalue;
375
+
376
+ /* Now for the arguments. */
377
+ arg_types = cif->arg_types;
378
+ for (i = 0, n = cif->nargs; i < n; ++i)
379
+ {
380
+ ffi_type *ty = arg_types[i];
381
+ void *arg = avalue[i];
382
+ int type = ty->type;
383
+ ffi_arg val;
384
+
385
+ restart:
386
+ switch (type)
387
+ {
388
+ case FFI_TYPE_SINT8:
389
+ val = *(SINT8 *)arg;
390
+ goto do_int;
391
+ case FFI_TYPE_UINT8:
392
+ val = *(UINT8 *)arg;
393
+ goto do_int;
394
+ case FFI_TYPE_SINT16:
395
+ val = *(SINT16 *)arg;
396
+ goto do_int;
397
+ case FFI_TYPE_UINT16:
398
+ val = *(UINT16 *)arg;
399
+ goto do_int;
400
+ case FFI_TYPE_INT:
401
+ case FFI_TYPE_SINT32:
402
+ val = *(SINT32 *)arg;
403
+ goto do_int;
404
+ case FFI_TYPE_UINT32:
405
+ val = *(UINT32 *)arg;
406
+ goto do_int;
407
+ case FFI_TYPE_POINTER:
408
+ val = *(uintptr_t *)arg;
409
+ do_int:
410
+ *(n_gpr < MAX_GPRARGS ? p_gpr + n_gpr++ : p_ov + n_ov++) = val;
411
+ break;
412
+
413
+ case FFI_TYPE_UINT64:
414
+ case FFI_TYPE_SINT64:
415
+ #ifdef __s390x__
416
+ val = *(UINT64 *)arg;
417
+ goto do_int;
418
+ #else
419
+ if (n_gpr == MAX_GPRARGS-1)
420
+ n_gpr = MAX_GPRARGS;
421
+ if (n_gpr < MAX_GPRARGS)
422
+ p_gpr[n_gpr++] = ((UINT32 *) arg)[0],
423
+ p_gpr[n_gpr++] = ((UINT32 *) arg)[1];
424
+ else
425
+ p_ov[n_ov++] = ((UINT32 *) arg)[0],
426
+ p_ov[n_ov++] = ((UINT32 *) arg)[1];
427
+ #endif
428
+ break;
429
+
430
+ case FFI_TYPE_DOUBLE:
431
+ if (n_fpr < MAX_FPRARGS)
432
+ p_fpr[n_fpr++] = *(UINT64 *) arg;
433
+ else
434
+ {
435
+ #ifdef __s390x__
436
+ p_ov[n_ov++] = *(UINT64 *) arg;
437
+ #else
438
+ p_ov[n_ov++] = ((UINT32 *) arg)[0],
439
+ p_ov[n_ov++] = ((UINT32 *) arg)[1];
440
+ #endif
441
+ }
442
+ break;
443
+
444
+ case FFI_TYPE_FLOAT:
445
+ val = *(UINT32 *)arg;
446
+ if (n_fpr < MAX_FPRARGS)
447
+ p_fpr[n_fpr++] = (UINT64)val << 32;
448
+ else
449
+ p_ov[n_ov++] = val;
450
+ break;
451
+
452
+ case FFI_TYPE_STRUCT:
453
+ /* Check how a structure type is passed. */
454
+ type = ffi_check_struct_type (ty);
455
+ /* Some structures are passed via a type they contain. */
456
+ if (type != FFI_TYPE_POINTER)
457
+ goto restart;
458
+ /* ... otherwise, passed by reference. fallthru. */
459
+
460
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
461
+ case FFI_TYPE_LONGDOUBLE:
462
+ /* 16-byte long double is passed via reference. */
463
+ #endif
464
+ case FFI_TYPE_COMPLEX:
465
+ /* Complex types are passed via reference. */
466
+ p_struct -= ROUND_SIZE (ty->size);
467
+ memcpy (p_struct, arg, ty->size);
468
+ val = (uintptr_t)p_struct;
469
+ goto do_int;
470
+
471
+ default:
472
+ FFI_ASSERT (0);
473
+ break;
474
+ }
475
+ }
476
+
477
+ ffi_call_SYSV (frame, ret_type & FFI360_RET_MASK, rvalue, fn, closure);
478
+ }
479
+
480
+ void
481
+ ffi_call (ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
482
+ {
483
+ ffi_call_int(cif, fn, rvalue, avalue, NULL);
484
+ }
485
+
486
+ void
487
+ ffi_call_go (ffi_cif *cif, void (*fn)(void), void *rvalue,
488
+ void **avalue, void *closure)
489
+ {
490
+ ffi_call_int(cif, fn, rvalue, avalue, closure);
491
+ }
492
+
493
+ /*======================== End of Routine ============================*/
494
+
495
+ /*====================================================================*/
496
+ /* */
497
+ /* Name - ffi_closure_helper_SYSV. */
498
+ /* */
499
+ /* Function - Call a FFI closure target function. */
500
+ /* */
501
+ /*====================================================================*/
502
+
503
+ void FFI_HIDDEN
504
+ ffi_closure_helper_SYSV (ffi_cif *cif,
505
+ void (*fun)(ffi_cif*,void*,void**,void*),
506
+ void *user_data,
507
+ unsigned long *p_gpr,
508
+ unsigned long long *p_fpr,
509
+ unsigned long *p_ov)
510
+ {
511
+ unsigned long long ret_buffer;
512
+
513
+ void *rvalue = &ret_buffer;
514
+ void **avalue;
515
+ void **p_arg;
516
+
517
+ int n_gpr = 0;
518
+ int n_fpr = 0;
519
+ int n_ov = 0;
520
+
521
+ ffi_type **ptr;
522
+ int i;
523
+
524
+ /* Allocate buffer for argument list pointers. */
525
+ p_arg = avalue = alloca (cif->nargs * sizeof (void *));
526
+
527
+ /* If we returning a structure, pass the structure address
528
+ directly to the target function. Otherwise, have the target
529
+ function store the return value to the GPR save area. */
530
+ if (cif->flags & FFI390_RET_IN_MEM)
531
+ rvalue = (void *) p_gpr[n_gpr++];
532
+
533
+ /* Now for the arguments. */
534
+ for (ptr = cif->arg_types, i = cif->nargs; i > 0; i--, p_arg++, ptr++)
535
+ {
536
+ int deref_struct_pointer = 0;
537
+ int type = (*ptr)->type;
538
+
539
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
540
+ /* 16-byte long double is passed like a struct. */
541
+ if (type == FFI_TYPE_LONGDOUBLE)
542
+ type = FFI_TYPE_STRUCT;
543
+ #endif
544
+
545
+ /* Check how a structure type is passed. */
546
+ if (type == FFI_TYPE_STRUCT || type == FFI_TYPE_COMPLEX)
547
+ {
548
+ if (type == FFI_TYPE_COMPLEX)
549
+ type = FFI_TYPE_POINTER;
550
+ else
551
+ type = ffi_check_struct_type (*ptr);
552
+
553
+ /* If we pass the struct via pointer, remember to
554
+ retrieve the pointer later. */
555
+ if (type == FFI_TYPE_POINTER)
556
+ deref_struct_pointer = 1;
557
+ }
558
+
559
+ /* Pointers are passed like UINTs of the same size. */
560
+ if (type == FFI_TYPE_POINTER)
561
+ {
562
+ #ifdef __s390x__
563
+ type = FFI_TYPE_UINT64;
564
+ #else
565
+ type = FFI_TYPE_UINT32;
566
+ #endif
567
+ }
568
+
569
+ /* Now handle all primitive int/float data types. */
570
+ switch (type)
571
+ {
572
+ case FFI_TYPE_DOUBLE:
573
+ if (n_fpr < MAX_FPRARGS)
574
+ *p_arg = &p_fpr[n_fpr++];
575
+ else
576
+ *p_arg = &p_ov[n_ov],
577
+ n_ov += sizeof (double) / sizeof (long);
578
+ break;
579
+
580
+ case FFI_TYPE_FLOAT:
581
+ if (n_fpr < MAX_FPRARGS)
582
+ *p_arg = &p_fpr[n_fpr++];
583
+ else
584
+ *p_arg = (char *)&p_ov[n_ov++] + sizeof (long) - 4;
585
+ break;
586
+
587
+ case FFI_TYPE_UINT64:
588
+ case FFI_TYPE_SINT64:
589
+ #ifdef __s390x__
590
+ if (n_gpr < MAX_GPRARGS)
591
+ *p_arg = &p_gpr[n_gpr++];
592
+ else
593
+ *p_arg = &p_ov[n_ov++];
594
+ #else
595
+ if (n_gpr == MAX_GPRARGS-1)
596
+ n_gpr = MAX_GPRARGS;
597
+ if (n_gpr < MAX_GPRARGS)
598
+ *p_arg = &p_gpr[n_gpr], n_gpr += 2;
599
+ else
600
+ *p_arg = &p_ov[n_ov], n_ov += 2;
601
+ #endif
602
+ break;
603
+
604
+ case FFI_TYPE_INT:
605
+ case FFI_TYPE_UINT32:
606
+ case FFI_TYPE_SINT32:
607
+ if (n_gpr < MAX_GPRARGS)
608
+ *p_arg = (char *)&p_gpr[n_gpr++] + sizeof (long) - 4;
609
+ else
610
+ *p_arg = (char *)&p_ov[n_ov++] + sizeof (long) - 4;
611
+ break;
612
+
613
+ case FFI_TYPE_UINT16:
614
+ case FFI_TYPE_SINT16:
615
+ if (n_gpr < MAX_GPRARGS)
616
+ *p_arg = (char *)&p_gpr[n_gpr++] + sizeof (long) - 2;
617
+ else
618
+ *p_arg = (char *)&p_ov[n_ov++] + sizeof (long) - 2;
619
+ break;
620
+
621
+ case FFI_TYPE_UINT8:
622
+ case FFI_TYPE_SINT8:
623
+ if (n_gpr < MAX_GPRARGS)
624
+ *p_arg = (char *)&p_gpr[n_gpr++] + sizeof (long) - 1;
625
+ else
626
+ *p_arg = (char *)&p_ov[n_ov++] + sizeof (long) - 1;
627
+ break;
628
+
629
+ default:
630
+ FFI_ASSERT (0);
631
+ break;
632
+ }
633
+
634
+ /* If this is a struct passed via pointer, we need to
635
+ actually retrieve that pointer. */
636
+ if (deref_struct_pointer)
637
+ *p_arg = *(void **)*p_arg;
638
+ }
639
+
640
+
641
+ /* Call the target function. */
642
+ (fun) (cif, rvalue, avalue, user_data);
643
+
644
+ /* Convert the return value. */
645
+ switch (cif->rtype->type)
646
+ {
647
+ /* Void is easy, and so is struct. */
648
+ case FFI_TYPE_VOID:
649
+ case FFI_TYPE_STRUCT:
650
+ case FFI_TYPE_COMPLEX:
651
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
652
+ case FFI_TYPE_LONGDOUBLE:
653
+ #endif
654
+ break;
655
+
656
+ /* Floating point values are returned in fpr 0. */
657
+ case FFI_TYPE_FLOAT:
658
+ p_fpr[0] = (long long) *(unsigned int *) rvalue << 32;
659
+ break;
660
+
661
+ case FFI_TYPE_DOUBLE:
662
+ p_fpr[0] = *(unsigned long long *) rvalue;
663
+ break;
664
+
665
+ /* Integer values are returned in gpr 2 (and gpr 3
666
+ for 64-bit values on 31-bit machines). */
667
+ case FFI_TYPE_UINT64:
668
+ case FFI_TYPE_SINT64:
669
+ #ifdef __s390x__
670
+ p_gpr[0] = *(unsigned long *) rvalue;
671
+ #else
672
+ p_gpr[0] = ((unsigned long *) rvalue)[0],
673
+ p_gpr[1] = ((unsigned long *) rvalue)[1];
674
+ #endif
675
+ break;
676
+
677
+ case FFI_TYPE_POINTER:
678
+ case FFI_TYPE_UINT32:
679
+ case FFI_TYPE_UINT16:
680
+ case FFI_TYPE_UINT8:
681
+ p_gpr[0] = *(unsigned long *) rvalue;
682
+ break;
683
+
684
+ case FFI_TYPE_INT:
685
+ case FFI_TYPE_SINT32:
686
+ case FFI_TYPE_SINT16:
687
+ case FFI_TYPE_SINT8:
688
+ p_gpr[0] = *(signed long *) rvalue;
689
+ break;
690
+
691
+ default:
692
+ FFI_ASSERT (0);
693
+ break;
694
+ }
695
+ }
696
+
697
+ /*======================== End of Routine ============================*/
698
+
699
+ /*====================================================================*/
700
+ /* */
701
+ /* Name - ffi_prep_closure_loc. */
702
+ /* */
703
+ /* Function - Prepare a FFI closure. */
704
+ /* */
705
+ /*====================================================================*/
706
+
707
+ ffi_status
708
+ ffi_prep_closure_loc (ffi_closure *closure,
709
+ ffi_cif *cif,
710
+ void (*fun) (ffi_cif *, void *, void **, void *),
711
+ void *user_data,
712
+ void *codeloc)
713
+ {
714
+ static unsigned short const template[] = {
715
+ 0x0d10, /* basr %r1,0 */
716
+ #ifndef __s390x__
717
+ 0x9801, 0x1006, /* lm %r0,%r1,6(%r1) */
718
+ #else
719
+ 0xeb01, 0x100e, 0x0004, /* lmg %r0,%r1,14(%r1) */
720
+ #endif
721
+ 0x07f1 /* br %r1 */
722
+ };
723
+
724
+ unsigned long *tramp = (unsigned long *)&closure->tramp;
725
+
726
+ if (cif->abi != FFI_SYSV)
727
+ return FFI_BAD_ABI;
728
+
729
+ memcpy (tramp, template, sizeof(template));
730
+ tramp[2] = (unsigned long)codeloc;
731
+ tramp[3] = (unsigned long)&ffi_closure_SYSV;
732
+
733
+ closure->cif = cif;
734
+ closure->fun = fun;
735
+ closure->user_data = user_data;
736
+
737
+ return FFI_OK;
738
+ }
739
+
740
+ /*======================== End of Routine ============================*/
741
+
742
+ /* Build a Go language closure. */
743
+
744
+ ffi_status
745
+ ffi_prep_go_closure (ffi_go_closure *closure, ffi_cif *cif,
746
+ void (*fun)(ffi_cif*,void*,void**,void*))
747
+ {
748
+ if (cif->abi != FFI_SYSV)
749
+ return FFI_BAD_ABI;
750
+
751
+ closure->tramp = ffi_go_closure_SYSV;
752
+ closure->cif = cif;
753
+ closure->fun = fun;
754
+
755
+ return FFI_OK;
756
+ }