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,101 @@
1
+ /* -----------------------------------------------------------------------
2
+ eabi.S - Copyright (c) 2012, 2013 Anthony Green
3
+
4
+ Moxie Assembly glue.
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, EXPRESS
18
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
20
+ IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR
21
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
22
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
23
+ OTHER DEALINGS IN THE SOFTWARE.
24
+ ----------------------------------------------------------------------- */
25
+
26
+ #define LIBFFI_ASM
27
+ #include <fficonfig.h>
28
+ #include <ffi.h>
29
+
30
+ .globl ffi_prep_args_EABI
31
+
32
+ .text
33
+ .p2align 4
34
+ .globl ffi_call_EABI
35
+ .type ffi_call_EABI, @function
36
+
37
+ # $r0 : ffi_prep_args
38
+ # $r1 : &ecif
39
+ # $r2 : cif->bytes
40
+ # $r3 : fig->flags
41
+ # $r4 : ecif.rvalue
42
+ # $r5 : fn
43
+
44
+ ffi_call_EABI:
45
+ push $sp, $r6
46
+ push $sp, $r7
47
+ push $sp, $r8
48
+ dec $sp, 24
49
+
50
+ /* Store incoming args on stack. */
51
+ sto.l 0($sp), $r0 /* ffi_prep_args */
52
+ sto.l 4($sp), $r1 /* ecif */
53
+ sto.l 8($sp), $r2 /* bytes */
54
+ sto.l 12($sp), $r3 /* flags */
55
+ sto.l 16($sp), $r4 /* &rvalue */
56
+ sto.l 20($sp), $r5 /* fn */
57
+
58
+ /* Call ffi_prep_args. */
59
+ mov $r6, $r4 /* Save result buffer */
60
+ mov $r7, $r5 /* Save the target fn */
61
+ mov $r8, $r3 /* Save the flags */
62
+ sub $sp, $r2 /* Allocate stack space */
63
+ mov $r0, $sp /* We can stomp over $r0 */
64
+ /* $r1 is already set up */
65
+ jsra ffi_prep_args
66
+
67
+ /* Load register arguments. */
68
+ ldo.l $r0, 0($sp)
69
+ ldo.l $r1, 4($sp)
70
+ ldo.l $r2, 8($sp)
71
+ ldo.l $r3, 12($sp)
72
+ ldo.l $r4, 16($sp)
73
+ ldo.l $r5, 20($sp)
74
+
75
+ /* Call the target function. */
76
+ jsr $r7
77
+
78
+ ldi.l $r7, 0xffffffff
79
+ cmp $r8, $r7
80
+ beq retstruct
81
+
82
+ ldi.l $r7, 4
83
+ cmp $r8, $r7
84
+ bgt ret2reg
85
+
86
+ st.l ($r6), $r0
87
+ jmpa retdone
88
+
89
+ ret2reg:
90
+ st.l ($r6), $r0
91
+ sto.l 4($r6), $r1
92
+
93
+ retstruct:
94
+ retdone:
95
+ /* Return. */
96
+ ldo.l $r6, -4($fp)
97
+ ldo.l $r7, -8($fp)
98
+ ldo.l $r8, -12($fp)
99
+ ret
100
+ .size ffi_call_EABI, .-ffi_call_EABI
101
+
@@ -0,0 +1,285 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (C) 2012, 2013, 2018 Anthony Green
3
+
4
+ Moxie 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
+ #include <stdlib.h>
31
+
32
+ /* ffi_prep_args is called by the assembly routine once stack space
33
+ has been allocated for the function's arguments */
34
+
35
+ void *ffi_prep_args(char *stack, extended_cif *ecif)
36
+ {
37
+ register unsigned int i;
38
+ register void **p_argv;
39
+ register char *argp;
40
+ register ffi_type **p_arg;
41
+ register int count = 0;
42
+
43
+ p_argv = ecif->avalue;
44
+ argp = stack;
45
+
46
+ if (ecif->cif->rtype->type == FFI_TYPE_STRUCT)
47
+ {
48
+ *(void **) argp = ecif->rvalue;
49
+ argp += 4;
50
+ }
51
+
52
+ for (i = ecif->cif->nargs, p_arg = ecif->cif->arg_types;
53
+ (i != 0);
54
+ i--, p_arg++)
55
+ {
56
+ size_t z;
57
+
58
+ z = (*p_arg)->size;
59
+
60
+ if ((*p_arg)->type == FFI_TYPE_STRUCT)
61
+ {
62
+ z = sizeof(void*);
63
+ *(void **) argp = *p_argv;
64
+ }
65
+ else if (z < sizeof(int))
66
+ {
67
+ z = sizeof(int);
68
+ switch ((*p_arg)->type)
69
+ {
70
+ case FFI_TYPE_SINT8:
71
+ *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
72
+ break;
73
+
74
+ case FFI_TYPE_UINT8:
75
+ *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
76
+ break;
77
+
78
+ case FFI_TYPE_SINT16:
79
+ *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
80
+ break;
81
+
82
+ case FFI_TYPE_UINT16:
83
+ *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
84
+ break;
85
+
86
+ default:
87
+ FFI_ASSERT(0);
88
+ }
89
+ }
90
+ else if (z == sizeof(int))
91
+ {
92
+ *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
93
+ }
94
+ else
95
+ {
96
+ memcpy(argp, *p_argv, z);
97
+ }
98
+ p_argv++;
99
+ argp += z;
100
+ count += z;
101
+ }
102
+
103
+ return (stack + ((count > 24) ? 24 : FFI_ALIGN_DOWN(count, 8)));
104
+ }
105
+
106
+ /* Perform machine dependent cif processing */
107
+ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
108
+ {
109
+ if (cif->rtype->type == FFI_TYPE_STRUCT)
110
+ cif->flags = -1;
111
+ else
112
+ cif->flags = cif->rtype->size;
113
+
114
+ cif->bytes = FFI_ALIGN (cif->bytes, 8);
115
+
116
+ return FFI_OK;
117
+ }
118
+
119
+ extern void ffi_call_EABI(void *(*)(char *, extended_cif *),
120
+ extended_cif *,
121
+ unsigned, unsigned,
122
+ unsigned *,
123
+ void (*fn)(void));
124
+
125
+ void ffi_call(ffi_cif *cif,
126
+ void (*fn)(void),
127
+ void *rvalue,
128
+ void **avalue)
129
+ {
130
+ extended_cif ecif;
131
+
132
+ ecif.cif = cif;
133
+ ecif.avalue = avalue;
134
+
135
+ /* If the return value is a struct and we don't have a return */
136
+ /* value address then we need to make one */
137
+
138
+ if ((rvalue == NULL) &&
139
+ (cif->rtype->type == FFI_TYPE_STRUCT))
140
+ {
141
+ ecif.rvalue = alloca(cif->rtype->size);
142
+ }
143
+ else
144
+ ecif.rvalue = rvalue;
145
+
146
+ switch (cif->abi)
147
+ {
148
+ case FFI_EABI:
149
+ ffi_call_EABI(ffi_prep_args, &ecif, cif->bytes,
150
+ cif->flags, ecif.rvalue, fn);
151
+ break;
152
+ default:
153
+ FFI_ASSERT(0);
154
+ break;
155
+ }
156
+ }
157
+
158
+ void ffi_closure_eabi (unsigned arg1, unsigned arg2, unsigned arg3,
159
+ unsigned arg4, unsigned arg5, unsigned arg6)
160
+ {
161
+ /* This function is called by a trampoline. The trampoline stows a
162
+ pointer to the ffi_closure object in $r12. We must save this
163
+ pointer in a place that will persist while we do our work. */
164
+ register ffi_closure *creg __asm__ ("$r12");
165
+ ffi_closure *closure = creg;
166
+
167
+ /* Arguments that don't fit in registers are found on the stack
168
+ at a fixed offset above the current frame pointer. */
169
+ register char *frame_pointer __asm__ ("$fp");
170
+
171
+ /* Pointer to a struct return value. */
172
+ void *struct_rvalue = (void *) arg1;
173
+
174
+ /* 6 words reserved for register args + 3 words from jsr */
175
+ char *stack_args = frame_pointer + 9*4;
176
+
177
+ /* Lay the register arguments down in a continuous chunk of memory. */
178
+ unsigned register_args[6] =
179
+ { arg1, arg2, arg3, arg4, arg5, arg6 };
180
+ char *register_args_ptr = (char *) register_args;
181
+
182
+ ffi_cif *cif = closure->cif;
183
+ ffi_type **arg_types = cif->arg_types;
184
+ void **avalue = alloca (cif->nargs * sizeof(void *));
185
+ char *ptr = (char *) register_args;
186
+ int i;
187
+
188
+ /* preserve struct type return pointer passing */
189
+ if ((cif->rtype != NULL) && (cif->rtype->type == FFI_TYPE_STRUCT)) {
190
+ ptr += 4;
191
+ register_args_ptr = (char *)&register_args[1];
192
+ }
193
+
194
+ /* Find the address of each argument. */
195
+ for (i = 0; i < cif->nargs; i++)
196
+ {
197
+ switch (arg_types[i]->type)
198
+ {
199
+ case FFI_TYPE_SINT8:
200
+ case FFI_TYPE_UINT8:
201
+ avalue[i] = ptr + 3;
202
+ break;
203
+ case FFI_TYPE_SINT16:
204
+ case FFI_TYPE_UINT16:
205
+ avalue[i] = ptr + 2;
206
+ break;
207
+ case FFI_TYPE_SINT32:
208
+ case FFI_TYPE_UINT32:
209
+ case FFI_TYPE_FLOAT:
210
+ case FFI_TYPE_POINTER:
211
+ avalue[i] = ptr;
212
+ break;
213
+ case FFI_TYPE_STRUCT:
214
+ avalue[i] = *(void**)ptr;
215
+ break;
216
+ default:
217
+ /* This is an 8-byte value. */
218
+ if (ptr == (char *) &register_args[5])
219
+ {
220
+ /* The value is split across two locations */
221
+ unsigned *ip = alloca(8);
222
+ avalue[i] = ip;
223
+ ip[0] = *(unsigned *) ptr;
224
+ ip[1] = *(unsigned *) stack_args;
225
+ }
226
+ else
227
+ {
228
+ avalue[i] = ptr;
229
+ }
230
+ ptr += 4;
231
+ break;
232
+ }
233
+ ptr += 4;
234
+
235
+ /* If we've handled more arguments than fit in registers,
236
+ start looking at the those passed on the stack. */
237
+ if (ptr == (char *) &register_args[6])
238
+ ptr = stack_args;
239
+ else if (ptr == (char *) &register_args[7])
240
+ ptr = stack_args + 4;
241
+ }
242
+
243
+ /* Invoke the closure. */
244
+ if (cif->rtype && (cif->rtype->type == FFI_TYPE_STRUCT))
245
+ {
246
+ (closure->fun) (cif, struct_rvalue, avalue, closure->user_data);
247
+ }
248
+ else
249
+ {
250
+ /* Allocate space for the return value and call the function. */
251
+ long long rvalue;
252
+ (closure->fun) (cif, &rvalue, avalue, closure->user_data);
253
+ asm ("mov $r12, %0\n ld.l $r0, ($r12)\n ldo.l $r1, 4($r12)" : : "r" (&rvalue));
254
+ }
255
+ }
256
+
257
+ ffi_status
258
+ ffi_prep_closure_loc (ffi_closure* closure,
259
+ ffi_cif* cif,
260
+ void (*fun)(ffi_cif*, void*, void**, void*),
261
+ void *user_data,
262
+ void *codeloc)
263
+ {
264
+ unsigned short *tramp = (unsigned short *) &closure->tramp[0];
265
+ unsigned long fn = (long) ffi_closure_eabi;
266
+ unsigned long cls = (long) codeloc;
267
+
268
+ if (cif->abi != FFI_EABI)
269
+ return FFI_BAD_ABI;
270
+
271
+ fn = (unsigned long) ffi_closure_eabi;
272
+
273
+ tramp[0] = 0x01e0; /* ldi.l $r12, .... */
274
+ tramp[1] = cls >> 16;
275
+ tramp[2] = cls & 0xffff;
276
+ tramp[3] = 0x1a00; /* jmpa .... */
277
+ tramp[4] = fn >> 16;
278
+ tramp[5] = fn & 0xffff;
279
+
280
+ closure->cif = cif;
281
+ closure->fun = fun;
282
+ closure->user_data = user_data;
283
+
284
+ return FFI_OK;
285
+ }
@@ -0,0 +1,52 @@
1
+ /* -----------------------------------------------------------------*-C-*-
2
+ ffitarget.h - Copyright (c) 2012, 2013 Anthony Green
3
+ Target configuration macros for Moxie
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
+ /* ---- System specific configurations ----------------------------------- */
31
+
32
+ #ifndef LIBFFI_ASM
33
+ typedef unsigned long ffi_arg;
34
+ typedef signed long ffi_sarg;
35
+
36
+ typedef enum ffi_abi {
37
+ FFI_FIRST_ABI = 0,
38
+ FFI_EABI,
39
+ FFI_DEFAULT_ABI = FFI_EABI,
40
+ FFI_LAST_ABI = FFI_DEFAULT_ABI + 1
41
+ } ffi_abi;
42
+ #endif
43
+
44
+ /* ---- Definitions for closures ----------------------------------------- */
45
+
46
+ #define FFI_CLOSURES 1
47
+ #define FFI_NATIVE_RAW_API 0
48
+
49
+ /* Trampolines are 12-bytes long. See ffi_prep_closure_loc. */
50
+ #define FFI_TRAMPOLINE_SIZE (12)
51
+
52
+ #endif
@@ -0,0 +1,304 @@
1
+ /* libffi support for Altera Nios II.
2
+
3
+ Copyright (c) 2013 Mentor Graphics.
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
14
+ included 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 NONINFRINGEMENT.
19
+ IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
20
+ CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
21
+ TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
22
+ SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
23
+
24
+
25
+ #include <ffi.h>
26
+ #include <ffi_common.h>
27
+
28
+ #include <stdlib.h>
29
+
30
+ /* The Nios II Processor Reference Handbook defines the procedure call
31
+ ABI as follows.
32
+
33
+ Arguments are passed as if a structure containing the types of
34
+ the arguments were constructed. The first 16 bytes are passed in r4
35
+ through r7, the remainder on the stack. The first 16 bytes of a function
36
+ taking variable arguments are passed in r4-r7 in the same way.
37
+
38
+ Return values of types up to 8 bytes are returned in r2 and r3. For
39
+ return values greater than 8 bytes, the caller must allocate memory for
40
+ the result and pass the address as if it were argument 0.
41
+
42
+ While this isn't specified explicitly in the ABI documentation, GCC
43
+ promotes integral arguments smaller than int size to 32 bits.
44
+
45
+ Also of note, the ABI specifies that all structure objects are
46
+ aligned to 32 bits even if all their fields have a smaller natural
47
+ alignment. See FFI_AGGREGATE_ALIGNMENT. */
48
+
49
+
50
+ /* Declare the assembly language hooks. */
51
+
52
+ extern UINT64 ffi_call_sysv (void (*) (char *, extended_cif *),
53
+ extended_cif *,
54
+ unsigned,
55
+ void (*fn) (void));
56
+ extern void ffi_closure_sysv (void);
57
+
58
+ /* Perform machine-dependent cif processing. */
59
+
60
+ ffi_status ffi_prep_cif_machdep (ffi_cif *cif)
61
+ {
62
+ /* We always want at least 16 bytes in the parameter block since it
63
+ simplifies the low-level call function. Also round the parameter
64
+ block size up to a multiple of 4 bytes to preserve
65
+ 32-bit alignment of the stack pointer. */
66
+ if (cif->bytes < 16)
67
+ cif->bytes = 16;
68
+ else
69
+ cif->bytes = (cif->bytes + 3) & ~3;
70
+
71
+ return FFI_OK;
72
+ }
73
+
74
+
75
+ /* ffi_prep_args is called by the assembly routine to transfer arguments
76
+ to the stack using the pointers in the ecif array.
77
+ Note that the stack buffer is big enough to fit all the arguments,
78
+ but the first 16 bytes will be copied to registers for the actual
79
+ call. */
80
+
81
+ void ffi_prep_args (char *stack, extended_cif *ecif)
82
+ {
83
+ char *argp = stack;
84
+ unsigned int i;
85
+
86
+ /* The implicit return value pointer is passed as if it were a hidden
87
+ first argument. */
88
+ if (ecif->cif->rtype->type == FFI_TYPE_STRUCT
89
+ && ecif->cif->rtype->size > 8)
90
+ {
91
+ (*(void **) argp) = ecif->rvalue;
92
+ argp += 4;
93
+ }
94
+
95
+ for (i = 0; i < ecif->cif->nargs; i++)
96
+ {
97
+ void *avalue = ecif->avalue[i];
98
+ ffi_type *atype = ecif->cif->arg_types[i];
99
+ size_t size = atype->size;
100
+ size_t alignment = atype->alignment;
101
+
102
+ /* Align argp as appropriate for the argument type. */
103
+ if ((alignment - 1) & (unsigned) argp)
104
+ argp = (char *) FFI_ALIGN (argp, alignment);
105
+
106
+ /* Copy the argument, promoting integral types smaller than a
107
+ word to word size. */
108
+ if (size < sizeof (int))
109
+ {
110
+ size = sizeof (int);
111
+ switch (atype->type)
112
+ {
113
+ case FFI_TYPE_SINT8:
114
+ *(signed int *) argp = (signed int) *(SINT8 *) avalue;
115
+ break;
116
+
117
+ case FFI_TYPE_UINT8:
118
+ *(unsigned int *) argp = (unsigned int) *(UINT8 *) avalue;
119
+ break;
120
+
121
+ case FFI_TYPE_SINT16:
122
+ *(signed int *) argp = (signed int) *(SINT16 *) avalue;
123
+ break;
124
+
125
+ case FFI_TYPE_UINT16:
126
+ *(unsigned int *) argp = (unsigned int) *(UINT16 *) avalue;
127
+ break;
128
+
129
+ case FFI_TYPE_STRUCT:
130
+ memcpy (argp, avalue, atype->size);
131
+ break;
132
+
133
+ default:
134
+ FFI_ASSERT(0);
135
+ }
136
+ }
137
+ else if (size == sizeof (int))
138
+ *(unsigned int *) argp = (unsigned int) *(UINT32 *) avalue;
139
+ else
140
+ memcpy (argp, avalue, size);
141
+ argp += size;
142
+ }
143
+ }
144
+
145
+
146
+ /* Call FN using the prepared CIF. RVALUE points to space allocated by
147
+ the caller for the return value, and AVALUE is an array of argument
148
+ pointers. */
149
+
150
+ void ffi_call (ffi_cif *cif, void (*fn) (void), void *rvalue, void **avalue)
151
+ {
152
+
153
+ extended_cif ecif;
154
+ UINT64 result;
155
+
156
+ /* If bigret is true, this is the case where a return value of larger
157
+ than 8 bytes is handled by being passed by reference as an implicit
158
+ argument. */
159
+ int bigret = (cif->rtype->type == FFI_TYPE_STRUCT
160
+ && cif->rtype->size > 8);
161
+
162
+ ecif.cif = cif;
163
+ ecif.avalue = avalue;
164
+
165
+ /* Allocate space for return value if this is the pass-by-reference case
166
+ and the caller did not provide a buffer. */
167
+ if (rvalue == NULL && bigret)
168
+ ecif.rvalue = alloca (cif->rtype->size);
169
+ else
170
+ ecif.rvalue = rvalue;
171
+
172
+ result = ffi_call_sysv (ffi_prep_args, &ecif, cif->bytes, fn);
173
+
174
+ /* Now result contains the 64 bit contents returned from fn in
175
+ r2 and r3. Copy the value of the appropriate size to the user-provided
176
+ rvalue buffer. */
177
+ if (rvalue && !bigret)
178
+ switch (cif->rtype->size)
179
+ {
180
+ case 1:
181
+ *(UINT8 *)rvalue = (UINT8) result;
182
+ break;
183
+ case 2:
184
+ *(UINT16 *)rvalue = (UINT16) result;
185
+ break;
186
+ case 4:
187
+ *(UINT32 *)rvalue = (UINT32) result;
188
+ break;
189
+ case 8:
190
+ *(UINT64 *)rvalue = (UINT64) result;
191
+ break;
192
+ default:
193
+ memcpy (rvalue, (void *)&result, cif->rtype->size);
194
+ break;
195
+ }
196
+ }
197
+
198
+ /* This function is invoked from the closure trampoline to invoke
199
+ CLOSURE with argument block ARGS. Parse ARGS according to
200
+ CLOSURE->cfi and invoke CLOSURE->fun. */
201
+
202
+ static UINT64
203
+ ffi_closure_helper (unsigned char *args,
204
+ ffi_closure *closure)
205
+ {
206
+ ffi_cif *cif = closure->cif;
207
+ unsigned char *argp = args;
208
+ void **parsed_args = alloca (cif->nargs * sizeof (void *));
209
+ UINT64 result;
210
+ void *retptr;
211
+ unsigned int i;
212
+
213
+ /* First figure out what to do about the return type. If this is the
214
+ big-structure-return case, the first arg is the hidden return buffer
215
+ allocated by the caller. */
216
+ if (cif->rtype->type == FFI_TYPE_STRUCT
217
+ && cif->rtype->size > 8)
218
+ {
219
+ retptr = *((void **) argp);
220
+ argp += 4;
221
+ }
222
+ else
223
+ retptr = (void *) &result;
224
+
225
+ /* Fill in the array of argument pointers. */
226
+ for (i = 0; i < cif->nargs; i++)
227
+ {
228
+ size_t size = cif->arg_types[i]->size;
229
+ size_t alignment = cif->arg_types[i]->alignment;
230
+
231
+ /* Align argp as appropriate for the argument type. */
232
+ if ((alignment - 1) & (unsigned) argp)
233
+ argp = (char *) FFI_ALIGN (argp, alignment);
234
+
235
+ /* Arguments smaller than an int are promoted to int. */
236
+ if (size < sizeof (int))
237
+ size = sizeof (int);
238
+
239
+ /* Store the pointer. */
240
+ parsed_args[i] = argp;
241
+ argp += size;
242
+ }
243
+
244
+ /* Call the user-supplied function. */
245
+ (closure->fun) (cif, retptr, parsed_args, closure->user_data);
246
+ return result;
247
+ }
248
+
249
+
250
+ /* Initialize CLOSURE with a trampoline to call FUN with
251
+ CIF and USER_DATA. */
252
+ ffi_status
253
+ ffi_prep_closure_loc (ffi_closure* closure,
254
+ ffi_cif* cif,
255
+ void (*fun) (ffi_cif*, void*, void**, void*),
256
+ void *user_data,
257
+ void *codeloc)
258
+ {
259
+ unsigned int *tramp = (unsigned int *) &closure->tramp[0];
260
+ int i;
261
+
262
+ if (cif->abi != FFI_SYSV)
263
+ return FFI_BAD_ABI;
264
+
265
+ /* The trampoline looks like:
266
+ movhi r8, %hi(ffi_closure_sysv)
267
+ ori r8, r8, %lo(ffi_closure_sysv)
268
+ movhi r9, %hi(ffi_closure_helper)
269
+ ori r0, r9, %lo(ffi_closure_helper)
270
+ movhi r10, %hi(closure)
271
+ ori r10, r10, %lo(closure)
272
+ jmp r8
273
+ and then ffi_closure_sysv retrieves the closure pointer out of r10
274
+ in addition to the arguments passed in the normal way for the call,
275
+ and invokes ffi_closure_helper. We encode the pointer to
276
+ ffi_closure_helper in the trampoline because making a PIC call
277
+ to it in ffi_closure_sysv would be messy (it would have to indirect
278
+ through the GOT). */
279
+
280
+ #define HI(x) ((((unsigned int) (x)) >> 16) & 0xffff)
281
+ #define LO(x) (((unsigned int) (x)) & 0xffff)
282
+ tramp[0] = (0 << 27) | (8 << 22) | (HI (ffi_closure_sysv) << 6) | 0x34;
283
+ tramp[1] = (8 << 27) | (8 << 22) | (LO (ffi_closure_sysv) << 6) | 0x14;
284
+ tramp[2] = (0 << 27) | (9 << 22) | (HI (ffi_closure_helper) << 6) | 0x34;
285
+ tramp[3] = (9 << 27) | (9 << 22) | (LO (ffi_closure_helper) << 6) | 0x14;
286
+ tramp[4] = (0 << 27) | (10 << 22) | (HI (closure) << 6) | 0x34;
287
+ tramp[5] = (10 << 27) | (10 << 22) | (LO (closure) << 6) | 0x14;
288
+ tramp[6] = (8 << 27) | (0x0d << 11) | 0x3a;
289
+ #undef HI
290
+ #undef LO
291
+
292
+ /* Flush the caches.
293
+ See Example 9-4 in the Nios II Software Developer's Handbook. */
294
+ for (i = 0; i < 7; i++)
295
+ asm volatile ("flushd 0(%0); flushi %0" :: "r"(tramp + i) : "memory");
296
+ asm volatile ("flushp" ::: "memory");
297
+
298
+ closure->cif = cif;
299
+ closure->fun = fun;
300
+ closure->user_data = user_data;
301
+
302
+ return FFI_OK;
303
+ }
304
+