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,70 @@
1
+ /* -----------------------------------------------------------------*-C-*-
2
+ ffitarget.h - Copyright (c) 2012 Anthony Green
3
+ Copyright (c) 1996-2003 Red Hat, Inc.
4
+ Target configuration macros for S390.
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
+
28
+ #ifndef LIBFFI_TARGET_H
29
+ #define LIBFFI_TARGET_H
30
+
31
+ #ifndef LIBFFI_H
32
+ #error "Please do not include ffitarget.h directly into your source. Use ffi.h instead."
33
+ #endif
34
+
35
+ #if defined (__s390x__)
36
+ #ifndef S390X
37
+ #define S390X
38
+ #endif
39
+ #endif
40
+
41
+ /* ---- System specific configurations ----------------------------------- */
42
+
43
+ #ifndef LIBFFI_ASM
44
+ typedef unsigned long ffi_arg;
45
+ typedef signed long ffi_sarg;
46
+
47
+ typedef enum ffi_abi {
48
+ FFI_FIRST_ABI = 0,
49
+ FFI_SYSV,
50
+ FFI_LAST_ABI,
51
+ FFI_DEFAULT_ABI = FFI_SYSV
52
+ } ffi_abi;
53
+ #endif
54
+
55
+ #define FFI_TARGET_SPECIFIC_STACK_SPACE_ALLOCATION
56
+ #define FFI_TARGET_HAS_COMPLEX_TYPE
57
+
58
+ /* ---- Definitions for closures ----------------------------------------- */
59
+
60
+ #define FFI_CLOSURES 1
61
+ #define FFI_GO_CLOSURES 1
62
+ #ifdef S390X
63
+ #define FFI_TRAMPOLINE_SIZE 32
64
+ #else
65
+ #define FFI_TRAMPOLINE_SIZE 16
66
+ #endif
67
+ #define FFI_NATIVE_RAW_API 0
68
+
69
+ #endif
70
+
@@ -0,0 +1,11 @@
1
+ /* If these values change, sysv.S must be adapted! */
2
+ #define FFI390_RET_DOUBLE 0
3
+ #define FFI390_RET_FLOAT 1
4
+ #define FFI390_RET_INT64 2
5
+ #define FFI390_RET_INT32 3
6
+ #define FFI390_RET_VOID 4
7
+
8
+ #define FFI360_RET_MASK 7
9
+ #define FFI390_RET_IN_MEM 8
10
+
11
+ #define FFI390_RET_STRUCT (FFI390_RET_VOID | FFI390_RET_IN_MEM)
@@ -0,0 +1,325 @@
1
+ /* -----------------------------------------------------------------------
2
+ sysv.S - Copyright (c) 2000 Software AG
3
+ Copyright (c) 2008 Red Hat, Inc.
4
+
5
+ S390 Foreign Function Interface
6
+
7
+ Permission is hereby granted, free of charge, to any person obtaining
8
+ a copy of this software and associated documentation files (the
9
+ ``Software''), to deal in the Software without restriction, including
10
+ without limitation the rights to use, copy, modify, merge, publish,
11
+ distribute, sublicense, and/or sell copies of the Software, and to
12
+ permit persons to whom the Software is furnished to do so, subject to
13
+ the following conditions:
14
+
15
+ The above copyright notice and this permission notice shall be included
16
+ in all copies or substantial portions of the Software.
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
+
32
+ .text
33
+
34
+ #ifndef __s390x__
35
+
36
+ # r2: frame
37
+ # r3: ret_type
38
+ # r4: ret_addr
39
+ # r5: fun
40
+ # r6: closure
41
+
42
+ # This assumes we are using gas.
43
+ .balign 8
44
+ .globl ffi_call_SYSV
45
+ FFI_HIDDEN(ffi_call_SYSV)
46
+ .type ffi_call_SYSV,%function
47
+ ffi_call_SYSV:
48
+ .cfi_startproc
49
+ st %r6,44(%r2) # Save registers
50
+ stm %r12,%r14,48(%r2)
51
+ lr %r13,%r2 # Install frame pointer
52
+ .cfi_rel_offset r6, 44
53
+ .cfi_rel_offset r12, 48
54
+ .cfi_rel_offset r13, 52
55
+ .cfi_rel_offset r14, 56
56
+ .cfi_def_cfa_register r13
57
+ st %r2,0(%r15) # Set up back chain
58
+ sla %r3,3 # ret_type *= 8
59
+ lr %r12,%r4 # Save ret_addr
60
+ lr %r1,%r5 # Save fun
61
+ lr %r0,%r6 # Install static chain
62
+
63
+ # Set return address, so that there is only one indirect jump.
64
+ #ifdef HAVE_AS_S390_ZARCH
65
+ larl %r14,.Ltable
66
+ ar %r14,%r3
67
+ #else
68
+ basr %r14,0
69
+ 0: la %r14,.Ltable-0b(%r14,%r3)
70
+ #endif
71
+
72
+ lm %r2,%r6,8(%r13) # Load arguments
73
+ ld %f0,64(%r13)
74
+ ld %f2,72(%r13)
75
+ br %r1 # ... and call function
76
+
77
+ .balign 8
78
+ .Ltable:
79
+ # FFI390_RET_DOUBLE
80
+ std %f0,0(%r12)
81
+ j .Ldone
82
+
83
+ .balign 8
84
+ # FFI390_RET_FLOAT
85
+ ste %f0,0(%r12)
86
+ j .Ldone
87
+
88
+ .balign 8
89
+ # FFI390_RET_INT64
90
+ st %r3,4(%r12)
91
+ nop
92
+ # fallthru
93
+
94
+ .balign 8
95
+ # FFI390_RET_INT32
96
+ st %r2,0(%r12)
97
+ nop
98
+ # fallthru
99
+
100
+ .balign 8
101
+ # FFI390_RET_VOID
102
+ .Ldone:
103
+ l %r14,56(%r13)
104
+ l %r12,48(%r13)
105
+ l %r6,44(%r13)
106
+ l %r13,52(%r13)
107
+ .cfi_restore 14
108
+ .cfi_restore 13
109
+ .cfi_restore 12
110
+ .cfi_restore 6
111
+ .cfi_def_cfa r15, 96
112
+ br %r14
113
+ .cfi_endproc
114
+ .size ffi_call_SYSV,.-ffi_call_SYSV
115
+
116
+
117
+ .balign 8
118
+ .globl ffi_go_closure_SYSV
119
+ FFI_HIDDEN(ffi_go_closure_SYSV)
120
+ .type ffi_go_closure_SYSV,%function
121
+ ffi_go_closure_SYSV:
122
+ .cfi_startproc
123
+ stm %r2,%r6,8(%r15) # Save arguments
124
+ lr %r4,%r0 # Load closure -> user_data
125
+ l %r2,4(%r4) # ->cif
126
+ l %r3,8(%r4) # ->fun
127
+ j .Ldoclosure
128
+ .cfi_endproc
129
+
130
+ .balign 8
131
+ .globl ffi_closure_SYSV
132
+ FFI_HIDDEN(ffi_closure_SYSV)
133
+ .type ffi_closure_SYSV,%function
134
+ ffi_closure_SYSV:
135
+ .cfi_startproc
136
+ stm %r2,%r6,8(%r15) # Save arguments
137
+ lr %r4,%r0 # Closure
138
+ l %r2,16(%r4) # ->cif
139
+ l %r3,20(%r4) # ->fun
140
+ l %r4,24(%r4) # ->user_data
141
+ .Ldoclosure:
142
+ stm %r12,%r15,48(%r15) # Save registers
143
+ lr %r12,%r15
144
+ .cfi_def_cfa_register r12
145
+ .cfi_rel_offset r6, 24
146
+ .cfi_rel_offset r12, 48
147
+ .cfi_rel_offset r13, 52
148
+ .cfi_rel_offset r14, 56
149
+ .cfi_rel_offset r15, 60
150
+ #ifndef HAVE_AS_S390_ZARCH
151
+ basr %r13,0 # Set up base register
152
+ .Lcbase:
153
+ l %r1,.Lchelper-.Lcbase(%r13) # Get helper function
154
+ #endif
155
+ ahi %r15,-96-8 # Set up stack frame
156
+ st %r12,0(%r15) # Set up back chain
157
+
158
+ std %f0,64(%r12) # Save fp arguments
159
+ std %f2,72(%r12)
160
+
161
+ la %r5,96(%r12) # Overflow
162
+ st %r5,96(%r15)
163
+ la %r6,64(%r12) # FPRs
164
+ la %r5,8(%r12) # GPRs
165
+ #ifdef HAVE_AS_S390_ZARCH
166
+ brasl %r14,ffi_closure_helper_SYSV
167
+ #else
168
+ bas %r14,0(%r1,%r13) # Call helper
169
+ #endif
170
+
171
+ lr %r15,%r12
172
+ .cfi_def_cfa_register r15
173
+ lm %r12,%r14,48(%r12) # Restore saved registers
174
+ l %r6,24(%r15)
175
+ ld %f0,64(%r15) # Load return registers
176
+ lm %r2,%r3,8(%r15)
177
+ br %r14
178
+ .cfi_endproc
179
+
180
+ #ifndef HAVE_AS_S390_ZARCH
181
+ .align 4
182
+ .Lchelper:
183
+ .long ffi_closure_helper_SYSV-.Lcbase
184
+ #endif
185
+
186
+ .size ffi_closure_SYSV,.-ffi_closure_SYSV
187
+
188
+ #else
189
+
190
+ # r2: frame
191
+ # r3: ret_type
192
+ # r4: ret_addr
193
+ # r5: fun
194
+ # r6: closure
195
+
196
+ # This assumes we are using gas.
197
+ .balign 8
198
+ .globl ffi_call_SYSV
199
+ FFI_HIDDEN(ffi_call_SYSV)
200
+ .type ffi_call_SYSV,%function
201
+ ffi_call_SYSV:
202
+ .cfi_startproc
203
+ stg %r6,88(%r2) # Save registers
204
+ stmg %r12,%r14,96(%r2)
205
+ lgr %r13,%r2 # Install frame pointer
206
+ .cfi_rel_offset r6, 88
207
+ .cfi_rel_offset r12, 96
208
+ .cfi_rel_offset r13, 104
209
+ .cfi_rel_offset r14, 112
210
+ .cfi_def_cfa_register r13
211
+ stg %r2,0(%r15) # Set up back chain
212
+ larl %r14,.Ltable # Set up return address
213
+ slag %r3,%r3,3 # ret_type *= 8
214
+ lgr %r12,%r4 # Save ret_addr
215
+ lgr %r1,%r5 # Save fun
216
+ lgr %r0,%r6 # Install static chain
217
+ agr %r14,%r3
218
+ lmg %r2,%r6,16(%r13) # Load arguments
219
+ ld %f0,128(%r13)
220
+ ld %f2,136(%r13)
221
+ ld %f4,144(%r13)
222
+ ld %f6,152(%r13)
223
+ br %r1 # ... and call function
224
+
225
+ .balign 8
226
+ .Ltable:
227
+ # FFI390_RET_DOUBLE
228
+ std %f0,0(%r12)
229
+ j .Ldone
230
+
231
+ .balign 8
232
+ # FFI390_RET_DOUBLE
233
+ ste %f0,0(%r12)
234
+ j .Ldone
235
+
236
+ .balign 8
237
+ # FFI390_RET_INT64
238
+ stg %r2,0(%r12)
239
+
240
+ .balign 8
241
+ # FFI390_RET_INT32
242
+ # Never used, as we always store type ffi_arg.
243
+ # But the stg above is 6 bytes and we cannot
244
+ # jump around this case, so fall through.
245
+ nop
246
+ nop
247
+
248
+ .balign 8
249
+ # FFI390_RET_VOID
250
+ .Ldone:
251
+ lg %r14,112(%r13)
252
+ lg %r12,96(%r13)
253
+ lg %r6,88(%r13)
254
+ lg %r13,104(%r13)
255
+ .cfi_restore r14
256
+ .cfi_restore r13
257
+ .cfi_restore r12
258
+ .cfi_restore r6
259
+ .cfi_def_cfa r15, 160
260
+ br %r14
261
+ .cfi_endproc
262
+ .size ffi_call_SYSV,.-ffi_call_SYSV
263
+
264
+
265
+ .balign 8
266
+ .globl ffi_go_closure_SYSV
267
+ FFI_HIDDEN(ffi_go_closure_SYSV)
268
+ .type ffi_go_closure_SYSV,%function
269
+ ffi_go_closure_SYSV:
270
+ .cfi_startproc
271
+ stmg %r2,%r6,16(%r15) # Save arguments
272
+ lgr %r4,%r0 # Load closure -> user_data
273
+ lg %r2,8(%r4) # ->cif
274
+ lg %r3,16(%r4) # ->fun
275
+ j .Ldoclosure
276
+ .cfi_endproc
277
+ .size ffi_go_closure_SYSV,.-ffi_go_closure_SYSV
278
+
279
+
280
+ .balign 8
281
+ .globl ffi_closure_SYSV
282
+ FFI_HIDDEN(ffi_closure_SYSV)
283
+ .type ffi_closure_SYSV,%function
284
+ ffi_closure_SYSV:
285
+ .cfi_startproc
286
+ stmg %r2,%r6,16(%r15) # Save arguments
287
+ lgr %r4,%r0 # Load closure
288
+ lg %r2,32(%r4) # ->cif
289
+ lg %r3,40(%r4) # ->fun
290
+ lg %r4,48(%r4) # ->user_data
291
+ .Ldoclosure:
292
+ stmg %r13,%r15,104(%r15) # Save registers
293
+ lgr %r13,%r15
294
+ .cfi_def_cfa_register r13
295
+ .cfi_rel_offset r6, 48
296
+ .cfi_rel_offset r13, 104
297
+ .cfi_rel_offset r14, 112
298
+ .cfi_rel_offset r15, 120
299
+ aghi %r15,-160-16 # Set up stack frame
300
+ stg %r13,0(%r15) # Set up back chain
301
+
302
+ std %f0,128(%r13) # Save fp arguments
303
+ std %f2,136(%r13)
304
+ std %f4,144(%r13)
305
+ std %f6,152(%r13)
306
+ la %r5,160(%r13) # Overflow
307
+ stg %r5,160(%r15)
308
+ la %r6,128(%r13) # FPRs
309
+ la %r5,16(%r13) # GPRs
310
+ brasl %r14,ffi_closure_helper_SYSV # Call helper
311
+
312
+ lgr %r15,%r13
313
+ .cfi_def_cfa_register r15
314
+ lmg %r13,%r14,104(%r13) # Restore saved registers
315
+ lg %r6,48(%r15)
316
+ ld %f0,128(%r15) # Load return registers
317
+ lg %r2,16(%r15)
318
+ br %r14
319
+ .cfi_endproc
320
+ .size ffi_closure_SYSV,.-ffi_closure_SYSV
321
+ #endif /* !s390x */
322
+
323
+ #if defined __ELF__ && defined __linux__
324
+ .section .note.GNU-stack,"",@progbits
325
+ #endif
@@ -0,0 +1,717 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2002-2008, 2012 Kaz Kojima
3
+ Copyright (c) 2008 Red Hat, Inc.
4
+
5
+ SuperH Foreign Function Interface
6
+
7
+ Permission is hereby granted, free of charge, to any person obtaining
8
+ a copy of this software and associated documentation files (the
9
+ ``Software''), to deal in the Software without restriction, including
10
+ without limitation the rights to use, copy, modify, merge, publish,
11
+ distribute, sublicense, and/or sell copies of the Software, and to
12
+ permit persons to whom the Software is furnished to do so, subject to
13
+ the following conditions:
14
+
15
+ The above copyright notice and this permission notice shall be included
16
+ in all copies or substantial portions of the Software.
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
+ #include <ffi.h>
29
+ #include <ffi_common.h>
30
+
31
+ #include <stdlib.h>
32
+
33
+ #define NGREGARG 4
34
+ #if defined(__SH4__)
35
+ #define NFREGARG 8
36
+ #endif
37
+
38
+ #if defined(__HITACHI__)
39
+ #define STRUCT_VALUE_ADDRESS_WITH_ARG 1
40
+ #else
41
+ #define STRUCT_VALUE_ADDRESS_WITH_ARG 0
42
+ #endif
43
+
44
+ /* If the structure has essentially an unique element, return its type. */
45
+ static int
46
+ simple_type (ffi_type *arg)
47
+ {
48
+ if (arg->type != FFI_TYPE_STRUCT)
49
+ return arg->type;
50
+ else if (arg->elements[1])
51
+ return FFI_TYPE_STRUCT;
52
+
53
+ return simple_type (arg->elements[0]);
54
+ }
55
+
56
+ static int
57
+ return_type (ffi_type *arg)
58
+ {
59
+ unsigned short type;
60
+
61
+ if (arg->type != FFI_TYPE_STRUCT)
62
+ return arg->type;
63
+
64
+ type = simple_type (arg->elements[0]);
65
+ if (! arg->elements[1])
66
+ {
67
+ switch (type)
68
+ {
69
+ case FFI_TYPE_SINT8:
70
+ case FFI_TYPE_UINT8:
71
+ case FFI_TYPE_SINT16:
72
+ case FFI_TYPE_UINT16:
73
+ case FFI_TYPE_SINT32:
74
+ case FFI_TYPE_UINT32:
75
+ return FFI_TYPE_INT;
76
+
77
+ default:
78
+ return type;
79
+ }
80
+ }
81
+
82
+ /* gcc uses r0/r1 pair for some kind of structures. */
83
+ if (arg->size <= 2 * sizeof (int))
84
+ {
85
+ int i = 0;
86
+ ffi_type *e;
87
+
88
+ while ((e = arg->elements[i++]))
89
+ {
90
+ type = simple_type (e);
91
+ switch (type)
92
+ {
93
+ case FFI_TYPE_SINT32:
94
+ case FFI_TYPE_UINT32:
95
+ case FFI_TYPE_INT:
96
+ case FFI_TYPE_FLOAT:
97
+ return FFI_TYPE_UINT64;
98
+
99
+ default:
100
+ break;
101
+ }
102
+ }
103
+ }
104
+
105
+ return FFI_TYPE_STRUCT;
106
+ }
107
+
108
+ /* ffi_prep_args is called by the assembly routine once stack space
109
+ has been allocated for the function's arguments */
110
+
111
+ void ffi_prep_args(char *stack, extended_cif *ecif)
112
+ {
113
+ register unsigned int i;
114
+ register int tmp;
115
+ register unsigned int avn;
116
+ register void **p_argv;
117
+ register char *argp;
118
+ register ffi_type **p_arg;
119
+ int greg, ireg;
120
+ #if defined(__SH4__)
121
+ int freg = 0;
122
+ #endif
123
+
124
+ tmp = 0;
125
+ argp = stack;
126
+
127
+ if (return_type (ecif->cif->rtype) == FFI_TYPE_STRUCT)
128
+ {
129
+ *(void **) argp = ecif->rvalue;
130
+ argp += 4;
131
+ ireg = STRUCT_VALUE_ADDRESS_WITH_ARG ? 1 : 0;
132
+ }
133
+ else
134
+ ireg = 0;
135
+
136
+ /* Set arguments for registers. */
137
+ greg = ireg;
138
+ avn = ecif->cif->nargs;
139
+ p_argv = ecif->avalue;
140
+
141
+ for (i = 0, p_arg = ecif->cif->arg_types; i < avn; i++, p_arg++, p_argv++)
142
+ {
143
+ size_t z;
144
+
145
+ z = (*p_arg)->size;
146
+ if (z < sizeof(int))
147
+ {
148
+ if (greg++ >= NGREGARG)
149
+ continue;
150
+
151
+ z = sizeof(int);
152
+ switch ((*p_arg)->type)
153
+ {
154
+ case FFI_TYPE_SINT8:
155
+ *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
156
+ break;
157
+
158
+ case FFI_TYPE_UINT8:
159
+ *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
160
+ break;
161
+
162
+ case FFI_TYPE_SINT16:
163
+ *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
164
+ break;
165
+
166
+ case FFI_TYPE_UINT16:
167
+ *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
168
+ break;
169
+
170
+ case FFI_TYPE_STRUCT:
171
+ *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
172
+ break;
173
+
174
+ default:
175
+ FFI_ASSERT(0);
176
+ }
177
+ argp += z;
178
+ }
179
+ else if (z == sizeof(int))
180
+ {
181
+ #if defined(__SH4__)
182
+ if ((*p_arg)->type == FFI_TYPE_FLOAT)
183
+ {
184
+ if (freg++ >= NFREGARG)
185
+ continue;
186
+ }
187
+ else
188
+ #endif
189
+ {
190
+ if (greg++ >= NGREGARG)
191
+ continue;
192
+ }
193
+ *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
194
+ argp += z;
195
+ }
196
+ #if defined(__SH4__)
197
+ else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
198
+ {
199
+ if (freg + 1 >= NFREGARG)
200
+ continue;
201
+ freg = (freg + 1) & ~1;
202
+ freg += 2;
203
+ memcpy (argp, *p_argv, z);
204
+ argp += z;
205
+ }
206
+ #endif
207
+ else
208
+ {
209
+ int n = (z + sizeof (int) - 1) / sizeof (int);
210
+ #if defined(__SH4__)
211
+ if (greg + n - 1 >= NGREGARG)
212
+ continue;
213
+ #else
214
+ if (greg >= NGREGARG)
215
+ continue;
216
+ #endif
217
+ greg += n;
218
+ memcpy (argp, *p_argv, z);
219
+ argp += n * sizeof (int);
220
+ }
221
+ }
222
+
223
+ /* Set arguments on stack. */
224
+ greg = ireg;
225
+ #if defined(__SH4__)
226
+ freg = 0;
227
+ #endif
228
+ p_argv = ecif->avalue;
229
+
230
+ for (i = 0, p_arg = ecif->cif->arg_types; i < avn; i++, p_arg++, p_argv++)
231
+ {
232
+ size_t z;
233
+
234
+ z = (*p_arg)->size;
235
+ if (z < sizeof(int))
236
+ {
237
+ if (greg++ < NGREGARG)
238
+ continue;
239
+
240
+ z = sizeof(int);
241
+ switch ((*p_arg)->type)
242
+ {
243
+ case FFI_TYPE_SINT8:
244
+ *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
245
+ break;
246
+
247
+ case FFI_TYPE_UINT8:
248
+ *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
249
+ break;
250
+
251
+ case FFI_TYPE_SINT16:
252
+ *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
253
+ break;
254
+
255
+ case FFI_TYPE_UINT16:
256
+ *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
257
+ break;
258
+
259
+ case FFI_TYPE_STRUCT:
260
+ *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
261
+ break;
262
+
263
+ default:
264
+ FFI_ASSERT(0);
265
+ }
266
+ argp += z;
267
+ }
268
+ else if (z == sizeof(int))
269
+ {
270
+ #if defined(__SH4__)
271
+ if ((*p_arg)->type == FFI_TYPE_FLOAT)
272
+ {
273
+ if (freg++ < NFREGARG)
274
+ continue;
275
+ }
276
+ else
277
+ #endif
278
+ {
279
+ if (greg++ < NGREGARG)
280
+ continue;
281
+ }
282
+ *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
283
+ argp += z;
284
+ }
285
+ #if defined(__SH4__)
286
+ else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
287
+ {
288
+ if (freg + 1 < NFREGARG)
289
+ {
290
+ freg = (freg + 1) & ~1;
291
+ freg += 2;
292
+ continue;
293
+ }
294
+ memcpy (argp, *p_argv, z);
295
+ argp += z;
296
+ }
297
+ #endif
298
+ else
299
+ {
300
+ int n = (z + sizeof (int) - 1) / sizeof (int);
301
+ if (greg + n - 1 < NGREGARG)
302
+ {
303
+ greg += n;
304
+ continue;
305
+ }
306
+ #if (! defined(__SH4__))
307
+ else if (greg < NGREGARG)
308
+ {
309
+ greg = NGREGARG;
310
+ continue;
311
+ }
312
+ #endif
313
+ memcpy (argp, *p_argv, z);
314
+ argp += n * sizeof (int);
315
+ }
316
+ }
317
+
318
+ return;
319
+ }
320
+
321
+ /* Perform machine dependent cif processing */
322
+ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
323
+ {
324
+ int i, j;
325
+ int size, type;
326
+ int n, m;
327
+ int greg;
328
+ #if defined(__SH4__)
329
+ int freg = 0;
330
+ #endif
331
+
332
+ cif->flags = 0;
333
+
334
+ greg = ((return_type (cif->rtype) == FFI_TYPE_STRUCT) &&
335
+ STRUCT_VALUE_ADDRESS_WITH_ARG) ? 1 : 0;
336
+
337
+ #if defined(__SH4__)
338
+ for (i = j = 0; i < cif->nargs && j < 12; i++)
339
+ {
340
+ type = (cif->arg_types)[i]->type;
341
+ switch (type)
342
+ {
343
+ case FFI_TYPE_FLOAT:
344
+ if (freg >= NFREGARG)
345
+ continue;
346
+ freg++;
347
+ cif->flags += ((cif->arg_types)[i]->type) << (2 * j);
348
+ j++;
349
+ break;
350
+
351
+ case FFI_TYPE_DOUBLE:
352
+ if ((freg + 1) >= NFREGARG)
353
+ continue;
354
+ freg = (freg + 1) & ~1;
355
+ freg += 2;
356
+ cif->flags += ((cif->arg_types)[i]->type) << (2 * j);
357
+ j++;
358
+ break;
359
+
360
+ default:
361
+ size = (cif->arg_types)[i]->size;
362
+ n = (size + sizeof (int) - 1) / sizeof (int);
363
+ if (greg + n - 1 >= NGREGARG)
364
+ continue;
365
+ greg += n;
366
+ for (m = 0; m < n; m++)
367
+ cif->flags += FFI_TYPE_INT << (2 * j++);
368
+ break;
369
+ }
370
+ }
371
+ #else
372
+ for (i = j = 0; i < cif->nargs && j < 4; i++)
373
+ {
374
+ size = (cif->arg_types)[i]->size;
375
+ n = (size + sizeof (int) - 1) / sizeof (int);
376
+ if (greg >= NGREGARG)
377
+ continue;
378
+ else if (greg + n - 1 >= NGREGARG)
379
+ n = NGREGARG - greg;
380
+ greg += n;
381
+ for (m = 0; m < n; m++)
382
+ cif->flags += FFI_TYPE_INT << (2 * j++);
383
+ }
384
+ #endif
385
+
386
+ /* Set the return type flag */
387
+ switch (cif->rtype->type)
388
+ {
389
+ case FFI_TYPE_STRUCT:
390
+ cif->flags += (unsigned) (return_type (cif->rtype)) << 24;
391
+ break;
392
+
393
+ case FFI_TYPE_VOID:
394
+ case FFI_TYPE_FLOAT:
395
+ case FFI_TYPE_DOUBLE:
396
+ case FFI_TYPE_SINT64:
397
+ case FFI_TYPE_UINT64:
398
+ cif->flags += (unsigned) cif->rtype->type << 24;
399
+ break;
400
+
401
+ default:
402
+ cif->flags += FFI_TYPE_INT << 24;
403
+ break;
404
+ }
405
+
406
+ return FFI_OK;
407
+ }
408
+
409
+ extern void ffi_call_SYSV(void (*)(char *, extended_cif *), extended_cif *,
410
+ unsigned, unsigned, unsigned *, void (*fn)(void));
411
+
412
+ void ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
413
+ {
414
+ extended_cif ecif;
415
+ UINT64 trvalue;
416
+
417
+ ecif.cif = cif;
418
+ ecif.avalue = avalue;
419
+
420
+ /* If the return value is a struct and we don't have a return */
421
+ /* value address then we need to make one */
422
+
423
+ if (cif->rtype->type == FFI_TYPE_STRUCT
424
+ && return_type (cif->rtype) != FFI_TYPE_STRUCT)
425
+ ecif.rvalue = &trvalue;
426
+ else if ((rvalue == NULL) &&
427
+ (cif->rtype->type == FFI_TYPE_STRUCT))
428
+ {
429
+ ecif.rvalue = alloca(cif->rtype->size);
430
+ }
431
+ else
432
+ ecif.rvalue = rvalue;
433
+
434
+ switch (cif->abi)
435
+ {
436
+ case FFI_SYSV:
437
+ ffi_call_SYSV(ffi_prep_args, &ecif, cif->bytes, cif->flags, ecif.rvalue,
438
+ fn);
439
+ break;
440
+ default:
441
+ FFI_ASSERT(0);
442
+ break;
443
+ }
444
+
445
+ if (rvalue
446
+ && cif->rtype->type == FFI_TYPE_STRUCT
447
+ && return_type (cif->rtype) != FFI_TYPE_STRUCT)
448
+ memcpy (rvalue, &trvalue, cif->rtype->size);
449
+ }
450
+
451
+ extern void ffi_closure_SYSV (void);
452
+ #if defined(__SH4__)
453
+ extern void __ic_invalidate (void *line);
454
+ #endif
455
+
456
+ ffi_status
457
+ ffi_prep_closure_loc (ffi_closure* closure,
458
+ ffi_cif* cif,
459
+ void (*fun)(ffi_cif*, void*, void**, void*),
460
+ void *user_data,
461
+ void *codeloc)
462
+ {
463
+ unsigned int *tramp;
464
+ unsigned int insn;
465
+
466
+ if (cif->abi != FFI_SYSV)
467
+ return FFI_BAD_ABI;
468
+
469
+ tramp = (unsigned int *) &closure->tramp[0];
470
+ /* Set T bit if the function returns a struct pointed with R2. */
471
+ insn = (return_type (cif->rtype) == FFI_TYPE_STRUCT
472
+ ? 0x0018 /* sett */
473
+ : 0x0008 /* clrt */);
474
+
475
+ #ifdef __LITTLE_ENDIAN__
476
+ tramp[0] = 0xd301d102;
477
+ tramp[1] = 0x0000412b | (insn << 16);
478
+ #else
479
+ tramp[0] = 0xd102d301;
480
+ tramp[1] = 0x412b0000 | insn;
481
+ #endif
482
+ *(void **) &tramp[2] = (void *)codeloc; /* ctx */
483
+ *(void **) &tramp[3] = (void *)ffi_closure_SYSV; /* funaddr */
484
+
485
+ closure->cif = cif;
486
+ closure->fun = fun;
487
+ closure->user_data = user_data;
488
+
489
+ #if defined(__SH4__)
490
+ /* Flush the icache. */
491
+ __ic_invalidate(codeloc);
492
+ #endif
493
+
494
+ return FFI_OK;
495
+ }
496
+
497
+ /* Basically the trampoline invokes ffi_closure_SYSV, and on
498
+ * entry, r3 holds the address of the closure.
499
+ * After storing the registers that could possibly contain
500
+ * parameters to be passed into the stack frame and setting
501
+ * up space for a return value, ffi_closure_SYSV invokes the
502
+ * following helper function to do most of the work.
503
+ */
504
+
505
+ #ifdef __LITTLE_ENDIAN__
506
+ #define OFS_INT8 0
507
+ #define OFS_INT16 0
508
+ #else
509
+ #define OFS_INT8 3
510
+ #define OFS_INT16 2
511
+ #endif
512
+
513
+ int
514
+ ffi_closure_helper_SYSV (ffi_closure *closure, void *rvalue,
515
+ unsigned long *pgr, unsigned long *pfr,
516
+ unsigned long *pst)
517
+ {
518
+ void **avalue;
519
+ ffi_type **p_arg;
520
+ int i, avn;
521
+ int ireg, greg = 0;
522
+ #if defined(__SH4__)
523
+ int freg = 0;
524
+ #endif
525
+ ffi_cif *cif;
526
+
527
+ cif = closure->cif;
528
+ avalue = alloca(cif->nargs * sizeof(void *));
529
+
530
+ /* Copy the caller's structure return value address so that the closure
531
+ returns the data directly to the caller. */
532
+ if (cif->rtype->type == FFI_TYPE_STRUCT && STRUCT_VALUE_ADDRESS_WITH_ARG)
533
+ {
534
+ rvalue = (void *) *pgr++;
535
+ ireg = 1;
536
+ }
537
+ else
538
+ ireg = 0;
539
+
540
+ cif = closure->cif;
541
+ greg = ireg;
542
+ avn = cif->nargs;
543
+
544
+ /* Grab the addresses of the arguments from the stack frame. */
545
+ for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
546
+ {
547
+ size_t z;
548
+
549
+ z = (*p_arg)->size;
550
+ if (z < sizeof(int))
551
+ {
552
+ if (greg++ >= NGREGARG)
553
+ continue;
554
+
555
+ z = sizeof(int);
556
+ switch ((*p_arg)->type)
557
+ {
558
+ case FFI_TYPE_SINT8:
559
+ case FFI_TYPE_UINT8:
560
+ avalue[i] = (((char *)pgr) + OFS_INT8);
561
+ break;
562
+
563
+ case FFI_TYPE_SINT16:
564
+ case FFI_TYPE_UINT16:
565
+ avalue[i] = (((char *)pgr) + OFS_INT16);
566
+ break;
567
+
568
+ case FFI_TYPE_STRUCT:
569
+ avalue[i] = pgr;
570
+ break;
571
+
572
+ default:
573
+ FFI_ASSERT(0);
574
+ }
575
+ pgr++;
576
+ }
577
+ else if (z == sizeof(int))
578
+ {
579
+ #if defined(__SH4__)
580
+ if ((*p_arg)->type == FFI_TYPE_FLOAT)
581
+ {
582
+ if (freg++ >= NFREGARG)
583
+ continue;
584
+ avalue[i] = pfr;
585
+ pfr++;
586
+ }
587
+ else
588
+ #endif
589
+ {
590
+ if (greg++ >= NGREGARG)
591
+ continue;
592
+ avalue[i] = pgr;
593
+ pgr++;
594
+ }
595
+ }
596
+ #if defined(__SH4__)
597
+ else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
598
+ {
599
+ if (freg + 1 >= NFREGARG)
600
+ continue;
601
+ if (freg & 1)
602
+ pfr++;
603
+ freg = (freg + 1) & ~1;
604
+ freg += 2;
605
+ avalue[i] = pfr;
606
+ pfr += 2;
607
+ }
608
+ #endif
609
+ else
610
+ {
611
+ int n = (z + sizeof (int) - 1) / sizeof (int);
612
+ #if defined(__SH4__)
613
+ if (greg + n - 1 >= NGREGARG)
614
+ continue;
615
+ #else
616
+ if (greg >= NGREGARG)
617
+ continue;
618
+ #endif
619
+ greg += n;
620
+ avalue[i] = pgr;
621
+ pgr += n;
622
+ }
623
+ }
624
+
625
+ greg = ireg;
626
+ #if defined(__SH4__)
627
+ freg = 0;
628
+ #endif
629
+
630
+ for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
631
+ {
632
+ size_t z;
633
+
634
+ z = (*p_arg)->size;
635
+ if (z < sizeof(int))
636
+ {
637
+ if (greg++ < NGREGARG)
638
+ continue;
639
+
640
+ z = sizeof(int);
641
+ switch ((*p_arg)->type)
642
+ {
643
+ case FFI_TYPE_SINT8:
644
+ case FFI_TYPE_UINT8:
645
+ avalue[i] = (((char *)pst) + OFS_INT8);
646
+ break;
647
+
648
+ case FFI_TYPE_SINT16:
649
+ case FFI_TYPE_UINT16:
650
+ avalue[i] = (((char *)pst) + OFS_INT16);
651
+ break;
652
+
653
+ case FFI_TYPE_STRUCT:
654
+ avalue[i] = pst;
655
+ break;
656
+
657
+ default:
658
+ FFI_ASSERT(0);
659
+ }
660
+ pst++;
661
+ }
662
+ else if (z == sizeof(int))
663
+ {
664
+ #if defined(__SH4__)
665
+ if ((*p_arg)->type == FFI_TYPE_FLOAT)
666
+ {
667
+ if (freg++ < NFREGARG)
668
+ continue;
669
+ }
670
+ else
671
+ #endif
672
+ {
673
+ if (greg++ < NGREGARG)
674
+ continue;
675
+ }
676
+ avalue[i] = pst;
677
+ pst++;
678
+ }
679
+ #if defined(__SH4__)
680
+ else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
681
+ {
682
+ if (freg + 1 < NFREGARG)
683
+ {
684
+ freg = (freg + 1) & ~1;
685
+ freg += 2;
686
+ continue;
687
+ }
688
+ avalue[i] = pst;
689
+ pst += 2;
690
+ }
691
+ #endif
692
+ else
693
+ {
694
+ int n = (z + sizeof (int) - 1) / sizeof (int);
695
+ if (greg + n - 1 < NGREGARG)
696
+ {
697
+ greg += n;
698
+ continue;
699
+ }
700
+ #if (! defined(__SH4__))
701
+ else if (greg < NGREGARG)
702
+ {
703
+ greg += n;
704
+ pst += greg - NGREGARG;
705
+ continue;
706
+ }
707
+ #endif
708
+ avalue[i] = pst;
709
+ pst += n;
710
+ }
711
+ }
712
+
713
+ (closure->fun) (cif, rvalue, avalue, closure->user_data);
714
+
715
+ /* Tell ffi_closure_SYSV how to perform return type promotions. */
716
+ return return_type (cif->rtype);
717
+ }