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,355 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 2012 Tilera Corp.
3
+
4
+ TILE Foreign Function Interface
5
+
6
+ Permission is hereby granted, free of charge, to any person obtaining
7
+ a copy of this software and associated documentation files (the
8
+ ``Software''), to deal in the Software without restriction, including
9
+ without limitation the rights to use, copy, modify, merge, publish,
10
+ distribute, sublicense, and/or sell copies of the Software, and to
11
+ permit persons to whom the Software is furnished to do so, subject to
12
+ the following conditions:
13
+
14
+ The above copyright notice and this permission notice shall be included
15
+ in all copies or substantial portions of the Software.
16
+
17
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
18
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
23
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
+ DEALINGS IN THE SOFTWARE.
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #include <ffi.h>
28
+ #include <ffi_common.h>
29
+ #include <stdlib.h>
30
+ #include <stdint.h>
31
+ #include <unistd.h>
32
+ #include <arch/abi.h>
33
+ #include <arch/icache.h>
34
+ #include <arch/opcode.h>
35
+
36
+
37
+ /* The first 10 registers are used to pass arguments and return values. */
38
+ #define NUM_ARG_REGS 10
39
+
40
+ /* Performs a raw function call with the given NUM_ARG_REGS register arguments
41
+ and the specified additional stack arguments (if any). */
42
+ extern void ffi_call_tile(ffi_sarg reg_args[NUM_ARG_REGS],
43
+ const ffi_sarg *stack_args,
44
+ size_t stack_args_bytes,
45
+ void (*fnaddr)(void))
46
+ FFI_HIDDEN;
47
+
48
+ /* This handles the raw call from the closure stub, cleaning up the
49
+ parameters and delegating to ffi_closure_tile_inner. */
50
+ extern void ffi_closure_tile(void) FFI_HIDDEN;
51
+
52
+
53
+ ffi_status
54
+ ffi_prep_cif_machdep(ffi_cif *cif)
55
+ {
56
+ /* We always allocate room for all registers. Even if we don't
57
+ use them as parameters, they get returned in the same array
58
+ as struct return values so we need to make room. */
59
+ if (cif->bytes < NUM_ARG_REGS * FFI_SIZEOF_ARG)
60
+ cif->bytes = NUM_ARG_REGS * FFI_SIZEOF_ARG;
61
+
62
+ if (cif->rtype->size > NUM_ARG_REGS * FFI_SIZEOF_ARG)
63
+ cif->flags = FFI_TYPE_STRUCT;
64
+ else
65
+ cif->flags = FFI_TYPE_INT;
66
+
67
+ /* Nothing to do. */
68
+ return FFI_OK;
69
+ }
70
+
71
+
72
+ static long
73
+ assign_to_ffi_arg(ffi_sarg *out, void *in, const ffi_type *type,
74
+ int write_to_reg)
75
+ {
76
+ switch (type->type)
77
+ {
78
+ case FFI_TYPE_SINT8:
79
+ *out = *(SINT8 *)in;
80
+ return 1;
81
+
82
+ case FFI_TYPE_UINT8:
83
+ *out = *(UINT8 *)in;
84
+ return 1;
85
+
86
+ case FFI_TYPE_SINT16:
87
+ *out = *(SINT16 *)in;
88
+ return 1;
89
+
90
+ case FFI_TYPE_UINT16:
91
+ *out = *(UINT16 *)in;
92
+ return 1;
93
+
94
+ case FFI_TYPE_SINT32:
95
+ case FFI_TYPE_UINT32:
96
+ #ifndef __LP64__
97
+ case FFI_TYPE_POINTER:
98
+ #endif
99
+ /* Note that even unsigned 32-bit quantities are sign extended
100
+ on tilegx when stored in a register. */
101
+ *out = *(SINT32 *)in;
102
+ return 1;
103
+
104
+ case FFI_TYPE_FLOAT:
105
+ #ifdef __tilegx__
106
+ if (write_to_reg)
107
+ {
108
+ /* Properly sign extend the value. */
109
+ union { float f; SINT32 s32; } val;
110
+ val.f = *(float *)in;
111
+ *out = val.s32;
112
+ }
113
+ else
114
+ #endif
115
+ {
116
+ *(float *)out = *(float *)in;
117
+ }
118
+ return 1;
119
+
120
+ case FFI_TYPE_SINT64:
121
+ case FFI_TYPE_UINT64:
122
+ case FFI_TYPE_DOUBLE:
123
+ #ifdef __LP64__
124
+ case FFI_TYPE_POINTER:
125
+ #endif
126
+ *(UINT64 *)out = *(UINT64 *)in;
127
+ return sizeof(UINT64) / FFI_SIZEOF_ARG;
128
+
129
+ case FFI_TYPE_STRUCT:
130
+ memcpy(out, in, type->size);
131
+ return (type->size + FFI_SIZEOF_ARG - 1) / FFI_SIZEOF_ARG;
132
+
133
+ case FFI_TYPE_VOID:
134
+ /* Must be a return type. Nothing to do. */
135
+ return 0;
136
+
137
+ default:
138
+ FFI_ASSERT(0);
139
+ return -1;
140
+ }
141
+ }
142
+
143
+
144
+ void
145
+ ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
146
+ {
147
+ ffi_sarg * const arg_mem = alloca(cif->bytes);
148
+ ffi_sarg * const reg_args = arg_mem;
149
+ ffi_sarg * const stack_args = &reg_args[NUM_ARG_REGS];
150
+ ffi_sarg *argp = arg_mem;
151
+ ffi_type ** const arg_types = cif->arg_types;
152
+ const long num_args = cif->nargs;
153
+ long i;
154
+
155
+ if (cif->flags == FFI_TYPE_STRUCT)
156
+ {
157
+ /* Pass a hidden pointer to the return value. We make sure there
158
+ is scratch space for the callee to store the return value even if
159
+ our caller doesn't care about it. */
160
+ *argp++ = (intptr_t)(rvalue ? rvalue : alloca(cif->rtype->size));
161
+
162
+ /* No more work needed to return anything. */
163
+ rvalue = NULL;
164
+ }
165
+
166
+ for (i = 0; i < num_args; i++)
167
+ {
168
+ ffi_type *type = arg_types[i];
169
+ void * const arg_in = avalue[i];
170
+ ptrdiff_t arg_word = argp - arg_mem;
171
+
172
+ #ifndef __tilegx__
173
+ /* Doubleword-aligned values are always in an even-number register
174
+ pair, or doubleword-aligned stack slot if out of registers. */
175
+ long align = arg_word & (type->alignment > FFI_SIZEOF_ARG);
176
+ argp += align;
177
+ arg_word += align;
178
+ #endif
179
+
180
+ if (type->type == FFI_TYPE_STRUCT)
181
+ {
182
+ const size_t arg_size_in_words =
183
+ (type->size + FFI_SIZEOF_ARG - 1) / FFI_SIZEOF_ARG;
184
+
185
+ if (arg_word < NUM_ARG_REGS &&
186
+ arg_word + arg_size_in_words > NUM_ARG_REGS)
187
+ {
188
+ /* Args are not allowed to span registers and the stack. */
189
+ argp = stack_args;
190
+ }
191
+
192
+ memcpy(argp, arg_in, type->size);
193
+ argp += arg_size_in_words;
194
+ }
195
+ else
196
+ {
197
+ argp += assign_to_ffi_arg(argp, arg_in, arg_types[i], 1);
198
+ }
199
+ }
200
+
201
+ /* Actually do the call. */
202
+ ffi_call_tile(reg_args, stack_args,
203
+ cif->bytes - (NUM_ARG_REGS * FFI_SIZEOF_ARG), fn);
204
+
205
+ if (rvalue != NULL)
206
+ assign_to_ffi_arg(rvalue, reg_args, cif->rtype, 0);
207
+ }
208
+
209
+
210
+ /* Template code for closure. */
211
+ extern const UINT64 ffi_template_tramp_tile[] FFI_HIDDEN;
212
+
213
+
214
+ ffi_status
215
+ ffi_prep_closure_loc (ffi_closure *closure,
216
+ ffi_cif *cif,
217
+ void (*fun)(ffi_cif*, void*, void**, void*),
218
+ void *user_data,
219
+ void *codeloc)
220
+ {
221
+ #ifdef __tilegx__
222
+ /* TILE-Gx */
223
+ SINT64 c;
224
+ SINT64 h;
225
+ int s;
226
+ UINT64 *out;
227
+
228
+ if (cif->abi != FFI_UNIX)
229
+ return FFI_BAD_ABI;
230
+
231
+ out = (UINT64 *)closure->tramp;
232
+
233
+ c = (intptr_t)closure;
234
+ h = (intptr_t)ffi_closure_tile;
235
+ s = 0;
236
+
237
+ /* Find the smallest shift count that doesn't lose information
238
+ (i.e. no need to explicitly insert high bits of the address that
239
+ are just the sign extension of the low bits). */
240
+ while ((c >> s) != (SINT16)(c >> s) || (h >> s) != (SINT16)(h >> s))
241
+ s += 16;
242
+
243
+ #define OPS(a, b, shift) \
244
+ (create_Imm16_X0((a) >> (shift)) | create_Imm16_X1((b) >> (shift)))
245
+
246
+ /* Emit the moveli. */
247
+ *out++ = ffi_template_tramp_tile[0] | OPS(c, h, s);
248
+ for (s -= 16; s >= 0; s -= 16)
249
+ *out++ = ffi_template_tramp_tile[1] | OPS(c, h, s);
250
+
251
+ #undef OPS
252
+
253
+ *out++ = ffi_template_tramp_tile[2];
254
+
255
+ #else
256
+ /* TILEPro */
257
+ UINT64 *out;
258
+ intptr_t delta;
259
+
260
+ if (cif->abi != FFI_UNIX)
261
+ return FFI_BAD_ABI;
262
+
263
+ out = (UINT64 *)closure->tramp;
264
+ delta = (intptr_t)ffi_closure_tile - (intptr_t)codeloc;
265
+
266
+ *out++ = ffi_template_tramp_tile[0] | create_JOffLong_X1(delta >> 3);
267
+ #endif
268
+
269
+ closure->cif = cif;
270
+ closure->fun = fun;
271
+ closure->user_data = user_data;
272
+
273
+ invalidate_icache(closure->tramp, (char *)out - closure->tramp,
274
+ getpagesize());
275
+
276
+ return FFI_OK;
277
+ }
278
+
279
+
280
+ /* This is called by the assembly wrapper for closures. This does
281
+ all of the work. On entry reg_args[0] holds the values the registers
282
+ had when the closure was invoked. On return reg_args[1] holds the register
283
+ values to be returned to the caller (many of which may be garbage). */
284
+ void FFI_HIDDEN
285
+ ffi_closure_tile_inner(ffi_closure *closure,
286
+ ffi_sarg reg_args[2][NUM_ARG_REGS],
287
+ ffi_sarg *stack_args)
288
+ {
289
+ ffi_cif * const cif = closure->cif;
290
+ void ** const avalue = alloca(cif->nargs * sizeof(void *));
291
+ void *rvalue;
292
+ ffi_type ** const arg_types = cif->arg_types;
293
+ ffi_sarg * const reg_args_in = reg_args[0];
294
+ ffi_sarg * const reg_args_out = reg_args[1];
295
+ ffi_sarg * argp;
296
+ long i, arg_word, nargs = cif->nargs;
297
+ /* Use a union to guarantee proper alignment for double. */
298
+ union { ffi_sarg arg[NUM_ARG_REGS]; double d; UINT64 u64; } closure_ret;
299
+
300
+ /* Start out reading register arguments. */
301
+ argp = reg_args_in;
302
+
303
+ /* Copy the caller's structure return address to that the closure
304
+ returns the data directly to the caller. */
305
+ if (cif->flags == FFI_TYPE_STRUCT)
306
+ {
307
+ /* Return by reference via hidden pointer. */
308
+ rvalue = (void *)(intptr_t)*argp++;
309
+ arg_word = 1;
310
+ }
311
+ else
312
+ {
313
+ /* Return the value in registers. */
314
+ rvalue = &closure_ret;
315
+ arg_word = 0;
316
+ }
317
+
318
+ /* Grab the addresses of the arguments. */
319
+ for (i = 0; i < nargs; i++)
320
+ {
321
+ ffi_type * const type = arg_types[i];
322
+ const size_t arg_size_in_words =
323
+ (type->size + FFI_SIZEOF_ARG - 1) / FFI_SIZEOF_ARG;
324
+
325
+ #ifndef __tilegx__
326
+ /* Doubleword-aligned values are always in an even-number register
327
+ pair, or doubleword-aligned stack slot if out of registers. */
328
+ long align = arg_word & (type->alignment > FFI_SIZEOF_ARG);
329
+ argp += align;
330
+ arg_word += align;
331
+ #endif
332
+
333
+ if (arg_word == NUM_ARG_REGS ||
334
+ (arg_word < NUM_ARG_REGS &&
335
+ arg_word + arg_size_in_words > NUM_ARG_REGS))
336
+ {
337
+ /* Switch to reading arguments from the stack. */
338
+ argp = stack_args;
339
+ arg_word = NUM_ARG_REGS;
340
+ }
341
+
342
+ avalue[i] = argp;
343
+ argp += arg_size_in_words;
344
+ arg_word += arg_size_in_words;
345
+ }
346
+
347
+ /* Invoke the closure. */
348
+ closure->fun(cif, rvalue, avalue, closure->user_data);
349
+
350
+ if (cif->flags != FFI_TYPE_STRUCT)
351
+ {
352
+ /* Canonicalize for register representation. */
353
+ assign_to_ffi_arg(reg_args_out, &closure_ret, cif->rtype, 1);
354
+ }
355
+ }
@@ -0,0 +1,65 @@
1
+ /* -----------------------------------------------------------------*-C-*-
2
+ ffitarget.h - Copyright (c) 2012 Tilera Corp.
3
+ Target configuration macros for TILE.
4
+
5
+ Permission is hereby granted, free of charge, to any person obtaining
6
+ a copy of this software and associated documentation files (the
7
+ ``Software''), to deal in the Software without restriction, including
8
+ without limitation the rights to use, copy, modify, merge, publish,
9
+ distribute, sublicense, and/or sell copies of the Software, and to
10
+ permit persons to whom the Software is furnished to do so, subject to
11
+ the following conditions:
12
+
13
+ The above copyright notice and this permission notice shall be included
14
+ in all copies or substantial portions of the Software.
15
+
16
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
17
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
20
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
21
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
22
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
23
+ DEALINGS IN THE SOFTWARE.
24
+ ----------------------------------------------------------------------- */
25
+
26
+ #ifndef LIBFFI_TARGET_H
27
+ #define LIBFFI_TARGET_H
28
+
29
+ #ifndef LIBFFI_H
30
+ #error "Please do not include ffitarget.h directly into your source. Use ffi.h instead."
31
+ #endif
32
+
33
+ #ifndef LIBFFI_ASM
34
+
35
+ #include <arch/abi.h>
36
+
37
+ typedef uint_reg_t ffi_arg;
38
+ typedef int_reg_t ffi_sarg;
39
+
40
+ typedef enum ffi_abi {
41
+ FFI_FIRST_ABI = 0,
42
+ FFI_UNIX,
43
+ FFI_LAST_ABI,
44
+ FFI_DEFAULT_ABI = FFI_UNIX
45
+ } ffi_abi;
46
+ #endif
47
+
48
+ /* ---- Definitions for closures ----------------------------------------- */
49
+ #define FFI_CLOSURES 1
50
+
51
+ #ifdef __tilegx__
52
+ /* We always pass 8-byte values, even in -m32 mode. */
53
+ # define FFI_SIZEOF_ARG 8
54
+ # ifdef __LP64__
55
+ # define FFI_TRAMPOLINE_SIZE (8 * 5) /* 5 bundles */
56
+ # else
57
+ # define FFI_TRAMPOLINE_SIZE (8 * 3) /* 3 bundles */
58
+ # endif
59
+ #else
60
+ # define FFI_SIZEOF_ARG 4
61
+ # define FFI_TRAMPOLINE_SIZE 8 /* 1 bundle */
62
+ #endif
63
+ #define FFI_NATIVE_RAW_API 0
64
+
65
+ #endif
@@ -0,0 +1,360 @@
1
+ /* -----------------------------------------------------------------------
2
+ tile.S - Copyright (c) 2011 Tilera Corp.
3
+
4
+ Tilera TILEPro and TILE-Gx Foreign Function Interface
5
+
6
+ Permission is hereby granted, free of charge, to any person obtaining
7
+ a copy of this software and associated documentation files (the
8
+ ``Software''), to deal in the Software without restriction, including
9
+ without limitation the rights to use, copy, modify, merge, publish,
10
+ distribute, sublicense, and/or sell copies of the Software, and to
11
+ permit persons to whom the Software is furnished to do so, subject to
12
+ the following conditions:
13
+
14
+ The above copyright notice and this permission notice shall be included
15
+ in all copies or substantial portions of the Software.
16
+
17
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
18
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
23
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
+ DEALINGS IN THE SOFTWARE.
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #define LIBFFI_ASM
28
+ #include <fficonfig.h>
29
+ #include <ffi.h>
30
+
31
+ /* Number of bytes in a register. */
32
+ #define REG_SIZE FFI_SIZEOF_ARG
33
+
34
+ /* Number of bytes in stack linkage area for backtracing.
35
+
36
+ A note about the ABI: on entry to a procedure, sp points to a stack
37
+ slot where it must spill the return address if it's not a leaf.
38
+ REG_SIZE bytes beyond that is a slot owned by the caller which
39
+ contains the sp value that the caller had when it was originally
40
+ entered (i.e. the caller's frame pointer). */
41
+ #define LINKAGE_SIZE (2 * REG_SIZE)
42
+
43
+ /* The first 10 registers are used to pass arguments and return values. */
44
+ #define NUM_ARG_REGS 10
45
+
46
+ #ifdef __tilegx__
47
+ #define SW st
48
+ #define LW ld
49
+ #define BGZT bgtzt
50
+ #else
51
+ #define SW sw
52
+ #define LW lw
53
+ #define BGZT bgzt
54
+ #endif
55
+
56
+
57
+ /* void ffi_call_tile (int_reg_t reg_args[NUM_ARG_REGS],
58
+ const int_reg_t *stack_args,
59
+ unsigned long stack_args_bytes,
60
+ void (*fnaddr)(void));
61
+
62
+ On entry, REG_ARGS contain the outgoing register values,
63
+ and STACK_ARGS contains STACK_ARG_BYTES of additional values
64
+ to be passed on the stack. If STACK_ARG_BYTES is zero, then
65
+ STACK_ARGS is ignored.
66
+
67
+ When the invoked function returns, the values of r0-r9 are
68
+ blindly stored back into REG_ARGS for the caller to examine. */
69
+
70
+ .section .text.ffi_call_tile, "ax", @progbits
71
+ .align 8
72
+ .globl ffi_call_tile
73
+ FFI_HIDDEN(ffi_call_tile)
74
+ ffi_call_tile:
75
+
76
+ /* Incoming arguments. */
77
+ #define REG_ARGS r0
78
+ #define INCOMING_STACK_ARGS r1
79
+ #define STACK_ARG_BYTES r2
80
+ #define ORIG_FNADDR r3
81
+
82
+ /* Temporary values. */
83
+ #define FRAME_SIZE r10
84
+ #define TMP r11
85
+ #define TMP2 r12
86
+ #define OUTGOING_STACK_ARGS r13
87
+ #define REG_ADDR_PTR r14
88
+ #define RETURN_REG_ADDR r15
89
+ #define FNADDR r16
90
+
91
+ .cfi_startproc
92
+ {
93
+ /* Save return address. */
94
+ SW sp, lr
95
+ .cfi_offset lr, 0
96
+ /* Prepare to spill incoming r52. */
97
+ addi TMP, sp, -REG_SIZE
98
+ /* Increase frame size to have room to spill r52 and REG_ARGS.
99
+ The +7 is to round up mod 8. */
100
+ addi FRAME_SIZE, STACK_ARG_BYTES, \
101
+ REG_SIZE + REG_SIZE + LINKAGE_SIZE + 7
102
+ }
103
+ {
104
+ /* Round stack frame size to a multiple of 8 to satisfy ABI. */
105
+ andi FRAME_SIZE, FRAME_SIZE, -8
106
+ /* Compute where to spill REG_ARGS value. */
107
+ addi TMP2, sp, -(REG_SIZE * 2)
108
+ }
109
+ {
110
+ /* Spill incoming r52. */
111
+ SW TMP, r52
112
+ .cfi_offset r52, -REG_SIZE
113
+ /* Set up our frame pointer. */
114
+ move r52, sp
115
+ .cfi_def_cfa_register r52
116
+ /* Push stack frame. */
117
+ sub sp, sp, FRAME_SIZE
118
+ }
119
+ {
120
+ /* Prepare to set up stack linkage. */
121
+ addi TMP, sp, REG_SIZE
122
+ /* Prepare to memcpy stack args. */
123
+ addi OUTGOING_STACK_ARGS, sp, LINKAGE_SIZE
124
+ /* Save REG_ARGS which we will need after we call the subroutine. */
125
+ SW TMP2, REG_ARGS
126
+ }
127
+ {
128
+ /* Set up linkage info to hold incoming stack pointer. */
129
+ SW TMP, r52
130
+ }
131
+ {
132
+ /* Skip stack args memcpy if we don't have any stack args (common). */
133
+ blezt STACK_ARG_BYTES, .Ldone_stack_args_memcpy
134
+ }
135
+
136
+ .Lmemcpy_stack_args:
137
+ {
138
+ /* Load incoming argument from stack_args. */
139
+ LW TMP, INCOMING_STACK_ARGS
140
+ addi INCOMING_STACK_ARGS, INCOMING_STACK_ARGS, REG_SIZE
141
+ }
142
+ {
143
+ /* Store stack argument into outgoing stack argument area. */
144
+ SW OUTGOING_STACK_ARGS, TMP
145
+ addi OUTGOING_STACK_ARGS, OUTGOING_STACK_ARGS, REG_SIZE
146
+ addi STACK_ARG_BYTES, STACK_ARG_BYTES, -REG_SIZE
147
+ }
148
+ {
149
+ BGZT STACK_ARG_BYTES, .Lmemcpy_stack_args
150
+ }
151
+ .Ldone_stack_args_memcpy:
152
+
153
+ {
154
+ /* Copy aside ORIG_FNADDR so we can overwrite its register. */
155
+ move FNADDR, ORIG_FNADDR
156
+ /* Prepare to load argument registers. */
157
+ addi REG_ADDR_PTR, r0, REG_SIZE
158
+ /* Load outgoing r0. */
159
+ LW r0, r0
160
+ }
161
+
162
+ /* Load up argument registers from the REG_ARGS array. */
163
+ #define LOAD_REG(REG, PTR) \
164
+ { \
165
+ LW REG, PTR ; \
166
+ addi PTR, PTR, REG_SIZE \
167
+ }
168
+
169
+ LOAD_REG(r1, REG_ADDR_PTR)
170
+ LOAD_REG(r2, REG_ADDR_PTR)
171
+ LOAD_REG(r3, REG_ADDR_PTR)
172
+ LOAD_REG(r4, REG_ADDR_PTR)
173
+ LOAD_REG(r5, REG_ADDR_PTR)
174
+ LOAD_REG(r6, REG_ADDR_PTR)
175
+ LOAD_REG(r7, REG_ADDR_PTR)
176
+ LOAD_REG(r8, REG_ADDR_PTR)
177
+ LOAD_REG(r9, REG_ADDR_PTR)
178
+
179
+ {
180
+ /* Call the subroutine. */
181
+ jalr FNADDR
182
+ }
183
+
184
+ {
185
+ /* Restore original lr. */
186
+ LW lr, r52
187
+ /* Prepare to recover ARGS, which we spilled earlier. */
188
+ addi TMP, r52, -(2 * REG_SIZE)
189
+ }
190
+ {
191
+ /* Restore ARGS, so we can fill it in with the return regs r0-r9. */
192
+ LW RETURN_REG_ADDR, TMP
193
+ /* Prepare to restore original r52. */
194
+ addi TMP, r52, -REG_SIZE
195
+ }
196
+
197
+ {
198
+ /* Pop stack frame. */
199
+ move sp, r52
200
+ /* Restore original r52. */
201
+ LW r52, TMP
202
+ }
203
+
204
+ #define STORE_REG(REG, PTR) \
205
+ { \
206
+ SW PTR, REG ; \
207
+ addi PTR, PTR, REG_SIZE \
208
+ }
209
+
210
+ /* Return all register values by reference. */
211
+ STORE_REG(r0, RETURN_REG_ADDR)
212
+ STORE_REG(r1, RETURN_REG_ADDR)
213
+ STORE_REG(r2, RETURN_REG_ADDR)
214
+ STORE_REG(r3, RETURN_REG_ADDR)
215
+ STORE_REG(r4, RETURN_REG_ADDR)
216
+ STORE_REG(r5, RETURN_REG_ADDR)
217
+ STORE_REG(r6, RETURN_REG_ADDR)
218
+ STORE_REG(r7, RETURN_REG_ADDR)
219
+ STORE_REG(r8, RETURN_REG_ADDR)
220
+ STORE_REG(r9, RETURN_REG_ADDR)
221
+
222
+ {
223
+ jrp lr
224
+ }
225
+
226
+ .cfi_endproc
227
+ .size ffi_call_tile, .-ffi_call_tile
228
+
229
+ /* ffi_closure_tile(...)
230
+
231
+ On entry, lr points to the closure plus 8 bytes, and r10
232
+ contains the actual return address.
233
+
234
+ This function simply dumps all register parameters into a stack array
235
+ and passes the closure, the registers array, and the stack arguments
236
+ to C code that does all of the actual closure processing. */
237
+
238
+ .section .text.ffi_closure_tile, "ax", @progbits
239
+ .align 8
240
+ .globl ffi_closure_tile
241
+ FFI_HIDDEN(ffi_closure_tile)
242
+
243
+ .cfi_startproc
244
+ /* Room to spill all NUM_ARG_REGS incoming registers, plus frame linkage. */
245
+ #define CLOSURE_FRAME_SIZE (((NUM_ARG_REGS * REG_SIZE * 2 + LINKAGE_SIZE) + 7) & -8)
246
+ ffi_closure_tile:
247
+ {
248
+ #ifdef __tilegx__
249
+ st sp, lr
250
+ .cfi_offset lr, 0
251
+ #else
252
+ /* Save return address (in r10 due to closure stub wrapper). */
253
+ SW sp, r10
254
+ .cfi_return_column r10
255
+ .cfi_offset r10, 0
256
+ #endif
257
+ /* Compute address for stack frame linkage. */
258
+ addli r10, sp, -(CLOSURE_FRAME_SIZE - REG_SIZE)
259
+ }
260
+ {
261
+ /* Save incoming stack pointer in linkage area. */
262
+ SW r10, sp
263
+ .cfi_offset sp, -(CLOSURE_FRAME_SIZE - REG_SIZE)
264
+ /* Push a new stack frame. */
265
+ addli sp, sp, -CLOSURE_FRAME_SIZE
266
+ .cfi_adjust_cfa_offset CLOSURE_FRAME_SIZE
267
+ }
268
+
269
+ {
270
+ /* Create pointer to where to start spilling registers. */
271
+ addi r10, sp, LINKAGE_SIZE
272
+ }
273
+
274
+ /* Spill all the incoming registers. */
275
+ STORE_REG(r0, r10)
276
+ STORE_REG(r1, r10)
277
+ STORE_REG(r2, r10)
278
+ STORE_REG(r3, r10)
279
+ STORE_REG(r4, r10)
280
+ STORE_REG(r5, r10)
281
+ STORE_REG(r6, r10)
282
+ STORE_REG(r7, r10)
283
+ STORE_REG(r8, r10)
284
+ {
285
+ /* Save r9. */
286
+ SW r10, r9
287
+ #ifdef __tilegx__
288
+ /* Pointer to closure is passed in r11. */
289
+ move r0, r11
290
+ #else
291
+ /* Compute pointer to the closure object. Because the closure
292
+ starts with a "jal ffi_closure_tile", we can just take the
293
+ value of lr (a phony return address pointing into the closure)
294
+ and subtract 8. */
295
+ addi r0, lr, -8
296
+ #endif
297
+ /* Compute a pointer to the register arguments we just spilled. */
298
+ addi r1, sp, LINKAGE_SIZE
299
+ }
300
+ {
301
+ /* Compute a pointer to the extra stack arguments (if any). */
302
+ addli r2, sp, CLOSURE_FRAME_SIZE + LINKAGE_SIZE
303
+ /* Call C code to deal with all of the grotty details. */
304
+ jal ffi_closure_tile_inner
305
+ }
306
+ {
307
+ addli r10, sp, CLOSURE_FRAME_SIZE
308
+ }
309
+ {
310
+ /* Restore the return address. */
311
+ LW lr, r10
312
+ /* Compute pointer to registers array. */
313
+ addli r10, sp, LINKAGE_SIZE + (NUM_ARG_REGS * REG_SIZE)
314
+ }
315
+ /* Return all the register values, which C code may have set. */
316
+ LOAD_REG(r0, r10)
317
+ LOAD_REG(r1, r10)
318
+ LOAD_REG(r2, r10)
319
+ LOAD_REG(r3, r10)
320
+ LOAD_REG(r4, r10)
321
+ LOAD_REG(r5, r10)
322
+ LOAD_REG(r6, r10)
323
+ LOAD_REG(r7, r10)
324
+ LOAD_REG(r8, r10)
325
+ LOAD_REG(r9, r10)
326
+ {
327
+ /* Pop the frame. */
328
+ addli sp, sp, CLOSURE_FRAME_SIZE
329
+ jrp lr
330
+ }
331
+
332
+ .cfi_endproc
333
+ .size ffi_closure_tile, . - ffi_closure_tile
334
+
335
+
336
+ /* What follows are code template instructions that get copied to the
337
+ closure trampoline by ffi_prep_closure_loc. The zeroed operands
338
+ get replaced by their proper values at runtime. */
339
+
340
+ .section .text.ffi_template_tramp_tile, "ax", @progbits
341
+ .align 8
342
+ .globl ffi_template_tramp_tile
343
+ FFI_HIDDEN(ffi_template_tramp_tile)
344
+ ffi_template_tramp_tile:
345
+ #ifdef __tilegx__
346
+ {
347
+ moveli r11, 0 /* backpatched to address of containing closure. */
348
+ moveli r10, 0 /* backpatched to ffi_closure_tile. */
349
+ }
350
+ /* Note: the following bundle gets generated multiple times
351
+ depending on the pointer value (esp. useful for -m32 mode). */
352
+ { shl16insli r11, r11, 0 ; shl16insli r10, r10, 0 }
353
+ { info 2+8 /* for backtracer: -> pc in lr, frame size 0 */ ; jr r10 }
354
+ #else
355
+ /* 'jal .' yields a PC-relative offset of zero so we can OR in the
356
+ right offset at runtime. */
357
+ { move r10, lr ; jal . /* ffi_closure_tile */ }
358
+ #endif
359
+
360
+ .size ffi_template_tramp_tile, . - ffi_template_tramp_tile