ffi 1.11.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (542) hide show
  1. checksums.yaml +7 -0
  2. data/.appveyor.yml +27 -0
  3. data/.gitignore +25 -0
  4. data/.gitmodules +4 -0
  5. data/.travis.yml +42 -0
  6. data/.yardopts +5 -0
  7. data/CHANGELOG.md +147 -0
  8. data/COPYING +49 -0
  9. data/Gemfile +15 -0
  10. data/LICENSE +24 -0
  11. data/LICENSE.SPECS +22 -0
  12. data/README.md +115 -0
  13. data/Rakefile +196 -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 +66 -0
  64. data/ext/ffi_c/libffi/.gitattributes +4 -0
  65. data/ext/ffi_c/libffi/.github/issue_template.md +10 -0
  66. data/ext/ffi_c/libffi/.gitignore +38 -0
  67. data/ext/ffi_c/libffi/.travis.yml +63 -0
  68. data/ext/ffi_c/libffi/.travis/ar-lib +270 -0
  69. data/ext/ffi_c/libffi/.travis/build-in-container.sh +22 -0
  70. data/ext/ffi_c/libffi/.travis/build.sh +110 -0
  71. data/ext/ffi_c/libffi/.travis/compile +351 -0
  72. data/ext/ffi_c/libffi/.travis/install.sh +43 -0
  73. data/ext/ffi_c/libffi/.travis/moxie-sim.exp +60 -0
  74. data/ext/ffi_c/libffi/.travis/site.exp +18 -0
  75. data/ext/ffi_c/libffi/ChangeLog.libffi +584 -0
  76. data/ext/ffi_c/libffi/ChangeLog.libffi-3.1 +6000 -0
  77. data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
  78. data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
  79. data/ext/ffi_c/libffi/LICENSE +21 -0
  80. data/ext/ffi_c/libffi/LICENSE-BUILDTOOLS +353 -0
  81. data/ext/ffi_c/libffi/Makefile.am +158 -0
  82. data/ext/ffi_c/libffi/README.md +470 -0
  83. data/ext/ffi_c/libffi/acinclude.m4 +479 -0
  84. data/ext/ffi_c/libffi/autogen.sh +2 -0
  85. data/ext/ffi_c/libffi/config.guess +1466 -0
  86. data/ext/ffi_c/libffi/config.sub +1836 -0
  87. data/ext/ffi_c/libffi/configure.ac +394 -0
  88. data/ext/ffi_c/libffi/configure.host +303 -0
  89. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +203 -0
  90. data/ext/ffi_c/libffi/include/Makefile.am +9 -0
  91. data/ext/ffi_c/libffi/include/ffi.h.in +515 -0
  92. data/ext/ffi_c/libffi/include/ffi_cfi.h +55 -0
  93. data/ext/ffi_c/libffi/include/ffi_common.h +153 -0
  94. data/ext/ffi_c/libffi/libffi.map.in +80 -0
  95. data/ext/ffi_c/libffi/libffi.pc.in +11 -0
  96. data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +1043 -0
  97. data/ext/ffi_c/libffi/libtool-version +29 -0
  98. data/ext/ffi_c/libffi/m4/asmcfi.m4 +13 -0
  99. data/ext/ffi_c/libffi/m4/ax_append_flag.m4 +71 -0
  100. data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +194 -0
  101. data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +122 -0
  102. data/ext/ffi_c/libffi/m4/ax_check_compile_flag.m4 +74 -0
  103. data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +87 -0
  104. data/ext/ffi_c/libffi/m4/ax_configure_args.m4 +70 -0
  105. data/ext/ffi_c/libffi/m4/ax_enable_builddir.m4 +302 -0
  106. data/ext/ffi_c/libffi/m4/ax_gcc_archflag.m4 +263 -0
  107. data/ext/ffi_c/libffi/m4/ax_gcc_x86_cpuid.m4 +89 -0
  108. data/ext/ffi_c/libffi/m4/ax_require_defined.m4 +37 -0
  109. data/ext/ffi_c/libffi/make_sunver.pl +333 -0
  110. data/ext/ffi_c/libffi/man/Makefile.am +8 -0
  111. data/ext/ffi_c/libffi/man/ffi.3 +41 -0
  112. data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
  113. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +68 -0
  114. data/ext/ffi_c/libffi/man/ffi_prep_cif_var.3 +73 -0
  115. data/ext/ffi_c/libffi/msvc_build/aarch64/Ffi_staticLib.sln +33 -0
  116. data/ext/ffi_c/libffi/msvc_build/aarch64/Ffi_staticLib.vcxproj +130 -0
  117. data/ext/ffi_c/libffi/msvc_build/aarch64/Ffi_staticLib.vcxproj.filters +57 -0
  118. data/ext/ffi_c/libffi/msvc_build/aarch64/Ffi_staticLib.vcxproj.user +4 -0
  119. data/ext/ffi_c/libffi/msvc_build/aarch64/aarch64_include/ffi.h +511 -0
  120. data/ext/ffi_c/libffi/msvcc.sh +353 -0
  121. data/ext/ffi_c/libffi/src/aarch64/ffi.c +1009 -0
  122. data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +92 -0
  123. data/ext/ffi_c/libffi/src/aarch64/internal.h +67 -0
  124. data/ext/ffi_c/libffi/src/aarch64/sysv.S +440 -0
  125. data/ext/ffi_c/libffi/src/aarch64/win64_armasm.S +506 -0
  126. data/ext/ffi_c/libffi/src/alpha/ffi.c +521 -0
  127. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +57 -0
  128. data/ext/ffi_c/libffi/src/alpha/internal.h +23 -0
  129. data/ext/ffi_c/libffi/src/alpha/osf.S +282 -0
  130. data/ext/ffi_c/libffi/src/arc/arcompact.S +135 -0
  131. data/ext/ffi_c/libffi/src/arc/ffi.c +266 -0
  132. data/ext/ffi_c/libffi/src/arc/ffitarget.h +53 -0
  133. data/ext/ffi_c/libffi/src/arm/ffi.c +854 -0
  134. data/ext/ffi_c/libffi/src/arm/ffitarget.h +89 -0
  135. data/ext/ffi_c/libffi/src/arm/internal.h +7 -0
  136. data/ext/ffi_c/libffi/src/arm/sysv.S +385 -0
  137. data/ext/ffi_c/libffi/src/arm/sysv_msvc_arm32.S +311 -0
  138. data/ext/ffi_c/libffi/src/avr32/ffi.c +423 -0
  139. data/ext/ffi_c/libffi/src/avr32/ffitarget.h +55 -0
  140. data/ext/ffi_c/libffi/src/avr32/sysv.S +208 -0
  141. data/ext/ffi_c/libffi/src/bfin/ffi.c +196 -0
  142. data/ext/ffi_c/libffi/src/bfin/ffitarget.h +43 -0
  143. data/ext/ffi_c/libffi/src/bfin/sysv.S +179 -0
  144. data/ext/ffi_c/libffi/src/closures.c +990 -0
  145. data/ext/ffi_c/libffi/src/cris/ffi.c +386 -0
  146. data/ext/ffi_c/libffi/src/cris/ffitarget.h +56 -0
  147. data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
  148. data/ext/ffi_c/libffi/src/debug.c +64 -0
  149. data/ext/ffi_c/libffi/src/dlmalloc.c +5166 -0
  150. data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
  151. data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
  152. data/ext/ffi_c/libffi/src/frv/ffitarget.h +62 -0
  153. data/ext/ffi_c/libffi/src/ia64/ffi.c +604 -0
  154. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +56 -0
  155. data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
  156. data/ext/ffi_c/libffi/src/ia64/unix.S +567 -0
  157. data/ext/ffi_c/libffi/src/java_raw_api.c +374 -0
  158. data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
  159. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +53 -0
  160. data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
  161. data/ext/ffi_c/libffi/src/m68k/ffi.c +362 -0
  162. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +54 -0
  163. data/ext/ffi_c/libffi/src/m68k/sysv.S +357 -0
  164. data/ext/ffi_c/libffi/src/m88k/ffi.c +400 -0
  165. data/ext/ffi_c/libffi/src/m88k/ffitarget.h +49 -0
  166. data/ext/ffi_c/libffi/src/m88k/obsd.S +209 -0
  167. data/ext/ffi_c/libffi/src/metag/ffi.c +330 -0
  168. data/ext/ffi_c/libffi/src/metag/ffitarget.h +53 -0
  169. data/ext/ffi_c/libffi/src/metag/sysv.S +311 -0
  170. data/ext/ffi_c/libffi/src/microblaze/ffi.c +321 -0
  171. data/ext/ffi_c/libffi/src/microblaze/ffitarget.h +53 -0
  172. data/ext/ffi_c/libffi/src/microblaze/sysv.S +302 -0
  173. data/ext/ffi_c/libffi/src/mips/ffi.c +1130 -0
  174. data/ext/ffi_c/libffi/src/mips/ffitarget.h +244 -0
  175. data/ext/ffi_c/libffi/src/mips/n32.S +663 -0
  176. data/ext/ffi_c/libffi/src/mips/o32.S +502 -0
  177. data/ext/ffi_c/libffi/src/moxie/eabi.S +101 -0
  178. data/ext/ffi_c/libffi/src/moxie/ffi.c +285 -0
  179. data/ext/ffi_c/libffi/src/moxie/ffitarget.h +52 -0
  180. data/ext/ffi_c/libffi/src/nios2/ffi.c +304 -0
  181. data/ext/ffi_c/libffi/src/nios2/ffitarget.h +52 -0
  182. data/ext/ffi_c/libffi/src/nios2/sysv.S +136 -0
  183. data/ext/ffi_c/libffi/src/or1k/ffi.c +328 -0
  184. data/ext/ffi_c/libffi/src/or1k/ffitarget.h +58 -0
  185. data/ext/ffi_c/libffi/src/or1k/sysv.S +107 -0
  186. data/ext/ffi_c/libffi/src/pa/ffi.c +719 -0
  187. data/ext/ffi_c/libffi/src/pa/ffitarget.h +85 -0
  188. data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
  189. data/ext/ffi_c/libffi/src/pa/linux.S +378 -0
  190. data/ext/ffi_c/libffi/src/powerpc/aix.S +566 -0
  191. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +694 -0
  192. data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
  193. data/ext/ffi_c/libffi/src/powerpc/darwin.S +378 -0
  194. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +571 -0
  195. data/ext/ffi_c/libffi/src/powerpc/ffi.c +174 -0
  196. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +1440 -0
  197. data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +1007 -0
  198. data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +94 -0
  199. data/ext/ffi_c/libffi/src/powerpc/ffi_sysv.c +923 -0
  200. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +198 -0
  201. data/ext/ffi_c/libffi/src/powerpc/linux64.S +228 -0
  202. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +488 -0
  203. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +397 -0
  204. data/ext/ffi_c/libffi/src/powerpc/sysv.S +175 -0
  205. data/ext/ffi_c/libffi/src/prep_cif.c +263 -0
  206. data/ext/ffi_c/libffi/src/raw_api.c +267 -0
  207. data/ext/ffi_c/libffi/src/riscv/ffi.c +481 -0
  208. data/ext/ffi_c/libffi/src/riscv/ffitarget.h +69 -0
  209. data/ext/ffi_c/libffi/src/riscv/sysv.S +293 -0
  210. data/ext/ffi_c/libffi/src/s390/ffi.c +756 -0
  211. data/ext/ffi_c/libffi/src/s390/ffitarget.h +70 -0
  212. data/ext/ffi_c/libffi/src/s390/internal.h +11 -0
  213. data/ext/ffi_c/libffi/src/s390/sysv.S +325 -0
  214. data/ext/ffi_c/libffi/src/sh/ffi.c +717 -0
  215. data/ext/ffi_c/libffi/src/sh/ffitarget.h +54 -0
  216. data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
  217. data/ext/ffi_c/libffi/src/sh64/ffi.c +469 -0
  218. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +58 -0
  219. data/ext/ffi_c/libffi/src/sh64/sysv.S +539 -0
  220. data/ext/ffi_c/libffi/src/sparc/ffi.c +468 -0
  221. data/ext/ffi_c/libffi/src/sparc/ffi64.c +608 -0
  222. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +81 -0
  223. data/ext/ffi_c/libffi/src/sparc/internal.h +26 -0
  224. data/ext/ffi_c/libffi/src/sparc/v8.S +443 -0
  225. data/ext/ffi_c/libffi/src/sparc/v9.S +440 -0
  226. data/ext/ffi_c/libffi/src/tile/ffi.c +355 -0
  227. data/ext/ffi_c/libffi/src/tile/ffitarget.h +65 -0
  228. data/ext/ffi_c/libffi/src/tile/tile.S +360 -0
  229. data/ext/ffi_c/libffi/src/types.c +108 -0
  230. data/ext/ffi_c/libffi/src/vax/elfbsd.S +195 -0
  231. data/ext/ffi_c/libffi/src/vax/ffi.c +276 -0
  232. data/ext/ffi_c/libffi/src/vax/ffitarget.h +49 -0
  233. data/ext/ffi_c/libffi/src/x86/asmnames.h +30 -0
  234. data/ext/ffi_c/libffi/src/x86/ffi.c +761 -0
  235. data/ext/ffi_c/libffi/src/x86/ffi64.c +886 -0
  236. data/ext/ffi_c/libffi/src/x86/ffitarget.h +147 -0
  237. data/ext/ffi_c/libffi/src/x86/ffiw64.c +311 -0
  238. data/ext/ffi_c/libffi/src/x86/internal.h +29 -0
  239. data/ext/ffi_c/libffi/src/x86/internal64.h +22 -0
  240. data/ext/ffi_c/libffi/src/x86/sysv.S +1129 -0
  241. data/ext/ffi_c/libffi/src/x86/sysv_intel.S +995 -0
  242. data/ext/ffi_c/libffi/src/x86/unix64.S +566 -0
  243. data/ext/ffi_c/libffi/src/x86/win64.S +237 -0
  244. data/ext/ffi_c/libffi/src/x86/win64_intel.S +237 -0
  245. data/ext/ffi_c/libffi/src/xtensa/ffi.c +298 -0
  246. data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +53 -0
  247. data/ext/ffi_c/libffi/src/xtensa/sysv.S +258 -0
  248. data/ext/ffi_c/libffi/stamp-h.in +1 -0
  249. data/ext/ffi_c/libffi/testsuite/Makefile.am +119 -0
  250. data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
  251. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +657 -0
  252. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +283 -0
  253. data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
  254. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/Makefile +28 -0
  255. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/README +78 -0
  256. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/alignof.h +50 -0
  257. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/bhaible.exp +58 -0
  258. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +1745 -0
  259. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-callback.c +2885 -0
  260. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/testcases.c +743 -0
  261. data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c +46 -0
  262. data/ext/ffi_c/libffi/testsuite/libffi.call/align_stdcall.c +46 -0
  263. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +43 -0
  264. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +89 -0
  265. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +81 -0
  266. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +81 -0
  267. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +82 -0
  268. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +89 -0
  269. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +92 -0
  270. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +90 -0
  271. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_loc_fn0.c +95 -0
  272. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_simple.c +55 -0
  273. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +94 -0
  274. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +95 -0
  275. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +96 -0
  276. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +102 -0
  277. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +89 -0
  278. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +91 -0
  279. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +93 -0
  280. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +113 -0
  281. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +90 -0
  282. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +95 -0
  283. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +90 -0
  284. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +90 -0
  285. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3float.c +95 -0
  286. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +98 -0
  287. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +90 -0
  288. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +109 -0
  289. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +98 -0
  290. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +124 -0
  291. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +113 -0
  292. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +99 -0
  293. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +117 -0
  294. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +97 -0
  295. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +88 -0
  296. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +90 -0
  297. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +91 -0
  298. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +93 -0
  299. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +91 -0
  300. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +92 -0
  301. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split.c +132 -0
  302. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c +115 -0
  303. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +95 -0
  304. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +91 -0
  305. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +91 -0
  306. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +92 -0
  307. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +91 -0
  308. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +91 -0
  309. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +93 -0
  310. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_dbls_struct.c +66 -0
  311. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +43 -0
  312. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c +61 -0
  313. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +42 -0
  314. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble.c +105 -0
  315. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble_va.c +61 -0
  316. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_args.c +70 -0
  317. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_float_double.c +55 -0
  318. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +74 -0
  319. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +74 -0
  320. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +86 -0
  321. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +91 -0
  322. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +74 -0
  323. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +86 -0
  324. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer.c +74 -0
  325. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer_stack.c +142 -0
  326. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +44 -0
  327. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +42 -0
  328. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +42 -0
  329. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_struct_va1.c +114 -0
  330. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +42 -0
  331. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar_va.c +44 -0
  332. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +43 -0
  333. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint_va.c +45 -0
  334. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulong_va.c +45 -0
  335. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +47 -0
  336. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +43 -0
  337. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort_va.c +44 -0
  338. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_abi.c +36 -0
  339. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c +26 -0
  340. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +138 -0
  341. data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
  342. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +60 -0
  343. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +61 -0
  344. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +74 -0
  345. data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
  346. data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +107 -0
  347. data/ext/ffi_c/libffi/testsuite/libffi.call/huge_struct.c +341 -0
  348. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +59 -0
  349. data/ext/ffi_c/libffi/testsuite/libffi.call/many2.c +57 -0
  350. data/ext/ffi_c/libffi/testsuite/libffi.call/many_double.c +70 -0
  351. data/ext/ffi_c/libffi/testsuite/libffi.call/many_mixed.c +78 -0
  352. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +52 -0
  353. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +152 -0
  354. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +161 -0
  355. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +134 -0
  356. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct11.c +121 -0
  357. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +110 -0
  358. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +111 -0
  359. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +111 -0
  360. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +112 -0
  361. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +131 -0
  362. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +111 -0
  363. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +131 -0
  364. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +131 -0
  365. data/ext/ffi_c/libffi/testsuite/libffi.call/offsets.c +46 -0
  366. data/ext/ffi_c/libffi/testsuite/libffi.call/pr1172638.c +127 -0
  367. data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +90 -0
  368. data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
  369. data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
  370. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +36 -0
  371. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
  372. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
  373. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
  374. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
  375. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
  376. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
  377. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
  378. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
  379. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +43 -0
  380. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
  381. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
  382. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
  383. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
  384. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large.c +145 -0
  385. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large2.c +148 -0
  386. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium.c +124 -0
  387. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium2.c +125 -0
  388. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
  389. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +49 -0
  390. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +49 -0
  391. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +55 -0
  392. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +67 -0
  393. data/ext/ffi_c/libffi/testsuite/libffi.call/struct10.c +57 -0
  394. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
  395. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +60 -0
  396. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +64 -0
  397. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +66 -0
  398. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
  399. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
  400. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +81 -0
  401. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +68 -0
  402. data/ext/ffi_c/libffi/testsuite/libffi.call/testclosure.c +70 -0
  403. data/ext/ffi_c/libffi/testsuite/libffi.call/uninitialized.c +61 -0
  404. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest.cc +117 -0
  405. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest_ffi_call.cc +54 -0
  406. data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +196 -0
  407. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +121 -0
  408. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +123 -0
  409. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +125 -0
  410. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex.inc +91 -0
  411. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_double.c +10 -0
  412. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_float.c +10 -0
  413. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +10 -0
  414. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex.inc +42 -0
  415. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_double.c +10 -0
  416. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_float.c +10 -0
  417. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +10 -0
  418. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct.inc +71 -0
  419. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +10 -0
  420. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +10 -0
  421. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +10 -0
  422. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va.inc +80 -0
  423. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c +10 -0
  424. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c +16 -0
  425. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +10 -0
  426. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.exp +36 -0
  427. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc +51 -0
  428. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc +7 -0
  429. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc +7 -0
  430. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +7 -0
  431. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c +10 -0
  432. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c +10 -0
  433. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c +86 -0
  434. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c +10 -0
  435. data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h +1 -0
  436. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc +78 -0
  437. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c +10 -0
  438. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c +10 -0
  439. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c +10 -0
  440. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc +37 -0
  441. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc +41 -0
  442. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_double.c +10 -0
  443. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_float.c +10 -0
  444. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +10 -0
  445. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2.inc +44 -0
  446. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_double.c +10 -0
  447. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_float.c +10 -0
  448. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +10 -0
  449. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_double.c +10 -0
  450. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c +10 -0
  451. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c +10 -0
  452. data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c +34 -0
  453. data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c +28 -0
  454. data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h +1 -0
  455. data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp +36 -0
  456. data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h +19 -0
  457. data/ext/ffi_c/rbffi.h +55 -0
  458. data/ext/ffi_c/rbffi_endian.h +59 -0
  459. data/ext/ffi_c/win32/stdbool.h +8 -0
  460. data/ext/ffi_c/win32/stdint.h +201 -0
  461. data/ffi.gemspec +43 -0
  462. data/lib/ffi.rb +20 -0
  463. data/lib/ffi/autopointer.rb +203 -0
  464. data/lib/ffi/buffer.rb +4 -0
  465. data/lib/ffi/callback.rb +4 -0
  466. data/lib/ffi/data_converter.rb +67 -0
  467. data/lib/ffi/enum.rb +296 -0
  468. data/lib/ffi/errno.rb +43 -0
  469. data/lib/ffi/ffi.rb +45 -0
  470. data/lib/ffi/io.rb +62 -0
  471. data/lib/ffi/library.rb +588 -0
  472. data/lib/ffi/managedstruct.rb +84 -0
  473. data/lib/ffi/memorypointer.rb +1 -0
  474. data/lib/ffi/platform.rb +175 -0
  475. data/lib/ffi/platform/aarch64-freebsd/types.conf +128 -0
  476. data/lib/ffi/platform/aarch64-freebsd12/types.conf +128 -0
  477. data/lib/ffi/platform/aarch64-linux/types.conf +104 -0
  478. data/lib/ffi/platform/arm-freebsd/types.conf +152 -0
  479. data/lib/ffi/platform/arm-freebsd12/types.conf +152 -0
  480. data/lib/ffi/platform/arm-linux/types.conf +104 -0
  481. data/lib/ffi/platform/i386-cygwin/types.conf +3 -0
  482. data/lib/ffi/platform/i386-darwin/types.conf +100 -0
  483. data/lib/ffi/platform/i386-freebsd/types.conf +152 -0
  484. data/lib/ffi/platform/i386-freebsd12/types.conf +152 -0
  485. data/lib/ffi/platform/i386-gnu/types.conf +107 -0
  486. data/lib/ffi/platform/i386-linux/types.conf +103 -0
  487. data/lib/ffi/platform/i386-netbsd/types.conf +126 -0
  488. data/lib/ffi/platform/i386-openbsd/types.conf +128 -0
  489. data/lib/ffi/platform/i386-solaris/types.conf +122 -0
  490. data/lib/ffi/platform/i386-windows/types.conf +105 -0
  491. data/lib/ffi/platform/ia64-linux/types.conf +104 -0
  492. data/lib/ffi/platform/mips-linux/types.conf +102 -0
  493. data/lib/ffi/platform/mips64-linux/types.conf +104 -0
  494. data/lib/ffi/platform/mips64el-linux/types.conf +104 -0
  495. data/lib/ffi/platform/mipsel-linux/types.conf +102 -0
  496. data/lib/ffi/platform/mipsisa32r6-linux/types.conf +102 -0
  497. data/lib/ffi/platform/mipsisa32r6el-linux/types.conf +102 -0
  498. data/lib/ffi/platform/mipsisa64r6-linux/types.conf +104 -0
  499. data/lib/ffi/platform/mipsisa64r6el-linux/types.conf +104 -0
  500. data/lib/ffi/platform/powerpc-aix/types.conf +180 -0
  501. data/lib/ffi/platform/powerpc-darwin/types.conf +100 -0
  502. data/lib/ffi/platform/powerpc-linux/types.conf +100 -0
  503. data/lib/ffi/platform/powerpc64-linux/types.conf +104 -0
  504. data/lib/ffi/platform/s390-linux/types.conf +102 -0
  505. data/lib/ffi/platform/s390x-linux/types.conf +102 -0
  506. data/lib/ffi/platform/sparc-linux/types.conf +102 -0
  507. data/lib/ffi/platform/sparc-solaris/types.conf +128 -0
  508. data/lib/ffi/platform/sparc64-linux/types.conf +102 -0
  509. data/lib/ffi/platform/sparcv9-solaris/types.conf +128 -0
  510. data/lib/ffi/platform/x86_64-cygwin/types.conf +3 -0
  511. data/lib/ffi/platform/x86_64-darwin/types.conf +126 -0
  512. data/lib/ffi/platform/x86_64-dragonflybsd/types.conf +148 -0
  513. data/lib/ffi/platform/x86_64-freebsd/types.conf +128 -0
  514. data/lib/ffi/platform/x86_64-freebsd12/types.conf +158 -0
  515. data/lib/ffi/platform/x86_64-linux/types.conf +111 -0
  516. data/lib/ffi/platform/x86_64-netbsd/types.conf +128 -0
  517. data/lib/ffi/platform/x86_64-openbsd/types.conf +134 -0
  518. data/lib/ffi/platform/x86_64-solaris/types.conf +122 -0
  519. data/lib/ffi/platform/x86_64-windows/types.conf +120 -0
  520. data/lib/ffi/pointer.rb +160 -0
  521. data/lib/ffi/struct.rb +311 -0
  522. data/lib/ffi/struct_by_reference.rb +72 -0
  523. data/lib/ffi/struct_layout.rb +96 -0
  524. data/lib/ffi/struct_layout_builder.rb +227 -0
  525. data/lib/ffi/tools/const_generator.rb +230 -0
  526. data/lib/ffi/tools/generator.rb +105 -0
  527. data/lib/ffi/tools/generator_task.rb +32 -0
  528. data/lib/ffi/tools/struct_generator.rb +194 -0
  529. data/lib/ffi/tools/types_generator.rb +135 -0
  530. data/lib/ffi/types.rb +194 -0
  531. data/lib/ffi/union.rb +43 -0
  532. data/lib/ffi/variadic.rb +78 -0
  533. data/lib/ffi/version.rb +3 -0
  534. data/samples/getlogin.rb +8 -0
  535. data/samples/getpid.rb +8 -0
  536. data/samples/gettimeofday.rb +18 -0
  537. data/samples/hello.rb +7 -0
  538. data/samples/inotify.rb +60 -0
  539. data/samples/pty.rb +76 -0
  540. data/samples/qsort.rb +21 -0
  541. data/samples/sample_helper.rb +6 -0
  542. metadata +677 -0
@@ -0,0 +1,886 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi64.c - Copyright (c) 2011, 2018 Anthony Green
3
+ Copyright (c) 2013 The Written Word, Inc.
4
+ Copyright (c) 2008, 2010 Red Hat, Inc.
5
+ Copyright (c) 2002, 2007 Bo Thorsen <bo@suse.de>
6
+
7
+ x86-64 Foreign Function Interface
8
+
9
+ Permission is hereby granted, free of charge, to any person obtaining
10
+ a copy of this software and associated documentation files (the
11
+ ``Software''), to deal in the Software without restriction, including
12
+ without limitation the rights to use, copy, modify, merge, publish,
13
+ distribute, sublicense, and/or sell copies of the Software, and to
14
+ permit persons to whom the Software is furnished to do so, subject to
15
+ the following conditions:
16
+
17
+ The above copyright notice and this permission notice shall be included
18
+ in all copies or substantial portions of the Software.
19
+
20
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
21
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
24
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
25
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
26
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
27
+ DEALINGS IN THE SOFTWARE.
28
+ ----------------------------------------------------------------------- */
29
+
30
+ #include <ffi.h>
31
+ #include <ffi_common.h>
32
+
33
+ #include <stdlib.h>
34
+ #include <stdarg.h>
35
+ #include <stdint.h>
36
+ #include "internal64.h"
37
+
38
+ #ifdef __x86_64__
39
+
40
+ #define MAX_GPR_REGS 6
41
+ #define MAX_SSE_REGS 8
42
+
43
+ #if defined(__INTEL_COMPILER)
44
+ #include "xmmintrin.h"
45
+ #define UINT128 __m128
46
+ #else
47
+ #if defined(__SUNPRO_C)
48
+ #include <sunmedia_types.h>
49
+ #define UINT128 __m128i
50
+ #else
51
+ #define UINT128 __int128_t
52
+ #endif
53
+ #endif
54
+
55
+ union big_int_union
56
+ {
57
+ UINT32 i32;
58
+ UINT64 i64;
59
+ UINT128 i128;
60
+ };
61
+
62
+ struct register_args
63
+ {
64
+ /* Registers for argument passing. */
65
+ UINT64 gpr[MAX_GPR_REGS];
66
+ union big_int_union sse[MAX_SSE_REGS];
67
+ UINT64 rax; /* ssecount */
68
+ UINT64 r10; /* static chain */
69
+ };
70
+
71
+ extern void ffi_call_unix64 (void *args, unsigned long bytes, unsigned flags,
72
+ void *raddr, void (*fnaddr)(void)) FFI_HIDDEN;
73
+
74
+ /* All reference to register classes here is identical to the code in
75
+ gcc/config/i386/i386.c. Do *not* change one without the other. */
76
+
77
+ /* Register class used for passing given 64bit part of the argument.
78
+ These represent classes as documented by the PS ABI, with the
79
+ exception of SSESF, SSEDF classes, that are basically SSE class,
80
+ just gcc will use SF or DFmode move instead of DImode to avoid
81
+ reformatting penalties.
82
+
83
+ Similary we play games with INTEGERSI_CLASS to use cheaper SImode moves
84
+ whenever possible (upper half does contain padding). */
85
+ enum x86_64_reg_class
86
+ {
87
+ X86_64_NO_CLASS,
88
+ X86_64_INTEGER_CLASS,
89
+ X86_64_INTEGERSI_CLASS,
90
+ X86_64_SSE_CLASS,
91
+ X86_64_SSESF_CLASS,
92
+ X86_64_SSEDF_CLASS,
93
+ X86_64_SSEUP_CLASS,
94
+ X86_64_X87_CLASS,
95
+ X86_64_X87UP_CLASS,
96
+ X86_64_COMPLEX_X87_CLASS,
97
+ X86_64_MEMORY_CLASS
98
+ };
99
+
100
+ #define MAX_CLASSES 4
101
+
102
+ #define SSE_CLASS_P(X) ((X) >= X86_64_SSE_CLASS && X <= X86_64_SSEUP_CLASS)
103
+
104
+ /* x86-64 register passing implementation. See x86-64 ABI for details. Goal
105
+ of this code is to classify each 8bytes of incoming argument by the register
106
+ class and assign registers accordingly. */
107
+
108
+ /* Return the union class of CLASS1 and CLASS2.
109
+ See the x86-64 PS ABI for details. */
110
+
111
+ static enum x86_64_reg_class
112
+ merge_classes (enum x86_64_reg_class class1, enum x86_64_reg_class class2)
113
+ {
114
+ /* Rule #1: If both classes are equal, this is the resulting class. */
115
+ if (class1 == class2)
116
+ return class1;
117
+
118
+ /* Rule #2: If one of the classes is NO_CLASS, the resulting class is
119
+ the other class. */
120
+ if (class1 == X86_64_NO_CLASS)
121
+ return class2;
122
+ if (class2 == X86_64_NO_CLASS)
123
+ return class1;
124
+
125
+ /* Rule #3: If one of the classes is MEMORY, the result is MEMORY. */
126
+ if (class1 == X86_64_MEMORY_CLASS || class2 == X86_64_MEMORY_CLASS)
127
+ return X86_64_MEMORY_CLASS;
128
+
129
+ /* Rule #4: If one of the classes is INTEGER, the result is INTEGER. */
130
+ if ((class1 == X86_64_INTEGERSI_CLASS && class2 == X86_64_SSESF_CLASS)
131
+ || (class2 == X86_64_INTEGERSI_CLASS && class1 == X86_64_SSESF_CLASS))
132
+ return X86_64_INTEGERSI_CLASS;
133
+ if (class1 == X86_64_INTEGER_CLASS || class1 == X86_64_INTEGERSI_CLASS
134
+ || class2 == X86_64_INTEGER_CLASS || class2 == X86_64_INTEGERSI_CLASS)
135
+ return X86_64_INTEGER_CLASS;
136
+
137
+ /* Rule #5: If one of the classes is X87, X87UP, or COMPLEX_X87 class,
138
+ MEMORY is used. */
139
+ if (class1 == X86_64_X87_CLASS
140
+ || class1 == X86_64_X87UP_CLASS
141
+ || class1 == X86_64_COMPLEX_X87_CLASS
142
+ || class2 == X86_64_X87_CLASS
143
+ || class2 == X86_64_X87UP_CLASS
144
+ || class2 == X86_64_COMPLEX_X87_CLASS)
145
+ return X86_64_MEMORY_CLASS;
146
+
147
+ /* Rule #6: Otherwise class SSE is used. */
148
+ return X86_64_SSE_CLASS;
149
+ }
150
+
151
+ /* Classify the argument of type TYPE and mode MODE.
152
+ CLASSES will be filled by the register class used to pass each word
153
+ of the operand. The number of words is returned. In case the parameter
154
+ should be passed in memory, 0 is returned. As a special case for zero
155
+ sized containers, classes[0] will be NO_CLASS and 1 is returned.
156
+
157
+ See the x86-64 PS ABI for details.
158
+ */
159
+ static size_t
160
+ classify_argument (ffi_type *type, enum x86_64_reg_class classes[],
161
+ size_t byte_offset)
162
+ {
163
+ switch (type->type)
164
+ {
165
+ case FFI_TYPE_UINT8:
166
+ case FFI_TYPE_SINT8:
167
+ case FFI_TYPE_UINT16:
168
+ case FFI_TYPE_SINT16:
169
+ case FFI_TYPE_UINT32:
170
+ case FFI_TYPE_SINT32:
171
+ case FFI_TYPE_UINT64:
172
+ case FFI_TYPE_SINT64:
173
+ case FFI_TYPE_POINTER:
174
+ do_integer:
175
+ {
176
+ size_t size = byte_offset + type->size;
177
+
178
+ if (size <= 4)
179
+ {
180
+ classes[0] = X86_64_INTEGERSI_CLASS;
181
+ return 1;
182
+ }
183
+ else if (size <= 8)
184
+ {
185
+ classes[0] = X86_64_INTEGER_CLASS;
186
+ return 1;
187
+ }
188
+ else if (size <= 12)
189
+ {
190
+ classes[0] = X86_64_INTEGER_CLASS;
191
+ classes[1] = X86_64_INTEGERSI_CLASS;
192
+ return 2;
193
+ }
194
+ else if (size <= 16)
195
+ {
196
+ classes[0] = classes[1] = X86_64_INTEGER_CLASS;
197
+ return 2;
198
+ }
199
+ else
200
+ FFI_ASSERT (0);
201
+ }
202
+ case FFI_TYPE_FLOAT:
203
+ if (!(byte_offset % 8))
204
+ classes[0] = X86_64_SSESF_CLASS;
205
+ else
206
+ classes[0] = X86_64_SSE_CLASS;
207
+ return 1;
208
+ case FFI_TYPE_DOUBLE:
209
+ classes[0] = X86_64_SSEDF_CLASS;
210
+ return 1;
211
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
212
+ case FFI_TYPE_LONGDOUBLE:
213
+ classes[0] = X86_64_X87_CLASS;
214
+ classes[1] = X86_64_X87UP_CLASS;
215
+ return 2;
216
+ #endif
217
+ case FFI_TYPE_STRUCT:
218
+ {
219
+ const size_t UNITS_PER_WORD = 8;
220
+ size_t words = (type->size + UNITS_PER_WORD - 1) / UNITS_PER_WORD;
221
+ ffi_type **ptr;
222
+ unsigned int i;
223
+ enum x86_64_reg_class subclasses[MAX_CLASSES];
224
+
225
+ /* If the struct is larger than 32 bytes, pass it on the stack. */
226
+ if (type->size > 32)
227
+ return 0;
228
+
229
+ for (i = 0; i < words; i++)
230
+ classes[i] = X86_64_NO_CLASS;
231
+
232
+ /* Zero sized arrays or structures are NO_CLASS. We return 0 to
233
+ signalize memory class, so handle it as special case. */
234
+ if (!words)
235
+ {
236
+ case FFI_TYPE_VOID:
237
+ classes[0] = X86_64_NO_CLASS;
238
+ return 1;
239
+ }
240
+
241
+ /* Merge the fields of structure. */
242
+ for (ptr = type->elements; *ptr != NULL; ptr++)
243
+ {
244
+ size_t num;
245
+
246
+ byte_offset = FFI_ALIGN (byte_offset, (*ptr)->alignment);
247
+
248
+ num = classify_argument (*ptr, subclasses, byte_offset % 8);
249
+ if (num == 0)
250
+ return 0;
251
+ for (i = 0; i < num; i++)
252
+ {
253
+ size_t pos = byte_offset / 8;
254
+ classes[i + pos] =
255
+ merge_classes (subclasses[i], classes[i + pos]);
256
+ }
257
+
258
+ byte_offset += (*ptr)->size;
259
+ }
260
+
261
+ if (words > 2)
262
+ {
263
+ /* When size > 16 bytes, if the first one isn't
264
+ X86_64_SSE_CLASS or any other ones aren't
265
+ X86_64_SSEUP_CLASS, everything should be passed in
266
+ memory. */
267
+ if (classes[0] != X86_64_SSE_CLASS)
268
+ return 0;
269
+
270
+ for (i = 1; i < words; i++)
271
+ if (classes[i] != X86_64_SSEUP_CLASS)
272
+ return 0;
273
+ }
274
+
275
+ /* Final merger cleanup. */
276
+ for (i = 0; i < words; i++)
277
+ {
278
+ /* If one class is MEMORY, everything should be passed in
279
+ memory. */
280
+ if (classes[i] == X86_64_MEMORY_CLASS)
281
+ return 0;
282
+
283
+ /* The X86_64_SSEUP_CLASS should be always preceded by
284
+ X86_64_SSE_CLASS or X86_64_SSEUP_CLASS. */
285
+ if (i > 1 && classes[i] == X86_64_SSEUP_CLASS
286
+ && classes[i - 1] != X86_64_SSE_CLASS
287
+ && classes[i - 1] != X86_64_SSEUP_CLASS)
288
+ {
289
+ /* The first one should never be X86_64_SSEUP_CLASS. */
290
+ FFI_ASSERT (i != 0);
291
+ classes[i] = X86_64_SSE_CLASS;
292
+ }
293
+
294
+ /* If X86_64_X87UP_CLASS isn't preceded by X86_64_X87_CLASS,
295
+ everything should be passed in memory. */
296
+ if (i > 1 && classes[i] == X86_64_X87UP_CLASS
297
+ && (classes[i - 1] != X86_64_X87_CLASS))
298
+ {
299
+ /* The first one should never be X86_64_X87UP_CLASS. */
300
+ FFI_ASSERT (i != 0);
301
+ return 0;
302
+ }
303
+ }
304
+ return words;
305
+ }
306
+ case FFI_TYPE_COMPLEX:
307
+ {
308
+ ffi_type *inner = type->elements[0];
309
+ switch (inner->type)
310
+ {
311
+ case FFI_TYPE_INT:
312
+ case FFI_TYPE_UINT8:
313
+ case FFI_TYPE_SINT8:
314
+ case FFI_TYPE_UINT16:
315
+ case FFI_TYPE_SINT16:
316
+ case FFI_TYPE_UINT32:
317
+ case FFI_TYPE_SINT32:
318
+ case FFI_TYPE_UINT64:
319
+ case FFI_TYPE_SINT64:
320
+ goto do_integer;
321
+
322
+ case FFI_TYPE_FLOAT:
323
+ classes[0] = X86_64_SSE_CLASS;
324
+ if (byte_offset % 8)
325
+ {
326
+ classes[1] = X86_64_SSESF_CLASS;
327
+ return 2;
328
+ }
329
+ return 1;
330
+ case FFI_TYPE_DOUBLE:
331
+ classes[0] = classes[1] = X86_64_SSEDF_CLASS;
332
+ return 2;
333
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
334
+ case FFI_TYPE_LONGDOUBLE:
335
+ classes[0] = X86_64_COMPLEX_X87_CLASS;
336
+ return 1;
337
+ #endif
338
+ }
339
+ }
340
+ }
341
+ abort();
342
+ }
343
+
344
+ /* Examine the argument and return set number of register required in each
345
+ class. Return zero iff parameter should be passed in memory, otherwise
346
+ the number of registers. */
347
+
348
+ static size_t
349
+ examine_argument (ffi_type *type, enum x86_64_reg_class classes[MAX_CLASSES],
350
+ _Bool in_return, int *pngpr, int *pnsse)
351
+ {
352
+ size_t n;
353
+ unsigned int i;
354
+ int ngpr, nsse;
355
+
356
+ n = classify_argument (type, classes, 0);
357
+ if (n == 0)
358
+ return 0;
359
+
360
+ ngpr = nsse = 0;
361
+ for (i = 0; i < n; ++i)
362
+ switch (classes[i])
363
+ {
364
+ case X86_64_INTEGER_CLASS:
365
+ case X86_64_INTEGERSI_CLASS:
366
+ ngpr++;
367
+ break;
368
+ case X86_64_SSE_CLASS:
369
+ case X86_64_SSESF_CLASS:
370
+ case X86_64_SSEDF_CLASS:
371
+ nsse++;
372
+ break;
373
+ case X86_64_NO_CLASS:
374
+ case X86_64_SSEUP_CLASS:
375
+ break;
376
+ case X86_64_X87_CLASS:
377
+ case X86_64_X87UP_CLASS:
378
+ case X86_64_COMPLEX_X87_CLASS:
379
+ return in_return != 0;
380
+ default:
381
+ abort ();
382
+ }
383
+
384
+ *pngpr = ngpr;
385
+ *pnsse = nsse;
386
+
387
+ return n;
388
+ }
389
+
390
+ /* Perform machine dependent cif processing. */
391
+
392
+ #ifndef __ILP32__
393
+ extern ffi_status
394
+ ffi_prep_cif_machdep_efi64(ffi_cif *cif);
395
+ #endif
396
+
397
+ ffi_status FFI_HIDDEN
398
+ ffi_prep_cif_machdep (ffi_cif *cif)
399
+ {
400
+ int gprcount, ssecount, i, avn, ngpr, nsse;
401
+ unsigned flags;
402
+ enum x86_64_reg_class classes[MAX_CLASSES];
403
+ size_t bytes, n, rtype_size;
404
+ ffi_type *rtype;
405
+
406
+ #ifndef __ILP32__
407
+ if (cif->abi == FFI_EFI64 || cif->abi == FFI_GNUW64)
408
+ return ffi_prep_cif_machdep_efi64(cif);
409
+ #endif
410
+ if (cif->abi != FFI_UNIX64)
411
+ return FFI_BAD_ABI;
412
+
413
+ gprcount = ssecount = 0;
414
+
415
+ rtype = cif->rtype;
416
+ rtype_size = rtype->size;
417
+ switch (rtype->type)
418
+ {
419
+ case FFI_TYPE_VOID:
420
+ flags = UNIX64_RET_VOID;
421
+ break;
422
+ case FFI_TYPE_UINT8:
423
+ flags = UNIX64_RET_UINT8;
424
+ break;
425
+ case FFI_TYPE_SINT8:
426
+ flags = UNIX64_RET_SINT8;
427
+ break;
428
+ case FFI_TYPE_UINT16:
429
+ flags = UNIX64_RET_UINT16;
430
+ break;
431
+ case FFI_TYPE_SINT16:
432
+ flags = UNIX64_RET_SINT16;
433
+ break;
434
+ case FFI_TYPE_UINT32:
435
+ flags = UNIX64_RET_UINT32;
436
+ break;
437
+ case FFI_TYPE_INT:
438
+ case FFI_TYPE_SINT32:
439
+ flags = UNIX64_RET_SINT32;
440
+ break;
441
+ case FFI_TYPE_UINT64:
442
+ case FFI_TYPE_SINT64:
443
+ flags = UNIX64_RET_INT64;
444
+ break;
445
+ case FFI_TYPE_POINTER:
446
+ flags = (sizeof(void *) == 4 ? UNIX64_RET_UINT32 : UNIX64_RET_INT64);
447
+ break;
448
+ case FFI_TYPE_FLOAT:
449
+ flags = UNIX64_RET_XMM32;
450
+ break;
451
+ case FFI_TYPE_DOUBLE:
452
+ flags = UNIX64_RET_XMM64;
453
+ break;
454
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
455
+ case FFI_TYPE_LONGDOUBLE:
456
+ flags = UNIX64_RET_X87;
457
+ break;
458
+ #endif
459
+ case FFI_TYPE_STRUCT:
460
+ n = examine_argument (cif->rtype, classes, 1, &ngpr, &nsse);
461
+ if (n == 0)
462
+ {
463
+ /* The return value is passed in memory. A pointer to that
464
+ memory is the first argument. Allocate a register for it. */
465
+ gprcount++;
466
+ /* We don't have to do anything in asm for the return. */
467
+ flags = UNIX64_RET_VOID | UNIX64_FLAG_RET_IN_MEM;
468
+ }
469
+ else
470
+ {
471
+ _Bool sse0 = SSE_CLASS_P (classes[0]);
472
+
473
+ if (rtype_size == 4 && sse0)
474
+ flags = UNIX64_RET_XMM32;
475
+ else if (rtype_size == 8)
476
+ flags = sse0 ? UNIX64_RET_XMM64 : UNIX64_RET_INT64;
477
+ else
478
+ {
479
+ _Bool sse1 = n == 2 && SSE_CLASS_P (classes[1]);
480
+ if (sse0 && sse1)
481
+ flags = UNIX64_RET_ST_XMM0_XMM1;
482
+ else if (sse0)
483
+ flags = UNIX64_RET_ST_XMM0_RAX;
484
+ else if (sse1)
485
+ flags = UNIX64_RET_ST_RAX_XMM0;
486
+ else
487
+ flags = UNIX64_RET_ST_RAX_RDX;
488
+ flags |= rtype_size << UNIX64_SIZE_SHIFT;
489
+ }
490
+ }
491
+ break;
492
+ case FFI_TYPE_COMPLEX:
493
+ switch (rtype->elements[0]->type)
494
+ {
495
+ case FFI_TYPE_UINT8:
496
+ case FFI_TYPE_SINT8:
497
+ case FFI_TYPE_UINT16:
498
+ case FFI_TYPE_SINT16:
499
+ case FFI_TYPE_INT:
500
+ case FFI_TYPE_UINT32:
501
+ case FFI_TYPE_SINT32:
502
+ case FFI_TYPE_UINT64:
503
+ case FFI_TYPE_SINT64:
504
+ flags = UNIX64_RET_ST_RAX_RDX | ((unsigned) rtype_size << UNIX64_SIZE_SHIFT);
505
+ break;
506
+ case FFI_TYPE_FLOAT:
507
+ flags = UNIX64_RET_XMM64;
508
+ break;
509
+ case FFI_TYPE_DOUBLE:
510
+ flags = UNIX64_RET_ST_XMM0_XMM1 | (16 << UNIX64_SIZE_SHIFT);
511
+ break;
512
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
513
+ case FFI_TYPE_LONGDOUBLE:
514
+ flags = UNIX64_RET_X87_2;
515
+ break;
516
+ #endif
517
+ default:
518
+ return FFI_BAD_TYPEDEF;
519
+ }
520
+ break;
521
+ default:
522
+ return FFI_BAD_TYPEDEF;
523
+ }
524
+
525
+ /* Go over all arguments and determine the way they should be passed.
526
+ If it's in a register and there is space for it, let that be so. If
527
+ not, add it's size to the stack byte count. */
528
+ for (bytes = 0, i = 0, avn = cif->nargs; i < avn; i++)
529
+ {
530
+ if (examine_argument (cif->arg_types[i], classes, 0, &ngpr, &nsse) == 0
531
+ || gprcount + ngpr > MAX_GPR_REGS
532
+ || ssecount + nsse > MAX_SSE_REGS)
533
+ {
534
+ long align = cif->arg_types[i]->alignment;
535
+
536
+ if (align < 8)
537
+ align = 8;
538
+
539
+ bytes = FFI_ALIGN (bytes, align);
540
+ bytes += cif->arg_types[i]->size;
541
+ }
542
+ else
543
+ {
544
+ gprcount += ngpr;
545
+ ssecount += nsse;
546
+ }
547
+ }
548
+ if (ssecount)
549
+ flags |= UNIX64_FLAG_XMM_ARGS;
550
+
551
+ cif->flags = flags;
552
+ cif->bytes = (unsigned) FFI_ALIGN (bytes, 8);
553
+
554
+ return FFI_OK;
555
+ }
556
+
557
+ static void
558
+ ffi_call_int (ffi_cif *cif, void (*fn)(void), void *rvalue,
559
+ void **avalue, void *closure)
560
+ {
561
+ enum x86_64_reg_class classes[MAX_CLASSES];
562
+ char *stack, *argp;
563
+ ffi_type **arg_types;
564
+ int gprcount, ssecount, ngpr, nsse, i, avn, flags;
565
+ struct register_args *reg_args;
566
+
567
+ /* Can't call 32-bit mode from 64-bit mode. */
568
+ FFI_ASSERT (cif->abi == FFI_UNIX64);
569
+
570
+ /* If the return value is a struct and we don't have a return value
571
+ address then we need to make one. Otherwise we can ignore it. */
572
+ flags = cif->flags;
573
+ if (rvalue == NULL)
574
+ {
575
+ if (flags & UNIX64_FLAG_RET_IN_MEM)
576
+ rvalue = alloca (cif->rtype->size);
577
+ else
578
+ flags = UNIX64_RET_VOID;
579
+ }
580
+
581
+ /* Allocate the space for the arguments, plus 4 words of temp space. */
582
+ stack = alloca (sizeof (struct register_args) + cif->bytes + 4*8);
583
+ reg_args = (struct register_args *) stack;
584
+ argp = stack + sizeof (struct register_args);
585
+
586
+ reg_args->r10 = (uintptr_t) closure;
587
+
588
+ gprcount = ssecount = 0;
589
+
590
+ /* If the return value is passed in memory, add the pointer as the
591
+ first integer argument. */
592
+ if (flags & UNIX64_FLAG_RET_IN_MEM)
593
+ reg_args->gpr[gprcount++] = (unsigned long) rvalue;
594
+
595
+ avn = cif->nargs;
596
+ arg_types = cif->arg_types;
597
+
598
+ for (i = 0; i < avn; ++i)
599
+ {
600
+ size_t n, size = arg_types[i]->size;
601
+
602
+ n = examine_argument (arg_types[i], classes, 0, &ngpr, &nsse);
603
+ if (n == 0
604
+ || gprcount + ngpr > MAX_GPR_REGS
605
+ || ssecount + nsse > MAX_SSE_REGS)
606
+ {
607
+ long align = arg_types[i]->alignment;
608
+
609
+ /* Stack arguments are *always* at least 8 byte aligned. */
610
+ if (align < 8)
611
+ align = 8;
612
+
613
+ /* Pass this argument in memory. */
614
+ argp = (void *) FFI_ALIGN (argp, align);
615
+ memcpy (argp, avalue[i], size);
616
+ argp += size;
617
+ }
618
+ else
619
+ {
620
+ /* The argument is passed entirely in registers. */
621
+ char *a = (char *) avalue[i];
622
+ unsigned int j;
623
+
624
+ for (j = 0; j < n; j++, a += 8, size -= 8)
625
+ {
626
+ switch (classes[j])
627
+ {
628
+ case X86_64_NO_CLASS:
629
+ case X86_64_SSEUP_CLASS:
630
+ break;
631
+ case X86_64_INTEGER_CLASS:
632
+ case X86_64_INTEGERSI_CLASS:
633
+ /* Sign-extend integer arguments passed in general
634
+ purpose registers, to cope with the fact that
635
+ LLVM incorrectly assumes that this will be done
636
+ (the x86-64 PS ABI does not specify this). */
637
+ switch (arg_types[i]->type)
638
+ {
639
+ case FFI_TYPE_SINT8:
640
+ reg_args->gpr[gprcount] = (SINT64) *((SINT8 *) a);
641
+ break;
642
+ case FFI_TYPE_SINT16:
643
+ reg_args->gpr[gprcount] = (SINT64) *((SINT16 *) a);
644
+ break;
645
+ case FFI_TYPE_SINT32:
646
+ reg_args->gpr[gprcount] = (SINT64) *((SINT32 *) a);
647
+ break;
648
+ default:
649
+ reg_args->gpr[gprcount] = 0;
650
+ memcpy (&reg_args->gpr[gprcount], a, size);
651
+ }
652
+ gprcount++;
653
+ break;
654
+ case X86_64_SSE_CLASS:
655
+ case X86_64_SSEDF_CLASS:
656
+ memcpy (&reg_args->sse[ssecount++].i64, a, sizeof(UINT64));
657
+ break;
658
+ case X86_64_SSESF_CLASS:
659
+ memcpy (&reg_args->sse[ssecount++].i32, a, sizeof(UINT32));
660
+ break;
661
+ default:
662
+ abort();
663
+ }
664
+ }
665
+ }
666
+ }
667
+ reg_args->rax = ssecount;
668
+
669
+ ffi_call_unix64 (stack, cif->bytes + sizeof (struct register_args),
670
+ flags, rvalue, fn);
671
+ }
672
+
673
+ #ifndef __ILP32__
674
+ extern void
675
+ ffi_call_efi64(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue);
676
+ #endif
677
+
678
+ void
679
+ ffi_call (ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
680
+ {
681
+ #ifndef __ILP32__
682
+ if (cif->abi == FFI_EFI64 || cif->abi == FFI_GNUW64)
683
+ {
684
+ ffi_call_efi64(cif, fn, rvalue, avalue);
685
+ return;
686
+ }
687
+ #endif
688
+ ffi_call_int (cif, fn, rvalue, avalue, NULL);
689
+ }
690
+
691
+ #ifndef __ILP32__
692
+ extern void
693
+ ffi_call_go_efi64(ffi_cif *cif, void (*fn)(void), void *rvalue,
694
+ void **avalue, void *closure);
695
+ #endif
696
+
697
+ void
698
+ ffi_call_go (ffi_cif *cif, void (*fn)(void), void *rvalue,
699
+ void **avalue, void *closure)
700
+ {
701
+ #ifndef __ILP32__
702
+ if (cif->abi == FFI_EFI64 || cif->abi == FFI_GNUW64)
703
+ {
704
+ ffi_call_go_efi64(cif, fn, rvalue, avalue, closure);
705
+ return;
706
+ }
707
+ #endif
708
+ ffi_call_int (cif, fn, rvalue, avalue, closure);
709
+ }
710
+
711
+
712
+ extern void ffi_closure_unix64(void) FFI_HIDDEN;
713
+ extern void ffi_closure_unix64_sse(void) FFI_HIDDEN;
714
+
715
+ #ifndef __ILP32__
716
+ extern ffi_status
717
+ ffi_prep_closure_loc_efi64(ffi_closure* closure,
718
+ ffi_cif* cif,
719
+ void (*fun)(ffi_cif*, void*, void**, void*),
720
+ void *user_data,
721
+ void *codeloc);
722
+ #endif
723
+
724
+ ffi_status
725
+ ffi_prep_closure_loc (ffi_closure* closure,
726
+ ffi_cif* cif,
727
+ void (*fun)(ffi_cif*, void*, void**, void*),
728
+ void *user_data,
729
+ void *codeloc)
730
+ {
731
+ static const unsigned char trampoline[16] = {
732
+ /* leaq -0x7(%rip),%r10 # 0x0 */
733
+ 0x4c, 0x8d, 0x15, 0xf9, 0xff, 0xff, 0xff,
734
+ /* jmpq *0x3(%rip) # 0x10 */
735
+ 0xff, 0x25, 0x03, 0x00, 0x00, 0x00,
736
+ /* nopl (%rax) */
737
+ 0x0f, 0x1f, 0x00
738
+ };
739
+ void (*dest)(void);
740
+ char *tramp = closure->tramp;
741
+
742
+ #ifndef __ILP32__
743
+ if (cif->abi == FFI_EFI64 || cif->abi == FFI_GNUW64)
744
+ return ffi_prep_closure_loc_efi64(closure, cif, fun, user_data, codeloc);
745
+ #endif
746
+ if (cif->abi != FFI_UNIX64)
747
+ return FFI_BAD_ABI;
748
+
749
+ if (cif->flags & UNIX64_FLAG_XMM_ARGS)
750
+ dest = ffi_closure_unix64_sse;
751
+ else
752
+ dest = ffi_closure_unix64;
753
+
754
+ memcpy (tramp, trampoline, sizeof(trampoline));
755
+ *(UINT64 *)(tramp + 16) = (uintptr_t)dest;
756
+
757
+ closure->cif = cif;
758
+ closure->fun = fun;
759
+ closure->user_data = user_data;
760
+
761
+ return FFI_OK;
762
+ }
763
+
764
+ int FFI_HIDDEN
765
+ ffi_closure_unix64_inner(ffi_cif *cif,
766
+ void (*fun)(ffi_cif*, void*, void**, void*),
767
+ void *user_data,
768
+ void *rvalue,
769
+ struct register_args *reg_args,
770
+ char *argp)
771
+ {
772
+ void **avalue;
773
+ ffi_type **arg_types;
774
+ long i, avn;
775
+ int gprcount, ssecount, ngpr, nsse;
776
+ int flags;
777
+
778
+ avn = cif->nargs;
779
+ flags = cif->flags;
780
+ avalue = alloca(avn * sizeof(void *));
781
+ gprcount = ssecount = 0;
782
+
783
+ if (flags & UNIX64_FLAG_RET_IN_MEM)
784
+ {
785
+ /* On return, %rax will contain the address that was passed
786
+ by the caller in %rdi. */
787
+ void *r = (void *)(uintptr_t)reg_args->gpr[gprcount++];
788
+ *(void **)rvalue = r;
789
+ rvalue = r;
790
+ flags = (sizeof(void *) == 4 ? UNIX64_RET_UINT32 : UNIX64_RET_INT64);
791
+ }
792
+
793
+ arg_types = cif->arg_types;
794
+ for (i = 0; i < avn; ++i)
795
+ {
796
+ enum x86_64_reg_class classes[MAX_CLASSES];
797
+ size_t n;
798
+
799
+ n = examine_argument (arg_types[i], classes, 0, &ngpr, &nsse);
800
+ if (n == 0
801
+ || gprcount + ngpr > MAX_GPR_REGS
802
+ || ssecount + nsse > MAX_SSE_REGS)
803
+ {
804
+ long align = arg_types[i]->alignment;
805
+
806
+ /* Stack arguments are *always* at least 8 byte aligned. */
807
+ if (align < 8)
808
+ align = 8;
809
+
810
+ /* Pass this argument in memory. */
811
+ argp = (void *) FFI_ALIGN (argp, align);
812
+ avalue[i] = argp;
813
+ argp += arg_types[i]->size;
814
+ }
815
+ /* If the argument is in a single register, or two consecutive
816
+ integer registers, then we can use that address directly. */
817
+ else if (n == 1
818
+ || (n == 2 && !(SSE_CLASS_P (classes[0])
819
+ || SSE_CLASS_P (classes[1]))))
820
+ {
821
+ /* The argument is in a single register. */
822
+ if (SSE_CLASS_P (classes[0]))
823
+ {
824
+ avalue[i] = &reg_args->sse[ssecount];
825
+ ssecount += n;
826
+ }
827
+ else
828
+ {
829
+ avalue[i] = &reg_args->gpr[gprcount];
830
+ gprcount += n;
831
+ }
832
+ }
833
+ /* Otherwise, allocate space to make them consecutive. */
834
+ else
835
+ {
836
+ char *a = alloca (16);
837
+ unsigned int j;
838
+
839
+ avalue[i] = a;
840
+ for (j = 0; j < n; j++, a += 8)
841
+ {
842
+ if (SSE_CLASS_P (classes[j]))
843
+ memcpy (a, &reg_args->sse[ssecount++], 8);
844
+ else
845
+ memcpy (a, &reg_args->gpr[gprcount++], 8);
846
+ }
847
+ }
848
+ }
849
+
850
+ /* Invoke the closure. */
851
+ fun (cif, rvalue, avalue, user_data);
852
+
853
+ /* Tell assembly how to perform return type promotions. */
854
+ return flags;
855
+ }
856
+
857
+ extern void ffi_go_closure_unix64(void) FFI_HIDDEN;
858
+ extern void ffi_go_closure_unix64_sse(void) FFI_HIDDEN;
859
+
860
+ #ifndef __ILP32__
861
+ extern ffi_status
862
+ ffi_prep_go_closure_efi64(ffi_go_closure* closure, ffi_cif* cif,
863
+ void (*fun)(ffi_cif*, void*, void**, void*));
864
+ #endif
865
+
866
+ ffi_status
867
+ ffi_prep_go_closure (ffi_go_closure* closure, ffi_cif* cif,
868
+ void (*fun)(ffi_cif*, void*, void**, void*))
869
+ {
870
+ #ifndef __ILP32__
871
+ if (cif->abi == FFI_EFI64 || cif->abi == FFI_GNUW64)
872
+ return ffi_prep_go_closure_efi64(closure, cif, fun);
873
+ #endif
874
+ if (cif->abi != FFI_UNIX64)
875
+ return FFI_BAD_ABI;
876
+
877
+ closure->tramp = (cif->flags & UNIX64_FLAG_XMM_ARGS
878
+ ? ffi_go_closure_unix64_sse
879
+ : ffi_go_closure_unix64);
880
+ closure->cif = cif;
881
+ closure->fun = fun;
882
+
883
+ return FFI_OK;
884
+ }
885
+
886
+ #endif /* __x86_64__ */