ffi 1.11.1

Sign up to get free protection for your applications and to get access to all the features.
Files changed (530) hide show
  1. checksums.yaml +7 -0
  2. data/.gitignore +25 -0
  3. data/.gitmodules +4 -0
  4. data/.travis.yml +42 -0
  5. data/.yardopts +5 -0
  6. data/CHANGELOG.md +131 -0
  7. data/COPYING +49 -0
  8. data/Gemfile +15 -0
  9. data/LICENSE +24 -0
  10. data/LICENSE.SPECS +22 -0
  11. data/README.md +115 -0
  12. data/Rakefile +195 -0
  13. data/appveyor.yml +27 -0
  14. data/ext/ffi_c/AbstractMemory.c +1109 -0
  15. data/ext/ffi_c/AbstractMemory.h +175 -0
  16. data/ext/ffi_c/ArrayType.c +162 -0
  17. data/ext/ffi_c/ArrayType.h +59 -0
  18. data/ext/ffi_c/Buffer.c +365 -0
  19. data/ext/ffi_c/Call.c +503 -0
  20. data/ext/ffi_c/Call.h +107 -0
  21. data/ext/ffi_c/ClosurePool.c +283 -0
  22. data/ext/ffi_c/ClosurePool.h +57 -0
  23. data/ext/ffi_c/DynamicLibrary.c +339 -0
  24. data/ext/ffi_c/DynamicLibrary.h +98 -0
  25. data/ext/ffi_c/Function.c +917 -0
  26. data/ext/ffi_c/Function.h +87 -0
  27. data/ext/ffi_c/FunctionInfo.c +271 -0
  28. data/ext/ffi_c/LastError.c +229 -0
  29. data/ext/ffi_c/LastError.h +47 -0
  30. data/ext/ffi_c/LongDouble.c +63 -0
  31. data/ext/ffi_c/LongDouble.h +51 -0
  32. data/ext/ffi_c/MappedType.c +168 -0
  33. data/ext/ffi_c/MappedType.h +59 -0
  34. data/ext/ffi_c/MemoryPointer.c +197 -0
  35. data/ext/ffi_c/MemoryPointer.h +53 -0
  36. data/ext/ffi_c/MethodHandle.c +358 -0
  37. data/ext/ffi_c/MethodHandle.h +55 -0
  38. data/ext/ffi_c/Platform.c +82 -0
  39. data/ext/ffi_c/Platform.h +45 -0
  40. data/ext/ffi_c/Pointer.c +508 -0
  41. data/ext/ffi_c/Pointer.h +63 -0
  42. data/ext/ffi_c/Struct.c +829 -0
  43. data/ext/ffi_c/Struct.h +106 -0
  44. data/ext/ffi_c/StructByValue.c +150 -0
  45. data/ext/ffi_c/StructByValue.h +55 -0
  46. data/ext/ffi_c/StructLayout.c +698 -0
  47. data/ext/ffi_c/Thread.c +137 -0
  48. data/ext/ffi_c/Thread.h +84 -0
  49. data/ext/ffi_c/Type.c +379 -0
  50. data/ext/ffi_c/Type.h +61 -0
  51. data/ext/ffi_c/Types.c +139 -0
  52. data/ext/ffi_c/Types.h +89 -0
  53. data/ext/ffi_c/Variadic.c +298 -0
  54. data/ext/ffi_c/compat.h +78 -0
  55. data/ext/ffi_c/extconf.rb +86 -0
  56. data/ext/ffi_c/ffi.c +93 -0
  57. data/ext/ffi_c/libffi.bsd.mk +40 -0
  58. data/ext/ffi_c/libffi.darwin.mk +105 -0
  59. data/ext/ffi_c/libffi.gnu.mk +32 -0
  60. data/ext/ffi_c/libffi.mk +18 -0
  61. data/ext/ffi_c/libffi.vc.mk +26 -0
  62. data/ext/ffi_c/libffi.vc64.mk +26 -0
  63. data/ext/ffi_c/libffi/.appveyor.yml +50 -0
  64. data/ext/ffi_c/libffi/.github/issue_template.md +10 -0
  65. data/ext/ffi_c/libffi/.gitignore +38 -0
  66. data/ext/ffi_c/libffi/.travis.yml +34 -0
  67. data/ext/ffi_c/libffi/.travis/ar-lib +270 -0
  68. data/ext/ffi_c/libffi/.travis/build.sh +34 -0
  69. data/ext/ffi_c/libffi/.travis/compile +351 -0
  70. data/ext/ffi_c/libffi/.travis/install.sh +22 -0
  71. data/ext/ffi_c/libffi/.travis/moxie-sim.exp +60 -0
  72. data/ext/ffi_c/libffi/.travis/site.exp +18 -0
  73. data/ext/ffi_c/libffi/ChangeLog.libffi +584 -0
  74. data/ext/ffi_c/libffi/ChangeLog.libffi-3.1 +6000 -0
  75. data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
  76. data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
  77. data/ext/ffi_c/libffi/LICENSE +21 -0
  78. data/ext/ffi_c/libffi/LICENSE-BUILDTOOLS +352 -0
  79. data/ext/ffi_c/libffi/Makefile.am +166 -0
  80. data/ext/ffi_c/libffi/README.md +461 -0
  81. data/ext/ffi_c/libffi/acinclude.m4 +479 -0
  82. data/ext/ffi_c/libffi/autogen.sh +2 -0
  83. data/ext/ffi_c/libffi/config.guess +1466 -0
  84. data/ext/ffi_c/libffi/config.sub +1836 -0
  85. data/ext/ffi_c/libffi/configure.ac +394 -0
  86. data/ext/ffi_c/libffi/configure.host +289 -0
  87. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +203 -0
  88. data/ext/ffi_c/libffi/include/Makefile.am +9 -0
  89. data/ext/ffi_c/libffi/include/ffi.h.in +511 -0
  90. data/ext/ffi_c/libffi/include/ffi_cfi.h +55 -0
  91. data/ext/ffi_c/libffi/include/ffi_common.h +149 -0
  92. data/ext/ffi_c/libffi/libffi.map.in +80 -0
  93. data/ext/ffi_c/libffi/libffi.pc.in +11 -0
  94. data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +1043 -0
  95. data/ext/ffi_c/libffi/libtool-version +29 -0
  96. data/ext/ffi_c/libffi/m4/asmcfi.m4 +13 -0
  97. data/ext/ffi_c/libffi/m4/ax_append_flag.m4 +71 -0
  98. data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +194 -0
  99. data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +122 -0
  100. data/ext/ffi_c/libffi/m4/ax_check_compile_flag.m4 +74 -0
  101. data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +87 -0
  102. data/ext/ffi_c/libffi/m4/ax_configure_args.m4 +70 -0
  103. data/ext/ffi_c/libffi/m4/ax_enable_builddir.m4 +302 -0
  104. data/ext/ffi_c/libffi/m4/ax_gcc_archflag.m4 +263 -0
  105. data/ext/ffi_c/libffi/m4/ax_gcc_x86_cpuid.m4 +89 -0
  106. data/ext/ffi_c/libffi/m4/ax_require_defined.m4 +37 -0
  107. data/ext/ffi_c/libffi/man/Makefile.am +8 -0
  108. data/ext/ffi_c/libffi/man/ffi.3 +41 -0
  109. data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
  110. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +68 -0
  111. data/ext/ffi_c/libffi/man/ffi_prep_cif_var.3 +73 -0
  112. data/ext/ffi_c/libffi/msvcc.sh +328 -0
  113. data/ext/ffi_c/libffi/src/aarch64/ffi.c +941 -0
  114. data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +81 -0
  115. data/ext/ffi_c/libffi/src/aarch64/internal.h +67 -0
  116. data/ext/ffi_c/libffi/src/aarch64/sysv.S +438 -0
  117. data/ext/ffi_c/libffi/src/alpha/ffi.c +521 -0
  118. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +57 -0
  119. data/ext/ffi_c/libffi/src/alpha/internal.h +23 -0
  120. data/ext/ffi_c/libffi/src/alpha/osf.S +282 -0
  121. data/ext/ffi_c/libffi/src/arc/arcompact.S +135 -0
  122. data/ext/ffi_c/libffi/src/arc/ffi.c +266 -0
  123. data/ext/ffi_c/libffi/src/arc/ffitarget.h +53 -0
  124. data/ext/ffi_c/libffi/src/arm/ffi.c +819 -0
  125. data/ext/ffi_c/libffi/src/arm/ffitarget.h +82 -0
  126. data/ext/ffi_c/libffi/src/arm/internal.h +7 -0
  127. data/ext/ffi_c/libffi/src/arm/sysv.S +383 -0
  128. data/ext/ffi_c/libffi/src/avr32/ffi.c +423 -0
  129. data/ext/ffi_c/libffi/src/avr32/ffitarget.h +55 -0
  130. data/ext/ffi_c/libffi/src/avr32/sysv.S +208 -0
  131. data/ext/ffi_c/libffi/src/bfin/ffi.c +196 -0
  132. data/ext/ffi_c/libffi/src/bfin/ffitarget.h +43 -0
  133. data/ext/ffi_c/libffi/src/bfin/sysv.S +179 -0
  134. data/ext/ffi_c/libffi/src/closures.c +966 -0
  135. data/ext/ffi_c/libffi/src/cris/ffi.c +386 -0
  136. data/ext/ffi_c/libffi/src/cris/ffitarget.h +56 -0
  137. data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
  138. data/ext/ffi_c/libffi/src/debug.c +64 -0
  139. data/ext/ffi_c/libffi/src/dlmalloc.c +5166 -0
  140. data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
  141. data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
  142. data/ext/ffi_c/libffi/src/frv/ffitarget.h +62 -0
  143. data/ext/ffi_c/libffi/src/ia64/ffi.c +604 -0
  144. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +56 -0
  145. data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
  146. data/ext/ffi_c/libffi/src/ia64/unix.S +567 -0
  147. data/ext/ffi_c/libffi/src/java_raw_api.c +374 -0
  148. data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
  149. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +53 -0
  150. data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
  151. data/ext/ffi_c/libffi/src/m68k/ffi.c +362 -0
  152. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +54 -0
  153. data/ext/ffi_c/libffi/src/m68k/sysv.S +357 -0
  154. data/ext/ffi_c/libffi/src/m88k/ffi.c +400 -0
  155. data/ext/ffi_c/libffi/src/m88k/ffitarget.h +49 -0
  156. data/ext/ffi_c/libffi/src/m88k/obsd.S +209 -0
  157. data/ext/ffi_c/libffi/src/metag/ffi.c +330 -0
  158. data/ext/ffi_c/libffi/src/metag/ffitarget.h +53 -0
  159. data/ext/ffi_c/libffi/src/metag/sysv.S +311 -0
  160. data/ext/ffi_c/libffi/src/microblaze/ffi.c +321 -0
  161. data/ext/ffi_c/libffi/src/microblaze/ffitarget.h +53 -0
  162. data/ext/ffi_c/libffi/src/microblaze/sysv.S +302 -0
  163. data/ext/ffi_c/libffi/src/mips/ffi.c +1130 -0
  164. data/ext/ffi_c/libffi/src/mips/ffitarget.h +244 -0
  165. data/ext/ffi_c/libffi/src/mips/n32.S +663 -0
  166. data/ext/ffi_c/libffi/src/mips/o32.S +502 -0
  167. data/ext/ffi_c/libffi/src/moxie/eabi.S +101 -0
  168. data/ext/ffi_c/libffi/src/moxie/ffi.c +285 -0
  169. data/ext/ffi_c/libffi/src/moxie/ffitarget.h +52 -0
  170. data/ext/ffi_c/libffi/src/nios2/ffi.c +304 -0
  171. data/ext/ffi_c/libffi/src/nios2/ffitarget.h +52 -0
  172. data/ext/ffi_c/libffi/src/nios2/sysv.S +136 -0
  173. data/ext/ffi_c/libffi/src/or1k/ffi.c +328 -0
  174. data/ext/ffi_c/libffi/src/or1k/ffitarget.h +58 -0
  175. data/ext/ffi_c/libffi/src/or1k/sysv.S +107 -0
  176. data/ext/ffi_c/libffi/src/pa/ffi.c +719 -0
  177. data/ext/ffi_c/libffi/src/pa/ffitarget.h +85 -0
  178. data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
  179. data/ext/ffi_c/libffi/src/pa/linux.S +357 -0
  180. data/ext/ffi_c/libffi/src/powerpc/aix.S +566 -0
  181. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +694 -0
  182. data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
  183. data/ext/ffi_c/libffi/src/powerpc/darwin.S +378 -0
  184. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +571 -0
  185. data/ext/ffi_c/libffi/src/powerpc/ffi.c +173 -0
  186. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +1440 -0
  187. data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +974 -0
  188. data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +94 -0
  189. data/ext/ffi_c/libffi/src/powerpc/ffi_sysv.c +923 -0
  190. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +198 -0
  191. data/ext/ffi_c/libffi/src/powerpc/linux64.S +228 -0
  192. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +488 -0
  193. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +397 -0
  194. data/ext/ffi_c/libffi/src/powerpc/sysv.S +175 -0
  195. data/ext/ffi_c/libffi/src/prep_cif.c +261 -0
  196. data/ext/ffi_c/libffi/src/raw_api.c +267 -0
  197. data/ext/ffi_c/libffi/src/riscv/ffi.c +481 -0
  198. data/ext/ffi_c/libffi/src/riscv/ffitarget.h +69 -0
  199. data/ext/ffi_c/libffi/src/riscv/sysv.S +293 -0
  200. data/ext/ffi_c/libffi/src/s390/ffi.c +756 -0
  201. data/ext/ffi_c/libffi/src/s390/ffitarget.h +70 -0
  202. data/ext/ffi_c/libffi/src/s390/internal.h +11 -0
  203. data/ext/ffi_c/libffi/src/s390/sysv.S +325 -0
  204. data/ext/ffi_c/libffi/src/sh/ffi.c +717 -0
  205. data/ext/ffi_c/libffi/src/sh/ffitarget.h +54 -0
  206. data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
  207. data/ext/ffi_c/libffi/src/sh64/ffi.c +469 -0
  208. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +58 -0
  209. data/ext/ffi_c/libffi/src/sh64/sysv.S +539 -0
  210. data/ext/ffi_c/libffi/src/sparc/ffi.c +468 -0
  211. data/ext/ffi_c/libffi/src/sparc/ffi64.c +608 -0
  212. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +81 -0
  213. data/ext/ffi_c/libffi/src/sparc/internal.h +26 -0
  214. data/ext/ffi_c/libffi/src/sparc/v8.S +443 -0
  215. data/ext/ffi_c/libffi/src/sparc/v9.S +440 -0
  216. data/ext/ffi_c/libffi/src/tile/ffi.c +355 -0
  217. data/ext/ffi_c/libffi/src/tile/ffitarget.h +65 -0
  218. data/ext/ffi_c/libffi/src/tile/tile.S +360 -0
  219. data/ext/ffi_c/libffi/src/types.c +108 -0
  220. data/ext/ffi_c/libffi/src/vax/elfbsd.S +195 -0
  221. data/ext/ffi_c/libffi/src/vax/ffi.c +276 -0
  222. data/ext/ffi_c/libffi/src/vax/ffitarget.h +49 -0
  223. data/ext/ffi_c/libffi/src/x86/asmnames.h +30 -0
  224. data/ext/ffi_c/libffi/src/x86/ffi.c +754 -0
  225. data/ext/ffi_c/libffi/src/x86/ffi64.c +884 -0
  226. data/ext/ffi_c/libffi/src/x86/ffitarget.h +147 -0
  227. data/ext/ffi_c/libffi/src/x86/ffiw64.c +308 -0
  228. data/ext/ffi_c/libffi/src/x86/internal.h +29 -0
  229. data/ext/ffi_c/libffi/src/x86/internal64.h +22 -0
  230. data/ext/ffi_c/libffi/src/x86/sysv.S +1129 -0
  231. data/ext/ffi_c/libffi/src/x86/unix64.S +566 -0
  232. data/ext/ffi_c/libffi/src/x86/win64.S +232 -0
  233. data/ext/ffi_c/libffi/src/x86/win64_intel.S +237 -0
  234. data/ext/ffi_c/libffi/src/xtensa/ffi.c +298 -0
  235. data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +53 -0
  236. data/ext/ffi_c/libffi/src/xtensa/sysv.S +258 -0
  237. data/ext/ffi_c/libffi/stamp-h.in +1 -0
  238. data/ext/ffi_c/libffi/testsuite/Makefile.am +117 -0
  239. data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
  240. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +636 -0
  241. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +283 -0
  242. data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
  243. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/Makefile +28 -0
  244. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/README +78 -0
  245. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/alignof.h +50 -0
  246. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/bhaible.exp +58 -0
  247. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +1745 -0
  248. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-callback.c +2885 -0
  249. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/testcases.c +743 -0
  250. data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c +46 -0
  251. data/ext/ffi_c/libffi/testsuite/libffi.call/align_stdcall.c +46 -0
  252. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +43 -0
  253. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +89 -0
  254. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +81 -0
  255. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +81 -0
  256. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +82 -0
  257. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +89 -0
  258. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +92 -0
  259. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +90 -0
  260. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_loc_fn0.c +95 -0
  261. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_simple.c +55 -0
  262. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +94 -0
  263. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +95 -0
  264. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +96 -0
  265. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +102 -0
  266. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +89 -0
  267. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +91 -0
  268. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +93 -0
  269. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +113 -0
  270. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +90 -0
  271. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +95 -0
  272. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +90 -0
  273. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +90 -0
  274. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3float.c +95 -0
  275. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +98 -0
  276. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +90 -0
  277. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +109 -0
  278. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +98 -0
  279. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +124 -0
  280. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +113 -0
  281. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +99 -0
  282. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +117 -0
  283. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +97 -0
  284. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +88 -0
  285. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +90 -0
  286. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +91 -0
  287. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +93 -0
  288. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +91 -0
  289. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +92 -0
  290. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split.c +132 -0
  291. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c +115 -0
  292. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +95 -0
  293. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +91 -0
  294. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +91 -0
  295. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +92 -0
  296. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +91 -0
  297. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +91 -0
  298. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +93 -0
  299. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_dbls_struct.c +66 -0
  300. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +43 -0
  301. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c +61 -0
  302. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +42 -0
  303. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble.c +105 -0
  304. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble_va.c +61 -0
  305. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_args.c +70 -0
  306. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_float_double.c +55 -0
  307. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +74 -0
  308. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +74 -0
  309. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +86 -0
  310. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +91 -0
  311. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +74 -0
  312. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +86 -0
  313. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer.c +74 -0
  314. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer_stack.c +142 -0
  315. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +44 -0
  316. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +42 -0
  317. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +42 -0
  318. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_struct_va1.c +114 -0
  319. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +42 -0
  320. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar_va.c +44 -0
  321. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +43 -0
  322. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint_va.c +45 -0
  323. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulong_va.c +45 -0
  324. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +47 -0
  325. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +43 -0
  326. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort_va.c +44 -0
  327. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_abi.c +36 -0
  328. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c +26 -0
  329. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +138 -0
  330. data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
  331. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +60 -0
  332. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +60 -0
  333. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +74 -0
  334. data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
  335. data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +107 -0
  336. data/ext/ffi_c/libffi/testsuite/libffi.call/huge_struct.c +341 -0
  337. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +59 -0
  338. data/ext/ffi_c/libffi/testsuite/libffi.call/many2.c +57 -0
  339. data/ext/ffi_c/libffi/testsuite/libffi.call/many_double.c +70 -0
  340. data/ext/ffi_c/libffi/testsuite/libffi.call/many_mixed.c +78 -0
  341. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +52 -0
  342. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +152 -0
  343. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +161 -0
  344. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +134 -0
  345. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct11.c +121 -0
  346. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +110 -0
  347. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +111 -0
  348. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +111 -0
  349. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +112 -0
  350. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +131 -0
  351. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +111 -0
  352. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +131 -0
  353. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +131 -0
  354. data/ext/ffi_c/libffi/testsuite/libffi.call/offsets.c +46 -0
  355. data/ext/ffi_c/libffi/testsuite/libffi.call/pr1172638.c +127 -0
  356. data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +90 -0
  357. data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
  358. data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
  359. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +36 -0
  360. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
  361. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
  362. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
  363. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
  364. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
  365. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
  366. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
  367. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
  368. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +43 -0
  369. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
  370. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
  371. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
  372. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
  373. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large.c +145 -0
  374. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large2.c +148 -0
  375. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium.c +124 -0
  376. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium2.c +125 -0
  377. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
  378. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +49 -0
  379. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +49 -0
  380. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +55 -0
  381. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +67 -0
  382. data/ext/ffi_c/libffi/testsuite/libffi.call/struct10.c +57 -0
  383. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
  384. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +60 -0
  385. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +64 -0
  386. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +66 -0
  387. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
  388. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
  389. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +81 -0
  390. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +68 -0
  391. data/ext/ffi_c/libffi/testsuite/libffi.call/testclosure.c +70 -0
  392. data/ext/ffi_c/libffi/testsuite/libffi.call/uninitialized.c +61 -0
  393. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest.cc +117 -0
  394. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest_ffi_call.cc +54 -0
  395. data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +196 -0
  396. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +121 -0
  397. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +123 -0
  398. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +125 -0
  399. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex.inc +91 -0
  400. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_double.c +10 -0
  401. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_float.c +10 -0
  402. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +10 -0
  403. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex.inc +42 -0
  404. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_double.c +10 -0
  405. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_float.c +10 -0
  406. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +10 -0
  407. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct.inc +71 -0
  408. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +10 -0
  409. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +10 -0
  410. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +10 -0
  411. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va.inc +80 -0
  412. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c +10 -0
  413. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c +16 -0
  414. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +10 -0
  415. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.exp +36 -0
  416. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc +51 -0
  417. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc +7 -0
  418. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc +7 -0
  419. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +7 -0
  420. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c +10 -0
  421. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c +10 -0
  422. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c +86 -0
  423. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c +10 -0
  424. data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h +1 -0
  425. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc +78 -0
  426. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c +10 -0
  427. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c +10 -0
  428. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c +10 -0
  429. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc +37 -0
  430. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc +41 -0
  431. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_double.c +10 -0
  432. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_float.c +10 -0
  433. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +10 -0
  434. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2.inc +44 -0
  435. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_double.c +10 -0
  436. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_float.c +10 -0
  437. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +10 -0
  438. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_double.c +10 -0
  439. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c +10 -0
  440. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c +10 -0
  441. data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c +34 -0
  442. data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c +28 -0
  443. data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h +1 -0
  444. data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp +36 -0
  445. data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h +19 -0
  446. data/ext/ffi_c/rbffi.h +55 -0
  447. data/ext/ffi_c/rbffi_endian.h +59 -0
  448. data/ext/ffi_c/win32/stdbool.h +8 -0
  449. data/ext/ffi_c/win32/stdint.h +201 -0
  450. data/ffi.gemspec +43 -0
  451. data/lib/ffi.rb +20 -0
  452. data/lib/ffi/autopointer.rb +203 -0
  453. data/lib/ffi/buffer.rb +4 -0
  454. data/lib/ffi/callback.rb +4 -0
  455. data/lib/ffi/data_converter.rb +67 -0
  456. data/lib/ffi/enum.rb +296 -0
  457. data/lib/ffi/errno.rb +43 -0
  458. data/lib/ffi/ffi.rb +45 -0
  459. data/lib/ffi/io.rb +62 -0
  460. data/lib/ffi/library.rb +588 -0
  461. data/lib/ffi/managedstruct.rb +84 -0
  462. data/lib/ffi/memorypointer.rb +1 -0
  463. data/lib/ffi/platform.rb +172 -0
  464. data/lib/ffi/platform/aarch64-freebsd/types.conf +128 -0
  465. data/lib/ffi/platform/aarch64-freebsd12/types.conf +128 -0
  466. data/lib/ffi/platform/aarch64-linux/types.conf +104 -0
  467. data/lib/ffi/platform/arm-freebsd/types.conf +152 -0
  468. data/lib/ffi/platform/arm-freebsd12/types.conf +152 -0
  469. data/lib/ffi/platform/arm-linux/types.conf +104 -0
  470. data/lib/ffi/platform/i386-cygwin/types.conf +3 -0
  471. data/lib/ffi/platform/i386-darwin/types.conf +100 -0
  472. data/lib/ffi/platform/i386-freebsd/types.conf +152 -0
  473. data/lib/ffi/platform/i386-freebsd12/types.conf +152 -0
  474. data/lib/ffi/platform/i386-gnu/types.conf +107 -0
  475. data/lib/ffi/platform/i386-linux/types.conf +103 -0
  476. data/lib/ffi/platform/i386-netbsd/types.conf +126 -0
  477. data/lib/ffi/platform/i386-openbsd/types.conf +128 -0
  478. data/lib/ffi/platform/i386-solaris/types.conf +122 -0
  479. data/lib/ffi/platform/i386-windows/types.conf +105 -0
  480. data/lib/ffi/platform/ia64-linux/types.conf +104 -0
  481. data/lib/ffi/platform/mips-linux/types.conf +102 -0
  482. data/lib/ffi/platform/mips64-linux/types.conf +104 -0
  483. data/lib/ffi/platform/mips64el-linux/types.conf +104 -0
  484. data/lib/ffi/platform/mipsel-linux/types.conf +102 -0
  485. data/lib/ffi/platform/mipsisa32r6-linux/types.conf +102 -0
  486. data/lib/ffi/platform/mipsisa32r6el-linux/types.conf +102 -0
  487. data/lib/ffi/platform/mipsisa64r6-linux/types.conf +104 -0
  488. data/lib/ffi/platform/mipsisa64r6el-linux/types.conf +104 -0
  489. data/lib/ffi/platform/powerpc-aix/types.conf +180 -0
  490. data/lib/ffi/platform/powerpc-darwin/types.conf +100 -0
  491. data/lib/ffi/platform/powerpc-linux/types.conf +100 -0
  492. data/lib/ffi/platform/powerpc64-linux/types.conf +104 -0
  493. data/lib/ffi/platform/s390-linux/types.conf +102 -0
  494. data/lib/ffi/platform/s390x-linux/types.conf +102 -0
  495. data/lib/ffi/platform/sparc-linux/types.conf +102 -0
  496. data/lib/ffi/platform/sparc-solaris/types.conf +128 -0
  497. data/lib/ffi/platform/sparc64-linux/types.conf +102 -0
  498. data/lib/ffi/platform/sparcv9-solaris/types.conf +128 -0
  499. data/lib/ffi/platform/x86_64-cygwin/types.conf +3 -0
  500. data/lib/ffi/platform/x86_64-darwin/types.conf +126 -0
  501. data/lib/ffi/platform/x86_64-freebsd/types.conf +128 -0
  502. data/lib/ffi/platform/x86_64-freebsd12/types.conf +128 -0
  503. data/lib/ffi/platform/x86_64-linux/types.conf +102 -0
  504. data/lib/ffi/platform/x86_64-netbsd/types.conf +128 -0
  505. data/lib/ffi/platform/x86_64-openbsd/types.conf +134 -0
  506. data/lib/ffi/platform/x86_64-solaris/types.conf +122 -0
  507. data/lib/ffi/platform/x86_64-windows/types.conf +120 -0
  508. data/lib/ffi/pointer.rb +160 -0
  509. data/lib/ffi/struct.rb +311 -0
  510. data/lib/ffi/struct_by_reference.rb +72 -0
  511. data/lib/ffi/struct_layout.rb +96 -0
  512. data/lib/ffi/struct_layout_builder.rb +227 -0
  513. data/lib/ffi/tools/const_generator.rb +230 -0
  514. data/lib/ffi/tools/generator.rb +105 -0
  515. data/lib/ffi/tools/generator_task.rb +32 -0
  516. data/lib/ffi/tools/struct_generator.rb +194 -0
  517. data/lib/ffi/tools/types_generator.rb +134 -0
  518. data/lib/ffi/types.rb +194 -0
  519. data/lib/ffi/union.rb +43 -0
  520. data/lib/ffi/variadic.rb +78 -0
  521. data/lib/ffi/version.rb +3 -0
  522. data/samples/getlogin.rb +8 -0
  523. data/samples/getpid.rb +8 -0
  524. data/samples/gettimeofday.rb +18 -0
  525. data/samples/hello.rb +7 -0
  526. data/samples/inotify.rb +60 -0
  527. data/samples/pty.rb +76 -0
  528. data/samples/qsort.rb +21 -0
  529. data/samples/sample_helper.rb +6 -0
  530. metadata +663 -0
@@ -0,0 +1,604 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 1998, 2007, 2008, 2012 Red Hat, Inc.
3
+ Copyright (c) 2000 Hewlett Packard Company
4
+ Copyright (c) 2011 Anthony Green
5
+
6
+ IA64 Foreign Function Interface
7
+
8
+ Permission is hereby granted, free of charge, to any person obtaining
9
+ a copy of this software and associated documentation files (the
10
+ ``Software''), to deal in the Software without restriction, including
11
+ without limitation the rights to use, copy, modify, merge, publish,
12
+ distribute, sublicense, and/or sell copies of the Software, and to
13
+ permit persons to whom the Software is furnished to do so, subject to
14
+ the following conditions:
15
+
16
+ The above copyright notice and this permission notice shall be included
17
+ in all copies or substantial portions of the Software.
18
+
19
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
20
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
21
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
22
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
23
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
24
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
25
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
26
+ DEALINGS IN THE SOFTWARE.
27
+ ----------------------------------------------------------------------- */
28
+
29
+ #include <ffi.h>
30
+ #include <ffi_common.h>
31
+
32
+ #include <stdlib.h>
33
+ #include <stdbool.h>
34
+ #include <float.h>
35
+
36
+ #include "ia64_flags.h"
37
+
38
+ /* A 64-bit pointer value. In LP64 mode, this is effectively a plain
39
+ pointer. In ILP32 mode, it's a pointer that's been extended to
40
+ 64 bits by "addp4". */
41
+ typedef void *PTR64 __attribute__((mode(DI)));
42
+
43
+ /* Memory image of fp register contents. This is the implementation
44
+ specific format used by ldf.fill/stf.spill. All we care about is
45
+ that it wants a 16 byte aligned slot. */
46
+ typedef struct
47
+ {
48
+ UINT64 x[2] __attribute__((aligned(16)));
49
+ } fpreg;
50
+
51
+
52
+ /* The stack layout given to ffi_call_unix and ffi_closure_unix_inner. */
53
+
54
+ struct ia64_args
55
+ {
56
+ fpreg fp_regs[8]; /* Contents of 8 fp arg registers. */
57
+ UINT64 gp_regs[8]; /* Contents of 8 gp arg registers. */
58
+ UINT64 other_args[]; /* Arguments passed on stack, variable size. */
59
+ };
60
+
61
+
62
+ /* Adjust ADDR, a pointer to an 8 byte slot, to point to the low LEN bytes. */
63
+
64
+ static inline void *
65
+ endian_adjust (void *addr, size_t len)
66
+ {
67
+ #ifdef __BIG_ENDIAN__
68
+ return addr + (8 - len);
69
+ #else
70
+ return addr;
71
+ #endif
72
+ }
73
+
74
+ /* Store VALUE to ADDR in the current cpu implementation's fp spill format.
75
+ This is a macro instead of a function, so that it works for all 3 floating
76
+ point types without type conversions. Type conversion to long double breaks
77
+ the denorm support. */
78
+
79
+ #define stf_spill(addr, value) \
80
+ asm ("stf.spill %0 = %1%P0" : "=m" (*addr) : "f"(value));
81
+
82
+ /* Load a value from ADDR, which is in the current cpu implementation's
83
+ fp spill format. As above, this must also be a macro. */
84
+
85
+ #define ldf_fill(result, addr) \
86
+ asm ("ldf.fill %0 = %1%P1" : "=f"(result) : "m"(*addr));
87
+
88
+ /* Return the size of the C type associated with with TYPE. Which will
89
+ be one of the FFI_IA64_TYPE_HFA_* values. */
90
+
91
+ static size_t
92
+ hfa_type_size (int type)
93
+ {
94
+ switch (type)
95
+ {
96
+ case FFI_IA64_TYPE_HFA_FLOAT:
97
+ return sizeof(float);
98
+ case FFI_IA64_TYPE_HFA_DOUBLE:
99
+ return sizeof(double);
100
+ case FFI_IA64_TYPE_HFA_LDOUBLE:
101
+ return sizeof(__float80);
102
+ default:
103
+ abort ();
104
+ }
105
+ }
106
+
107
+ /* Load from ADDR a value indicated by TYPE. Which will be one of
108
+ the FFI_IA64_TYPE_HFA_* values. */
109
+
110
+ static void
111
+ hfa_type_load (fpreg *fpaddr, int type, void *addr)
112
+ {
113
+ switch (type)
114
+ {
115
+ case FFI_IA64_TYPE_HFA_FLOAT:
116
+ stf_spill (fpaddr, *(float *) addr);
117
+ return;
118
+ case FFI_IA64_TYPE_HFA_DOUBLE:
119
+ stf_spill (fpaddr, *(double *) addr);
120
+ return;
121
+ case FFI_IA64_TYPE_HFA_LDOUBLE:
122
+ stf_spill (fpaddr, *(__float80 *) addr);
123
+ return;
124
+ default:
125
+ abort ();
126
+ }
127
+ }
128
+
129
+ /* Load VALUE into ADDR as indicated by TYPE. Which will be one of
130
+ the FFI_IA64_TYPE_HFA_* values. */
131
+
132
+ static void
133
+ hfa_type_store (int type, void *addr, fpreg *fpaddr)
134
+ {
135
+ switch (type)
136
+ {
137
+ case FFI_IA64_TYPE_HFA_FLOAT:
138
+ {
139
+ float result;
140
+ ldf_fill (result, fpaddr);
141
+ *(float *) addr = result;
142
+ break;
143
+ }
144
+ case FFI_IA64_TYPE_HFA_DOUBLE:
145
+ {
146
+ double result;
147
+ ldf_fill (result, fpaddr);
148
+ *(double *) addr = result;
149
+ break;
150
+ }
151
+ case FFI_IA64_TYPE_HFA_LDOUBLE:
152
+ {
153
+ __float80 result;
154
+ ldf_fill (result, fpaddr);
155
+ *(__float80 *) addr = result;
156
+ break;
157
+ }
158
+ default:
159
+ abort ();
160
+ }
161
+ }
162
+
163
+ /* Is TYPE a struct containing floats, doubles, or extended doubles,
164
+ all of the same fp type? If so, return the element type. Return
165
+ FFI_TYPE_VOID if not. */
166
+
167
+ static int
168
+ hfa_element_type (ffi_type *type, int nested)
169
+ {
170
+ int element = FFI_TYPE_VOID;
171
+
172
+ switch (type->type)
173
+ {
174
+ case FFI_TYPE_FLOAT:
175
+ /* We want to return VOID for raw floating-point types, but the
176
+ synthetic HFA type if we're nested within an aggregate. */
177
+ if (nested)
178
+ element = FFI_IA64_TYPE_HFA_FLOAT;
179
+ break;
180
+
181
+ case FFI_TYPE_DOUBLE:
182
+ /* Similarly. */
183
+ if (nested)
184
+ element = FFI_IA64_TYPE_HFA_DOUBLE;
185
+ break;
186
+
187
+ case FFI_TYPE_LONGDOUBLE:
188
+ /* Similarly, except that that HFA is true for double extended,
189
+ but not quad precision. Both have sizeof == 16, so tell the
190
+ difference based on the precision. */
191
+ if (LDBL_MANT_DIG == 64 && nested)
192
+ element = FFI_IA64_TYPE_HFA_LDOUBLE;
193
+ break;
194
+
195
+ case FFI_TYPE_STRUCT:
196
+ {
197
+ ffi_type **ptr = &type->elements[0];
198
+
199
+ for (ptr = &type->elements[0]; *ptr ; ptr++)
200
+ {
201
+ int sub_element = hfa_element_type (*ptr, 1);
202
+ if (sub_element == FFI_TYPE_VOID)
203
+ return FFI_TYPE_VOID;
204
+
205
+ if (element == FFI_TYPE_VOID)
206
+ element = sub_element;
207
+ else if (element != sub_element)
208
+ return FFI_TYPE_VOID;
209
+ }
210
+ }
211
+ break;
212
+
213
+ default:
214
+ return FFI_TYPE_VOID;
215
+ }
216
+
217
+ return element;
218
+ }
219
+
220
+
221
+ /* Perform machine dependent cif processing. */
222
+
223
+ static ffi_status
224
+ ffi_prep_cif_machdep_core(ffi_cif *cif)
225
+ {
226
+ int flags;
227
+
228
+ /* Adjust cif->bytes to include space for the bits of the ia64_args frame
229
+ that precedes the integer register portion. The estimate that the
230
+ generic bits did for the argument space required is good enough for the
231
+ integer component. */
232
+ cif->bytes += offsetof(struct ia64_args, gp_regs[0]);
233
+ if (cif->bytes < sizeof(struct ia64_args))
234
+ cif->bytes = sizeof(struct ia64_args);
235
+
236
+ /* Set the return type flag. */
237
+ flags = cif->rtype->type;
238
+ switch (cif->rtype->type)
239
+ {
240
+ case FFI_TYPE_LONGDOUBLE:
241
+ /* Leave FFI_TYPE_LONGDOUBLE as meaning double extended precision,
242
+ and encode quad precision as a two-word integer structure. */
243
+ if (LDBL_MANT_DIG != 64)
244
+ flags = FFI_IA64_TYPE_SMALL_STRUCT | (16 << 8);
245
+ break;
246
+
247
+ case FFI_TYPE_STRUCT:
248
+ {
249
+ size_t size = cif->rtype->size;
250
+ int hfa_type = hfa_element_type (cif->rtype, 0);
251
+
252
+ if (hfa_type != FFI_TYPE_VOID)
253
+ {
254
+ size_t nelts = size / hfa_type_size (hfa_type);
255
+ if (nelts <= 8)
256
+ flags = hfa_type | (size << 8);
257
+ }
258
+ else
259
+ {
260
+ if (size <= 32)
261
+ flags = FFI_IA64_TYPE_SMALL_STRUCT | (size << 8);
262
+ }
263
+ }
264
+ break;
265
+
266
+ default:
267
+ break;
268
+ }
269
+ cif->flags = flags;
270
+
271
+ return FFI_OK;
272
+ }
273
+
274
+ ffi_status
275
+ ffi_prep_cif_machdep(ffi_cif *cif)
276
+ {
277
+ cif->nfixedargs = cif->nargs;
278
+ return ffi_prep_cif_machdep_core(cif);
279
+ }
280
+
281
+ ffi_status
282
+ ffi_prep_cif_machdep_var(ffi_cif *cif,
283
+ unsigned int nfixedargs,
284
+ unsigned int ntotalargs MAYBE_UNUSED)
285
+ {
286
+ cif->nfixedargs = nfixedargs;
287
+ return ffi_prep_cif_machdep_core(cif);
288
+ }
289
+
290
+ extern int ffi_call_unix (struct ia64_args *, PTR64, void (*)(void), UINT64);
291
+
292
+ void
293
+ ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
294
+ {
295
+ struct ia64_args *stack;
296
+ long i, avn, gpcount, fpcount;
297
+ ffi_type **p_arg;
298
+
299
+ FFI_ASSERT (cif->abi == FFI_UNIX);
300
+
301
+ /* If we have no spot for a return value, make one. */
302
+ if (rvalue == NULL && cif->rtype->type != FFI_TYPE_VOID)
303
+ rvalue = alloca (cif->rtype->size);
304
+
305
+ /* Allocate the stack frame. */
306
+ stack = alloca (cif->bytes);
307
+
308
+ gpcount = fpcount = 0;
309
+ avn = cif->nargs;
310
+ for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
311
+ {
312
+ switch ((*p_arg)->type)
313
+ {
314
+ case FFI_TYPE_SINT8:
315
+ stack->gp_regs[gpcount++] = *(SINT8 *)avalue[i];
316
+ break;
317
+ case FFI_TYPE_UINT8:
318
+ stack->gp_regs[gpcount++] = *(UINT8 *)avalue[i];
319
+ break;
320
+ case FFI_TYPE_SINT16:
321
+ stack->gp_regs[gpcount++] = *(SINT16 *)avalue[i];
322
+ break;
323
+ case FFI_TYPE_UINT16:
324
+ stack->gp_regs[gpcount++] = *(UINT16 *)avalue[i];
325
+ break;
326
+ case FFI_TYPE_SINT32:
327
+ stack->gp_regs[gpcount++] = *(SINT32 *)avalue[i];
328
+ break;
329
+ case FFI_TYPE_UINT32:
330
+ stack->gp_regs[gpcount++] = *(UINT32 *)avalue[i];
331
+ break;
332
+ case FFI_TYPE_SINT64:
333
+ case FFI_TYPE_UINT64:
334
+ stack->gp_regs[gpcount++] = *(UINT64 *)avalue[i];
335
+ break;
336
+
337
+ case FFI_TYPE_POINTER:
338
+ stack->gp_regs[gpcount++] = (UINT64)(PTR64) *(void **)avalue[i];
339
+ break;
340
+
341
+ case FFI_TYPE_FLOAT:
342
+ if (gpcount < 8 && fpcount < 8)
343
+ stf_spill (&stack->fp_regs[fpcount++], *(float *)avalue[i]);
344
+ {
345
+ UINT32 tmp;
346
+ memcpy (&tmp, avalue[i], sizeof (UINT32));
347
+ stack->gp_regs[gpcount++] = tmp;
348
+ }
349
+ break;
350
+
351
+ case FFI_TYPE_DOUBLE:
352
+ if (gpcount < 8 && fpcount < 8)
353
+ stf_spill (&stack->fp_regs[fpcount++], *(double *)avalue[i]);
354
+ memcpy (&stack->gp_regs[gpcount++], avalue[i], sizeof (UINT64));
355
+ break;
356
+
357
+ case FFI_TYPE_LONGDOUBLE:
358
+ if (gpcount & 1)
359
+ gpcount++;
360
+ if (LDBL_MANT_DIG == 64 && gpcount < 8 && fpcount < 8)
361
+ stf_spill (&stack->fp_regs[fpcount++], *(__float80 *)avalue[i]);
362
+ memcpy (&stack->gp_regs[gpcount], avalue[i], 16);
363
+ gpcount += 2;
364
+ break;
365
+
366
+ case FFI_TYPE_STRUCT:
367
+ {
368
+ size_t size = (*p_arg)->size;
369
+ size_t align = (*p_arg)->alignment;
370
+ int hfa_type = hfa_element_type (*p_arg, 0);
371
+
372
+ FFI_ASSERT (align <= 16);
373
+ if (align == 16 && (gpcount & 1))
374
+ gpcount++;
375
+
376
+ if (hfa_type != FFI_TYPE_VOID)
377
+ {
378
+ size_t hfa_size = hfa_type_size (hfa_type);
379
+ size_t offset = 0;
380
+ size_t gp_offset = gpcount * 8;
381
+
382
+ while (fpcount < 8
383
+ && offset < size
384
+ && gp_offset < 8 * 8)
385
+ {
386
+ hfa_type_load (&stack->fp_regs[fpcount], hfa_type,
387
+ avalue[i] + offset);
388
+ offset += hfa_size;
389
+ gp_offset += hfa_size;
390
+ fpcount += 1;
391
+ }
392
+ }
393
+
394
+ memcpy (&stack->gp_regs[gpcount], avalue[i], size);
395
+ gpcount += (size + 7) / 8;
396
+ }
397
+ break;
398
+
399
+ default:
400
+ abort ();
401
+ }
402
+ }
403
+
404
+ ffi_call_unix (stack, rvalue, fn, cif->flags);
405
+ }
406
+
407
+ /* Closures represent a pair consisting of a function pointer, and
408
+ some user data. A closure is invoked by reinterpreting the closure
409
+ as a function pointer, and branching to it. Thus we can make an
410
+ interpreted function callable as a C function: We turn the
411
+ interpreter itself, together with a pointer specifying the
412
+ interpreted procedure, into a closure.
413
+
414
+ For IA64, function pointer are already pairs consisting of a code
415
+ pointer, and a gp pointer. The latter is needed to access global
416
+ variables. Here we set up such a pair as the first two words of
417
+ the closure (in the "trampoline" area), but we replace the gp
418
+ pointer with a pointer to the closure itself. We also add the real
419
+ gp pointer to the closure. This allows the function entry code to
420
+ both retrieve the user data, and to restore the correct gp pointer. */
421
+
422
+ extern void ffi_closure_unix ();
423
+
424
+ ffi_status
425
+ ffi_prep_closure_loc (ffi_closure* closure,
426
+ ffi_cif* cif,
427
+ void (*fun)(ffi_cif*,void*,void**,void*),
428
+ void *user_data,
429
+ void *codeloc)
430
+ {
431
+ /* The layout of a function descriptor. A C function pointer really
432
+ points to one of these. */
433
+ struct ia64_fd
434
+ {
435
+ UINT64 code_pointer;
436
+ UINT64 gp;
437
+ };
438
+
439
+ struct ffi_ia64_trampoline_struct
440
+ {
441
+ UINT64 code_pointer; /* Pointer to ffi_closure_unix. */
442
+ UINT64 fake_gp; /* Pointer to closure, installed as gp. */
443
+ UINT64 real_gp; /* Real gp value. */
444
+ };
445
+
446
+ struct ffi_ia64_trampoline_struct *tramp;
447
+ struct ia64_fd *fd;
448
+
449
+ if (cif->abi != FFI_UNIX)
450
+ return FFI_BAD_ABI;
451
+
452
+ tramp = (struct ffi_ia64_trampoline_struct *)closure->tramp;
453
+ fd = (struct ia64_fd *)(void *)ffi_closure_unix;
454
+
455
+ tramp->code_pointer = fd->code_pointer;
456
+ tramp->real_gp = fd->gp;
457
+ tramp->fake_gp = (UINT64)(PTR64)codeloc;
458
+ closure->cif = cif;
459
+ closure->user_data = user_data;
460
+ closure->fun = fun;
461
+
462
+ return FFI_OK;
463
+ }
464
+
465
+
466
+ UINT64
467
+ ffi_closure_unix_inner (ffi_closure *closure, struct ia64_args *stack,
468
+ void *rvalue, void *r8)
469
+ {
470
+ ffi_cif *cif;
471
+ void **avalue;
472
+ ffi_type **p_arg;
473
+ long i, avn, gpcount, fpcount, nfixedargs;
474
+
475
+ cif = closure->cif;
476
+ avn = cif->nargs;
477
+ nfixedargs = cif->nfixedargs;
478
+ avalue = alloca (avn * sizeof (void *));
479
+
480
+ /* If the structure return value is passed in memory get that location
481
+ from r8 so as to pass the value directly back to the caller. */
482
+ if (cif->flags == FFI_TYPE_STRUCT)
483
+ rvalue = r8;
484
+
485
+ gpcount = fpcount = 0;
486
+ for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
487
+ {
488
+ int named = i < nfixedargs;
489
+ switch ((*p_arg)->type)
490
+ {
491
+ case FFI_TYPE_SINT8:
492
+ case FFI_TYPE_UINT8:
493
+ avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], 1);
494
+ break;
495
+ case FFI_TYPE_SINT16:
496
+ case FFI_TYPE_UINT16:
497
+ avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], 2);
498
+ break;
499
+ case FFI_TYPE_SINT32:
500
+ case FFI_TYPE_UINT32:
501
+ avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], 4);
502
+ break;
503
+ case FFI_TYPE_SINT64:
504
+ case FFI_TYPE_UINT64:
505
+ avalue[i] = &stack->gp_regs[gpcount++];
506
+ break;
507
+ case FFI_TYPE_POINTER:
508
+ avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], sizeof(void*));
509
+ break;
510
+
511
+ case FFI_TYPE_FLOAT:
512
+ if (named && gpcount < 8 && fpcount < 8)
513
+ {
514
+ fpreg *addr = &stack->fp_regs[fpcount++];
515
+ float result;
516
+ avalue[i] = addr;
517
+ ldf_fill (result, addr);
518
+ *(float *)addr = result;
519
+ }
520
+ else
521
+ avalue[i] = endian_adjust(&stack->gp_regs[gpcount], 4);
522
+ gpcount++;
523
+ break;
524
+
525
+ case FFI_TYPE_DOUBLE:
526
+ if (named && gpcount < 8 && fpcount < 8)
527
+ {
528
+ fpreg *addr = &stack->fp_regs[fpcount++];
529
+ double result;
530
+ avalue[i] = addr;
531
+ ldf_fill (result, addr);
532
+ *(double *)addr = result;
533
+ }
534
+ else
535
+ avalue[i] = &stack->gp_regs[gpcount];
536
+ gpcount++;
537
+ break;
538
+
539
+ case FFI_TYPE_LONGDOUBLE:
540
+ if (gpcount & 1)
541
+ gpcount++;
542
+ if (LDBL_MANT_DIG == 64 && named && gpcount < 8 && fpcount < 8)
543
+ {
544
+ fpreg *addr = &stack->fp_regs[fpcount++];
545
+ __float80 result;
546
+ avalue[i] = addr;
547
+ ldf_fill (result, addr);
548
+ *(__float80 *)addr = result;
549
+ }
550
+ else
551
+ avalue[i] = &stack->gp_regs[gpcount];
552
+ gpcount += 2;
553
+ break;
554
+
555
+ case FFI_TYPE_STRUCT:
556
+ {
557
+ size_t size = (*p_arg)->size;
558
+ size_t align = (*p_arg)->alignment;
559
+ int hfa_type = hfa_element_type (*p_arg, 0);
560
+
561
+ FFI_ASSERT (align <= 16);
562
+ if (align == 16 && (gpcount & 1))
563
+ gpcount++;
564
+
565
+ if (hfa_type != FFI_TYPE_VOID)
566
+ {
567
+ size_t hfa_size = hfa_type_size (hfa_type);
568
+ size_t offset = 0;
569
+ size_t gp_offset = gpcount * 8;
570
+ void *addr = alloca (size);
571
+
572
+ avalue[i] = addr;
573
+
574
+ while (fpcount < 8
575
+ && offset < size
576
+ && gp_offset < 8 * 8)
577
+ {
578
+ hfa_type_store (hfa_type, addr + offset,
579
+ &stack->fp_regs[fpcount]);
580
+ offset += hfa_size;
581
+ gp_offset += hfa_size;
582
+ fpcount += 1;
583
+ }
584
+
585
+ if (offset < size)
586
+ memcpy (addr + offset, (char *)stack->gp_regs + gp_offset,
587
+ size - offset);
588
+ }
589
+ else
590
+ avalue[i] = &stack->gp_regs[gpcount];
591
+
592
+ gpcount += (size + 7) / 8;
593
+ }
594
+ break;
595
+
596
+ default:
597
+ abort ();
598
+ }
599
+ }
600
+
601
+ closure->fun (cif, rvalue, avalue, closure->user_data);
602
+
603
+ return cif->flags;
604
+ }