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,94 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi_powerpc.h - Copyright (C) 2013 IBM
3
+ Copyright (C) 2011 Anthony Green
4
+ Copyright (C) 2011 Kyle Moffett
5
+ Copyright (C) 2008 Red Hat, Inc
6
+ Copyright (C) 2007, 2008 Free Software Foundation, Inc
7
+ Copyright (c) 1998 Geoffrey Keating
8
+
9
+ PowerPC Foreign Function Interface
10
+
11
+ Permission is hereby granted, free of charge, to any person obtaining
12
+ a copy of this software and associated documentation files (the
13
+ ``Software''), to deal in the Software without restriction, including
14
+ without limitation the rights to use, copy, modify, merge, publish,
15
+ distribute, sublicense, and/or sell copies of the Software, and to
16
+ permit persons to whom the Software is furnished to do so, subject to
17
+ the following conditions:
18
+
19
+ The above copyright notice and this permission notice shall be included
20
+ in all copies or substantial portions of the Software.
21
+
22
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
23
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
25
+ IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR
26
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
27
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
28
+ OTHER DEALINGS IN THE SOFTWARE.
29
+ ----------------------------------------------------------------------- */
30
+
31
+ enum {
32
+ /* The assembly depends on these exact flags. */
33
+ /* These go in cr7 */
34
+ FLAG_RETURNS_SMST = 1 << (31-31), /* Used for FFI_SYSV small structs. */
35
+ FLAG_RETURNS_NOTHING = 1 << (31-30),
36
+ FLAG_RETURNS_FP = 1 << (31-29),
37
+ FLAG_RETURNS_64BITS = 1 << (31-28),
38
+
39
+ /* This goes in cr6 */
40
+ FLAG_RETURNS_128BITS = 1 << (31-27),
41
+
42
+ FLAG_COMPAT = 1 << (31- 8), /* Not used by assembly */
43
+
44
+ /* These go in cr1 */
45
+ FLAG_ARG_NEEDS_COPY = 1 << (31- 7), /* Used by sysv code */
46
+ FLAG_ARG_NEEDS_PSAVE = FLAG_ARG_NEEDS_COPY, /* Used by linux64 code */
47
+ FLAG_FP_ARGUMENTS = 1 << (31- 6), /* cr1.eq; specified by ABI */
48
+ FLAG_4_GPR_ARGUMENTS = 1 << (31- 5),
49
+ FLAG_RETVAL_REFERENCE = 1 << (31- 4)
50
+ };
51
+
52
+ typedef union
53
+ {
54
+ float f;
55
+ double d;
56
+ } ffi_dblfl;
57
+
58
+ void FFI_HIDDEN ffi_closure_SYSV (void);
59
+ void FFI_HIDDEN ffi_go_closure_sysv (void);
60
+ void FFI_HIDDEN ffi_call_SYSV(extended_cif *, void (*)(void), void *,
61
+ unsigned, void *, int);
62
+
63
+ void FFI_HIDDEN ffi_prep_types_sysv (ffi_abi);
64
+ ffi_status FFI_HIDDEN ffi_prep_cif_sysv (ffi_cif *);
65
+ ffi_status FFI_HIDDEN ffi_prep_closure_loc_sysv (ffi_closure *,
66
+ ffi_cif *,
67
+ void (*) (ffi_cif *, void *,
68
+ void **, void *),
69
+ void *, void *);
70
+ int FFI_HIDDEN ffi_closure_helper_SYSV (ffi_cif *,
71
+ void (*) (ffi_cif *, void *,
72
+ void **, void *),
73
+ void *, void *, unsigned long *,
74
+ ffi_dblfl *, unsigned long *);
75
+
76
+ void FFI_HIDDEN ffi_call_LINUX64(extended_cif *, void (*) (void), void *,
77
+ unsigned long, void *, long);
78
+ void FFI_HIDDEN ffi_closure_LINUX64 (void);
79
+ void FFI_HIDDEN ffi_go_closure_linux64 (void);
80
+
81
+ void FFI_HIDDEN ffi_prep_types_linux64 (ffi_abi);
82
+ ffi_status FFI_HIDDEN ffi_prep_cif_linux64 (ffi_cif *);
83
+ ffi_status FFI_HIDDEN ffi_prep_cif_linux64_var (ffi_cif *, unsigned int,
84
+ unsigned int);
85
+ void FFI_HIDDEN ffi_prep_args64 (extended_cif *, unsigned long *const);
86
+ ffi_status FFI_HIDDEN ffi_prep_closure_loc_linux64 (ffi_closure *, ffi_cif *,
87
+ void (*) (ffi_cif *, void *,
88
+ void **, void *),
89
+ void *, void *);
90
+ int FFI_HIDDEN ffi_closure_helper_LINUX64 (ffi_cif *,
91
+ void (*) (ffi_cif *, void *,
92
+ void **, void *),
93
+ void *, void *,
94
+ unsigned long *, ffi_dblfl *);
@@ -0,0 +1,923 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi_sysv.c - Copyright (C) 2013 IBM
3
+ Copyright (C) 2011 Anthony Green
4
+ Copyright (C) 2011 Kyle Moffett
5
+ Copyright (C) 2008 Red Hat, Inc
6
+ Copyright (C) 2007, 2008 Free Software Foundation, Inc
7
+ Copyright (c) 1998 Geoffrey Keating
8
+
9
+ PowerPC Foreign Function Interface
10
+
11
+ Permission is hereby granted, free of charge, to any person obtaining
12
+ a copy of this software and associated documentation files (the
13
+ ``Software''), to deal in the Software without restriction, including
14
+ without limitation the rights to use, copy, modify, merge, publish,
15
+ distribute, sublicense, and/or sell copies of the Software, and to
16
+ permit persons to whom the Software is furnished to do so, subject to
17
+ the following conditions:
18
+
19
+ The above copyright notice and this permission notice shall be included
20
+ in all copies or substantial portions of the Software.
21
+
22
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
23
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
25
+ IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR
26
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
27
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
28
+ OTHER DEALINGS IN THE SOFTWARE.
29
+ ----------------------------------------------------------------------- */
30
+
31
+ #include "ffi.h"
32
+
33
+ #ifndef POWERPC64
34
+ #include "ffi_common.h"
35
+ #include "ffi_powerpc.h"
36
+
37
+
38
+ /* About the SYSV ABI. */
39
+ #define ASM_NEEDS_REGISTERS 6
40
+ #define NUM_GPR_ARG_REGISTERS 8
41
+ #define NUM_FPR_ARG_REGISTERS 8
42
+
43
+
44
+ #if HAVE_LONG_DOUBLE_VARIANT && FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
45
+ /* Adjust size of ffi_type_longdouble. */
46
+ void FFI_HIDDEN
47
+ ffi_prep_types_sysv (ffi_abi abi)
48
+ {
49
+ if ((abi & (FFI_SYSV | FFI_SYSV_LONG_DOUBLE_128)) == FFI_SYSV)
50
+ {
51
+ ffi_type_longdouble.size = 8;
52
+ ffi_type_longdouble.alignment = 8;
53
+ }
54
+ else
55
+ {
56
+ ffi_type_longdouble.size = 16;
57
+ ffi_type_longdouble.alignment = 16;
58
+ }
59
+ }
60
+ #endif
61
+
62
+ /* Transform long double, double and float to other types as per abi. */
63
+ static int
64
+ translate_float (int abi, int type)
65
+ {
66
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
67
+ if (type == FFI_TYPE_LONGDOUBLE
68
+ && (abi & FFI_SYSV_LONG_DOUBLE_128) == 0)
69
+ type = FFI_TYPE_DOUBLE;
70
+ #endif
71
+ if ((abi & FFI_SYSV_SOFT_FLOAT) != 0)
72
+ {
73
+ if (type == FFI_TYPE_FLOAT)
74
+ type = FFI_TYPE_UINT32;
75
+ else if (type == FFI_TYPE_DOUBLE)
76
+ type = FFI_TYPE_UINT64;
77
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
78
+ else if (type == FFI_TYPE_LONGDOUBLE)
79
+ type = FFI_TYPE_UINT128;
80
+ }
81
+ else if ((abi & FFI_SYSV_IBM_LONG_DOUBLE) == 0)
82
+ {
83
+ if (type == FFI_TYPE_LONGDOUBLE)
84
+ type = FFI_TYPE_STRUCT;
85
+ #endif
86
+ }
87
+ return type;
88
+ }
89
+
90
+ /* Perform machine dependent cif processing */
91
+ static ffi_status
92
+ ffi_prep_cif_sysv_core (ffi_cif *cif)
93
+ {
94
+ ffi_type **ptr;
95
+ unsigned bytes;
96
+ unsigned i, fpr_count = 0, gpr_count = 0, stack_count = 0;
97
+ unsigned flags = cif->flags;
98
+ unsigned struct_copy_size = 0;
99
+ unsigned type = cif->rtype->type;
100
+ unsigned size = cif->rtype->size;
101
+
102
+ /* The machine-independent calculation of cif->bytes doesn't work
103
+ for us. Redo the calculation. */
104
+
105
+ /* Space for the frame pointer, callee's LR, and the asm's temp regs. */
106
+ bytes = (2 + ASM_NEEDS_REGISTERS) * sizeof (int);
107
+
108
+ /* Space for the GPR registers. */
109
+ bytes += NUM_GPR_ARG_REGISTERS * sizeof (int);
110
+
111
+ /* Return value handling. The rules for SYSV are as follows:
112
+ - 32-bit (or less) integer values are returned in gpr3;
113
+ - Structures of size <= 4 bytes also returned in gpr3;
114
+ - 64-bit integer values and structures between 5 and 8 bytes are returned
115
+ in gpr3 and gpr4;
116
+ - Larger structures are allocated space and a pointer is passed as
117
+ the first argument.
118
+ - Single/double FP values are returned in fpr1;
119
+ - long doubles (if not equivalent to double) are returned in
120
+ fpr1,fpr2 for Linux and as for large structs for SysV. */
121
+
122
+ type = translate_float (cif->abi, type);
123
+
124
+ switch (type)
125
+ {
126
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
127
+ case FFI_TYPE_LONGDOUBLE:
128
+ flags |= FLAG_RETURNS_128BITS;
129
+ /* Fall through. */
130
+ #endif
131
+ case FFI_TYPE_DOUBLE:
132
+ flags |= FLAG_RETURNS_64BITS;
133
+ /* Fall through. */
134
+ case FFI_TYPE_FLOAT:
135
+ flags |= FLAG_RETURNS_FP;
136
+ #ifdef __NO_FPRS__
137
+ return FFI_BAD_ABI;
138
+ #endif
139
+ break;
140
+
141
+ case FFI_TYPE_UINT128:
142
+ flags |= FLAG_RETURNS_128BITS;
143
+ /* Fall through. */
144
+ case FFI_TYPE_UINT64:
145
+ case FFI_TYPE_SINT64:
146
+ flags |= FLAG_RETURNS_64BITS;
147
+ break;
148
+
149
+ case FFI_TYPE_STRUCT:
150
+ /* The final SYSV ABI says that structures smaller or equal 8 bytes
151
+ are returned in r3/r4. A draft ABI used by linux instead
152
+ returns them in memory. */
153
+ if ((cif->abi & FFI_SYSV_STRUCT_RET) != 0 && size <= 8)
154
+ {
155
+ flags |= FLAG_RETURNS_SMST;
156
+ break;
157
+ }
158
+ gpr_count++;
159
+ flags |= FLAG_RETVAL_REFERENCE;
160
+ /* Fall through. */
161
+ case FFI_TYPE_VOID:
162
+ flags |= FLAG_RETURNS_NOTHING;
163
+ break;
164
+
165
+ default:
166
+ /* Returns 32-bit integer, or similar. Nothing to do here. */
167
+ break;
168
+ }
169
+
170
+ /* The first NUM_GPR_ARG_REGISTERS words of integer arguments, and the
171
+ first NUM_FPR_ARG_REGISTERS fp arguments, go in registers; the rest
172
+ goes on the stack. Structures and long doubles (if not equivalent
173
+ to double) are passed as a pointer to a copy of the structure.
174
+ Stuff on the stack needs to keep proper alignment. */
175
+ for (ptr = cif->arg_types, i = cif->nargs; i > 0; i--, ptr++)
176
+ {
177
+ unsigned short typenum = (*ptr)->type;
178
+
179
+ typenum = translate_float (cif->abi, typenum);
180
+
181
+ switch (typenum)
182
+ {
183
+ #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
184
+ case FFI_TYPE_LONGDOUBLE:
185
+ if (fpr_count >= NUM_FPR_ARG_REGISTERS - 1)
186
+ {
187
+ fpr_count = NUM_FPR_ARG_REGISTERS;
188
+ /* 8-byte align long doubles. */
189
+ stack_count += stack_count & 1;
190
+ stack_count += 4;
191
+ }
192
+ else
193
+ fpr_count += 2;
194
+ #ifdef __NO_FPRS__
195
+ return FFI_BAD_ABI;
196
+ #endif
197
+ break;
198
+ #endif
199
+
200
+ case FFI_TYPE_DOUBLE:
201
+ if (fpr_count >= NUM_FPR_ARG_REGISTERS)
202
+ {
203
+ /* 8-byte align doubles. */
204
+ stack_count += stack_count & 1;
205
+ stack_count += 2;
206
+ }
207
+ else
208
+ fpr_count += 1;
209
+ #ifdef __NO_FPRS__
210
+ return FFI_BAD_ABI;
211
+ #endif
212
+ break;
213
+
214
+ case FFI_TYPE_FLOAT:
215
+ if (fpr_count >= NUM_FPR_ARG_REGISTERS)
216
+ /* Yes, we don't follow the ABI, but neither does gcc. */
217
+ stack_count += 1;
218
+ else
219
+ fpr_count += 1;
220
+ #ifdef __NO_FPRS__
221
+ return FFI_BAD_ABI;
222
+ #endif
223
+ break;
224
+
225
+ case FFI_TYPE_UINT128:
226
+ /* A long double in FFI_LINUX_SOFT_FLOAT can use only a set
227
+ of four consecutive gprs. If we do not have enough, we
228
+ have to adjust the gpr_count value. */
229
+ if (gpr_count >= NUM_GPR_ARG_REGISTERS - 3)
230
+ gpr_count = NUM_GPR_ARG_REGISTERS;
231
+ if (gpr_count >= NUM_GPR_ARG_REGISTERS)
232
+ stack_count += 4;
233
+ else
234
+ gpr_count += 4;
235
+ break;
236
+
237
+ case FFI_TYPE_UINT64:
238
+ case FFI_TYPE_SINT64:
239
+ /* 'long long' arguments are passed as two words, but
240
+ either both words must fit in registers or both go
241
+ on the stack. If they go on the stack, they must
242
+ be 8-byte-aligned.
243
+
244
+ Also, only certain register pairs can be used for
245
+ passing long long int -- specifically (r3,r4), (r5,r6),
246
+ (r7,r8), (r9,r10). */
247
+ gpr_count += gpr_count & 1;
248
+ if (gpr_count >= NUM_GPR_ARG_REGISTERS)
249
+ {
250
+ stack_count += stack_count & 1;
251
+ stack_count += 2;
252
+ }
253
+ else
254
+ gpr_count += 2;
255
+ break;
256
+
257
+ case FFI_TYPE_STRUCT:
258
+ /* We must allocate space for a copy of these to enforce
259
+ pass-by-value. Pad the space up to a multiple of 16
260
+ bytes (the maximum alignment required for anything under
261
+ the SYSV ABI). */
262
+ struct_copy_size += ((*ptr)->size + 15) & ~0xF;
263
+ /* Fall through (allocate space for the pointer). */
264
+
265
+ case FFI_TYPE_POINTER:
266
+ case FFI_TYPE_INT:
267
+ case FFI_TYPE_UINT32:
268
+ case FFI_TYPE_SINT32:
269
+ case FFI_TYPE_UINT16:
270
+ case FFI_TYPE_SINT16:
271
+ case FFI_TYPE_UINT8:
272
+ case FFI_TYPE_SINT8:
273
+ /* Everything else is passed as a 4-byte word in a GPR, either
274
+ the object itself or a pointer to it. */
275
+ if (gpr_count >= NUM_GPR_ARG_REGISTERS)
276
+ stack_count += 1;
277
+ else
278
+ gpr_count += 1;
279
+ break;
280
+
281
+ default:
282
+ FFI_ASSERT (0);
283
+ }
284
+ }
285
+
286
+ if (fpr_count != 0)
287
+ flags |= FLAG_FP_ARGUMENTS;
288
+ if (gpr_count > 4)
289
+ flags |= FLAG_4_GPR_ARGUMENTS;
290
+ if (struct_copy_size != 0)
291
+ flags |= FLAG_ARG_NEEDS_COPY;
292
+
293
+ /* Space for the FPR registers, if needed. */
294
+ if (fpr_count != 0)
295
+ bytes += NUM_FPR_ARG_REGISTERS * sizeof (double);
296
+
297
+ /* Stack space. */
298
+ bytes += stack_count * sizeof (int);
299
+
300
+ /* The stack space allocated needs to be a multiple of 16 bytes. */
301
+ bytes = (bytes + 15) & ~0xF;
302
+
303
+ /* Add in the space for the copied structures. */
304
+ bytes += struct_copy_size;
305
+
306
+ cif->flags = flags;
307
+ cif->bytes = bytes;
308
+
309
+ return FFI_OK;
310
+ }
311
+
312
+ ffi_status FFI_HIDDEN
313
+ ffi_prep_cif_sysv (ffi_cif *cif)
314
+ {
315
+ if ((cif->abi & FFI_SYSV) == 0)
316
+ {
317
+ /* This call is from old code. Translate to new ABI values. */
318
+ cif->flags |= FLAG_COMPAT;
319
+ switch (cif->abi)
320
+ {
321
+ default:
322
+ return FFI_BAD_ABI;
323
+
324
+ case FFI_COMPAT_SYSV:
325
+ cif->abi = FFI_SYSV | FFI_SYSV_STRUCT_RET | FFI_SYSV_LONG_DOUBLE_128;
326
+ break;
327
+
328
+ case FFI_COMPAT_GCC_SYSV:
329
+ cif->abi = FFI_SYSV | FFI_SYSV_LONG_DOUBLE_128;
330
+ break;
331
+
332
+ case FFI_COMPAT_LINUX:
333
+ cif->abi = (FFI_SYSV | FFI_SYSV_IBM_LONG_DOUBLE
334
+ | FFI_SYSV_LONG_DOUBLE_128);
335
+ break;
336
+
337
+ case FFI_COMPAT_LINUX_SOFT_FLOAT:
338
+ cif->abi = (FFI_SYSV | FFI_SYSV_SOFT_FLOAT | FFI_SYSV_IBM_LONG_DOUBLE
339
+ | FFI_SYSV_LONG_DOUBLE_128);
340
+ break;
341
+ }
342
+ }
343
+ return ffi_prep_cif_sysv_core (cif);
344
+ }
345
+
346
+ /* ffi_prep_args_SYSV is called by the assembly routine once stack space
347
+ has been allocated for the function's arguments.
348
+
349
+ The stack layout we want looks like this:
350
+
351
+ | Return address from ffi_call_SYSV 4bytes | higher addresses
352
+ |--------------------------------------------|
353
+ | Previous backchain pointer 4 | stack pointer here
354
+ |--------------------------------------------|<+ <<< on entry to
355
+ | Saved r28-r31 4*4 | | ffi_call_SYSV
356
+ |--------------------------------------------| |
357
+ | GPR registers r3-r10 8*4 | | ffi_call_SYSV
358
+ |--------------------------------------------| |
359
+ | FPR registers f1-f8 (optional) 8*8 | |
360
+ |--------------------------------------------| | stack |
361
+ | Space for copied structures | | grows |
362
+ |--------------------------------------------| | down V
363
+ | Parameters that didn't fit in registers | |
364
+ |--------------------------------------------| | lower addresses
365
+ | Space for callee's LR 4 | |
366
+ |--------------------------------------------| | stack pointer here
367
+ | Current backchain pointer 4 |-/ during
368
+ |--------------------------------------------| <<< ffi_call_SYSV
369
+
370
+ */
371
+
372
+ void FFI_HIDDEN
373
+ ffi_prep_args_SYSV (extended_cif *ecif, unsigned *const stack)
374
+ {
375
+ const unsigned bytes = ecif->cif->bytes;
376
+ const unsigned flags = ecif->cif->flags;
377
+
378
+ typedef union
379
+ {
380
+ char *c;
381
+ unsigned *u;
382
+ long long *ll;
383
+ float *f;
384
+ double *d;
385
+ } valp;
386
+
387
+ /* 'stacktop' points at the previous backchain pointer. */
388
+ valp stacktop;
389
+
390
+ /* 'gpr_base' points at the space for gpr3, and grows upwards as
391
+ we use GPR registers. */
392
+ valp gpr_base;
393
+ valp gpr_end;
394
+
395
+ #ifndef __NO_FPRS__
396
+ /* 'fpr_base' points at the space for fpr1, and grows upwards as
397
+ we use FPR registers. */
398
+ valp fpr_base;
399
+ valp fpr_end;
400
+ #endif
401
+
402
+ /* 'copy_space' grows down as we put structures in it. It should
403
+ stay 16-byte aligned. */
404
+ valp copy_space;
405
+
406
+ /* 'next_arg' grows up as we put parameters in it. */
407
+ valp next_arg;
408
+
409
+ int i;
410
+ ffi_type **ptr;
411
+ #ifndef __NO_FPRS__
412
+ double double_tmp;
413
+ #endif
414
+ union
415
+ {
416
+ void **v;
417
+ char **c;
418
+ signed char **sc;
419
+ unsigned char **uc;
420
+ signed short **ss;
421
+ unsigned short **us;
422
+ unsigned int **ui;
423
+ long long **ll;
424
+ float **f;
425
+ double **d;
426
+ } p_argv;
427
+ size_t struct_copy_size;
428
+ unsigned gprvalue;
429
+
430
+ stacktop.c = (char *) stack + bytes;
431
+ gpr_end.u = stacktop.u - ASM_NEEDS_REGISTERS;
432
+ gpr_base.u = gpr_end.u - NUM_GPR_ARG_REGISTERS;
433
+ #ifndef __NO_FPRS__
434
+ fpr_end.d = gpr_base.d;
435
+ fpr_base.d = fpr_end.d - NUM_FPR_ARG_REGISTERS;
436
+ copy_space.c = ((flags & FLAG_FP_ARGUMENTS) ? fpr_base.c : gpr_base.c);
437
+ #else
438
+ copy_space.c = gpr_base.c;
439
+ #endif
440
+ next_arg.u = stack + 2;
441
+
442
+ /* Check that everything starts aligned properly. */
443
+ FFI_ASSERT (((unsigned long) (char *) stack & 0xF) == 0);
444
+ FFI_ASSERT (((unsigned long) copy_space.c & 0xF) == 0);
445
+ FFI_ASSERT (((unsigned long) stacktop.c & 0xF) == 0);
446
+ FFI_ASSERT ((bytes & 0xF) == 0);
447
+ FFI_ASSERT (copy_space.c >= next_arg.c);
448
+
449
+ /* Deal with return values that are actually pass-by-reference. */
450
+ if (flags & FLAG_RETVAL_REFERENCE)
451
+ *gpr_base.u++ = (unsigned) (char *) ecif->rvalue;
452
+
453
+ /* Now for the arguments. */
454
+ p_argv.v = ecif->avalue;
455
+ for (ptr = ecif->cif->arg_types, i = ecif->cif->nargs;
456
+ i > 0;
457
+ i--, ptr++, p_argv.v++)
458
+ {
459
+ unsigned int typenum = (*ptr)->type;
460
+
461
+ typenum = translate_float (ecif->cif->abi, typenum);
462
+
463
+ /* Now test the translated value */
464
+ switch (typenum)
465
+ {
466
+ #ifndef __NO_FPRS__
467
+ # if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
468
+ case FFI_TYPE_LONGDOUBLE:
469
+ double_tmp = (*p_argv.d)[0];
470
+
471
+ if (fpr_base.d >= fpr_end.d - 1)
472
+ {
473
+ fpr_base.d = fpr_end.d;
474
+ if (((next_arg.u - stack) & 1) != 0)
475
+ next_arg.u += 1;
476
+ *next_arg.d = double_tmp;
477
+ next_arg.u += 2;
478
+ double_tmp = (*p_argv.d)[1];
479
+ *next_arg.d = double_tmp;
480
+ next_arg.u += 2;
481
+ }
482
+ else
483
+ {
484
+ *fpr_base.d++ = double_tmp;
485
+ double_tmp = (*p_argv.d)[1];
486
+ *fpr_base.d++ = double_tmp;
487
+ }
488
+ FFI_ASSERT (flags & FLAG_FP_ARGUMENTS);
489
+ break;
490
+ # endif
491
+ case FFI_TYPE_DOUBLE:
492
+ double_tmp = **p_argv.d;
493
+
494
+ if (fpr_base.d >= fpr_end.d)
495
+ {
496
+ if (((next_arg.u - stack) & 1) != 0)
497
+ next_arg.u += 1;
498
+ *next_arg.d = double_tmp;
499
+ next_arg.u += 2;
500
+ }
501
+ else
502
+ *fpr_base.d++ = double_tmp;
503
+ FFI_ASSERT (flags & FLAG_FP_ARGUMENTS);
504
+ break;
505
+
506
+ case FFI_TYPE_FLOAT:
507
+ double_tmp = **p_argv.f;
508
+ if (fpr_base.d >= fpr_end.d)
509
+ {
510
+ *next_arg.f = (float) double_tmp;
511
+ next_arg.u += 1;
512
+ }
513
+ else
514
+ *fpr_base.d++ = double_tmp;
515
+ FFI_ASSERT (flags & FLAG_FP_ARGUMENTS);
516
+ break;
517
+ #endif /* have FPRs */
518
+
519
+ case FFI_TYPE_UINT128:
520
+ /* The soft float ABI for long doubles works like this, a long double
521
+ is passed in four consecutive GPRs if available. A maximum of 2
522
+ long doubles can be passed in gprs. If we do not have 4 GPRs
523
+ left, the long double is passed on the stack, 4-byte aligned. */
524
+ if (gpr_base.u >= gpr_end.u - 3)
525
+ {
526
+ unsigned int ii;
527
+ gpr_base.u = gpr_end.u;
528
+ for (ii = 0; ii < 4; ii++)
529
+ {
530
+ unsigned int int_tmp = (*p_argv.ui)[ii];
531
+ *next_arg.u++ = int_tmp;
532
+ }
533
+ }
534
+ else
535
+ {
536
+ unsigned int ii;
537
+ for (ii = 0; ii < 4; ii++)
538
+ {
539
+ unsigned int int_tmp = (*p_argv.ui)[ii];
540
+ *gpr_base.u++ = int_tmp;
541
+ }
542
+ }
543
+ break;
544
+
545
+ case FFI_TYPE_UINT64:
546
+ case FFI_TYPE_SINT64:
547
+ if (gpr_base.u >= gpr_end.u - 1)
548
+ {
549
+ gpr_base.u = gpr_end.u;
550
+ if (((next_arg.u - stack) & 1) != 0)
551
+ next_arg.u++;
552
+ *next_arg.ll = **p_argv.ll;
553
+ next_arg.u += 2;
554
+ }
555
+ else
556
+ {
557
+ /* The abi states only certain register pairs can be
558
+ used for passing long long int specifically (r3,r4),
559
+ (r5,r6), (r7,r8), (r9,r10). If next arg is long long
560
+ but not correct starting register of pair then skip
561
+ until the proper starting register. */
562
+ if (((gpr_end.u - gpr_base.u) & 1) != 0)
563
+ gpr_base.u++;
564
+ *gpr_base.ll++ = **p_argv.ll;
565
+ }
566
+ break;
567
+
568
+ case FFI_TYPE_STRUCT:
569
+ struct_copy_size = ((*ptr)->size + 15) & ~0xF;
570
+ copy_space.c -= struct_copy_size;
571
+ memcpy (copy_space.c, *p_argv.c, (*ptr)->size);
572
+
573
+ gprvalue = (unsigned long) copy_space.c;
574
+
575
+ FFI_ASSERT (copy_space.c > next_arg.c);
576
+ FFI_ASSERT (flags & FLAG_ARG_NEEDS_COPY);
577
+ goto putgpr;
578
+
579
+ case FFI_TYPE_UINT8:
580
+ gprvalue = **p_argv.uc;
581
+ goto putgpr;
582
+ case FFI_TYPE_SINT8:
583
+ gprvalue = **p_argv.sc;
584
+ goto putgpr;
585
+ case FFI_TYPE_UINT16:
586
+ gprvalue = **p_argv.us;
587
+ goto putgpr;
588
+ case FFI_TYPE_SINT16:
589
+ gprvalue = **p_argv.ss;
590
+ goto putgpr;
591
+
592
+ case FFI_TYPE_INT:
593
+ case FFI_TYPE_UINT32:
594
+ case FFI_TYPE_SINT32:
595
+ case FFI_TYPE_POINTER:
596
+
597
+ gprvalue = **p_argv.ui;
598
+
599
+ putgpr:
600
+ if (gpr_base.u >= gpr_end.u)
601
+ *next_arg.u++ = gprvalue;
602
+ else
603
+ *gpr_base.u++ = gprvalue;
604
+ break;
605
+ }
606
+ }
607
+
608
+ /* Check that we didn't overrun the stack... */
609
+ FFI_ASSERT (copy_space.c >= next_arg.c);
610
+ FFI_ASSERT (gpr_base.u <= gpr_end.u);
611
+ #ifndef __NO_FPRS__
612
+ FFI_ASSERT (fpr_base.u <= fpr_end.u);
613
+ #endif
614
+ FFI_ASSERT (((flags & FLAG_4_GPR_ARGUMENTS) != 0)
615
+ == (gpr_end.u - gpr_base.u < 4));
616
+ }
617
+
618
+ #define MIN_CACHE_LINE_SIZE 8
619
+
620
+ static void
621
+ flush_icache (char *wraddr, char *xaddr, int size)
622
+ {
623
+ int i;
624
+ for (i = 0; i < size; i += MIN_CACHE_LINE_SIZE)
625
+ __asm__ volatile ("icbi 0,%0;" "dcbf 0,%1;"
626
+ : : "r" (xaddr + i), "r" (wraddr + i) : "memory");
627
+ __asm__ volatile ("icbi 0,%0;" "dcbf 0,%1;" "sync;" "isync;"
628
+ : : "r"(xaddr + size - 1), "r"(wraddr + size - 1)
629
+ : "memory");
630
+ }
631
+
632
+ ffi_status FFI_HIDDEN
633
+ ffi_prep_closure_loc_sysv (ffi_closure *closure,
634
+ ffi_cif *cif,
635
+ void (*fun) (ffi_cif *, void *, void **, void *),
636
+ void *user_data,
637
+ void *codeloc)
638
+ {
639
+ unsigned int *tramp;
640
+
641
+ if (cif->abi < FFI_SYSV || cif->abi >= FFI_LAST_ABI)
642
+ return FFI_BAD_ABI;
643
+
644
+ tramp = (unsigned int *) &closure->tramp[0];
645
+ tramp[0] = 0x7c0802a6; /* mflr r0 */
646
+ tramp[1] = 0x429f0005; /* bcl 20,31,.+4 */
647
+ tramp[2] = 0x7d6802a6; /* mflr r11 */
648
+ tramp[3] = 0x7c0803a6; /* mtlr r0 */
649
+ tramp[4] = 0x800b0018; /* lwz r0,24(r11) */
650
+ tramp[5] = 0x816b001c; /* lwz r11,28(r11) */
651
+ tramp[6] = 0x7c0903a6; /* mtctr r0 */
652
+ tramp[7] = 0x4e800420; /* bctr */
653
+ *(void **) &tramp[8] = (void *) ffi_closure_SYSV; /* function */
654
+ *(void **) &tramp[9] = codeloc; /* context */
655
+
656
+ /* Flush the icache. */
657
+ flush_icache ((char *)tramp, (char *)codeloc, 8 * 4);
658
+
659
+ closure->cif = cif;
660
+ closure->fun = fun;
661
+ closure->user_data = user_data;
662
+
663
+ return FFI_OK;
664
+ }
665
+
666
+ /* Basically the trampoline invokes ffi_closure_SYSV, and on
667
+ entry, r11 holds the address of the closure.
668
+ After storing the registers that could possibly contain
669
+ parameters to be passed into the stack frame and setting
670
+ up space for a return value, ffi_closure_SYSV invokes the
671
+ following helper function to do most of the work. */
672
+
673
+ int
674
+ ffi_closure_helper_SYSV (ffi_cif *cif,
675
+ void (*fun) (ffi_cif *, void *, void **, void *),
676
+ void *user_data,
677
+ void *rvalue,
678
+ unsigned long *pgr,
679
+ ffi_dblfl *pfr,
680
+ unsigned long *pst)
681
+ {
682
+ /* rvalue is the pointer to space for return value in closure assembly */
683
+ /* pgr is the pointer to where r3-r10 are stored in ffi_closure_SYSV */
684
+ /* pfr is the pointer to where f1-f8 are stored in ffi_closure_SYSV */
685
+ /* pst is the pointer to outgoing parameter stack in original caller */
686
+
687
+ void ** avalue;
688
+ ffi_type ** arg_types;
689
+ long i, avn;
690
+ #ifndef __NO_FPRS__
691
+ long nf = 0; /* number of floating registers already used */
692
+ #endif
693
+ long ng = 0; /* number of general registers already used */
694
+
695
+ unsigned size = cif->rtype->size;
696
+ unsigned short rtypenum = cif->rtype->type;
697
+
698
+ avalue = alloca (cif->nargs * sizeof (void *));
699
+
700
+ /* First translate for softfloat/nonlinux */
701
+ rtypenum = translate_float (cif->abi, rtypenum);
702
+
703
+ /* Copy the caller's structure return value address so that the closure
704
+ returns the data directly to the caller.
705
+ For FFI_SYSV the result is passed in r3/r4 if the struct size is less
706
+ or equal 8 bytes. */
707
+ if (rtypenum == FFI_TYPE_STRUCT
708
+ && !((cif->abi & FFI_SYSV_STRUCT_RET) != 0 && size <= 8))
709
+ {
710
+ rvalue = (void *) *pgr;
711
+ ng++;
712
+ pgr++;
713
+ }
714
+
715
+ i = 0;
716
+ avn = cif->nargs;
717
+ arg_types = cif->arg_types;
718
+
719
+ /* Grab the addresses of the arguments from the stack frame. */
720
+ while (i < avn) {
721
+ unsigned short typenum = arg_types[i]->type;
722
+
723
+ /* We may need to handle some values depending on ABI. */
724
+ typenum = translate_float (cif->abi, typenum);
725
+
726
+ switch (typenum)
727
+ {
728
+ #ifndef __NO_FPRS__
729
+ case FFI_TYPE_FLOAT:
730
+ /* Unfortunately float values are stored as doubles
731
+ in the ffi_closure_SYSV code (since we don't check
732
+ the type in that routine). */
733
+ if (nf < NUM_FPR_ARG_REGISTERS)
734
+ {
735
+ /* FIXME? here we are really changing the values
736
+ stored in the original calling routines outgoing
737
+ parameter stack. This is probably a really
738
+ naughty thing to do but... */
739
+ double temp = pfr->d;
740
+ pfr->f = (float) temp;
741
+ avalue[i] = pfr;
742
+ nf++;
743
+ pfr++;
744
+ }
745
+ else
746
+ {
747
+ avalue[i] = pst;
748
+ pst += 1;
749
+ }
750
+ break;
751
+
752
+ case FFI_TYPE_DOUBLE:
753
+ if (nf < NUM_FPR_ARG_REGISTERS)
754
+ {
755
+ avalue[i] = pfr;
756
+ nf++;
757
+ pfr++;
758
+ }
759
+ else
760
+ {
761
+ if (((long) pst) & 4)
762
+ pst++;
763
+ avalue[i] = pst;
764
+ pst += 2;
765
+ }
766
+ break;
767
+
768
+ # if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
769
+ case FFI_TYPE_LONGDOUBLE:
770
+ if (nf < NUM_FPR_ARG_REGISTERS - 1)
771
+ {
772
+ avalue[i] = pfr;
773
+ pfr += 2;
774
+ nf += 2;
775
+ }
776
+ else
777
+ {
778
+ if (((long) pst) & 4)
779
+ pst++;
780
+ avalue[i] = pst;
781
+ pst += 4;
782
+ nf = 8;
783
+ }
784
+ break;
785
+ # endif
786
+ #endif
787
+
788
+ case FFI_TYPE_UINT128:
789
+ /* Test if for the whole long double, 4 gprs are available.
790
+ otherwise the stuff ends up on the stack. */
791
+ if (ng < NUM_GPR_ARG_REGISTERS - 3)
792
+ {
793
+ avalue[i] = pgr;
794
+ pgr += 4;
795
+ ng += 4;
796
+ }
797
+ else
798
+ {
799
+ avalue[i] = pst;
800
+ pst += 4;
801
+ ng = 8+4;
802
+ }
803
+ break;
804
+
805
+ case FFI_TYPE_SINT8:
806
+ case FFI_TYPE_UINT8:
807
+ #ifndef __LITTLE_ENDIAN__
808
+ if (ng < NUM_GPR_ARG_REGISTERS)
809
+ {
810
+ avalue[i] = (char *) pgr + 3;
811
+ ng++;
812
+ pgr++;
813
+ }
814
+ else
815
+ {
816
+ avalue[i] = (char *) pst + 3;
817
+ pst++;
818
+ }
819
+ break;
820
+ #endif
821
+
822
+ case FFI_TYPE_SINT16:
823
+ case FFI_TYPE_UINT16:
824
+ #ifndef __LITTLE_ENDIAN__
825
+ if (ng < NUM_GPR_ARG_REGISTERS)
826
+ {
827
+ avalue[i] = (char *) pgr + 2;
828
+ ng++;
829
+ pgr++;
830
+ }
831
+ else
832
+ {
833
+ avalue[i] = (char *) pst + 2;
834
+ pst++;
835
+ }
836
+ break;
837
+ #endif
838
+
839
+ case FFI_TYPE_SINT32:
840
+ case FFI_TYPE_UINT32:
841
+ case FFI_TYPE_POINTER:
842
+ if (ng < NUM_GPR_ARG_REGISTERS)
843
+ {
844
+ avalue[i] = pgr;
845
+ ng++;
846
+ pgr++;
847
+ }
848
+ else
849
+ {
850
+ avalue[i] = pst;
851
+ pst++;
852
+ }
853
+ break;
854
+
855
+ case FFI_TYPE_STRUCT:
856
+ /* Structs are passed by reference. The address will appear in a
857
+ gpr if it is one of the first 8 arguments. */
858
+ if (ng < NUM_GPR_ARG_REGISTERS)
859
+ {
860
+ avalue[i] = (void *) *pgr;
861
+ ng++;
862
+ pgr++;
863
+ }
864
+ else
865
+ {
866
+ avalue[i] = (void *) *pst;
867
+ pst++;
868
+ }
869
+ break;
870
+
871
+ case FFI_TYPE_SINT64:
872
+ case FFI_TYPE_UINT64:
873
+ /* Passing long long ints are complex, they must
874
+ be passed in suitable register pairs such as
875
+ (r3,r4) or (r5,r6) or (r6,r7), or (r7,r8) or (r9,r10)
876
+ and if the entire pair aren't available then the outgoing
877
+ parameter stack is used for both but an alignment of 8
878
+ must will be kept. So we must either look in pgr
879
+ or pst to find the correct address for this type
880
+ of parameter. */
881
+ if (ng < NUM_GPR_ARG_REGISTERS - 1)
882
+ {
883
+ if (ng & 1)
884
+ {
885
+ /* skip r4, r6, r8 as starting points */
886
+ ng++;
887
+ pgr++;
888
+ }
889
+ avalue[i] = pgr;
890
+ ng += 2;
891
+ pgr += 2;
892
+ }
893
+ else
894
+ {
895
+ if (((long) pst) & 4)
896
+ pst++;
897
+ avalue[i] = pst;
898
+ pst += 2;
899
+ ng = NUM_GPR_ARG_REGISTERS;
900
+ }
901
+ break;
902
+
903
+ default:
904
+ FFI_ASSERT (0);
905
+ }
906
+
907
+ i++;
908
+ }
909
+
910
+ (*fun) (cif, rvalue, avalue, user_data);
911
+
912
+ /* Tell ffi_closure_SYSV how to perform return type promotions.
913
+ Because the FFI_SYSV ABI returns the structures <= 8 bytes in
914
+ r3/r4 we have to tell ffi_closure_SYSV how to treat them. We
915
+ combine the base type FFI_SYSV_TYPE_SMALL_STRUCT with the size of
916
+ the struct less one. We never have a struct with size zero.
917
+ See the comment in ffitarget.h about ordering. */
918
+ if (rtypenum == FFI_TYPE_STRUCT
919
+ && (cif->abi & FFI_SYSV_STRUCT_RET) != 0 && size <= 8)
920
+ return FFI_SYSV_TYPE_SMALL_STRUCT - 1 + size;
921
+ return rtypenum;
922
+ }
923
+ #endif