ffi 0.4.0-x86-mswin32

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 (316) hide show
  1. data/LICENSE +51 -0
  2. data/README.rdoc +69 -0
  3. data/Rakefile +142 -0
  4. data/ext/ffi_c/AbstractMemory.c +412 -0
  5. data/ext/ffi_c/AbstractMemory.h +68 -0
  6. data/ext/ffi_c/AutoPointer.c +60 -0
  7. data/ext/ffi_c/AutoPointer.h +18 -0
  8. data/ext/ffi_c/Buffer.c +171 -0
  9. data/ext/ffi_c/Callback.c +374 -0
  10. data/ext/ffi_c/Callback.h +47 -0
  11. data/ext/ffi_c/DynamicLibrary.c +213 -0
  12. data/ext/ffi_c/DynamicLibrary.h +22 -0
  13. data/ext/ffi_c/Invoker.c +962 -0
  14. data/ext/ffi_c/LastError.c +135 -0
  15. data/ext/ffi_c/LastError.h +18 -0
  16. data/ext/ffi_c/MemoryPointer.c +156 -0
  17. data/ext/ffi_c/MemoryPointer.h +20 -0
  18. data/ext/ffi_c/NullPointer.c +143 -0
  19. data/ext/ffi_c/Platform.c +59 -0
  20. data/ext/ffi_c/Platform.h +16 -0
  21. data/ext/ffi_c/Pointer.c +164 -0
  22. data/ext/ffi_c/Pointer.h +25 -0
  23. data/ext/ffi_c/Struct.c +477 -0
  24. data/ext/ffi_c/Struct.h +26 -0
  25. data/ext/ffi_c/Type.c +230 -0
  26. data/ext/ffi_c/Type.h +28 -0
  27. data/ext/ffi_c/Types.c +118 -0
  28. data/ext/ffi_c/Types.h +54 -0
  29. data/ext/ffi_c/compat.h +22 -0
  30. data/ext/ffi_c/endian.h +40 -0
  31. data/ext/ffi_c/extconf.rb +31 -0
  32. data/ext/ffi_c/ffi.c +76 -0
  33. data/ext/ffi_c/libffi.bsd.mk +34 -0
  34. data/ext/ffi_c/libffi.darwin.mk +75 -0
  35. data/ext/ffi_c/libffi.gnu.mk +29 -0
  36. data/ext/ffi_c/libffi.mk +13 -0
  37. data/ext/ffi_c/libffi/ChangeLog +3243 -0
  38. data/ext/ffi_c/libffi/ChangeLog.libffi +347 -0
  39. data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
  40. data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
  41. data/ext/ffi_c/libffi/LICENSE +21 -0
  42. data/ext/ffi_c/libffi/Makefile.am +177 -0
  43. data/ext/ffi_c/libffi/Makefile.in +1640 -0
  44. data/ext/ffi_c/libffi/README +328 -0
  45. data/ext/ffi_c/libffi/TODO +1 -0
  46. data/ext/ffi_c/libffi/acinclude.m4 +92 -0
  47. data/ext/ffi_c/libffi/aclocal.m4 +7516 -0
  48. data/ext/ffi_c/libffi/compile +142 -0
  49. data/ext/ffi_c/libffi/config.guess +1516 -0
  50. data/ext/ffi_c/libffi/config.sub +1626 -0
  51. data/ext/ffi_c/libffi/configure +24414 -0
  52. data/ext/ffi_c/libffi/configure.ac +365 -0
  53. data/ext/ffi_c/libffi/configure.host +11 -0
  54. data/ext/ffi_c/libffi/depcomp +584 -0
  55. data/ext/ffi_c/libffi/doc/libffi.info +533 -0
  56. data/ext/ffi_c/libffi/doc/libffi.texi +541 -0
  57. data/ext/ffi_c/libffi/doc/stamp-vti +4 -0
  58. data/ext/ffi_c/libffi/doc/version.texi +4 -0
  59. data/ext/ffi_c/libffi/fficonfig.h.in +160 -0
  60. data/ext/ffi_c/libffi/include/Makefile.am +9 -0
  61. data/ext/ffi_c/libffi/include/Makefile.in +422 -0
  62. data/ext/ffi_c/libffi/include/ffi.h.in +393 -0
  63. data/ext/ffi_c/libffi/include/ffi_common.h +98 -0
  64. data/ext/ffi_c/libffi/install-sh +323 -0
  65. data/ext/ffi_c/libffi/libffi.pc.in +10 -0
  66. data/ext/ffi_c/libffi/libtool-version +29 -0
  67. data/ext/ffi_c/libffi/ltcf-c.sh +861 -0
  68. data/ext/ffi_c/libffi/ltcf-cxx.sh +1069 -0
  69. data/ext/ffi_c/libffi/ltcf-gcj.sh +700 -0
  70. data/ext/ffi_c/libffi/ltconfig +2862 -0
  71. data/ext/ffi_c/libffi/ltmain.sh +6930 -0
  72. data/ext/ffi_c/libffi/man/Makefile.am +8 -0
  73. data/ext/ffi_c/libffi/man/Makefile.in +395 -0
  74. data/ext/ffi_c/libffi/man/ffi.3 +31 -0
  75. data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
  76. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +66 -0
  77. data/ext/ffi_c/libffi/mdate-sh +201 -0
  78. data/ext/ffi_c/libffi/missing +353 -0
  79. data/ext/ffi_c/libffi/mkinstalldirs +158 -0
  80. data/ext/ffi_c/libffi/src/alpha/ffi.c +284 -0
  81. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +48 -0
  82. data/ext/ffi_c/libffi/src/alpha/osf.S +366 -0
  83. data/ext/ffi_c/libffi/src/arm/ffi.c +309 -0
  84. data/ext/ffi_c/libffi/src/arm/ffitarget.h +49 -0
  85. data/ext/ffi_c/libffi/src/arm/sysv.S +299 -0
  86. data/ext/ffi_c/libffi/src/closures.c +596 -0
  87. data/ext/ffi_c/libffi/src/cris/ffi.c +383 -0
  88. data/ext/ffi_c/libffi/src/cris/ffitarget.h +51 -0
  89. data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
  90. data/ext/ffi_c/libffi/src/debug.c +59 -0
  91. data/ext/ffi_c/libffi/src/dlmalloc.c +5099 -0
  92. data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
  93. data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
  94. data/ext/ffi_c/libffi/src/frv/ffitarget.h +61 -0
  95. data/ext/ffi_c/libffi/src/ia64/ffi.c +580 -0
  96. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +50 -0
  97. data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
  98. data/ext/ffi_c/libffi/src/ia64/unix.S +560 -0
  99. data/ext/ffi_c/libffi/src/java_raw_api.c +359 -0
  100. data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
  101. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +48 -0
  102. data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
  103. data/ext/ffi_c/libffi/src/m68k/ffi.c +278 -0
  104. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +49 -0
  105. data/ext/ffi_c/libffi/src/m68k/sysv.S +234 -0
  106. data/ext/ffi_c/libffi/src/mips/ffi.c +926 -0
  107. data/ext/ffi_c/libffi/src/mips/ffitarget.h +202 -0
  108. data/ext/ffi_c/libffi/src/mips/n32.S +534 -0
  109. data/ext/ffi_c/libffi/src/mips/o32.S +381 -0
  110. data/ext/ffi_c/libffi/src/pa/ffi.c +709 -0
  111. data/ext/ffi_c/libffi/src/pa/ffitarget.h +77 -0
  112. data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
  113. data/ext/ffi_c/libffi/src/pa/linux.S +357 -0
  114. data/ext/ffi_c/libffi/src/powerpc/aix.S +225 -0
  115. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +247 -0
  116. data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
  117. data/ext/ffi_c/libffi/src/powerpc/darwin.S +245 -0
  118. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +317 -0
  119. data/ext/ffi_c/libffi/src/powerpc/ffi.c +1429 -0
  120. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +800 -0
  121. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +118 -0
  122. data/ext/ffi_c/libffi/src/powerpc/linux64.S +187 -0
  123. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +236 -0
  124. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +327 -0
  125. data/ext/ffi_c/libffi/src/powerpc/sysv.S +230 -0
  126. data/ext/ffi_c/libffi/src/prep_cif.c +174 -0
  127. data/ext/ffi_c/libffi/src/raw_api.c +254 -0
  128. data/ext/ffi_c/libffi/src/s390/ffi.c +780 -0
  129. data/ext/ffi_c/libffi/src/s390/ffitarget.h +60 -0
  130. data/ext/ffi_c/libffi/src/s390/sysv.S +434 -0
  131. data/ext/ffi_c/libffi/src/sh/ffi.c +716 -0
  132. data/ext/ffi_c/libffi/src/sh/ffitarget.h +49 -0
  133. data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
  134. data/ext/ffi_c/libffi/src/sh64/ffi.c +453 -0
  135. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +53 -0
  136. data/ext/ffi_c/libffi/src/sh64/sysv.S +530 -0
  137. data/ext/ffi_c/libffi/src/sparc/ffi.c +610 -0
  138. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +66 -0
  139. data/ext/ffi_c/libffi/src/sparc/v8.S +272 -0
  140. data/ext/ffi_c/libffi/src/sparc/v9.S +307 -0
  141. data/ext/ffi_c/libffi/src/types.c +77 -0
  142. data/ext/ffi_c/libffi/src/x86/darwin.S +443 -0
  143. data/ext/ffi_c/libffi/src/x86/darwin64.S +416 -0
  144. data/ext/ffi_c/libffi/src/x86/ffi.c +475 -0
  145. data/ext/ffi_c/libffi/src/x86/ffi64.c +572 -0
  146. data/ext/ffi_c/libffi/src/x86/ffitarget.h +90 -0
  147. data/ext/ffi_c/libffi/src/x86/freebsd.S +458 -0
  148. data/ext/ffi_c/libffi/src/x86/sysv.S +437 -0
  149. data/ext/ffi_c/libffi/src/x86/unix64.S +418 -0
  150. data/ext/ffi_c/libffi/src/x86/win32.S +391 -0
  151. data/ext/ffi_c/libffi/testsuite/Makefile.am +71 -0
  152. data/ext/ffi_c/libffi/testsuite/Makefile.in +447 -0
  153. data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
  154. data/ext/ffi_c/libffi/testsuite/lib/libffi-dg.exp +289 -0
  155. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +263 -0
  156. data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
  157. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +36 -0
  158. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +97 -0
  159. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +89 -0
  160. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +89 -0
  161. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +90 -0
  162. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +97 -0
  163. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +99 -0
  164. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +98 -0
  165. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_stdcall.c +72 -0
  166. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +102 -0
  167. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +103 -0
  168. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +104 -0
  169. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +110 -0
  170. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +97 -0
  171. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +99 -0
  172. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +101 -0
  173. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +121 -0
  174. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +98 -0
  175. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +103 -0
  176. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +98 -0
  177. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +98 -0
  178. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +106 -0
  179. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +98 -0
  180. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +117 -0
  181. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +106 -0
  182. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +132 -0
  183. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +121 -0
  184. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +107 -0
  185. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +125 -0
  186. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +105 -0
  187. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +96 -0
  188. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +98 -0
  189. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +99 -0
  190. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +101 -0
  191. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +99 -0
  192. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +100 -0
  193. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +101 -0
  194. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +99 -0
  195. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +99 -0
  196. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +99 -0
  197. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +99 -0
  198. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +99 -0
  199. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +100 -0
  200. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +51 -0
  201. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +51 -0
  202. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +82 -0
  203. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +82 -0
  204. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +94 -0
  205. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +99 -0
  206. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +82 -0
  207. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +94 -0
  208. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +52 -0
  209. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +50 -0
  210. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +50 -0
  211. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +50 -0
  212. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +51 -0
  213. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +54 -0
  214. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +51 -0
  215. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +86 -0
  216. data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
  217. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +58 -0
  218. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +57 -0
  219. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +72 -0
  220. data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
  221. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +69 -0
  222. data/ext/ffi_c/libffi/testsuite/libffi.call/many_win32.c +63 -0
  223. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +53 -0
  224. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +160 -0
  225. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +169 -0
  226. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +141 -0
  227. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +118 -0
  228. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +119 -0
  229. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +119 -0
  230. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +120 -0
  231. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +139 -0
  232. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +119 -0
  233. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +139 -0
  234. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +139 -0
  235. data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +98 -0
  236. data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
  237. data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
  238. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +35 -0
  239. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
  240. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
  241. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
  242. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
  243. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
  244. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
  245. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
  246. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
  247. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +42 -0
  248. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
  249. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
  250. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
  251. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
  252. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
  253. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen_win32.c +44 -0
  254. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +65 -0
  255. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
  256. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +59 -0
  257. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +63 -0
  258. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +65 -0
  259. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
  260. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
  261. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +80 -0
  262. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +67 -0
  263. data/ext/ffi_c/libffi/testsuite/libffi.special/ffitestcxx.h +86 -0
  264. data/ext/ffi_c/libffi/testsuite/libffi.special/special.exp +38 -0
  265. data/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest.cc +123 -0
  266. data/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest_ffi_call.cc +53 -0
  267. data/ext/ffi_c/libffi/texinfo.tex +7482 -0
  268. data/ext/ffi_c/rbffi.h +23 -0
  269. data/gen/Rakefile +12 -0
  270. data/lib/1.8/ffi_c.so +0 -0
  271. data/lib/1.9/ffi_c.so +0 -0
  272. data/lib/ffi.rb +11 -0
  273. data/lib/ffi/autopointer.rb +61 -0
  274. data/lib/ffi/buffer.rb +0 -0
  275. data/lib/ffi/callback.rb +10 -0
  276. data/lib/ffi/enum.rb +78 -0
  277. data/lib/ffi/errno.rb +8 -0
  278. data/lib/ffi/ffi.rb +96 -0
  279. data/lib/ffi/io.rb +21 -0
  280. data/lib/ffi/library.rb +243 -0
  281. data/lib/ffi/managedstruct.rb +55 -0
  282. data/lib/ffi/memorypointer.rb +73 -0
  283. data/lib/ffi/platform.rb +78 -0
  284. data/lib/ffi/pointer.rb +119 -0
  285. data/lib/ffi/struct.rb +354 -0
  286. data/lib/ffi/tools/const_generator.rb +177 -0
  287. data/lib/ffi/tools/generator.rb +58 -0
  288. data/lib/ffi/tools/generator_task.rb +35 -0
  289. data/lib/ffi/tools/struct_generator.rb +194 -0
  290. data/lib/ffi/tools/types_generator.rb +123 -0
  291. data/lib/ffi/types.rb +153 -0
  292. data/lib/ffi/union.rb +17 -0
  293. data/lib/ffi/variadic.rb +30 -0
  294. data/spec/ffi/bool_spec.rb +24 -0
  295. data/spec/ffi/buffer_spec.rb +196 -0
  296. data/spec/ffi/callback_spec.rb +560 -0
  297. data/spec/ffi/enum_spec.rb +164 -0
  298. data/spec/ffi/errno_spec.rb +13 -0
  299. data/spec/ffi/library_spec.rb +144 -0
  300. data/spec/ffi/managed_struct_spec.rb +56 -0
  301. data/spec/ffi/number_spec.rb +231 -0
  302. data/spec/ffi/pointer_spec.rb +195 -0
  303. data/spec/ffi/rbx/attach_function_spec.rb +27 -0
  304. data/spec/ffi/rbx/memory_pointer_spec.rb +102 -0
  305. data/spec/ffi/rbx/spec_helper.rb +1 -0
  306. data/spec/ffi/rbx/struct_spec.rb +13 -0
  307. data/spec/ffi/spec_helper.rb +17 -0
  308. data/spec/ffi/string_spec.rb +103 -0
  309. data/spec/ffi/struct_callback_spec.rb +41 -0
  310. data/spec/ffi/struct_initialize_spec.rb +30 -0
  311. data/spec/ffi/struct_spec.rb +476 -0
  312. data/spec/ffi/typedef_spec.rb +48 -0
  313. data/spec/ffi/union_spec.rb +60 -0
  314. data/spec/ffi/variadic_spec.rb +84 -0
  315. data/spec/spec.opts +4 -0
  316. metadata +375 -0
@@ -0,0 +1,383 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - Copyright (c) 1998 Cygnus Solutions
3
+ Copyright (c) 2004 Simon Posnjak
4
+ Copyright (c) 2005 Axis Communications AB
5
+ Copyright (C) 2007 Free Software Foundation, Inc.
6
+
7
+ CRIS Foreign Function Interface
8
+
9
+ Permission is hereby granted, free of charge, to any person obtaining
10
+ a copy of this software and associated documentation files (the
11
+ ``Software''), to deal in the Software without restriction, including
12
+ without limitation the rights to use, copy, modify, merge, publish,
13
+ distribute, sublicense, and/or sell copies of the Software, and to
14
+ permit persons to whom the Software is furnished to do so, subject to
15
+ the following conditions:
16
+
17
+ The above copyright notice and this permission notice shall be included
18
+ in all copies or substantial portions of the Software.
19
+
20
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
21
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
23
+ IN NO EVENT SHALL SIMON POSNJAK BE LIABLE FOR ANY CLAIM, DAMAGES OR
24
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
25
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
26
+ OTHER DEALINGS IN THE SOFTWARE.
27
+ ----------------------------------------------------------------------- */
28
+
29
+ #include <ffi.h>
30
+ #include <ffi_common.h>
31
+
32
+ #define STACK_ARG_SIZE(x) ALIGN(x, FFI_SIZEOF_ARG)
33
+
34
+ static ffi_status
35
+ initialize_aggregate_packed_struct (ffi_type * arg)
36
+ {
37
+ ffi_type **ptr;
38
+
39
+ FFI_ASSERT (arg != NULL);
40
+
41
+ FFI_ASSERT (arg->elements != NULL);
42
+ FFI_ASSERT (arg->size == 0);
43
+ FFI_ASSERT (arg->alignment == 0);
44
+
45
+ ptr = &(arg->elements[0]);
46
+
47
+ while ((*ptr) != NULL)
48
+ {
49
+ if (((*ptr)->size == 0)
50
+ && (initialize_aggregate_packed_struct ((*ptr)) != FFI_OK))
51
+ return FFI_BAD_TYPEDEF;
52
+
53
+ FFI_ASSERT (ffi_type_test ((*ptr)));
54
+
55
+ arg->size += (*ptr)->size;
56
+
57
+ arg->alignment = (arg->alignment > (*ptr)->alignment) ?
58
+ arg->alignment : (*ptr)->alignment;
59
+
60
+ ptr++;
61
+ }
62
+
63
+ if (arg->size == 0)
64
+ return FFI_BAD_TYPEDEF;
65
+ else
66
+ return FFI_OK;
67
+ }
68
+
69
+ int
70
+ ffi_prep_args (char *stack, extended_cif * ecif)
71
+ {
72
+ unsigned int i;
73
+ unsigned int struct_count = 0;
74
+ void **p_argv;
75
+ char *argp;
76
+ ffi_type **p_arg;
77
+
78
+ argp = stack;
79
+
80
+ p_argv = ecif->avalue;
81
+
82
+ for (i = ecif->cif->nargs, p_arg = ecif->cif->arg_types;
83
+ (i != 0); i--, p_arg++)
84
+ {
85
+ size_t z;
86
+
87
+ switch ((*p_arg)->type)
88
+ {
89
+ case FFI_TYPE_STRUCT:
90
+ {
91
+ z = (*p_arg)->size;
92
+ if (z <= 4)
93
+ {
94
+ memcpy (argp, *p_argv, z);
95
+ z = 4;
96
+ }
97
+ else if (z <= 8)
98
+ {
99
+ memcpy (argp, *p_argv, z);
100
+ z = 8;
101
+ }
102
+ else
103
+ {
104
+ unsigned int uiLocOnStack;
105
+ z = sizeof (void *);
106
+ uiLocOnStack = 4 * ecif->cif->nargs + struct_count;
107
+ struct_count = struct_count + (*p_arg)->size;
108
+ *(unsigned int *) argp =
109
+ (unsigned int) (UINT32 *) (stack + uiLocOnStack);
110
+ memcpy ((stack + uiLocOnStack), *p_argv, (*p_arg)->size);
111
+ }
112
+ break;
113
+ }
114
+ default:
115
+ z = (*p_arg)->size;
116
+ if (z < sizeof (int))
117
+ {
118
+ switch ((*p_arg)->type)
119
+ {
120
+ case FFI_TYPE_SINT8:
121
+ *(signed int *) argp = (signed int) *(SINT8 *) (*p_argv);
122
+ break;
123
+
124
+ case FFI_TYPE_UINT8:
125
+ *(unsigned int *) argp =
126
+ (unsigned int) *(UINT8 *) (*p_argv);
127
+ break;
128
+
129
+ case FFI_TYPE_SINT16:
130
+ *(signed int *) argp = (signed int) *(SINT16 *) (*p_argv);
131
+ break;
132
+
133
+ case FFI_TYPE_UINT16:
134
+ *(unsigned int *) argp =
135
+ (unsigned int) *(UINT16 *) (*p_argv);
136
+ break;
137
+
138
+ default:
139
+ FFI_ASSERT (0);
140
+ }
141
+ z = sizeof (int);
142
+ }
143
+ else if (z == sizeof (int))
144
+ *(unsigned int *) argp = (unsigned int) *(UINT32 *) (*p_argv);
145
+ else
146
+ memcpy (argp, *p_argv, z);
147
+ break;
148
+ }
149
+ p_argv++;
150
+ argp += z;
151
+ }
152
+
153
+ return (struct_count);
154
+ }
155
+
156
+ ffi_status
157
+ ffi_prep_cif (ffi_cif * cif,
158
+ ffi_abi abi, unsigned int nargs,
159
+ ffi_type * rtype, ffi_type ** atypes)
160
+ {
161
+ unsigned bytes = 0;
162
+ unsigned int i;
163
+ ffi_type **ptr;
164
+
165
+ FFI_ASSERT (cif != NULL);
166
+ FFI_ASSERT ((abi > FFI_FIRST_ABI) && (abi <= FFI_DEFAULT_ABI));
167
+
168
+ cif->abi = abi;
169
+ cif->arg_types = atypes;
170
+ cif->nargs = nargs;
171
+ cif->rtype = rtype;
172
+
173
+ cif->flags = 0;
174
+
175
+ if ((cif->rtype->size == 0)
176
+ && (initialize_aggregate_packed_struct (cif->rtype) != FFI_OK))
177
+ return FFI_BAD_TYPEDEF;
178
+
179
+ FFI_ASSERT_VALID_TYPE (cif->rtype);
180
+
181
+ for (ptr = cif->arg_types, i = cif->nargs; i > 0; i--, ptr++)
182
+ {
183
+ if (((*ptr)->size == 0)
184
+ && (initialize_aggregate_packed_struct ((*ptr)) != FFI_OK))
185
+ return FFI_BAD_TYPEDEF;
186
+
187
+ FFI_ASSERT_VALID_TYPE (*ptr);
188
+
189
+ if (((*ptr)->alignment - 1) & bytes)
190
+ bytes = ALIGN (bytes, (*ptr)->alignment);
191
+ if ((*ptr)->type == FFI_TYPE_STRUCT)
192
+ {
193
+ if ((*ptr)->size > 8)
194
+ {
195
+ bytes += (*ptr)->size;
196
+ bytes += sizeof (void *);
197
+ }
198
+ else
199
+ {
200
+ if ((*ptr)->size > 4)
201
+ bytes += 8;
202
+ else
203
+ bytes += 4;
204
+ }
205
+ }
206
+ else
207
+ bytes += STACK_ARG_SIZE ((*ptr)->size);
208
+ }
209
+
210
+ cif->bytes = bytes;
211
+
212
+ return ffi_prep_cif_machdep (cif);
213
+ }
214
+
215
+ ffi_status
216
+ ffi_prep_cif_machdep (ffi_cif * cif)
217
+ {
218
+ switch (cif->rtype->type)
219
+ {
220
+ case FFI_TYPE_VOID:
221
+ case FFI_TYPE_STRUCT:
222
+ case FFI_TYPE_FLOAT:
223
+ case FFI_TYPE_DOUBLE:
224
+ case FFI_TYPE_SINT64:
225
+ case FFI_TYPE_UINT64:
226
+ cif->flags = (unsigned) cif->rtype->type;
227
+ break;
228
+
229
+ default:
230
+ cif->flags = FFI_TYPE_INT;
231
+ break;
232
+ }
233
+
234
+ return FFI_OK;
235
+ }
236
+
237
+ extern void ffi_call_SYSV (int (*)(char *, extended_cif *),
238
+ extended_cif *,
239
+ unsigned, unsigned, unsigned *, void (*fn) ())
240
+ __attribute__ ((__visibility__ ("hidden")));
241
+
242
+ void
243
+ ffi_call (ffi_cif * cif, void (*fn) (), void *rvalue, void **avalue)
244
+ {
245
+ extended_cif ecif;
246
+
247
+ ecif.cif = cif;
248
+ ecif.avalue = avalue;
249
+
250
+ if ((rvalue == NULL) && (cif->rtype->type == FFI_TYPE_STRUCT))
251
+ {
252
+ ecif.rvalue = alloca (cif->rtype->size);
253
+ }
254
+ else
255
+ ecif.rvalue = rvalue;
256
+
257
+ switch (cif->abi)
258
+ {
259
+ case FFI_SYSV:
260
+ ffi_call_SYSV (ffi_prep_args, &ecif, cif->bytes,
261
+ cif->flags, ecif.rvalue, fn);
262
+ break;
263
+ default:
264
+ FFI_ASSERT (0);
265
+ break;
266
+ }
267
+ }
268
+
269
+ /* Because the following variables are not exported outside libffi, we
270
+ mark them hidden. */
271
+
272
+ /* Assembly code for the jump stub. */
273
+ extern const char ffi_cris_trampoline_template[]
274
+ __attribute__ ((__visibility__ ("hidden")));
275
+
276
+ /* Offset into ffi_cris_trampoline_template of where to put the
277
+ ffi_prep_closure_inner function. */
278
+ extern const int ffi_cris_trampoline_fn_offset
279
+ __attribute__ ((__visibility__ ("hidden")));
280
+
281
+ /* Offset into ffi_cris_trampoline_template of where to put the
282
+ closure data. */
283
+ extern const int ffi_cris_trampoline_closure_offset
284
+ __attribute__ ((__visibility__ ("hidden")));
285
+
286
+ /* This function is sibling-called (jumped to) by the closure
287
+ trampoline. We get R10..R13 at PARAMS[0..3] and a copy of [SP] at
288
+ PARAMS[4] to simplify handling of a straddling parameter. A copy
289
+ of R9 is at PARAMS[5] and SP at PARAMS[6]. These parameters are
290
+ put at the appropriate place in CLOSURE which is then executed and
291
+ the return value is passed back to the caller. */
292
+
293
+ static unsigned long long
294
+ ffi_prep_closure_inner (void **params, ffi_closure* closure)
295
+ {
296
+ char *register_args = (char *) params;
297
+ void *struct_ret = params[5];
298
+ char *stack_args = params[6];
299
+ char *ptr = register_args;
300
+ ffi_cif *cif = closure->cif;
301
+ ffi_type **arg_types = cif->arg_types;
302
+
303
+ /* Max room needed is number of arguments as 64-bit values. */
304
+ void **avalue = alloca (closure->cif->nargs * sizeof(void *));
305
+ int i;
306
+ int doing_regs;
307
+ long long llret = 0;
308
+
309
+ /* Find the address of each argument. */
310
+ for (i = 0, doing_regs = 1; i < cif->nargs; i++)
311
+ {
312
+ /* Types up to and including 8 bytes go by-value. */
313
+ if (arg_types[i]->size <= 4)
314
+ {
315
+ avalue[i] = ptr;
316
+ ptr += 4;
317
+ }
318
+ else if (arg_types[i]->size <= 8)
319
+ {
320
+ avalue[i] = ptr;
321
+ ptr += 8;
322
+ }
323
+ else
324
+ {
325
+ FFI_ASSERT (arg_types[i]->type == FFI_TYPE_STRUCT);
326
+
327
+ /* Passed by-reference, so copy the pointer. */
328
+ avalue[i] = *(void **) ptr;
329
+ ptr += 4;
330
+ }
331
+
332
+ /* If we've handled more arguments than fit in registers, start
333
+ looking at the those passed on the stack. Step over the
334
+ first one if we had a straddling parameter. */
335
+ if (doing_regs && ptr >= register_args + 4*4)
336
+ {
337
+ ptr = stack_args + ((ptr > register_args + 4*4) ? 4 : 0);
338
+ doing_regs = 0;
339
+ }
340
+ }
341
+
342
+ /* Invoke the closure. */
343
+ (closure->fun) (cif,
344
+
345
+ cif->rtype->type == FFI_TYPE_STRUCT
346
+ /* The caller allocated space for the return
347
+ structure, and passed a pointer to this space in
348
+ R9. */
349
+ ? struct_ret
350
+
351
+ /* We take advantage of being able to ignore that
352
+ the high part isn't set if the return value is
353
+ not in R10:R11, but in R10 only. */
354
+ : (void *) &llret,
355
+
356
+ avalue, closure->user_data);
357
+
358
+ return llret;
359
+ }
360
+
361
+ /* API function: Prepare the trampoline. */
362
+
363
+ ffi_status
364
+ ffi_prep_closure_loc (ffi_closure* closure,
365
+ ffi_cif* cif,
366
+ void (*fun)(ffi_cif *, void *, void **, void*),
367
+ void *user_data,
368
+ void *codeloc)
369
+ {
370
+ void *innerfn = ffi_prep_closure_inner;
371
+ FFI_ASSERT (cif->abi == FFI_SYSV);
372
+ closure->cif = cif;
373
+ closure->user_data = user_data;
374
+ closure->fun = fun;
375
+ memcpy (closure->tramp, ffi_cris_trampoline_template,
376
+ FFI_CRIS_TRAMPOLINE_CODE_PART_SIZE);
377
+ memcpy (closure->tramp + ffi_cris_trampoline_fn_offset,
378
+ &innerfn, sizeof (void *));
379
+ memcpy (closure->tramp + ffi_cris_trampoline_closure_offset,
380
+ &codeloc, sizeof (void *));
381
+
382
+ return FFI_OK;
383
+ }
@@ -0,0 +1,51 @@
1
+ /* -----------------------------------------------------------------*-C-*-
2
+ ffitarget.h - Copyright (c) 1996-2003 Red Hat, Inc.
3
+ Target configuration macros for CRIS.
4
+
5
+ Permission is hereby granted, free of charge, to any person obtaining
6
+ a copy of this software and associated documentation files (the
7
+ ``Software''), to deal in the Software without restriction, including
8
+ without limitation the rights to use, copy, modify, merge, publish,
9
+ distribute, sublicense, and/or sell copies of the Software, and to
10
+ permit persons to whom the Software is furnished to do so, subject to
11
+ the following conditions:
12
+
13
+ The above copyright notice and this permission notice shall be included
14
+ in all copies or substantial portions of the Software.
15
+
16
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
17
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
20
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
21
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
22
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
23
+ DEALINGS IN THE SOFTWARE.
24
+
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #ifndef LIBFFI_TARGET_H
28
+ #define LIBFFI_TARGET_H
29
+
30
+ #ifndef LIBFFI_ASM
31
+ typedef unsigned long ffi_arg;
32
+ typedef signed long ffi_sarg;
33
+
34
+ typedef enum ffi_abi {
35
+ FFI_FIRST_ABI = 0,
36
+ FFI_SYSV,
37
+ FFI_DEFAULT_ABI = FFI_SYSV,
38
+ FFI_LAST_ABI = FFI_DEFAULT_ABI + 1
39
+ } ffi_abi;
40
+ #endif
41
+
42
+ /* ---- Definitions for closures ----------------------------------------- */
43
+
44
+ #define FFI_CLOSURES 1
45
+ #define FFI_CRIS_TRAMPOLINE_CODE_PART_SIZE 36
46
+ #define FFI_CRIS_TRAMPOLINE_DATA_PART_SIZE (7*4)
47
+ #define FFI_TRAMPOLINE_SIZE \
48
+ (FFI_CRIS_TRAMPOLINE_CODE_PART_SIZE + FFI_CRIS_TRAMPOLINE_DATA_PART_SIZE)
49
+ #define FFI_NATIVE_RAW_API 0
50
+
51
+ #endif
@@ -0,0 +1,215 @@
1
+ /* -----------------------------------------------------------------------
2
+ sysv.S - Copyright (c) 2004 Simon Posnjak
3
+ Copyright (c) 2005 Axis Communications AB
4
+
5
+ CRIS Foreign Function Interface
6
+
7
+ Permission is hereby granted, free of charge, to any person obtaining
8
+ a copy of this software and associated documentation files (the
9
+ ``Software''), to deal in the Software without restriction, including
10
+ without limitation the rights to use, copy, modify, merge, publish,
11
+ distribute, sublicense, and/or sell copies of the Software, and to
12
+ permit persons to whom the Software is furnished to do so, subject to
13
+ the following conditions:
14
+
15
+ The above copyright notice and this permission notice shall be included
16
+ in all copies or substantial portions of the Software.
17
+
18
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
19
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
21
+ IN NO EVENT SHALL SIMON POSNJAK BE LIABLE FOR ANY CLAIM, DAMAGES OR
22
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
23
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24
+ OTHER DEALINGS IN THE SOFTWARE.
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #define LIBFFI_ASM
28
+ #include <ffi.h>
29
+ #define CONCAT(x,y) x ## y
30
+ #define XCONCAT(x,y) CONCAT (x, y)
31
+ #define L(x) XCONCAT (__USER_LABEL_PREFIX__, x)
32
+
33
+ .text
34
+
35
+ ;; OK, when we get called we should have this (according to
36
+ ;; AXIS ETRAX 100LX Programmer's Manual chapter 6.3).
37
+ ;;
38
+ ;; R10: ffi_prep_args (func. pointer)
39
+ ;; R11: &ecif
40
+ ;; R12: cif->bytes
41
+ ;; R13: fig->flags
42
+ ;; sp+0: ecif.rvalue
43
+ ;; sp+4: fn (function pointer to the function that we need to call)
44
+
45
+ .globl L(ffi_call_SYSV)
46
+ .type L(ffi_call_SYSV),@function
47
+ .hidden L(ffi_call_SYSV)
48
+
49
+ L(ffi_call_SYSV):
50
+ ;; Save the regs to the stack.
51
+ push $srp
52
+ ;; Used for stack pointer saving.
53
+ push $r6
54
+ ;; Used for function address pointer.
55
+ push $r7
56
+ ;; Used for stack pointer saving.
57
+ push $r8
58
+ ;; We save fig->flags to stack we will need them after we
59
+ ;; call The Function.
60
+ push $r13
61
+
62
+ ;; Saving current stack pointer.
63
+ move.d $sp,$r8
64
+ move.d $sp,$r6
65
+
66
+ ;; Move address of ffi_prep_args to r13.
67
+ move.d $r10,$r13
68
+
69
+ ;; Make room on the stack for the args of fn.
70
+ sub.d $r12,$sp
71
+
72
+ ;; Function void ffi_prep_args(char *stack, extended_cif *ecif) parameters are:
73
+ ;; r10 <-- stack pointer
74
+ ;; r11 <-- &ecif (already there)
75
+ move.d $sp,$r10
76
+
77
+ ;; Call the function.
78
+ jsr $r13
79
+
80
+ ;; Save the size of the structures which are passed on stack.
81
+ move.d $r10,$r7
82
+
83
+ ;; Move first four args in to r10..r13.
84
+ move.d [$sp+0],$r10
85
+ move.d [$sp+4],$r11
86
+ move.d [$sp+8],$r12
87
+ move.d [$sp+12],$r13
88
+
89
+ ;; Adjust the stack and check if any parameters are given on stack.
90
+ addq 16,$sp
91
+ sub.d $r7,$r6
92
+ cmp.d $sp,$r6
93
+
94
+ bpl go_on
95
+ nop
96
+
97
+ go_on_no_params_on_stack:
98
+ move.d $r6,$sp
99
+
100
+ go_on:
101
+ ;; Discover if we need to put rval address in to r9.
102
+ move.d [$r8+0],$r7
103
+ cmpq FFI_TYPE_STRUCT,$r7
104
+ bne call_now
105
+ nop
106
+
107
+ ;; Move rval address to $r9.
108
+ move.d [$r8+20],$r9
109
+
110
+ call_now:
111
+ ;; Move address of The Function in to r7.
112
+ move.d [$r8+24],$r7
113
+
114
+ ;; Call The Function.
115
+ jsr $r7
116
+
117
+ ;; Reset stack.
118
+ move.d $r8,$sp
119
+
120
+ ;; Load rval type (fig->flags) in to r13.
121
+ pop $r13
122
+
123
+ ;; Detect rval type.
124
+ cmpq FFI_TYPE_VOID,$r13
125
+ beq epilogue
126
+
127
+ cmpq FFI_TYPE_STRUCT,$r13
128
+ beq epilogue
129
+
130
+ cmpq FFI_TYPE_DOUBLE,$r13
131
+ beq return_double_or_longlong
132
+
133
+ cmpq FFI_TYPE_UINT64,$r13
134
+ beq return_double_or_longlong
135
+
136
+ cmpq FFI_TYPE_SINT64,$r13
137
+ beq return_double_or_longlong
138
+ nop
139
+
140
+ ;; Just return the 32 bit value.
141
+ ba return
142
+ nop
143
+
144
+ return_double_or_longlong:
145
+ ;; Load half of the rval to r10 and the other half to r11.
146
+ move.d [$sp+16],$r13
147
+ move.d $r10,[$r13]
148
+ addq 4,$r13
149
+ move.d $r11,[$r13]
150
+ ba epilogue
151
+ nop
152
+
153
+ return:
154
+ ;; Load the rval to r10.
155
+ move.d [$sp+16],$r13
156
+ move.d $r10,[$r13]
157
+
158
+ epilogue:
159
+ pop $r8
160
+ pop $r7
161
+ pop $r6
162
+ Jump [$sp+]
163
+
164
+ .size ffi_call_SYSV,.-ffi_call_SYSV
165
+
166
+ /* Save R10..R13 into an array, somewhat like varargs. Copy the next
167
+ argument too, to simplify handling of any straddling parameter.
168
+ Save R9 and SP after those. Jump to function handling the rest.
169
+ Since this is a template, copied and the main function filled in by
170
+ the user. */
171
+
172
+ .globl L(ffi_cris_trampoline_template)
173
+ .type L(ffi_cris_trampoline_template),@function
174
+ .hidden L(ffi_cris_trampoline_template)
175
+
176
+ L(ffi_cris_trampoline_template):
177
+ 0:
178
+ /* The value we get for "PC" is right after the prefix instruction,
179
+ two bytes from the beginning, i.e. 0b+2. */
180
+ move.d $r10,[$pc+2f-(0b+2)]
181
+ move.d $pc,$r10
182
+ 1:
183
+ addq 2f-1b+4,$r10
184
+ move.d $r11,[$r10+]
185
+ move.d $r12,[$r10+]
186
+ move.d $r13,[$r10+]
187
+ move.d [$sp],$r11
188
+ move.d $r11,[$r10+]
189
+ move.d $r9,[$r10+]
190
+ move.d $sp,[$r10+]
191
+ subq FFI_CRIS_TRAMPOLINE_DATA_PART_SIZE,$r10
192
+ move.d 0,$r11
193
+ 3:
194
+ jump 0
195
+ 2:
196
+ .size ffi_cris_trampoline_template,.-0b
197
+
198
+ /* This macro create a constant usable as "extern const int \name" in
199
+ C from within libffi, when \name has no prefix decoration. */
200
+
201
+ .macro const name,value
202
+ .globl \name
203
+ .type \name,@object
204
+ .hidden \name
205
+ \name:
206
+ .dword \value
207
+ .size \name,4
208
+ .endm
209
+
210
+ /* Constants for offsets within the trampoline. We could do this with
211
+ just symbols, avoiding memory contents and memory accesses, but the
212
+ C usage code would look a bit stranger. */
213
+
214
+ const L(ffi_cris_trampoline_fn_offset),2b-4-0b
215
+ const L(ffi_cris_trampoline_closure_offset),3b-4-0b