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,53 @@
1
+ /* -----------------------------------------------------------------*-C-*-
2
+ ffitarget.h - Copyright (c) 2013 Imagination Technologies Ltd.
3
+ Target configuration macros for Meta
4
+
5
+ Permission is hereby granted, free of charge, to any person obtaining
6
+ a copy of this software and associated documentation files (the
7
+ ``Software''), to deal in the Software without restriction, including
8
+ without limitation the rights to use, copy, modify, merge, publish,
9
+ distribute, sublicense, and/or sell copies of the Software, and to
10
+ permit persons to whom the Software is furnished to do so, subject to
11
+ the following conditions:
12
+
13
+ The above copyright notice and this permission notice shall be included
14
+ in all copies or substantial portions of the Software.
15
+
16
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
17
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
20
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
21
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
22
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
23
+ DEALINGS IN THE SOFTWARE.
24
+
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #ifndef LIBFFI_TARGET_H
28
+ #define LIBFFI_TARGET_H
29
+
30
+ #ifndef LIBFFI_H
31
+ #error "Please do not include ffitarget.h directly into your source. Use ffi.h instead."
32
+ #endif
33
+
34
+ #ifndef LIBFFI_ASM
35
+ typedef unsigned long ffi_arg;
36
+ typedef signed long ffi_sarg;
37
+
38
+ typedef enum ffi_abi {
39
+ FFI_FIRST_ABI = 0,
40
+ FFI_SYSV,
41
+ FFI_DEFAULT_ABI = FFI_SYSV,
42
+ FFI_LAST_ABI = FFI_DEFAULT_ABI + 1,
43
+ } ffi_abi;
44
+ #endif
45
+
46
+ /* ---- Definitions for closures ----------------------------------------- */
47
+
48
+ #define FFI_CLOSURES 1
49
+ #define FFI_TRAMPOLINE_SIZE 48
50
+ #define FFI_NATIVE_RAW_API 0
51
+
52
+ #endif
53
+
@@ -0,0 +1,311 @@
1
+ /* -----------------------------------------------------------------------
2
+ sysv.S - Copyright (c) 2013 Imagination Technologies Ltd.
3
+
4
+ Meta Foreign Function Interface
5
+
6
+ Permission is hereby granted, free of charge, to any person obtaining
7
+ a copy of this software and associated documentation files (the
8
+ ``Software''), to deal in the Software without restriction, including
9
+ without limitation the rights to use, copy, modify, merge, publish,
10
+ distribute, sublicense, and/or sell copies of the Software, and to
11
+ permit persons to whom the Software is furnished to do so, subject to
12
+ the following conditions:
13
+
14
+ The above copyright notice and this permission notice shall be included
15
+ in all copies or substantial portions of the Software.
16
+
17
+
18
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
19
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
22
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
25
+ DEALINGS IN THE SOFTWARE.
26
+ ----------------------------------------------------------------------- */
27
+
28
+ #define LIBFFI_ASM
29
+ #include <fficonfig.h>
30
+ #include <ffi.h>
31
+ #ifdef HAVE_MACHINE_ASM_H
32
+ #include <machine/asm.h>
33
+ #else
34
+ #ifdef __USER_LABEL_PREFIX__
35
+ #define CONCAT1(a, b) CONCAT2(a, b)
36
+ #define CONCAT2(a, b) a ## b
37
+
38
+ /* Use the right prefix for global labels. */
39
+ #define CNAME(x) CONCAT1 (__USER_LABEL_PREFIX__, x)
40
+ #else
41
+ #define CNAME(x) x
42
+ #endif
43
+ #define ENTRY(x) .globl CNAME(x); .type CNAME(x), %function; CNAME(x):
44
+ #endif
45
+
46
+ #ifdef __ELF__
47
+ #define LSYM(x) .x
48
+ #else
49
+ #define LSYM(x) x
50
+ #endif
51
+
52
+ .macro call_reg x=
53
+ .text
54
+ .balign 4
55
+ mov D1RtP, \x
56
+ swap D1RtP, PC
57
+ .endm
58
+
59
+ ! Save register arguments
60
+ .macro SAVE_ARGS
61
+ .text
62
+ .balign 4
63
+ setl [A0StP++], D0Ar6, D1Ar5
64
+ setl [A0StP++], D0Ar4, D1Ar3
65
+ setl [A0StP++], D0Ar2, D1Ar1
66
+ .endm
67
+
68
+ ! Save retrun, frame pointer and other regs
69
+ .macro SAVE_REGS regs=
70
+ .text
71
+ .balign 4
72
+ setl [A0StP++], D0FrT, D1RtP
73
+ ! Needs to be a pair of regs
74
+ .ifnc "\regs",""
75
+ setl [A0StP++], \regs
76
+ .endif
77
+ .endm
78
+
79
+ ! Declare a global function
80
+ .macro METAG_FUNC_START name
81
+ .text
82
+ .balign 4
83
+ ENTRY(\name)
84
+ .endm
85
+
86
+ ! Return registers from the stack. Reverse SAVE_REGS operation
87
+ .macro RET_REGS regs=, cond=
88
+ .ifnc "\regs", ""
89
+ getl \regs, [--A0StP]
90
+ .endif
91
+ getl D0FrT, D1RtP, [--A0StP]
92
+ .endm
93
+
94
+ ! Return arguments
95
+ .macro RET_ARGS
96
+ getl D0Ar2, D1Ar1, [--A0StP]
97
+ getl D0Ar4, D1Ar3, [--A0StP]
98
+ getl D0Ar6, D1Ar5, [--A0StP]
99
+ .endm
100
+
101
+
102
+ ! D1Ar1: fn
103
+ ! D0Ar2: &ecif
104
+ ! D1Ar3: cif->bytes
105
+ ! D0Ar4: fig->flags
106
+ ! D1Ar5: ecif.rvalue
107
+
108
+ ! This assumes we are using GNU as
109
+ METAG_FUNC_START ffi_call_SYSV
110
+ ! Save argument registers
111
+
112
+ SAVE_ARGS
113
+
114
+ ! new frame
115
+ mov D0FrT, A0FrP
116
+ add A0FrP, A0StP, #0
117
+
118
+ ! Preserve the old frame pointer
119
+ SAVE_REGS "D1.5, D0.5"
120
+
121
+ ! Make room for new args. cifs->bytes is the total space for input
122
+ ! and return arguments
123
+
124
+ add A0StP, A0StP, D1Ar3
125
+
126
+ ! Preserve cifs->bytes & fn
127
+ mov D0.5, D1Ar3
128
+ mov D1.5, D1Ar1
129
+
130
+ ! Place all of the ffi_prep_args in position
131
+ mov D1Ar1, A0StP
132
+
133
+ ! Call ffi_prep_args(stack, &ecif)
134
+ #ifdef __PIC__
135
+ callr D1RtP, CNAME(ffi_prep_args@PLT)
136
+ #else
137
+ callr D1RtP, CNAME(ffi_prep_args)
138
+ #endif
139
+
140
+ ! Restore fn pointer
141
+
142
+ ! The foreign stack should look like this
143
+ ! XXXXX XXXXXX <--- stack pointer
144
+ ! FnArgN rvalue
145
+ ! FnArgN+2 FnArgN+1
146
+ ! FnArgN+4 FnArgN+3
147
+ ! ....
148
+ !
149
+
150
+ ! A0StP now points to the first (or return) argument + 4
151
+
152
+ ! Preserve cif->bytes
153
+ getl D0Ar2, D1Ar1, [--A0StP]
154
+ getl D0Ar4, D1Ar3, [--A0StP]
155
+ getl D0Ar6, D1Ar5, [--A0StP]
156
+
157
+ ! Place A0StP to the first argument again
158
+ add A0StP, A0StP, #24 ! That's because we loaded 6 regs x 4 byte each
159
+
160
+ ! A0FrP points to the initial stack without the reserved space for the
161
+ ! cifs->bytes, whilst A0StP points to the stack after the space allocation
162
+
163
+ ! fn was the first argument of ffi_call_SYSV.
164
+ ! The stack at this point looks like this:
165
+ !
166
+ ! A0StP(on entry to _SYSV) -> Arg6 Arg5 | low
167
+ ! Arg4 Arg3 |
168
+ ! Arg2 Arg1 |
169
+ ! A0FrP ----> D0FrtP D1RtP |
170
+ ! D1.5 D0.5 |
171
+ ! A0StP(bf prep_args) -> FnArgn FnArgn-1 |
172
+ ! FnArgn-2FnArgn-3 |
173
+ ! ................ | <= cifs->bytes
174
+ ! FnArg4 FnArg3 |
175
+ ! A0StP (prv_A0StP+cifs->bytes) FnArg2 FnArg1 | high
176
+ !
177
+ ! fn was in Arg1 so it's located in in A0FrP+#-0xC
178
+ !
179
+
180
+ ! D0Re0 contains the size of arguments stored in registers
181
+ sub A0StP, A0StP, D0Re0
182
+
183
+ ! Arg1 is the function pointer for the foreign call. This has been
184
+ ! preserved in D1.5
185
+
186
+ ! Time to call (fn). Arguments should be like this:
187
+ ! Arg1-Arg6 are loaded to regs
188
+ ! The rest of the arguments are stored in stack pointed by A0StP
189
+
190
+ call_reg D1.5
191
+
192
+ ! Reset stack.
193
+
194
+ mov A0StP, A0FrP
195
+
196
+ ! Load Arg1 with the pointer to storage for the return type
197
+ ! This was stored in Arg5
198
+
199
+ getd D1Ar1, [A0FrP+#-20]
200
+
201
+ ! Load D0Ar2 with the return type code. This was stored in Arg4 (flags)
202
+
203
+ getd D0Ar2, [A0FrP+#-16]
204
+
205
+ ! We are ready to start processing the return value
206
+ ! D0Re0 (and D1Re0) hold the return value
207
+
208
+ ! If the return value is NULL, assume no return value
209
+ cmp D1Ar1, #0
210
+ beq LSYM(Lepilogue)
211
+
212
+ ! return INT
213
+ cmp D0Ar2, #FFI_TYPE_INT
214
+ ! Sadly, there is no setd{cc} instruction so we need to workaround that
215
+ bne .INT64
216
+ setd [D1Ar1], D0Re0
217
+ b LSYM(Lepilogue)
218
+
219
+ ! return INT64
220
+ .INT64:
221
+ cmp D0Ar2, #FFI_TYPE_SINT64
222
+ setleq [D1Ar1], D0Re0, D1Re0
223
+
224
+ ! return DOUBLE
225
+ cmp D0Ar2, #FFI_TYPE_DOUBLE
226
+ setl [D1AR1++], D0Re0, D1Re0
227
+
228
+ LSYM(Lepilogue):
229
+ ! At this point, the stack pointer points right after the argument
230
+ ! saved area. We need to restore 4 regs, therefore we need to move
231
+ ! 16 bytes ahead.
232
+ add A0StP, A0StP, #16
233
+ RET_REGS "D1.5, D0.5"
234
+ RET_ARGS
235
+ getd D0Re0, [A0StP]
236
+ mov A0FrP, D0FrT
237
+ swap D1RtP, PC
238
+
239
+ .ffi_call_SYSV_end:
240
+ .size CNAME(ffi_call_SYSV),.ffi_call_SYSV_end-CNAME(ffi_call_SYSV)
241
+
242
+
243
+ /*
244
+ (called by ffi_metag_trampoline)
245
+ void ffi_closure_SYSV (ffi_closure*)
246
+
247
+ (called by ffi_closure_SYSV)
248
+ unsigned int FFI_HIDDEN
249
+ ffi_closure_SYSV_inner (closure,respp, args)
250
+ ffi_closure *closure;
251
+ void **respp;
252
+ void *args;
253
+ */
254
+
255
+ METAG_FUNC_START ffi_closure_SYSV
256
+ ! We assume that D1Ar1 holds the address of the
257
+ ! ffi_closure struct. We will use that to fetch the
258
+ ! arguments. The stack pointer points to an empty space
259
+ ! and it is ready to store more data.
260
+
261
+ ! D1Ar1 is ready
262
+ ! Allocate stack space for return value
263
+ add A0StP, A0StP, #8
264
+ ! Store it to D0Ar2
265
+ sub D0Ar2, A0StP, #8
266
+
267
+ sub D1Ar3, A0FrP, #4
268
+
269
+ ! D1Ar3 contains the address of the original D1Ar1 argument
270
+ ! We need to subtract #4 later on
271
+
272
+ ! Preverve D0Ar2
273
+ mov D0.5, D0Ar2
274
+
275
+ #ifdef __PIC__
276
+ callr D1RtP, CNAME(ffi_closure_SYSV_inner@PLT)
277
+ #else
278
+ callr D1RtP, CNAME(ffi_closure_SYSV_inner)
279
+ #endif
280
+
281
+ ! Check the return value and store it to D0.5
282
+ cmp D0Re0, #FFI_TYPE_INT
283
+ beq .Lretint
284
+ cmp D0Re0, #FFI_TYPE_DOUBLE
285
+ beq .Lretdouble
286
+ .Lclosure_epilogue:
287
+ sub A0StP, A0StP, #8
288
+ RET_REGS "D1.5, D0.5"
289
+ RET_ARGS
290
+ swap D1RtP, PC
291
+
292
+ .Lretint:
293
+ setd [D0.5], D0Re0
294
+ b .Lclosure_epilogue
295
+ .Lretdouble:
296
+ setl [D0.5++], D0Re0, D1Re0
297
+ b .Lclosure_epilogue
298
+ .ffi_closure_SYSV_end:
299
+ .size CNAME(ffi_closure_SYSV),.ffi_closure_SYSV_end-CNAME(ffi_closure_SYSV)
300
+
301
+
302
+ ENTRY(ffi_metag_trampoline)
303
+ SAVE_ARGS
304
+ ! New frame
305
+ mov A0FrP, A0StP
306
+ SAVE_REGS "D1.5, D0.5"
307
+ mov D0.5, PC
308
+ ! Load D1Ar1 the value of ffi_metag_trampoline
309
+ getd D1Ar1, [D0.5 + #8]
310
+ ! Jump to ffi_closure_SYSV
311
+ getd PC, [D0.5 + #12]
@@ -0,0 +1,321 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2012, 2013 Xilinx, Inc
3
+
4
+ MicroBlaze Foreign Function Interface
5
+
6
+ Permission is hereby granted, free of charge, to any person obtaining
7
+ a copy of this software and associated documentation files (the
8
+ ``Software''), to deal in the Software without restriction, including
9
+ without limitation the rights to use, copy, modify, merge, publish,
10
+ distribute, sublicense, and/or sell copies of the Software, and to
11
+ permit persons to whom the Software is furnished to do so, subject to
12
+ the following conditions:
13
+
14
+ The above copyright notice and this permission notice shall be included
15
+ in all copies or substantial portions of the Software.
16
+
17
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
18
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
23
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
+ DEALINGS IN THE SOFTWARE.
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #include <ffi.h>
28
+ #include <ffi_common.h>
29
+
30
+ extern void ffi_call_SYSV(void (*)(void*, extended_cif*), extended_cif*,
31
+ unsigned int, unsigned int, unsigned int*, void (*fn)(void),
32
+ unsigned int, unsigned int);
33
+
34
+ extern void ffi_closure_SYSV(void);
35
+
36
+ #define WORD_SIZE sizeof(unsigned int)
37
+ #define ARGS_REGISTER_SIZE (WORD_SIZE * 6)
38
+ #define WORD_FFI_ALIGN(x) FFI_ALIGN(x, WORD_SIZE)
39
+
40
+ /* ffi_prep_args is called by the assembly routine once stack space
41
+ has been allocated for the function's arguments */
42
+ void ffi_prep_args(void* stack, extended_cif* ecif)
43
+ {
44
+ unsigned int i;
45
+ ffi_type** p_arg;
46
+ void** p_argv;
47
+ void* stack_args_p = stack;
48
+
49
+ if (ecif == NULL || ecif->cif == NULL) {
50
+ return; /* no description to prepare */
51
+ }
52
+
53
+ p_argv = ecif->avalue;
54
+
55
+ if ((ecif->cif->rtype != NULL) &&
56
+ (ecif->cif->rtype->type == FFI_TYPE_STRUCT))
57
+ {
58
+ /* if return type is a struct which is referenced on the stack/reg5,
59
+ * by a pointer. Stored the return value pointer in r5.
60
+ */
61
+ char* addr = stack_args_p;
62
+ memcpy(addr, &(ecif->rvalue), WORD_SIZE);
63
+ stack_args_p += WORD_SIZE;
64
+ }
65
+
66
+ if (ecif->avalue == NULL) {
67
+ return; /* no arguments to prepare */
68
+ }
69
+
70
+ for (i = 0, p_arg = ecif->cif->arg_types; i < ecif->cif->nargs;
71
+ i++, p_arg++)
72
+ {
73
+ size_t size = (*p_arg)->size;
74
+ int type = (*p_arg)->type;
75
+ void* value = p_argv[i];
76
+ char* addr = stack_args_p;
77
+ int aligned_size = WORD_FFI_ALIGN(size);
78
+
79
+ /* force word alignment on the stack */
80
+ stack_args_p += aligned_size;
81
+
82
+ switch (type)
83
+ {
84
+ case FFI_TYPE_UINT8:
85
+ *(unsigned int *)addr = (unsigned int)*(UINT8*)(value);
86
+ break;
87
+ case FFI_TYPE_SINT8:
88
+ *(signed int *)addr = (signed int)*(SINT8*)(value);
89
+ break;
90
+ case FFI_TYPE_UINT16:
91
+ *(unsigned int *)addr = (unsigned int)*(UINT16*)(value);
92
+ break;
93
+ case FFI_TYPE_SINT16:
94
+ *(signed int *)addr = (signed int)*(SINT16*)(value);
95
+ break;
96
+ case FFI_TYPE_STRUCT:
97
+ #if __BIG_ENDIAN__
98
+ /*
99
+ * MicroBlaze toolchain appears to emit:
100
+ * bsrli r5, r5, 8 (caller)
101
+ * ...
102
+ * <branch to callee>
103
+ * ...
104
+ * bslli r5, r5, 8 (callee)
105
+ *
106
+ * For structs like "struct a { uint8_t a[3]; };", when passed
107
+ * by value.
108
+ *
109
+ * Structs like "struct b { uint16_t a; };" are also expected
110
+ * to be packed strangely in registers.
111
+ *
112
+ * This appears to be because the microblaze toolchain expects
113
+ * "struct b == uint16_t", which is only any issue for big
114
+ * endian.
115
+ *
116
+ * The following is a work around for big-endian only, for the
117
+ * above mentioned case, it will re-align the contents of a
118
+ * <= 3-byte struct value.
119
+ */
120
+ if (size < WORD_SIZE)
121
+ {
122
+ memcpy (addr + (WORD_SIZE - size), value, size);
123
+ break;
124
+ }
125
+ #endif
126
+ case FFI_TYPE_SINT32:
127
+ case FFI_TYPE_UINT32:
128
+ case FFI_TYPE_FLOAT:
129
+ case FFI_TYPE_SINT64:
130
+ case FFI_TYPE_UINT64:
131
+ case FFI_TYPE_DOUBLE:
132
+ default:
133
+ memcpy(addr, value, aligned_size);
134
+ }
135
+ }
136
+ }
137
+
138
+ ffi_status ffi_prep_cif_machdep(ffi_cif* cif)
139
+ {
140
+ /* check ABI */
141
+ switch (cif->abi)
142
+ {
143
+ case FFI_SYSV:
144
+ break;
145
+ default:
146
+ return FFI_BAD_ABI;
147
+ }
148
+ return FFI_OK;
149
+ }
150
+
151
+ void ffi_call(ffi_cif* cif, void (*fn)(void), void* rvalue, void** avalue)
152
+ {
153
+ extended_cif ecif;
154
+ ecif.cif = cif;
155
+ ecif.avalue = avalue;
156
+
157
+ /* If the return value is a struct and we don't have a return */
158
+ /* value address then we need to make one */
159
+ if ((rvalue == NULL) && (cif->rtype->type == FFI_TYPE_STRUCT)) {
160
+ ecif.rvalue = alloca(cif->rtype->size);
161
+ } else {
162
+ ecif.rvalue = rvalue;
163
+ }
164
+
165
+ switch (cif->abi)
166
+ {
167
+ case FFI_SYSV:
168
+ ffi_call_SYSV(ffi_prep_args, &ecif, cif->bytes, cif->flags,
169
+ ecif.rvalue, fn, cif->rtype->type, cif->rtype->size);
170
+ break;
171
+ default:
172
+ FFI_ASSERT(0);
173
+ break;
174
+ }
175
+ }
176
+
177
+ void ffi_closure_call_SYSV(void* register_args, void* stack_args,
178
+ ffi_closure* closure, void* rvalue,
179
+ unsigned int* rtype, unsigned int* rsize)
180
+ {
181
+ /* prepare arguments for closure call */
182
+ ffi_cif* cif = closure->cif;
183
+ ffi_type** arg_types = cif->arg_types;
184
+
185
+ /* re-allocate data for the args. This needs to be done in order to keep
186
+ * multi-word objects (e.g. structs) in contiguous memory. Callers are not
187
+ * required to store the value of args in the lower 6 words in the stack
188
+ * (although they are allocated in the stack).
189
+ */
190
+ char* stackclone = alloca(cif->bytes);
191
+ void** avalue = alloca(cif->nargs * sizeof(void*));
192
+ void* struct_rvalue = NULL;
193
+ char* ptr = stackclone;
194
+ int i;
195
+
196
+ /* copy registers into stack clone */
197
+ int registers_used = cif->bytes;
198
+ if (registers_used > ARGS_REGISTER_SIZE) {
199
+ registers_used = ARGS_REGISTER_SIZE;
200
+ }
201
+ memcpy(stackclone, register_args, registers_used);
202
+
203
+ /* copy stack allocated args into stack clone */
204
+ if (cif->bytes > ARGS_REGISTER_SIZE) {
205
+ int stack_used = cif->bytes - ARGS_REGISTER_SIZE;
206
+ memcpy(stackclone + ARGS_REGISTER_SIZE, stack_args, stack_used);
207
+ }
208
+
209
+ /* preserve struct type return pointer passing */
210
+ if ((cif->rtype != NULL) && (cif->rtype->type == FFI_TYPE_STRUCT)) {
211
+ struct_rvalue = *((void**)ptr);
212
+ ptr += WORD_SIZE;
213
+ }
214
+
215
+ /* populate arg pointer list */
216
+ for (i = 0; i < cif->nargs; i++)
217
+ {
218
+ switch (arg_types[i]->type)
219
+ {
220
+ case FFI_TYPE_SINT8:
221
+ case FFI_TYPE_UINT8:
222
+ #ifdef __BIG_ENDIAN__
223
+ avalue[i] = ptr + 3;
224
+ #else
225
+ avalue[i] = ptr;
226
+ #endif
227
+ break;
228
+ case FFI_TYPE_SINT16:
229
+ case FFI_TYPE_UINT16:
230
+ #ifdef __BIG_ENDIAN__
231
+ avalue[i] = ptr + 2;
232
+ #else
233
+ avalue[i] = ptr;
234
+ #endif
235
+ break;
236
+ case FFI_TYPE_STRUCT:
237
+ #if __BIG_ENDIAN__
238
+ /*
239
+ * Work around strange ABI behaviour.
240
+ * (see info in ffi_prep_args)
241
+ */
242
+ if (arg_types[i]->size < WORD_SIZE)
243
+ {
244
+ memcpy (ptr, ptr + (WORD_SIZE - arg_types[i]->size), arg_types[i]->size);
245
+ }
246
+ #endif
247
+ avalue[i] = (void*)ptr;
248
+ break;
249
+ case FFI_TYPE_UINT64:
250
+ case FFI_TYPE_SINT64:
251
+ case FFI_TYPE_DOUBLE:
252
+ avalue[i] = ptr;
253
+ break;
254
+ case FFI_TYPE_SINT32:
255
+ case FFI_TYPE_UINT32:
256
+ case FFI_TYPE_FLOAT:
257
+ default:
258
+ /* default 4-byte argument */
259
+ avalue[i] = ptr;
260
+ break;
261
+ }
262
+ ptr += WORD_FFI_ALIGN(arg_types[i]->size);
263
+ }
264
+
265
+ /* set the return type info passed back to the wrapper */
266
+ *rsize = cif->rtype->size;
267
+ *rtype = cif->rtype->type;
268
+ if (struct_rvalue != NULL) {
269
+ closure->fun(cif, struct_rvalue, avalue, closure->user_data);
270
+ /* copy struct return pointer value into function return value */
271
+ *((void**)rvalue) = struct_rvalue;
272
+ } else {
273
+ closure->fun(cif, rvalue, avalue, closure->user_data);
274
+ }
275
+ }
276
+
277
+ ffi_status ffi_prep_closure_loc(
278
+ ffi_closure* closure, ffi_cif* cif,
279
+ void (*fun)(ffi_cif*, void*, void**, void*),
280
+ void* user_data, void* codeloc)
281
+ {
282
+ unsigned long* tramp = (unsigned long*)&(closure->tramp[0]);
283
+ unsigned long cls = (unsigned long)codeloc;
284
+ unsigned long fn = 0;
285
+ unsigned long fn_closure_call_sysv = (unsigned long)ffi_closure_call_SYSV;
286
+
287
+ closure->cif = cif;
288
+ closure->fun = fun;
289
+ closure->user_data = user_data;
290
+
291
+ switch (cif->abi)
292
+ {
293
+ case FFI_SYSV:
294
+ fn = (unsigned long)ffi_closure_SYSV;
295
+
296
+ /* load r11 (temp) with fn */
297
+ /* imm fn(upper) */
298
+ tramp[0] = 0xb0000000 | ((fn >> 16) & 0xffff);
299
+ /* addik r11, r0, fn(lower) */
300
+ tramp[1] = 0x31600000 | (fn & 0xffff);
301
+
302
+ /* load r12 (temp) with cls */
303
+ /* imm cls(upper) */
304
+ tramp[2] = 0xb0000000 | ((cls >> 16) & 0xffff);
305
+ /* addik r12, r0, cls(lower) */
306
+ tramp[3] = 0x31800000 | (cls & 0xffff);
307
+
308
+ /* load r3 (temp) with ffi_closure_call_SYSV */
309
+ /* imm fn_closure_call_sysv(upper) */
310
+ tramp[4] = 0xb0000000 | ((fn_closure_call_sysv >> 16) & 0xffff);
311
+ /* addik r3, r0, fn_closure_call_sysv(lower) */
312
+ tramp[5] = 0x30600000 | (fn_closure_call_sysv & 0xffff);
313
+ /* branch/jump to address stored in r11 (fn) */
314
+ tramp[6] = 0x98085800; /* bra r11 */
315
+
316
+ break;
317
+ default:
318
+ return FFI_BAD_ABI;
319
+ }
320
+ return FFI_OK;
321
+ }