ffi 1.9.18 → 1.9.21

Sign up to get free protection for your applications and to get access to all the features.

Potentially problematic release.


This version of ffi might be problematic. Click here for more details.

Files changed (366) hide show
  1. checksums.yaml +4 -4
  2. data/README.md +3 -2
  3. data/Rakefile +14 -3
  4. data/ext/ffi_c/AbstractMemory.c +6 -1
  5. data/ext/ffi_c/Platform.c +10 -2
  6. data/ext/ffi_c/extconf.rb +7 -2
  7. data/ext/ffi_c/libffi.bsd.mk +9 -3
  8. data/ext/ffi_c/libffi.darwin.mk +14 -4
  9. data/ext/ffi_c/libffi.gnu.mk +2 -1
  10. data/ext/ffi_c/libffi.mk +9 -4
  11. data/ext/ffi_c/libffi/ChangeLog.libffi +2 -2
  12. data/ext/ffi_c/libffi/{ChangeLog → ChangeLog.libffi-3.1} +1402 -2
  13. data/ext/ffi_c/libffi/ChangeLog.v1 +1 -1
  14. data/ext/ffi_c/libffi/LICENSE +1 -1
  15. data/ext/ffi_c/libffi/Makefile.am +166 -157
  16. data/ext/ffi_c/libffi/README +164 -52
  17. data/ext/ffi_c/libffi/acinclude.m4 +381 -0
  18. data/ext/ffi_c/libffi/autogen.sh +2 -0
  19. data/ext/ffi_c/libffi/configure.ac +148 -256
  20. data/ext/ffi_c/libffi/configure.host +265 -4
  21. data/ext/ffi_c/libffi/doc/Makefile.am +3 -0
  22. data/ext/ffi_c/libffi/doc/libffi.texi +430 -45
  23. data/ext/ffi_c/libffi/doc/version.texi +4 -4
  24. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +207 -0
  25. data/ext/ffi_c/libffi/include/Makefile.am +3 -3
  26. data/ext/ffi_c/libffi/include/ffi.h.in +107 -50
  27. data/ext/ffi_c/libffi/include/ffi_cfi.h +55 -0
  28. data/ext/ffi_c/libffi/include/ffi_common.h +32 -11
  29. data/ext/ffi_c/libffi/libffi.map.in +80 -0
  30. data/ext/ffi_c/libffi/libffi.pc.in +3 -2
  31. data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +637 -0
  32. data/ext/ffi_c/libffi/libtool-ldflags +106 -0
  33. data/ext/ffi_c/libffi/libtool-version +1 -1
  34. data/ext/ffi_c/libffi/m4/asmcfi.m4 +13 -0
  35. data/ext/ffi_c/libffi/m4/ax_append_flag.m4 +69 -0
  36. data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +13 -8
  37. data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +31 -104
  38. data/ext/ffi_c/libffi/m4/{ax_check_compiler_flags.m4 → ax_check_compile_flag.m4} +30 -34
  39. data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +32 -11
  40. data/ext/ffi_c/libffi/m4/ax_enable_builddir.m4 +6 -5
  41. data/ext/ffi_c/libffi/m4/ax_gcc_archflag.m4 +31 -21
  42. data/ext/ffi_c/libffi/man/Makefile.am +2 -2
  43. data/ext/ffi_c/libffi/man/ffi.3 +10 -0
  44. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +6 -4
  45. data/ext/ffi_c/libffi/man/ffi_prep_cif_var.3 +73 -0
  46. data/ext/ffi_c/libffi/msvcc.sh +72 -9
  47. data/ext/ffi_c/libffi/src/aarch64/ffi.c +941 -0
  48. data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +81 -0
  49. data/ext/ffi_c/libffi/src/aarch64/internal.h +67 -0
  50. data/ext/ffi_c/libffi/src/aarch64/sysv.S +438 -0
  51. data/ext/ffi_c/libffi/src/alpha/ffi.c +335 -98
  52. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +10 -1
  53. data/ext/ffi_c/libffi/src/alpha/internal.h +23 -0
  54. data/ext/ffi_c/libffi/src/alpha/osf.S +161 -266
  55. data/ext/ffi_c/libffi/src/arc/arcompact.S +135 -0
  56. data/ext/ffi_c/libffi/src/arc/ffi.c +266 -0
  57. data/ext/ffi_c/libffi/src/arc/ffitarget.h +53 -0
  58. data/ext/ffi_c/libffi/src/arm/ffi.c +597 -517
  59. data/ext/ffi_c/libffi/src/arm/ffitarget.h +24 -7
  60. data/ext/ffi_c/libffi/src/arm/internal.h +7 -0
  61. data/ext/ffi_c/libffi/src/arm/sysv.S +303 -417
  62. data/ext/ffi_c/libffi/src/avr32/ffitarget.h +6 -1
  63. data/ext/ffi_c/libffi/src/bfin/ffi.c +196 -0
  64. data/ext/ffi_c/libffi/src/bfin/ffitarget.h +43 -0
  65. data/ext/ffi_c/libffi/src/bfin/sysv.S +179 -0
  66. data/ext/ffi_c/libffi/src/closures.c +319 -44
  67. data/ext/ffi_c/libffi/src/cris/ffi.c +10 -7
  68. data/ext/ffi_c/libffi/src/cris/ffitarget.h +6 -1
  69. data/ext/ffi_c/libffi/src/debug.c +6 -1
  70. data/ext/ffi_c/libffi/src/dlmalloc.c +16 -11
  71. data/ext/ffi_c/libffi/src/frv/ffi.c +1 -1
  72. data/ext/ffi_c/libffi/src/frv/ffitarget.h +6 -1
  73. data/ext/ffi_c/libffi/src/ia64/ffi.c +11 -7
  74. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +6 -1
  75. data/ext/ffi_c/libffi/src/java_raw_api.c +23 -5
  76. data/ext/ffi_c/libffi/src/m32r/ffi.c +1 -1
  77. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +6 -1
  78. data/ext/ffi_c/libffi/src/m68k/ffi.c +87 -13
  79. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +6 -1
  80. data/ext/ffi_c/libffi/src/m68k/sysv.S +119 -32
  81. data/ext/ffi_c/libffi/src/m88k/ffi.c +400 -0
  82. data/ext/ffi_c/libffi/src/m88k/ffitarget.h +49 -0
  83. data/ext/ffi_c/libffi/src/m88k/obsd.S +209 -0
  84. data/ext/ffi_c/libffi/src/metag/ffi.c +330 -0
  85. data/ext/ffi_c/libffi/{fficonfig.hw → src/metag/ffitarget.h} +22 -26
  86. data/ext/ffi_c/libffi/src/metag/sysv.S +311 -0
  87. data/ext/ffi_c/libffi/src/microblaze/ffi.c +321 -0
  88. data/ext/ffi_c/libffi/src/microblaze/ffitarget.h +53 -0
  89. data/ext/ffi_c/libffi/src/microblaze/sysv.S +302 -0
  90. data/ext/ffi_c/libffi/src/mips/ffi.c +95 -28
  91. data/ext/ffi_c/libffi/src/mips/ffitarget.h +9 -2
  92. data/ext/ffi_c/libffi/src/mips/n32.S +126 -56
  93. data/ext/ffi_c/libffi/src/mips/o32.S +148 -27
  94. data/ext/ffi_c/libffi/src/moxie/eabi.S +55 -82
  95. data/ext/ffi_c/libffi/src/moxie/ffi.c +40 -44
  96. data/ext/ffi_c/libffi/src/moxie/ffitarget.h +52 -0
  97. data/ext/ffi_c/libffi/src/nios2/ffi.c +304 -0
  98. data/ext/ffi_c/libffi/src/nios2/ffitarget.h +52 -0
  99. data/ext/ffi_c/libffi/src/nios2/sysv.S +136 -0
  100. data/ext/ffi_c/libffi/src/or1k/ffi.c +328 -0
  101. data/ext/ffi_c/libffi/src/or1k/ffitarget.h +58 -0
  102. data/ext/ffi_c/libffi/src/or1k/sysv.S +107 -0
  103. data/ext/ffi_c/libffi/src/pa/ffitarget.h +8 -1
  104. data/ext/ffi_c/libffi/src/powerpc/aix.S +6 -6
  105. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +3 -1
  106. data/ext/ffi_c/libffi/src/powerpc/asm.h +2 -2
  107. data/ext/ffi_c/libffi/src/powerpc/darwin.S +2 -7
  108. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +22 -26
  109. data/ext/ffi_c/libffi/src/powerpc/ffi.c +103 -1378
  110. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +25 -25
  111. data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +945 -0
  112. data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +94 -0
  113. data/ext/ffi_c/libffi/src/powerpc/ffi_sysv.c +923 -0
  114. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +100 -44
  115. data/ext/ffi_c/libffi/src/powerpc/linux64.S +100 -59
  116. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +360 -108
  117. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +138 -68
  118. data/ext/ffi_c/libffi/src/powerpc/sysv.S +68 -112
  119. data/ext/ffi_c/libffi/src/prep_cif.c +108 -24
  120. data/ext/ffi_c/libffi/src/raw_api.c +18 -5
  121. data/ext/ffi_c/libffi/src/s390/ffi.c +294 -318
  122. data/ext/ffi_c/libffi/src/s390/ffitarget.h +9 -1
  123. data/ext/ffi_c/libffi/src/s390/internal.h +11 -0
  124. data/ext/ffi_c/libffi/src/s390/sysv.S +257 -366
  125. data/ext/ffi_c/libffi/src/sh/ffi.c +4 -3
  126. data/ext/ffi_c/libffi/src/sh/ffitarget.h +6 -1
  127. data/ext/ffi_c/libffi/src/sh64/ffi.c +3 -2
  128. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +6 -1
  129. data/ext/ffi_c/libffi/src/sparc/ffi.c +326 -527
  130. data/ext/ffi_c/libffi/src/sparc/ffi64.c +608 -0
  131. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +20 -7
  132. data/ext/ffi_c/libffi/src/sparc/internal.h +26 -0
  133. data/ext/ffi_c/libffi/src/sparc/v8.S +364 -234
  134. data/ext/ffi_c/libffi/src/sparc/v9.S +340 -207
  135. data/ext/ffi_c/libffi/src/tile/ffi.c +355 -0
  136. data/ext/ffi_c/libffi/src/tile/ffitarget.h +65 -0
  137. data/ext/ffi_c/libffi/src/tile/tile.S +360 -0
  138. data/ext/ffi_c/libffi/src/types.c +43 -14
  139. data/ext/ffi_c/libffi/src/vax/elfbsd.S +195 -0
  140. data/ext/ffi_c/libffi/src/vax/ffi.c +276 -0
  141. data/ext/ffi_c/libffi/src/vax/ffitarget.h +49 -0
  142. data/ext/ffi_c/libffi/src/x86/asmnames.h +30 -0
  143. data/ext/ffi_c/libffi/src/x86/ffi.c +589 -500
  144. data/ext/ffi_c/libffi/src/x86/ffi64.c +338 -116
  145. data/ext/ffi_c/libffi/src/x86/ffitarget.h +55 -35
  146. data/ext/ffi_c/libffi/src/x86/ffiw64.c +287 -0
  147. data/ext/ffi_c/libffi/src/x86/internal.h +29 -0
  148. data/ext/ffi_c/libffi/src/x86/internal64.h +22 -0
  149. data/ext/ffi_c/libffi/src/x86/sysv.S +975 -400
  150. data/ext/ffi_c/libffi/src/x86/unix64.S +398 -299
  151. data/ext/ffi_c/libffi/src/x86/win64.S +222 -458
  152. data/ext/ffi_c/libffi/src/x86/win64_intel.S +237 -0
  153. data/ext/ffi_c/libffi/src/xtensa/ffi.c +298 -0
  154. data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +53 -0
  155. data/ext/ffi_c/libffi/src/xtensa/sysv.S +253 -0
  156. data/ext/ffi_c/libffi/stamp-h.in +1 -0
  157. data/ext/ffi_c/libffi/testsuite/Makefile.am +78 -73
  158. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +120 -25
  159. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +21 -1
  160. data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c +46 -0
  161. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +4 -6
  162. data/ext/ffi_c/libffi/testsuite/libffi.call/{closure_stdcall.c → closure_simple.c} +7 -16
  163. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +4 -4
  164. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +4 -4
  165. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +4 -4
  166. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +4 -4
  167. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +4 -4
  168. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +4 -4
  169. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +4 -4
  170. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +5 -5
  171. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +4 -4
  172. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +4 -4
  173. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +4 -4
  174. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +4 -4
  175. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +4 -4
  176. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +4 -4
  177. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +4 -4
  178. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +4 -4
  179. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +5 -5
  180. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +4 -4
  181. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +4 -4
  182. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +4 -4
  183. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +4 -4
  184. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +4 -4
  185. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +4 -4
  186. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +4 -4
  187. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +4 -4
  188. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +4 -4
  189. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +4 -4
  190. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split.c +4 -6
  191. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c +4 -6
  192. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +4 -4
  193. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +4 -4
  194. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +4 -4
  195. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +4 -4
  196. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +4 -4
  197. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +4 -4
  198. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +4 -4
  199. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_dbls_struct.c +4 -4
  200. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c +10 -9
  201. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble.c +3 -3
  202. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble_va.c +10 -9
  203. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_args.c +70 -0
  204. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_float_double.c +55 -0
  205. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer.c +1 -1
  206. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer_stack.c +11 -9
  207. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_struct_va1.c +114 -0
  208. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar_va.c +44 -0
  209. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint_va.c +45 -0
  210. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulong_va.c +45 -0
  211. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +5 -5
  212. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort_va.c +44 -0
  213. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c +2 -2
  214. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +23 -40
  215. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +3 -1
  216. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +6 -4
  217. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +4 -2
  218. data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +107 -0
  219. data/ext/ffi_c/libffi/testsuite/libffi.call/huge_struct.c +18 -19
  220. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +6 -16
  221. data/ext/ffi_c/libffi/testsuite/libffi.call/many2.c +57 -0
  222. data/ext/ffi_c/libffi/testsuite/libffi.call/many_double.c +70 -0
  223. data/ext/ffi_c/libffi/testsuite/libffi.call/many_mixed.c +78 -0
  224. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +0 -1
  225. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +6 -6
  226. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +8 -8
  227. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +6 -6
  228. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct11.c +121 -0
  229. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +5 -5
  230. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +5 -5
  231. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +5 -5
  232. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +5 -5
  233. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +6 -6
  234. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +5 -5
  235. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +6 -6
  236. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +6 -6
  237. data/ext/ffi_c/libffi/testsuite/libffi.call/offsets.c +46 -0
  238. data/ext/ffi_c/libffi/testsuite/libffi.call/pr1172638.c +127 -0
  239. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +1 -0
  240. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +1 -1
  241. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +1 -1
  242. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +1 -1
  243. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large.c +7 -7
  244. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large2.c +7 -7
  245. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium.c +5 -5
  246. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium2.c +5 -5
  247. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +2 -2
  248. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +49 -0
  249. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +49 -0
  250. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +55 -0
  251. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +9 -7
  252. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +7 -7
  253. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +7 -6
  254. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +9 -8
  255. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +9 -8
  256. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +9 -9
  257. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +9 -9
  258. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +9 -8
  259. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +9 -8
  260. data/ext/ffi_c/libffi/testsuite/libffi.call/testclosure.c +2 -2
  261. data/ext/ffi_c/libffi/testsuite/libffi.call/uninitialized.c +61 -0
  262. data/ext/ffi_c/libffi/testsuite/{libffi.special → libffi.call}/unwindtest.cc +3 -10
  263. data/ext/ffi_c/libffi/testsuite/{libffi.special → libffi.call}/unwindtest_ffi_call.cc +2 -1
  264. data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +196 -0
  265. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +121 -0
  266. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +123 -0
  267. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +125 -0
  268. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex.inc +91 -0
  269. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_double.c +10 -0
  270. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_float.c +10 -0
  271. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +10 -0
  272. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex.inc +42 -0
  273. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_double.c +10 -0
  274. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_float.c +10 -0
  275. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +10 -0
  276. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct.inc +71 -0
  277. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +10 -0
  278. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +10 -0
  279. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +10 -0
  280. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va.inc +80 -0
  281. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c +10 -0
  282. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c +16 -0
  283. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +10 -0
  284. data/ext/ffi_c/libffi/testsuite/{libffi.special/special.exp → libffi.complex/complex.exp} +9 -8
  285. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc +51 -0
  286. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc +7 -0
  287. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc +7 -0
  288. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +7 -0
  289. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c +10 -0
  290. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c +10 -0
  291. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c +86 -0
  292. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c +10 -0
  293. data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h +1 -0
  294. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc +78 -0
  295. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c +10 -0
  296. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c +10 -0
  297. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c +10 -0
  298. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc +37 -0
  299. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc +41 -0
  300. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_double.c +10 -0
  301. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_float.c +10 -0
  302. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +10 -0
  303. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2.inc +44 -0
  304. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_double.c +10 -0
  305. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_float.c +10 -0
  306. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +10 -0
  307. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_double.c +10 -0
  308. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c +10 -0
  309. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c +10 -0
  310. data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c +34 -0
  311. data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c +28 -0
  312. data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h +1 -0
  313. data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp +36 -0
  314. data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h +19 -0
  315. data/ffi.gemspec +2 -2
  316. data/lib/ffi/enum.rb +124 -0
  317. data/lib/ffi/library.rb +65 -13
  318. data/lib/ffi/platform.rb +7 -2
  319. data/lib/ffi/platform/sparc64-linux/types.conf +102 -0
  320. data/lib/ffi/platform/x86_64-windows/types.conf +113 -20
  321. data/lib/ffi/pointer.rb +1 -0
  322. data/lib/ffi/struct.rb +0 -2
  323. data/lib/ffi/version.rb +1 -1
  324. data/spec/ffi/bitmask_spec.rb +575 -0
  325. data/spec/ffi/fixtures/BitmaskTest.c +51 -0
  326. data/spec/ffi/rbx/memory_pointer_spec.rb +4 -0
  327. data/spec/ffi/struct_spec.rb +0 -4
  328. metadata +143 -51
  329. data/ext/ffi_c/libffi/Makefile.in +0 -1820
  330. data/ext/ffi_c/libffi/Makefile.vc +0 -141
  331. data/ext/ffi_c/libffi/Makefile.vc64 +0 -141
  332. data/ext/ffi_c/libffi/aclocal.m4 +0 -1873
  333. data/ext/ffi_c/libffi/build-ios.sh +0 -67
  334. data/ext/ffi_c/libffi/compile +0 -143
  335. data/ext/ffi_c/libffi/config.guess +0 -1501
  336. data/ext/ffi_c/libffi/config.sub +0 -1705
  337. data/ext/ffi_c/libffi/configure +0 -17191
  338. data/ext/ffi_c/libffi/depcomp +0 -630
  339. data/ext/ffi_c/libffi/doc/libffi.info +0 -593
  340. data/ext/ffi_c/libffi/doc/stamp-vti +0 -4
  341. data/ext/ffi_c/libffi/fficonfig.h.in +0 -199
  342. data/ext/ffi_c/libffi/include/Makefile.in +0 -487
  343. data/ext/ffi_c/libffi/include/ffi.h.vc +0 -427
  344. data/ext/ffi_c/libffi/include/ffi.h.vc64 +0 -427
  345. data/ext/ffi_c/libffi/install-sh +0 -520
  346. data/ext/ffi_c/libffi/ltmain.sh +0 -9636
  347. data/ext/ffi_c/libffi/m4/libtool.m4 +0 -7831
  348. data/ext/ffi_c/libffi/m4/ltoptions.m4 +0 -369
  349. data/ext/ffi_c/libffi/m4/ltsugar.m4 +0 -123
  350. data/ext/ffi_c/libffi/m4/ltversion.m4 +0 -23
  351. data/ext/ffi_c/libffi/m4/lt~obsolete.m4 +0 -98
  352. data/ext/ffi_c/libffi/man/Makefile.in +0 -466
  353. data/ext/ffi_c/libffi/mdate-sh +0 -201
  354. data/ext/ffi_c/libffi/missing +0 -376
  355. data/ext/ffi_c/libffi/src/arm/gentramp.sh +0 -118
  356. data/ext/ffi_c/libffi/src/arm/trampoline.S +0 -4450
  357. data/ext/ffi_c/libffi/src/x86/darwin.S +0 -444
  358. data/ext/ffi_c/libffi/src/x86/darwin64.S +0 -416
  359. data/ext/ffi_c/libffi/src/x86/freebsd.S +0 -458
  360. data/ext/ffi_c/libffi/src/x86/win32.S +0 -1065
  361. data/ext/ffi_c/libffi/testsuite/Makefile.in +0 -500
  362. data/ext/ffi_c/libffi/testsuite/lib/libffi-dg.exp +0 -300
  363. data/ext/ffi_c/libffi/testsuite/libffi.call/many_win32.c +0 -63
  364. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen_win32.c +0 -44
  365. data/ext/ffi_c/libffi/testsuite/libffi.special/ffitestcxx.h +0 -96
  366. data/ext/ffi_c/libffi/texinfo.tex +0 -7210
@@ -0,0 +1,49 @@
1
+ /*
2
+ * Copyright (c) 2013 Miodrag Vallat. <miod@openbsd.org>
3
+ *
4
+ * Permission is hereby granted, free of charge, to any person obtaining
5
+ * a copy of this software and associated documentation files (the
6
+ * ``Software''), to deal in the Software without restriction, including
7
+ * without limitation the rights to use, copy, modify, merge, publish,
8
+ * distribute, sublicense, and/or sell copies of the Software, and to
9
+ * permit persons to whom the Software is furnished to do so, subject to
10
+ * the following conditions:
11
+ *
12
+ * The above copyright notice and this permission notice shall be included
13
+ * in all copies or substantial portions of the Software.
14
+ *
15
+ * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
16
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18
+ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19
+ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20
+ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21
+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22
+ */
23
+
24
+ /*
25
+ * m88k Foreign Function Interface
26
+ */
27
+
28
+ #ifndef LIBFFI_TARGET_H
29
+ #define LIBFFI_TARGET_H
30
+
31
+ #ifndef LIBFFI_ASM
32
+ typedef unsigned long ffi_arg;
33
+ typedef signed long ffi_sarg;
34
+
35
+ typedef enum ffi_abi {
36
+ FFI_FIRST_ABI = 0,
37
+ FFI_OBSD,
38
+ FFI_DEFAULT_ABI = FFI_OBSD,
39
+ FFI_LAST_ABI = FFI_DEFAULT_ABI + 1
40
+ } ffi_abi;
41
+ #endif
42
+
43
+ /* ---- Definitions for closures ----------------------------------------- */
44
+
45
+ #define FFI_CLOSURES 1
46
+ #define FFI_TRAMPOLINE_SIZE 0x14
47
+ #define FFI_NATIVE_RAW_API 0
48
+
49
+ #endif
@@ -0,0 +1,209 @@
1
+ /*
2
+ * Copyright (c) 2013 Miodrag Vallat. <miod@openbsd.org>
3
+ *
4
+ * Permission is hereby granted, free of charge, to any person obtaining
5
+ * a copy of this software and associated documentation files (the
6
+ * ``Software''), to deal in the Software without restriction, including
7
+ * without limitation the rights to use, copy, modify, merge, publish,
8
+ * distribute, sublicense, and/or sell copies of the Software, and to
9
+ * permit persons to whom the Software is furnished to do so, subject to
10
+ * the following conditions:
11
+ *
12
+ * The above copyright notice and this permission notice shall be included
13
+ * in all copies or substantial portions of the Software.
14
+ *
15
+ * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
16
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18
+ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19
+ * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20
+ * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21
+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22
+ */
23
+
24
+ /*
25
+ * m88k Foreign Function Interface
26
+ */
27
+
28
+ #define LIBFFI_ASM
29
+ #include <fficonfig.h>
30
+ #include <ffi.h>
31
+
32
+ .text
33
+
34
+ /*
35
+ * ffi_cacheflush_OBSD(unsigned int addr, %r2
36
+ * unsigned int size); %r3
37
+ */
38
+ .align 4
39
+ .globl ffi_cacheflush_OBSD
40
+ .type ffi_cacheflush_OBSD,@function
41
+ ffi_cacheflush_OBSD:
42
+ tb0 0, %r0, 451
43
+ or %r0, %r0, %r0
44
+ jmp %r1
45
+ .size ffi_cacheflush_OBSD, . - ffi_cacheflush_OBSD
46
+
47
+ /*
48
+ * ffi_call_OBSD(unsigned bytes, %r2
49
+ * extended_cif *ecif, %r3
50
+ * unsigned flags, %r4
51
+ * void *rvalue, %r5
52
+ * void (*fn)()); %r6
53
+ */
54
+ .align 4
55
+ .globl ffi_call_OBSD
56
+ .type ffi_call_OBSD,@function
57
+ ffi_call_OBSD:
58
+ subu %r31, %r31, 32
59
+ st %r30, %r31, 4
60
+ st %r1, %r31, 0
61
+ addu %r30, %r31, 32
62
+
63
+ | Save the few arguments we'll need after ffi_prep_args()
64
+ st.d %r4, %r31, 8
65
+ st %r6, %r31, 16
66
+
67
+ | Allocate room for the image of r2-r9, and the stack space for
68
+ | the args (rounded to a 16-byte boundary)
69
+ addu %r2, %r2, (8 * 4) + 15
70
+ clr %r2, %r2, 4<0>
71
+ subu %r31, %r31, %r2
72
+
73
+ | Fill register and stack image
74
+ or %r2, %r31, %r0
75
+ #ifdef PIC
76
+ bsr ffi_prep_args#plt
77
+ #else
78
+ bsr ffi_prep_args
79
+ #endif
80
+
81
+ | Save pointer to return struct address, if any
82
+ or %r12, %r2, %r0
83
+
84
+ | Get function pointer
85
+ subu %r4, %r30, 32
86
+ ld %r1, %r4, 16
87
+
88
+ | Fetch the register arguments
89
+ ld.d %r2, %r31, (0 * 4)
90
+ ld.d %r4, %r31, (2 * 4)
91
+ ld.d %r6, %r31, (4 * 4)
92
+ ld.d %r8, %r31, (6 * 4)
93
+ addu %r31, %r31, (8 * 4)
94
+
95
+ | Invoke the function
96
+ jsr %r1
97
+
98
+ | Restore stack now that we don't need the args anymore
99
+ subu %r31, %r30, 32
100
+
101
+ | Figure out what to return as the function's return value
102
+ ld %r5, %r31, 12 | rvalue
103
+ ld %r4, %r31, 8 | flags
104
+
105
+ bcnd eq0, %r5, 9f
106
+
107
+ bb0 0, %r4, 1f | CIF_FLAGS_INT
108
+ st %r2, %r5, 0
109
+ br 9f
110
+
111
+ 1:
112
+ bb0 1, %r4, 1f | CIF_FLAGS_DINT
113
+ st.d %r2, %r5, 0
114
+ br 9f
115
+
116
+ 1:
117
+ 9:
118
+ ld %r1, %r31, 0
119
+ ld %r30, %r31, 4
120
+ jmp.n %r1
121
+ addu %r31, %r31, 32
122
+ .size ffi_call_OBSD, . - ffi_call_OBSD
123
+
124
+ /*
125
+ * ffi_closure_OBSD(ffi_closure *closure); %r13
126
+ */
127
+ .align 4
128
+ .globl ffi_closure_OBSD
129
+ .type ffi_closure_OBSD, @function
130
+ ffi_closure_OBSD:
131
+ subu %r31, %r31, 16
132
+ st %r30, %r31, 4
133
+ st %r1, %r31, 0
134
+ addu %r30, %r31, 16
135
+
136
+ | Make room on the stack for saved register arguments and return
137
+ | value
138
+ subu %r31, %r31, (8 * 4) + (2 * 4)
139
+ st.d %r2, %r31, (0 * 4)
140
+ st.d %r4, %r31, (2 * 4)
141
+ st.d %r6, %r31, (4 * 4)
142
+ st.d %r8, %r31, (6 * 4)
143
+
144
+ | Invoke the closure function
145
+ or %r5, %r30, 0 | calling stack
146
+ addu %r4, %r31, 0 | saved registers
147
+ addu %r3, %r31, (8 * 4) | return value
148
+ or %r2, %r13, %r0 | closure
149
+ #ifdef PIC
150
+ bsr ffi_closure_OBSD_inner#plt
151
+ #else
152
+ bsr ffi_closure_OBSD_inner
153
+ #endif
154
+
155
+ | Figure out what to return as the function's return value
156
+ bb0 0, %r2, 1f | CIF_FLAGS_INT
157
+ ld %r2, %r31, (8 * 4)
158
+ br 9f
159
+
160
+ 1:
161
+ bb0 1, %r2, 1f | CIF_FLAGS_DINT
162
+ ld.d %r2, %r31, (8 * 4)
163
+ br 9f
164
+
165
+ 1:
166
+ 9:
167
+ subu %r31, %r30, 16
168
+ ld %r1, %r31, 0
169
+ ld %r30, %r31, 4
170
+ jmp.n %r1
171
+ addu %r31, %r31, 16
172
+ .size ffi_closure_OBSD,.-ffi_closure_OBSD
173
+
174
+ /*
175
+ * ffi_closure_struct_OBSD(ffi_closure *closure); %r13
176
+ */
177
+ .align 4
178
+ .globl ffi_closure_struct_OBSD
179
+ .type ffi_closure_struct_OBSD, @function
180
+ ffi_closure_struct_OBSD:
181
+ subu %r31, %r31, 16
182
+ st %r30, %r31, 4
183
+ st %r1, %r31, 0
184
+ addu %r30, %r31, 16
185
+
186
+ | Make room on the stack for saved register arguments
187
+ subu %r31, %r31, (8 * 4)
188
+ st.d %r2, %r31, (0 * 4)
189
+ st.d %r4, %r31, (2 * 4)
190
+ st.d %r6, %r31, (4 * 4)
191
+ st.d %r8, %r31, (6 * 4)
192
+
193
+ | Invoke the closure function
194
+ or %r5, %r30, 0 | calling stack
195
+ addu %r4, %r31, 0 | saved registers
196
+ or %r3, %r12, 0 | return value
197
+ or %r2, %r13, %r0 | closure
198
+ #ifdef PIC
199
+ bsr ffi_closure_OBSD_inner#plt
200
+ #else
201
+ bsr ffi_closure_OBSD_inner
202
+ #endif
203
+
204
+ subu %r31, %r30, 16
205
+ ld %r1, %r31, 0
206
+ ld %r30, %r31, 4
207
+ jmp.n %r1
208
+ addu %r31, %r31, 16
209
+ .size ffi_closure_struct_OBSD,.-ffi_closure_struct_OBSD
@@ -0,0 +1,330 @@
1
+ /* ----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2013 Imagination Technologies
3
+
4
+ Meta Foreign Function Interface
5
+ Permission is hereby granted, free of charge, to any person obtaining
6
+ a copy of this software and associated documentation files (the
7
+ `Software''), to deal in the Software without restriction, including
8
+ without limitation the rights to use, copy, modify, merge, publish,
9
+ distribute, sublicense, and/or sell copies of the Software, and to
10
+ permit persons to whom the Software is furnished to do so, subject to
11
+ the following conditions:
12
+
13
+ The above copyright notice and this permission notice shall be included
14
+ in all copies or substantial portions of the Software.
15
+
16
+ THE SOFTWARE IS PROVIDED `AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
17
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
19
+ IN NO EVENT SHALL SIMON POSNJAK BE LIABLE FOR ANY CLAIM, DAMAGES OR
20
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
21
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
22
+ OTHER DEALINGS IN THE SOFTWARE.
23
+ ----------------------------------------------------------------------- */
24
+
25
+ #include <ffi.h>
26
+ #include <ffi_common.h>
27
+
28
+ #include <stdlib.h>
29
+
30
+ #define MIN(a,b) (((a) < (b)) ? (a) : (b))
31
+
32
+ /*
33
+ * ffi_prep_args is called by the assembly routine once stack space has been
34
+ * allocated for the function's arguments
35
+ */
36
+
37
+ unsigned int ffi_prep_args(char *stack, extended_cif *ecif)
38
+ {
39
+ register unsigned int i;
40
+ register void **p_argv;
41
+ register char *argp;
42
+ register ffi_type **p_arg;
43
+
44
+ argp = stack;
45
+
46
+ /* Store return value */
47
+ if ( ecif->cif->flags == FFI_TYPE_STRUCT ) {
48
+ argp -= 4;
49
+ *(void **) argp = ecif->rvalue;
50
+ }
51
+
52
+ p_argv = ecif->avalue;
53
+
54
+ /* point to next location */
55
+ for (i = ecif->cif->nargs, p_arg = ecif->cif->arg_types; (i != 0); i--, p_arg++, p_argv++)
56
+ {
57
+ size_t z;
58
+
59
+ /* Move argp to address of argument */
60
+ z = (*p_arg)->size;
61
+ argp -= z;
62
+
63
+ /* Align if necessary */
64
+ argp = (char *) ALIGN_DOWN(ALIGN_DOWN(argp, (*p_arg)->alignment), 4);
65
+
66
+ if (z < sizeof(int)) {
67
+ z = sizeof(int);
68
+ switch ((*p_arg)->type)
69
+ {
70
+ case FFI_TYPE_SINT8:
71
+ *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
72
+ break;
73
+ case FFI_TYPE_UINT8:
74
+ *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
75
+ break;
76
+ case FFI_TYPE_SINT16:
77
+ *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
78
+ break;
79
+ case FFI_TYPE_UINT16:
80
+ *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
81
+ case FFI_TYPE_STRUCT:
82
+ memcpy(argp, *p_argv, (*p_arg)->size);
83
+ break;
84
+ default:
85
+ FFI_ASSERT(0);
86
+ }
87
+ } else if ( z == sizeof(int)) {
88
+ *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
89
+ } else {
90
+ memcpy(argp, *p_argv, z);
91
+ }
92
+ }
93
+
94
+ /* return the size of the arguments to be passed in registers,
95
+ padded to an 8 byte boundary to preserve stack alignment */
96
+ return FFI_ALIGN(MIN(stack - argp, 6*4), 8);
97
+ }
98
+
99
+ /* Perform machine dependent cif processing */
100
+ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
101
+ {
102
+ ffi_type **ptr;
103
+ unsigned i, bytes = 0;
104
+
105
+ for (ptr = cif->arg_types, i = cif->nargs; i > 0; i--, ptr++) {
106
+ if ((*ptr)->size == 0)
107
+ return FFI_BAD_TYPEDEF;
108
+
109
+ /* Perform a sanity check on the argument type, do this
110
+ check after the initialization. */
111
+ FFI_ASSERT_VALID_TYPE(*ptr);
112
+
113
+ /* Add any padding if necessary */
114
+ if (((*ptr)->alignment - 1) & bytes)
115
+ bytes = FFI_ALIGN(bytes, (*ptr)->alignment);
116
+
117
+ bytes += FFI_ALIGN((*ptr)->size, 4);
118
+ }
119
+
120
+ /* Ensure arg space is aligned to an 8-byte boundary */
121
+ bytes = FFI_ALIGN(bytes, 8);
122
+
123
+ /* Make space for the return structure pointer */
124
+ if (cif->rtype->type == FFI_TYPE_STRUCT) {
125
+ bytes += sizeof(void*);
126
+
127
+ /* Ensure stack is aligned to an 8-byte boundary */
128
+ bytes = FFI_ALIGN(bytes, 8);
129
+ }
130
+
131
+ cif->bytes = bytes;
132
+
133
+ /* Set the return type flag */
134
+ switch (cif->rtype->type) {
135
+ case FFI_TYPE_VOID:
136
+ case FFI_TYPE_FLOAT:
137
+ case FFI_TYPE_DOUBLE:
138
+ cif->flags = (unsigned) cif->rtype->type;
139
+ break;
140
+ case FFI_TYPE_SINT64:
141
+ case FFI_TYPE_UINT64:
142
+ cif->flags = (unsigned) FFI_TYPE_SINT64;
143
+ break;
144
+ case FFI_TYPE_STRUCT:
145
+ /* Meta can store return values which are <= 64 bits */
146
+ if (cif->rtype->size <= 4)
147
+ /* Returned to D0Re0 as 32-bit value */
148
+ cif->flags = (unsigned)FFI_TYPE_INT;
149
+ else if ((cif->rtype->size > 4) && (cif->rtype->size <= 8))
150
+ /* Returned valued is stored to D1Re0|R0Re0 */
151
+ cif->flags = (unsigned)FFI_TYPE_DOUBLE;
152
+ else
153
+ /* value stored in memory */
154
+ cif->flags = (unsigned)FFI_TYPE_STRUCT;
155
+ break;
156
+ default:
157
+ cif->flags = (unsigned)FFI_TYPE_INT;
158
+ break;
159
+ }
160
+ return FFI_OK;
161
+ }
162
+
163
+ extern void ffi_call_SYSV(void (*fn)(void), extended_cif *, unsigned, unsigned, double *);
164
+
165
+ /*
166
+ * Exported in API. Entry point
167
+ * cif -> ffi_cif object
168
+ * fn -> function pointer
169
+ * rvalue -> pointer to return value
170
+ * avalue -> vector of void * pointers pointing to memory locations holding the
171
+ * arguments
172
+ */
173
+ void ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
174
+ {
175
+ extended_cif ecif;
176
+
177
+ int small_struct = (((cif->flags == FFI_TYPE_INT) || (cif->flags == FFI_TYPE_DOUBLE)) && (cif->rtype->type == FFI_TYPE_STRUCT));
178
+ ecif.cif = cif;
179
+ ecif.avalue = avalue;
180
+
181
+ double temp;
182
+
183
+ /*
184
+ * If the return value is a struct and we don't have a return value address
185
+ * then we need to make one
186
+ */
187
+
188
+ if ((rvalue == NULL ) && (cif->flags == FFI_TYPE_STRUCT))
189
+ ecif.rvalue = alloca(cif->rtype->size);
190
+ else if (small_struct)
191
+ ecif.rvalue = &temp;
192
+ else
193
+ ecif.rvalue = rvalue;
194
+
195
+ switch (cif->abi) {
196
+ case FFI_SYSV:
197
+ ffi_call_SYSV(fn, &ecif, cif->bytes, cif->flags, ecif.rvalue);
198
+ break;
199
+ default:
200
+ FFI_ASSERT(0);
201
+ break;
202
+ }
203
+
204
+ if (small_struct)
205
+ memcpy (rvalue, &temp, cif->rtype->size);
206
+ }
207
+
208
+ /* private members */
209
+
210
+ static void ffi_prep_incoming_args_SYSV (char *, void **, void **,
211
+ ffi_cif*, float *);
212
+
213
+ void ffi_closure_SYSV (ffi_closure *);
214
+
215
+ /* Do NOT change that without changing the FFI_TRAMPOLINE_SIZE */
216
+ extern unsigned int ffi_metag_trampoline[10]; /* 10 instructions */
217
+
218
+ /* end of private members */
219
+
220
+ /*
221
+ * __tramp: trampoline memory location
222
+ * __fun: assembly routine
223
+ * __ctx: memory location for wrapper
224
+ *
225
+ * At this point, tramp[0] == __ctx !
226
+ */
227
+ void ffi_init_trampoline(unsigned char *__tramp, unsigned int __fun, unsigned int __ctx) {
228
+ memcpy (__tramp, ffi_metag_trampoline, sizeof(ffi_metag_trampoline));
229
+ *(unsigned int*) &__tramp[40] = __ctx;
230
+ *(unsigned int*) &__tramp[44] = __fun;
231
+ /* This will flush the instruction cache */
232
+ __builtin_meta2_cachewd(&__tramp[0], 1);
233
+ __builtin_meta2_cachewd(&__tramp[47], 1);
234
+ }
235
+
236
+
237
+
238
+ /* the cif must already be prepared */
239
+
240
+ ffi_status
241
+ ffi_prep_closure_loc (ffi_closure *closure,
242
+ ffi_cif* cif,
243
+ void (*fun)(ffi_cif*,void*,void**,void*),
244
+ void *user_data,
245
+ void *codeloc)
246
+ {
247
+ void (*closure_func)(ffi_closure*) = NULL;
248
+
249
+ if (cif->abi == FFI_SYSV)
250
+ closure_func = &ffi_closure_SYSV;
251
+ else
252
+ return FFI_BAD_ABI;
253
+
254
+ ffi_init_trampoline(
255
+ (unsigned char*)&closure->tramp[0],
256
+ (unsigned int)closure_func,
257
+ (unsigned int)codeloc);
258
+
259
+ closure->cif = cif;
260
+ closure->user_data = user_data;
261
+ closure->fun = fun;
262
+
263
+ return FFI_OK;
264
+ }
265
+
266
+
267
+ /* This function is jumped to by the trampoline */
268
+ unsigned int ffi_closure_SYSV_inner (closure, respp, args, vfp_args)
269
+ ffi_closure *closure;
270
+ void **respp;
271
+ void *args;
272
+ void *vfp_args;
273
+ {
274
+ ffi_cif *cif;
275
+ void **arg_area;
276
+
277
+ cif = closure->cif;
278
+ arg_area = (void**) alloca (cif->nargs * sizeof (void*));
279
+
280
+ /*
281
+ * This call will initialize ARG_AREA, such that each
282
+ * element in that array points to the corresponding
283
+ * value on the stack; and if the function returns
284
+ * a structure, it will re-set RESP to point to the
285
+ * structure return address.
286
+ */
287
+ ffi_prep_incoming_args_SYSV(args, respp, arg_area, cif, vfp_args);
288
+
289
+ (closure->fun) ( cif, *respp, arg_area, closure->user_data);
290
+
291
+ return cif->flags;
292
+ }
293
+
294
+ static void ffi_prep_incoming_args_SYSV(char *stack, void **rvalue,
295
+ void **avalue, ffi_cif *cif,
296
+ float *vfp_stack)
297
+ {
298
+ register unsigned int i;
299
+ register void **p_argv;
300
+ register char *argp;
301
+ register ffi_type **p_arg;
302
+
303
+ /* stack points to original arguments */
304
+ argp = stack;
305
+
306
+ /* Store return value */
307
+ if ( cif->flags == FFI_TYPE_STRUCT ) {
308
+ argp -= 4;
309
+ *rvalue = *(void **) argp;
310
+ }
311
+
312
+ p_argv = avalue;
313
+
314
+ for (i = cif->nargs, p_arg = cif->arg_types; (i != 0); i--, p_arg++) {
315
+ size_t z;
316
+ size_t alignment;
317
+
318
+ alignment = (*p_arg)->alignment;
319
+ if (alignment < 4)
320
+ alignment = 4;
321
+ if ((alignment - 1) & (unsigned)argp)
322
+ argp = (char *) FFI_ALIGN(argp, alignment);
323
+
324
+ z = (*p_arg)->size;
325
+ *p_argv = (void*) argp;
326
+ p_argv++;
327
+ argp -= z;
328
+ }
329
+ return;
330
+ }