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,49 @@
1
+ /*
2
+ * Copyright (c) 2013 Miodrag Vallat. <miod@openbsd.org>
3
+ *
4
+ * Permission is hereby granted, free of charge, to any person obtaining
5
+ * a copy of this software and associated documentation files (the
6
+ * ``Software''), to deal in the Software without restriction, including
7
+ * without limitation the rights to use, copy, modify, merge, publish,
8
+ * distribute, sublicense, and/or sell copies of the Software, and to
9
+ * permit persons to whom the Software is furnished to do so, subject to
10
+ * the following conditions:
11
+ *
12
+ * The above copyright notice and this permission notice shall be included
13
+ * in all copies or substantial portions of the Software.
14
+ *
15
+ * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
16
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18
+ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19
+ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20
+ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21
+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22
+ */
23
+
24
+ /*
25
+ * vax Foreign Function Interface
26
+ */
27
+
28
+ #ifndef LIBFFI_TARGET_H
29
+ #define LIBFFI_TARGET_H
30
+
31
+ #ifndef LIBFFI_ASM
32
+ typedef unsigned long ffi_arg;
33
+ typedef signed long ffi_sarg;
34
+
35
+ typedef enum ffi_abi {
36
+ FFI_FIRST_ABI = 0,
37
+ FFI_ELFBSD,
38
+ FFI_DEFAULT_ABI = FFI_ELFBSD,
39
+ FFI_LAST_ABI = FFI_DEFAULT_ABI + 1
40
+ } ffi_abi;
41
+ #endif
42
+
43
+ /* ---- Definitions for closures ----------------------------------------- */
44
+
45
+ #define FFI_CLOSURES 1
46
+ #define FFI_TRAMPOLINE_SIZE 15
47
+ #define FFI_NATIVE_RAW_API 0
48
+
49
+ #endif
@@ -0,0 +1,30 @@
1
+ #ifndef ASMNAMES_H
2
+ #define ASMNAMES_H
3
+
4
+ #define C2(X, Y) X ## Y
5
+ #define C1(X, Y) C2(X, Y)
6
+ #ifdef __USER_LABEL_PREFIX__
7
+ # define C(X) C1(__USER_LABEL_PREFIX__, X)
8
+ #else
9
+ # define C(X) X
10
+ #endif
11
+
12
+ #ifdef __APPLE__
13
+ # define L(X) C1(L, X)
14
+ #else
15
+ # define L(X) C1(.L, X)
16
+ #endif
17
+
18
+ #if defined(__ELF__) && defined(__PIC__)
19
+ # define PLT(X) X@PLT
20
+ #else
21
+ # define PLT(X) X
22
+ #endif
23
+
24
+ #ifdef __ELF__
25
+ # define ENDF(X) .type X,@function; .size X, . - X
26
+ #else
27
+ # define ENDF(X)
28
+ #endif
29
+
30
+ #endif /* ASMNAMES_H */
@@ -0,0 +1,761 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2017 Anthony Green
3
+ Copyright (c) 1996, 1998, 1999, 2001, 2007, 2008 Red Hat, Inc.
4
+ Copyright (c) 2002 Ranjit Mathew
5
+ Copyright (c) 2002 Bo Thorsen
6
+ Copyright (c) 2002 Roger Sayle
7
+ Copyright (C) 2008, 2010 Free Software Foundation, Inc.
8
+
9
+ x86 Foreign Function Interface
10
+
11
+ Permission is hereby granted, free of charge, to any person obtaining
12
+ a copy of this software and associated documentation files (the
13
+ ``Software''), to deal in the Software without restriction, including
14
+ without limitation the rights to use, copy, modify, merge, publish,
15
+ distribute, sublicense, and/or sell copies of the Software, and to
16
+ permit persons to whom the Software is furnished to do so, subject to
17
+ the following conditions:
18
+
19
+ The above copyright notice and this permission notice shall be included
20
+ in all copies or substantial portions of the Software.
21
+
22
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
23
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
25
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
26
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
27
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
28
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
29
+ DEALINGS IN THE SOFTWARE.
30
+ ----------------------------------------------------------------------- */
31
+
32
+ #if defined(__i386__) || defined(_M_IX86)
33
+ #include <ffi.h>
34
+ #include <ffi_common.h>
35
+ #include <stdint.h>
36
+ #include <stdlib.h>
37
+ #include "internal.h"
38
+
39
+ /* Force FFI_TYPE_LONGDOUBLE to be different than FFI_TYPE_DOUBLE;
40
+ all further uses in this file will refer to the 80-bit type. */
41
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
42
+ # if FFI_TYPE_LONGDOUBLE != 4
43
+ # error FFI_TYPE_LONGDOUBLE out of date
44
+ # endif
45
+ #else
46
+ # undef FFI_TYPE_LONGDOUBLE
47
+ # define FFI_TYPE_LONGDOUBLE 4
48
+ #endif
49
+
50
+ #if defined(__GNUC__) && !defined(__declspec)
51
+ # define __declspec(x) __attribute__((x))
52
+ #endif
53
+
54
+ #if defined(_MSC_VER) && defined(_M_IX86)
55
+ /* Stack is not 16-byte aligned on Windows. */
56
+ #define STACK_ALIGN(bytes) (bytes)
57
+ #else
58
+ #define STACK_ALIGN(bytes) FFI_ALIGN (bytes, 16)
59
+ #endif
60
+
61
+ /* Perform machine dependent cif processing. */
62
+ ffi_status FFI_HIDDEN
63
+ ffi_prep_cif_machdep(ffi_cif *cif)
64
+ {
65
+ size_t bytes = 0;
66
+ int i, n, flags, cabi = cif->abi;
67
+
68
+ switch (cabi)
69
+ {
70
+ case FFI_SYSV:
71
+ case FFI_STDCALL:
72
+ case FFI_THISCALL:
73
+ case FFI_FASTCALL:
74
+ case FFI_MS_CDECL:
75
+ case FFI_PASCAL:
76
+ case FFI_REGISTER:
77
+ break;
78
+ default:
79
+ return FFI_BAD_ABI;
80
+ }
81
+
82
+ switch (cif->rtype->type)
83
+ {
84
+ case FFI_TYPE_VOID:
85
+ flags = X86_RET_VOID;
86
+ break;
87
+ case FFI_TYPE_FLOAT:
88
+ flags = X86_RET_FLOAT;
89
+ break;
90
+ case FFI_TYPE_DOUBLE:
91
+ flags = X86_RET_DOUBLE;
92
+ break;
93
+ case FFI_TYPE_LONGDOUBLE:
94
+ flags = X86_RET_LDOUBLE;
95
+ break;
96
+ case FFI_TYPE_UINT8:
97
+ flags = X86_RET_UINT8;
98
+ break;
99
+ case FFI_TYPE_UINT16:
100
+ flags = X86_RET_UINT16;
101
+ break;
102
+ case FFI_TYPE_SINT8:
103
+ flags = X86_RET_SINT8;
104
+ break;
105
+ case FFI_TYPE_SINT16:
106
+ flags = X86_RET_SINT16;
107
+ break;
108
+ case FFI_TYPE_INT:
109
+ case FFI_TYPE_SINT32:
110
+ case FFI_TYPE_UINT32:
111
+ case FFI_TYPE_POINTER:
112
+ flags = X86_RET_INT32;
113
+ break;
114
+ case FFI_TYPE_SINT64:
115
+ case FFI_TYPE_UINT64:
116
+ flags = X86_RET_INT64;
117
+ break;
118
+ case FFI_TYPE_STRUCT:
119
+ #ifndef X86
120
+ /* ??? This should be a different ABI rather than an ifdef. */
121
+ if (cif->rtype->size == 1)
122
+ flags = X86_RET_STRUCT_1B;
123
+ else if (cif->rtype->size == 2)
124
+ flags = X86_RET_STRUCT_2B;
125
+ else if (cif->rtype->size == 4)
126
+ flags = X86_RET_INT32;
127
+ else if (cif->rtype->size == 8)
128
+ flags = X86_RET_INT64;
129
+ else
130
+ #endif
131
+ {
132
+ do_struct:
133
+ switch (cabi)
134
+ {
135
+ case FFI_THISCALL:
136
+ case FFI_FASTCALL:
137
+ case FFI_STDCALL:
138
+ case FFI_MS_CDECL:
139
+ flags = X86_RET_STRUCTARG;
140
+ break;
141
+ default:
142
+ flags = X86_RET_STRUCTPOP;
143
+ break;
144
+ }
145
+ /* Allocate space for return value pointer. */
146
+ bytes += FFI_ALIGN (sizeof(void*), FFI_SIZEOF_ARG);
147
+ }
148
+ break;
149
+ case FFI_TYPE_COMPLEX:
150
+ switch (cif->rtype->elements[0]->type)
151
+ {
152
+ case FFI_TYPE_DOUBLE:
153
+ case FFI_TYPE_LONGDOUBLE:
154
+ case FFI_TYPE_SINT64:
155
+ case FFI_TYPE_UINT64:
156
+ goto do_struct;
157
+ case FFI_TYPE_FLOAT:
158
+ case FFI_TYPE_INT:
159
+ case FFI_TYPE_SINT32:
160
+ case FFI_TYPE_UINT32:
161
+ flags = X86_RET_INT64;
162
+ break;
163
+ case FFI_TYPE_SINT16:
164
+ case FFI_TYPE_UINT16:
165
+ flags = X86_RET_INT32;
166
+ break;
167
+ case FFI_TYPE_SINT8:
168
+ case FFI_TYPE_UINT8:
169
+ flags = X86_RET_STRUCT_2B;
170
+ break;
171
+ default:
172
+ return FFI_BAD_TYPEDEF;
173
+ }
174
+ break;
175
+ default:
176
+ return FFI_BAD_TYPEDEF;
177
+ }
178
+ cif->flags = flags;
179
+
180
+ for (i = 0, n = cif->nargs; i < n; i++)
181
+ {
182
+ ffi_type *t = cif->arg_types[i];
183
+
184
+ bytes = FFI_ALIGN (bytes, t->alignment);
185
+ bytes += FFI_ALIGN (t->size, FFI_SIZEOF_ARG);
186
+ }
187
+ cif->bytes = bytes;
188
+
189
+ return FFI_OK;
190
+ }
191
+
192
+ static ffi_arg
193
+ extend_basic_type(void *arg, int type)
194
+ {
195
+ switch (type)
196
+ {
197
+ case FFI_TYPE_SINT8:
198
+ return *(SINT8 *)arg;
199
+ case FFI_TYPE_UINT8:
200
+ return *(UINT8 *)arg;
201
+ case FFI_TYPE_SINT16:
202
+ return *(SINT16 *)arg;
203
+ case FFI_TYPE_UINT16:
204
+ return *(UINT16 *)arg;
205
+
206
+ case FFI_TYPE_SINT32:
207
+ case FFI_TYPE_UINT32:
208
+ case FFI_TYPE_POINTER:
209
+ case FFI_TYPE_FLOAT:
210
+ return *(UINT32 *)arg;
211
+
212
+ default:
213
+ abort();
214
+ }
215
+ }
216
+
217
+ struct call_frame
218
+ {
219
+ void *ebp; /* 0 */
220
+ void *retaddr; /* 4 */
221
+ void (*fn)(void); /* 8 */
222
+ int flags; /* 12 */
223
+ void *rvalue; /* 16 */
224
+ unsigned regs[3]; /* 20-28 */
225
+ };
226
+
227
+ struct abi_params
228
+ {
229
+ int dir; /* parameter growth direction */
230
+ int static_chain; /* the static chain register used by gcc */
231
+ int nregs; /* number of register parameters */
232
+ int regs[3];
233
+ };
234
+
235
+ static const struct abi_params abi_params[FFI_LAST_ABI] = {
236
+ [FFI_SYSV] = { 1, R_ECX, 0 },
237
+ [FFI_THISCALL] = { 1, R_EAX, 1, { R_ECX } },
238
+ [FFI_FASTCALL] = { 1, R_EAX, 2, { R_ECX, R_EDX } },
239
+ [FFI_STDCALL] = { 1, R_ECX, 0 },
240
+ [FFI_PASCAL] = { -1, R_ECX, 0 },
241
+ /* ??? No defined static chain; gcc does not support REGISTER. */
242
+ [FFI_REGISTER] = { -1, R_ECX, 3, { R_EAX, R_EDX, R_ECX } },
243
+ [FFI_MS_CDECL] = { 1, R_ECX, 0 }
244
+ };
245
+
246
+ #ifdef HAVE_FASTCALL
247
+ #ifdef _MSC_VER
248
+ #define FFI_DECLARE_FASTCALL __fastcall
249
+ #else
250
+ #define FFI_DECLARE_FASTCALL __declspec(fastcall)
251
+ #endif
252
+ #else
253
+ #define FFI_DECLARE_FASTCALL
254
+ #endif
255
+
256
+ extern void FFI_DECLARE_FASTCALL ffi_call_i386(struct call_frame *, char *) FFI_HIDDEN;
257
+
258
+ static void
259
+ ffi_call_int (ffi_cif *cif, void (*fn)(void), void *rvalue,
260
+ void **avalue, void *closure)
261
+ {
262
+ size_t rsize, bytes;
263
+ struct call_frame *frame;
264
+ char *stack, *argp;
265
+ ffi_type **arg_types;
266
+ int flags, cabi, i, n, dir, narg_reg;
267
+ const struct abi_params *pabi;
268
+
269
+ flags = cif->flags;
270
+ cabi = cif->abi;
271
+ pabi = &abi_params[cabi];
272
+ dir = pabi->dir;
273
+
274
+ rsize = 0;
275
+ if (rvalue == NULL)
276
+ {
277
+ switch (flags)
278
+ {
279
+ case X86_RET_FLOAT:
280
+ case X86_RET_DOUBLE:
281
+ case X86_RET_LDOUBLE:
282
+ case X86_RET_STRUCTPOP:
283
+ case X86_RET_STRUCTARG:
284
+ /* The float cases need to pop the 387 stack.
285
+ The struct cases need to pass a valid pointer to the callee. */
286
+ rsize = cif->rtype->size;
287
+ break;
288
+ default:
289
+ /* We can pretend that the callee returns nothing. */
290
+ flags = X86_RET_VOID;
291
+ break;
292
+ }
293
+ }
294
+
295
+ bytes = STACK_ALIGN (cif->bytes);
296
+ stack = alloca(bytes + sizeof(*frame) + rsize);
297
+ argp = (dir < 0 ? stack + bytes : stack);
298
+ frame = (struct call_frame *)(stack + bytes);
299
+ if (rsize)
300
+ rvalue = frame + 1;
301
+
302
+ frame->fn = fn;
303
+ frame->flags = flags;
304
+ frame->rvalue = rvalue;
305
+ frame->regs[pabi->static_chain] = (unsigned)closure;
306
+
307
+ narg_reg = 0;
308
+ switch (flags)
309
+ {
310
+ case X86_RET_STRUCTARG:
311
+ /* The pointer is passed as the first argument. */
312
+ if (pabi->nregs > 0)
313
+ {
314
+ frame->regs[pabi->regs[0]] = (unsigned)rvalue;
315
+ narg_reg = 1;
316
+ break;
317
+ }
318
+ /* fallthru */
319
+ case X86_RET_STRUCTPOP:
320
+ *(void **)argp = rvalue;
321
+ argp += sizeof(void *);
322
+ break;
323
+ }
324
+
325
+ arg_types = cif->arg_types;
326
+ for (i = 0, n = cif->nargs; i < n; i++)
327
+ {
328
+ ffi_type *ty = arg_types[i];
329
+ void *valp = avalue[i];
330
+ size_t z = ty->size;
331
+ int t = ty->type;
332
+
333
+ if (z <= FFI_SIZEOF_ARG && t != FFI_TYPE_STRUCT)
334
+ {
335
+ ffi_arg val = extend_basic_type (valp, t);
336
+
337
+ if (t != FFI_TYPE_FLOAT && narg_reg < pabi->nregs)
338
+ frame->regs[pabi->regs[narg_reg++]] = val;
339
+ else if (dir < 0)
340
+ {
341
+ argp -= 4;
342
+ *(ffi_arg *)argp = val;
343
+ }
344
+ else
345
+ {
346
+ *(ffi_arg *)argp = val;
347
+ argp += 4;
348
+ }
349
+ }
350
+ else
351
+ {
352
+ size_t za = FFI_ALIGN (z, FFI_SIZEOF_ARG);
353
+ size_t align = FFI_SIZEOF_ARG;
354
+
355
+ /* Issue 434: For thiscall and fastcall, if the paramter passed
356
+ as 64-bit integer or struct, all following integer paramters
357
+ will be passed on stack. */
358
+ if ((cabi == FFI_THISCALL || cabi == FFI_FASTCALL)
359
+ && (t == FFI_TYPE_SINT64
360
+ || t == FFI_TYPE_UINT64
361
+ || t == FFI_TYPE_STRUCT))
362
+ narg_reg = 2;
363
+
364
+ /* Alignment rules for arguments are quite complex. Vectors and
365
+ structures with 16 byte alignment get it. Note that long double
366
+ on Darwin does have 16 byte alignment, and does not get this
367
+ alignment if passed directly; a structure with a long double
368
+ inside, however, would get 16 byte alignment. Since libffi does
369
+ not support vectors, we need non concern ourselves with other
370
+ cases. */
371
+ if (t == FFI_TYPE_STRUCT && ty->alignment >= 16)
372
+ align = 16;
373
+
374
+ if (dir < 0)
375
+ {
376
+ /* ??? These reverse argument ABIs are probably too old
377
+ to have cared about alignment. Someone should check. */
378
+ argp -= za;
379
+ memcpy (argp, valp, z);
380
+ }
381
+ else
382
+ {
383
+ argp = (char *)FFI_ALIGN (argp, align);
384
+ memcpy (argp, valp, z);
385
+ argp += za;
386
+ }
387
+ }
388
+ }
389
+ FFI_ASSERT (dir > 0 || argp == stack);
390
+
391
+ ffi_call_i386 (frame, stack);
392
+ }
393
+
394
+ void
395
+ ffi_call (ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
396
+ {
397
+ ffi_call_int (cif, fn, rvalue, avalue, NULL);
398
+ }
399
+
400
+ void
401
+ ffi_call_go (ffi_cif *cif, void (*fn)(void), void *rvalue,
402
+ void **avalue, void *closure)
403
+ {
404
+ ffi_call_int (cif, fn, rvalue, avalue, closure);
405
+ }
406
+
407
+ /** private members **/
408
+
409
+ void FFI_HIDDEN ffi_closure_i386(void);
410
+ void FFI_HIDDEN ffi_closure_STDCALL(void);
411
+ void FFI_HIDDEN ffi_closure_REGISTER(void);
412
+
413
+ struct closure_frame
414
+ {
415
+ unsigned rettemp[4]; /* 0 */
416
+ unsigned regs[3]; /* 16-24 */
417
+ ffi_cif *cif; /* 28 */
418
+ void (*fun)(ffi_cif*,void*,void**,void*); /* 32 */
419
+ void *user_data; /* 36 */
420
+ };
421
+
422
+ int FFI_HIDDEN FFI_DECLARE_FASTCALL
423
+ ffi_closure_inner (struct closure_frame *frame, char *stack)
424
+ {
425
+ ffi_cif *cif = frame->cif;
426
+ int cabi, i, n, flags, dir, narg_reg;
427
+ const struct abi_params *pabi;
428
+ ffi_type **arg_types;
429
+ char *argp;
430
+ void *rvalue;
431
+ void **avalue;
432
+
433
+ cabi = cif->abi;
434
+ flags = cif->flags;
435
+ narg_reg = 0;
436
+ rvalue = frame->rettemp;
437
+ pabi = &abi_params[cabi];
438
+ dir = pabi->dir;
439
+ argp = (dir < 0 ? stack + STACK_ALIGN (cif->bytes) : stack);
440
+
441
+ switch (flags)
442
+ {
443
+ case X86_RET_STRUCTARG:
444
+ if (pabi->nregs > 0)
445
+ {
446
+ rvalue = (void *)frame->regs[pabi->regs[0]];
447
+ narg_reg = 1;
448
+ frame->rettemp[0] = (unsigned)rvalue;
449
+ break;
450
+ }
451
+ /* fallthru */
452
+ case X86_RET_STRUCTPOP:
453
+ rvalue = *(void **)argp;
454
+ argp += sizeof(void *);
455
+ frame->rettemp[0] = (unsigned)rvalue;
456
+ break;
457
+ }
458
+
459
+ n = cif->nargs;
460
+ avalue = alloca(sizeof(void *) * n);
461
+
462
+ arg_types = cif->arg_types;
463
+ for (i = 0; i < n; ++i)
464
+ {
465
+ ffi_type *ty = arg_types[i];
466
+ size_t z = ty->size;
467
+ int t = ty->type;
468
+ void *valp;
469
+
470
+ if (z <= FFI_SIZEOF_ARG && t != FFI_TYPE_STRUCT)
471
+ {
472
+ if (t != FFI_TYPE_FLOAT && narg_reg < pabi->nregs)
473
+ valp = &frame->regs[pabi->regs[narg_reg++]];
474
+ else if (dir < 0)
475
+ {
476
+ argp -= 4;
477
+ valp = argp;
478
+ }
479
+ else
480
+ {
481
+ valp = argp;
482
+ argp += 4;
483
+ }
484
+ }
485
+ else
486
+ {
487
+ size_t za = FFI_ALIGN (z, FFI_SIZEOF_ARG);
488
+ size_t align = FFI_SIZEOF_ARG;
489
+
490
+ /* See the comment in ffi_call_int. */
491
+ if (t == FFI_TYPE_STRUCT && ty->alignment >= 16)
492
+ align = 16;
493
+
494
+ /* Issue 434: For thiscall and fastcall, if the paramter passed
495
+ as 64-bit integer or struct, all following integer paramters
496
+ will be passed on stack. */
497
+ if ((cabi == FFI_THISCALL || cabi == FFI_FASTCALL)
498
+ && (t == FFI_TYPE_SINT64
499
+ || t == FFI_TYPE_UINT64
500
+ || t == FFI_TYPE_STRUCT))
501
+ narg_reg = 2;
502
+
503
+ if (dir < 0)
504
+ {
505
+ /* ??? These reverse argument ABIs are probably too old
506
+ to have cared about alignment. Someone should check. */
507
+ argp -= za;
508
+ valp = argp;
509
+ }
510
+ else
511
+ {
512
+ argp = (char *)FFI_ALIGN (argp, align);
513
+ valp = argp;
514
+ argp += za;
515
+ }
516
+ }
517
+
518
+ avalue[i] = valp;
519
+ }
520
+
521
+ frame->fun (cif, rvalue, avalue, frame->user_data);
522
+
523
+ if (cabi == FFI_STDCALL)
524
+ return flags + (cif->bytes << X86_RET_POP_SHIFT);
525
+ else
526
+ return flags;
527
+ }
528
+
529
+ ffi_status
530
+ ffi_prep_closure_loc (ffi_closure* closure,
531
+ ffi_cif* cif,
532
+ void (*fun)(ffi_cif*,void*,void**,void*),
533
+ void *user_data,
534
+ void *codeloc)
535
+ {
536
+ char *tramp = closure->tramp;
537
+ void (*dest)(void);
538
+ int op = 0xb8; /* movl imm, %eax */
539
+
540
+ switch (cif->abi)
541
+ {
542
+ case FFI_SYSV:
543
+ case FFI_THISCALL:
544
+ case FFI_FASTCALL:
545
+ case FFI_MS_CDECL:
546
+ dest = ffi_closure_i386;
547
+ break;
548
+ case FFI_STDCALL:
549
+ case FFI_PASCAL:
550
+ dest = ffi_closure_STDCALL;
551
+ break;
552
+ case FFI_REGISTER:
553
+ dest = ffi_closure_REGISTER;
554
+ op = 0x68; /* pushl imm */
555
+ break;
556
+ default:
557
+ return FFI_BAD_ABI;
558
+ }
559
+
560
+ /* movl or pushl immediate. */
561
+ tramp[0] = op;
562
+ *(void **)(tramp + 1) = codeloc;
563
+
564
+ /* jmp dest */
565
+ tramp[5] = 0xe9;
566
+ *(unsigned *)(tramp + 6) = (unsigned)dest - ((unsigned)codeloc + 10);
567
+
568
+ closure->cif = cif;
569
+ closure->fun = fun;
570
+ closure->user_data = user_data;
571
+
572
+ return FFI_OK;
573
+ }
574
+
575
+ void FFI_HIDDEN ffi_go_closure_EAX(void);
576
+ void FFI_HIDDEN ffi_go_closure_ECX(void);
577
+ void FFI_HIDDEN ffi_go_closure_STDCALL(void);
578
+
579
+ ffi_status
580
+ ffi_prep_go_closure (ffi_go_closure* closure, ffi_cif* cif,
581
+ void (*fun)(ffi_cif*,void*,void**,void*))
582
+ {
583
+ void (*dest)(void);
584
+
585
+ switch (cif->abi)
586
+ {
587
+ case FFI_SYSV:
588
+ case FFI_MS_CDECL:
589
+ dest = ffi_go_closure_ECX;
590
+ break;
591
+ case FFI_THISCALL:
592
+ case FFI_FASTCALL:
593
+ dest = ffi_go_closure_EAX;
594
+ break;
595
+ case FFI_STDCALL:
596
+ case FFI_PASCAL:
597
+ dest = ffi_go_closure_STDCALL;
598
+ break;
599
+ case FFI_REGISTER:
600
+ default:
601
+ return FFI_BAD_ABI;
602
+ }
603
+
604
+ closure->tramp = dest;
605
+ closure->cif = cif;
606
+ closure->fun = fun;
607
+
608
+ return FFI_OK;
609
+ }
610
+
611
+ /* ------- Native raw API support -------------------------------- */
612
+
613
+ #if !FFI_NO_RAW_API
614
+
615
+ void FFI_HIDDEN ffi_closure_raw_SYSV(void);
616
+ void FFI_HIDDEN ffi_closure_raw_THISCALL(void);
617
+
618
+ ffi_status
619
+ ffi_prep_raw_closure_loc (ffi_raw_closure *closure,
620
+ ffi_cif *cif,
621
+ void (*fun)(ffi_cif*,void*,ffi_raw*,void*),
622
+ void *user_data,
623
+ void *codeloc)
624
+ {
625
+ char *tramp = closure->tramp;
626
+ void (*dest)(void);
627
+ int i;
628
+
629
+ /* We currently don't support certain kinds of arguments for raw
630
+ closures. This should be implemented by a separate assembly
631
+ language routine, since it would require argument processing,
632
+ something we don't do now for performance. */
633
+ for (i = cif->nargs-1; i >= 0; i--)
634
+ switch (cif->arg_types[i]->type)
635
+ {
636
+ case FFI_TYPE_STRUCT:
637
+ case FFI_TYPE_LONGDOUBLE:
638
+ return FFI_BAD_TYPEDEF;
639
+ }
640
+
641
+ switch (cif->abi)
642
+ {
643
+ case FFI_THISCALL:
644
+ dest = ffi_closure_raw_THISCALL;
645
+ break;
646
+ case FFI_SYSV:
647
+ dest = ffi_closure_raw_SYSV;
648
+ break;
649
+ default:
650
+ return FFI_BAD_ABI;
651
+ }
652
+
653
+ /* movl imm, %eax. */
654
+ tramp[0] = 0xb8;
655
+ *(void **)(tramp + 1) = codeloc;
656
+
657
+ /* jmp dest */
658
+ tramp[5] = 0xe9;
659
+ *(unsigned *)(tramp + 6) = (unsigned)dest - ((unsigned)codeloc + 10);
660
+
661
+ closure->cif = cif;
662
+ closure->fun = fun;
663
+ closure->user_data = user_data;
664
+
665
+ return FFI_OK;
666
+ }
667
+
668
+ void
669
+ ffi_raw_call(ffi_cif *cif, void (*fn)(void), void *rvalue, ffi_raw *avalue)
670
+ {
671
+ size_t rsize, bytes;
672
+ struct call_frame *frame;
673
+ char *stack, *argp;
674
+ ffi_type **arg_types;
675
+ int flags, cabi, i, n, narg_reg;
676
+ const struct abi_params *pabi;
677
+
678
+ flags = cif->flags;
679
+ cabi = cif->abi;
680
+ pabi = &abi_params[cabi];
681
+
682
+ rsize = 0;
683
+ if (rvalue == NULL)
684
+ {
685
+ switch (flags)
686
+ {
687
+ case X86_RET_FLOAT:
688
+ case X86_RET_DOUBLE:
689
+ case X86_RET_LDOUBLE:
690
+ case X86_RET_STRUCTPOP:
691
+ case X86_RET_STRUCTARG:
692
+ /* The float cases need to pop the 387 stack.
693
+ The struct cases need to pass a valid pointer to the callee. */
694
+ rsize = cif->rtype->size;
695
+ break;
696
+ default:
697
+ /* We can pretend that the callee returns nothing. */
698
+ flags = X86_RET_VOID;
699
+ break;
700
+ }
701
+ }
702
+
703
+ bytes = STACK_ALIGN (cif->bytes);
704
+ argp = stack =
705
+ (void *)((uintptr_t)alloca(bytes + sizeof(*frame) + rsize + 15) & ~16);
706
+ frame = (struct call_frame *)(stack + bytes);
707
+ if (rsize)
708
+ rvalue = frame + 1;
709
+
710
+ frame->fn = fn;
711
+ frame->flags = flags;
712
+ frame->rvalue = rvalue;
713
+
714
+ narg_reg = 0;
715
+ switch (flags)
716
+ {
717
+ case X86_RET_STRUCTARG:
718
+ /* The pointer is passed as the first argument. */
719
+ if (pabi->nregs > 0)
720
+ {
721
+ frame->regs[pabi->regs[0]] = (unsigned)rvalue;
722
+ narg_reg = 1;
723
+ break;
724
+ }
725
+ /* fallthru */
726
+ case X86_RET_STRUCTPOP:
727
+ *(void **)argp = rvalue;
728
+ argp += sizeof(void *);
729
+ bytes -= sizeof(void *);
730
+ break;
731
+ }
732
+
733
+ arg_types = cif->arg_types;
734
+ for (i = 0, n = cif->nargs; narg_reg < pabi->nregs && i < n; i++)
735
+ {
736
+ ffi_type *ty = arg_types[i];
737
+ size_t z = ty->size;
738
+ int t = ty->type;
739
+
740
+ if (z <= FFI_SIZEOF_ARG && t != FFI_TYPE_STRUCT && t != FFI_TYPE_FLOAT)
741
+ {
742
+ ffi_arg val = extend_basic_type (avalue, t);
743
+ frame->regs[pabi->regs[narg_reg++]] = val;
744
+ z = FFI_SIZEOF_ARG;
745
+ }
746
+ else
747
+ {
748
+ memcpy (argp, avalue, z);
749
+ z = FFI_ALIGN (z, FFI_SIZEOF_ARG);
750
+ argp += z;
751
+ }
752
+ avalue += z;
753
+ bytes -= z;
754
+ }
755
+ if (i < n)
756
+ memcpy (argp, avalue, bytes);
757
+
758
+ ffi_call_i386 (frame, stack);
759
+ }
760
+ #endif /* !FFI_NO_RAW_API */
761
+ #endif /* __i386__ */