ffi 0.5.0-x86-mingw32

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 (328) hide show
  1. data/LICENSE +51 -0
  2. data/README.rdoc +69 -0
  3. data/Rakefile +191 -0
  4. data/ext/ffi_c/AbstractMemory.c +489 -0
  5. data/ext/ffi_c/AbstractMemory.h +160 -0
  6. data/ext/ffi_c/ArrayType.c +129 -0
  7. data/ext/ffi_c/ArrayType.h +58 -0
  8. data/ext/ffi_c/AutoPointer.c +61 -0
  9. data/ext/ffi_c/AutoPointer.h +18 -0
  10. data/ext/ffi_c/Buffer.c +187 -0
  11. data/ext/ffi_c/Call.c +853 -0
  12. data/ext/ffi_c/Call.h +86 -0
  13. data/ext/ffi_c/ClosurePool.c +302 -0
  14. data/ext/ffi_c/ClosurePool.h +29 -0
  15. data/ext/ffi_c/DynamicLibrary.c +216 -0
  16. data/ext/ffi_c/DynamicLibrary.h +22 -0
  17. data/ext/ffi_c/Function.c +478 -0
  18. data/ext/ffi_c/Function.h +80 -0
  19. data/ext/ffi_c/FunctionInfo.c +221 -0
  20. data/ext/ffi_c/LastError.c +159 -0
  21. data/ext/ffi_c/LastError.h +18 -0
  22. data/ext/ffi_c/MemoryPointer.c +178 -0
  23. data/ext/ffi_c/MemoryPointer.h +20 -0
  24. data/ext/ffi_c/MethodHandle.c +346 -0
  25. data/ext/ffi_c/MethodHandle.h +53 -0
  26. data/ext/ffi_c/Platform.c +59 -0
  27. data/ext/ffi_c/Platform.h +16 -0
  28. data/ext/ffi_c/Pointer.c +224 -0
  29. data/ext/ffi_c/Pointer.h +49 -0
  30. data/ext/ffi_c/Struct.c +770 -0
  31. data/ext/ffi_c/Struct.h +80 -0
  32. data/ext/ffi_c/StructByValue.c +140 -0
  33. data/ext/ffi_c/StructByValue.h +53 -0
  34. data/ext/ffi_c/StructLayout.c +450 -0
  35. data/ext/ffi_c/Type.c +329 -0
  36. data/ext/ffi_c/Type.h +57 -0
  37. data/ext/ffi_c/Types.c +103 -0
  38. data/ext/ffi_c/Types.h +85 -0
  39. data/ext/ffi_c/Variadic.c +260 -0
  40. data/ext/ffi_c/compat.h +72 -0
  41. data/ext/ffi_c/endian.h +40 -0
  42. data/ext/ffi_c/extconf.rb +30 -0
  43. data/ext/ffi_c/ffi.c +82 -0
  44. data/ext/ffi_c/libffi.bsd.mk +34 -0
  45. data/ext/ffi_c/libffi.darwin.mk +75 -0
  46. data/ext/ffi_c/libffi.gnu.mk +29 -0
  47. data/ext/ffi_c/libffi.mk +13 -0
  48. data/ext/ffi_c/libffi/ChangeLog +3243 -0
  49. data/ext/ffi_c/libffi/ChangeLog.libffi +347 -0
  50. data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
  51. data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
  52. data/ext/ffi_c/libffi/LICENSE +21 -0
  53. data/ext/ffi_c/libffi/Makefile.am +177 -0
  54. data/ext/ffi_c/libffi/Makefile.in +1640 -0
  55. data/ext/ffi_c/libffi/README +328 -0
  56. data/ext/ffi_c/libffi/TODO +1 -0
  57. data/ext/ffi_c/libffi/acinclude.m4 +92 -0
  58. data/ext/ffi_c/libffi/aclocal.m4 +7516 -0
  59. data/ext/ffi_c/libffi/compile +142 -0
  60. data/ext/ffi_c/libffi/config.guess +1516 -0
  61. data/ext/ffi_c/libffi/config.sub +1626 -0
  62. data/ext/ffi_c/libffi/configure +24414 -0
  63. data/ext/ffi_c/libffi/configure.ac +365 -0
  64. data/ext/ffi_c/libffi/configure.host +11 -0
  65. data/ext/ffi_c/libffi/depcomp +584 -0
  66. data/ext/ffi_c/libffi/doc/libffi.info +533 -0
  67. data/ext/ffi_c/libffi/doc/libffi.texi +541 -0
  68. data/ext/ffi_c/libffi/doc/stamp-vti +4 -0
  69. data/ext/ffi_c/libffi/doc/version.texi +4 -0
  70. data/ext/ffi_c/libffi/fficonfig.h.in +160 -0
  71. data/ext/ffi_c/libffi/include/Makefile.am +9 -0
  72. data/ext/ffi_c/libffi/include/Makefile.in +422 -0
  73. data/ext/ffi_c/libffi/include/ffi.h.in +393 -0
  74. data/ext/ffi_c/libffi/include/ffi_common.h +98 -0
  75. data/ext/ffi_c/libffi/install-sh +323 -0
  76. data/ext/ffi_c/libffi/libffi.pc.in +10 -0
  77. data/ext/ffi_c/libffi/libtool-version +29 -0
  78. data/ext/ffi_c/libffi/ltcf-c.sh +861 -0
  79. data/ext/ffi_c/libffi/ltcf-cxx.sh +1069 -0
  80. data/ext/ffi_c/libffi/ltcf-gcj.sh +700 -0
  81. data/ext/ffi_c/libffi/ltconfig +2862 -0
  82. data/ext/ffi_c/libffi/ltmain.sh +6930 -0
  83. data/ext/ffi_c/libffi/man/Makefile.am +8 -0
  84. data/ext/ffi_c/libffi/man/Makefile.in +395 -0
  85. data/ext/ffi_c/libffi/man/ffi.3 +31 -0
  86. data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
  87. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +66 -0
  88. data/ext/ffi_c/libffi/mdate-sh +201 -0
  89. data/ext/ffi_c/libffi/missing +353 -0
  90. data/ext/ffi_c/libffi/mkinstalldirs +158 -0
  91. data/ext/ffi_c/libffi/src/alpha/ffi.c +284 -0
  92. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +48 -0
  93. data/ext/ffi_c/libffi/src/alpha/osf.S +366 -0
  94. data/ext/ffi_c/libffi/src/arm/ffi.c +309 -0
  95. data/ext/ffi_c/libffi/src/arm/ffitarget.h +49 -0
  96. data/ext/ffi_c/libffi/src/arm/sysv.S +299 -0
  97. data/ext/ffi_c/libffi/src/closures.c +596 -0
  98. data/ext/ffi_c/libffi/src/cris/ffi.c +383 -0
  99. data/ext/ffi_c/libffi/src/cris/ffitarget.h +51 -0
  100. data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
  101. data/ext/ffi_c/libffi/src/debug.c +59 -0
  102. data/ext/ffi_c/libffi/src/dlmalloc.c +5099 -0
  103. data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
  104. data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
  105. data/ext/ffi_c/libffi/src/frv/ffitarget.h +61 -0
  106. data/ext/ffi_c/libffi/src/ia64/ffi.c +580 -0
  107. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +50 -0
  108. data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
  109. data/ext/ffi_c/libffi/src/ia64/unix.S +560 -0
  110. data/ext/ffi_c/libffi/src/java_raw_api.c +359 -0
  111. data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
  112. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +48 -0
  113. data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
  114. data/ext/ffi_c/libffi/src/m68k/ffi.c +278 -0
  115. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +49 -0
  116. data/ext/ffi_c/libffi/src/m68k/sysv.S +234 -0
  117. data/ext/ffi_c/libffi/src/mips/ffi.c +926 -0
  118. data/ext/ffi_c/libffi/src/mips/ffitarget.h +202 -0
  119. data/ext/ffi_c/libffi/src/mips/n32.S +534 -0
  120. data/ext/ffi_c/libffi/src/mips/o32.S +381 -0
  121. data/ext/ffi_c/libffi/src/pa/ffi.c +709 -0
  122. data/ext/ffi_c/libffi/src/pa/ffitarget.h +77 -0
  123. data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
  124. data/ext/ffi_c/libffi/src/pa/linux.S +357 -0
  125. data/ext/ffi_c/libffi/src/powerpc/aix.S +225 -0
  126. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +247 -0
  127. data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
  128. data/ext/ffi_c/libffi/src/powerpc/darwin.S +245 -0
  129. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +317 -0
  130. data/ext/ffi_c/libffi/src/powerpc/ffi.c +1429 -0
  131. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +800 -0
  132. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +118 -0
  133. data/ext/ffi_c/libffi/src/powerpc/linux64.S +187 -0
  134. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +236 -0
  135. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +327 -0
  136. data/ext/ffi_c/libffi/src/powerpc/sysv.S +230 -0
  137. data/ext/ffi_c/libffi/src/prep_cif.c +174 -0
  138. data/ext/ffi_c/libffi/src/raw_api.c +254 -0
  139. data/ext/ffi_c/libffi/src/s390/ffi.c +780 -0
  140. data/ext/ffi_c/libffi/src/s390/ffitarget.h +60 -0
  141. data/ext/ffi_c/libffi/src/s390/sysv.S +434 -0
  142. data/ext/ffi_c/libffi/src/sh/ffi.c +716 -0
  143. data/ext/ffi_c/libffi/src/sh/ffitarget.h +49 -0
  144. data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
  145. data/ext/ffi_c/libffi/src/sh64/ffi.c +453 -0
  146. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +53 -0
  147. data/ext/ffi_c/libffi/src/sh64/sysv.S +530 -0
  148. data/ext/ffi_c/libffi/src/sparc/ffi.c +610 -0
  149. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +66 -0
  150. data/ext/ffi_c/libffi/src/sparc/v8.S +272 -0
  151. data/ext/ffi_c/libffi/src/sparc/v9.S +307 -0
  152. data/ext/ffi_c/libffi/src/types.c +77 -0
  153. data/ext/ffi_c/libffi/src/x86/darwin.S +443 -0
  154. data/ext/ffi_c/libffi/src/x86/darwin64.S +416 -0
  155. data/ext/ffi_c/libffi/src/x86/ffi.c +475 -0
  156. data/ext/ffi_c/libffi/src/x86/ffi64.c +572 -0
  157. data/ext/ffi_c/libffi/src/x86/ffitarget.h +90 -0
  158. data/ext/ffi_c/libffi/src/x86/freebsd.S +458 -0
  159. data/ext/ffi_c/libffi/src/x86/sysv.S +437 -0
  160. data/ext/ffi_c/libffi/src/x86/unix64.S +418 -0
  161. data/ext/ffi_c/libffi/src/x86/win32.S +391 -0
  162. data/ext/ffi_c/libffi/testsuite/Makefile.am +71 -0
  163. data/ext/ffi_c/libffi/testsuite/Makefile.in +447 -0
  164. data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
  165. data/ext/ffi_c/libffi/testsuite/lib/libffi-dg.exp +289 -0
  166. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +263 -0
  167. data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
  168. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +36 -0
  169. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +97 -0
  170. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +89 -0
  171. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +89 -0
  172. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +90 -0
  173. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +97 -0
  174. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +99 -0
  175. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +98 -0
  176. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_stdcall.c +72 -0
  177. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +102 -0
  178. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +103 -0
  179. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +104 -0
  180. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +110 -0
  181. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +97 -0
  182. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +99 -0
  183. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +101 -0
  184. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +121 -0
  185. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +98 -0
  186. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +103 -0
  187. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +98 -0
  188. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +98 -0
  189. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +106 -0
  190. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +98 -0
  191. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +117 -0
  192. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +106 -0
  193. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +132 -0
  194. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +121 -0
  195. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +107 -0
  196. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +125 -0
  197. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +105 -0
  198. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +96 -0
  199. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +98 -0
  200. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +99 -0
  201. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +101 -0
  202. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +99 -0
  203. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +100 -0
  204. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +101 -0
  205. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +99 -0
  206. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +99 -0
  207. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +99 -0
  208. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +99 -0
  209. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +99 -0
  210. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +100 -0
  211. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +51 -0
  212. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +51 -0
  213. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +82 -0
  214. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +82 -0
  215. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +94 -0
  216. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +99 -0
  217. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +82 -0
  218. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +94 -0
  219. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +52 -0
  220. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +50 -0
  221. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +50 -0
  222. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +50 -0
  223. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +51 -0
  224. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +54 -0
  225. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +51 -0
  226. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +86 -0
  227. data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
  228. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +58 -0
  229. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +57 -0
  230. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +72 -0
  231. data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
  232. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +69 -0
  233. data/ext/ffi_c/libffi/testsuite/libffi.call/many_win32.c +63 -0
  234. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +53 -0
  235. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +160 -0
  236. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +169 -0
  237. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +141 -0
  238. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +118 -0
  239. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +119 -0
  240. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +119 -0
  241. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +120 -0
  242. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +139 -0
  243. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +119 -0
  244. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +139 -0
  245. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +139 -0
  246. data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +98 -0
  247. data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
  248. data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
  249. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +35 -0
  250. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
  251. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
  252. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
  253. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
  254. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
  255. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
  256. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
  257. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
  258. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +42 -0
  259. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
  260. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
  261. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
  262. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
  263. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
  264. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen_win32.c +44 -0
  265. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +65 -0
  266. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
  267. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +59 -0
  268. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +63 -0
  269. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +65 -0
  270. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
  271. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
  272. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +80 -0
  273. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +67 -0
  274. data/ext/ffi_c/libffi/testsuite/libffi.special/ffitestcxx.h +86 -0
  275. data/ext/ffi_c/libffi/testsuite/libffi.special/special.exp +38 -0
  276. data/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest.cc +123 -0
  277. data/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest_ffi_call.cc +53 -0
  278. data/ext/ffi_c/libffi/texinfo.tex +7482 -0
  279. data/ext/ffi_c/rbffi.h +26 -0
  280. data/gen/Rakefile +12 -0
  281. data/lib/1.8/ffi_c.so +0 -0
  282. data/lib/1.9/ffi_c.so +0 -0
  283. data/lib/ffi.rb +11 -0
  284. data/lib/ffi/autopointer.rb +61 -0
  285. data/lib/ffi/buffer.rb +0 -0
  286. data/lib/ffi/callback.rb +10 -0
  287. data/lib/ffi/enum.rb +78 -0
  288. data/lib/ffi/errno.rb +8 -0
  289. data/lib/ffi/ffi.rb +99 -0
  290. data/lib/ffi/io.rb +21 -0
  291. data/lib/ffi/library.rb +218 -0
  292. data/lib/ffi/managedstruct.rb +55 -0
  293. data/lib/ffi/memorypointer.rb +73 -0
  294. data/lib/ffi/platform.rb +88 -0
  295. data/lib/ffi/pointer.rb +119 -0
  296. data/lib/ffi/struct.rb +183 -0
  297. data/lib/ffi/tools/const_generator.rb +177 -0
  298. data/lib/ffi/tools/generator.rb +58 -0
  299. data/lib/ffi/tools/generator_task.rb +35 -0
  300. data/lib/ffi/tools/struct_generator.rb +194 -0
  301. data/lib/ffi/tools/types_generator.rb +123 -0
  302. data/lib/ffi/types.rb +153 -0
  303. data/lib/ffi/union.rb +12 -0
  304. data/lib/ffi/variadic.rb +25 -0
  305. data/spec/ffi/bool_spec.rb +24 -0
  306. data/spec/ffi/buffer_spec.rb +202 -0
  307. data/spec/ffi/callback_spec.rb +591 -0
  308. data/spec/ffi/enum_spec.rb +164 -0
  309. data/spec/ffi/errno_spec.rb +13 -0
  310. data/spec/ffi/function_spec.rb +73 -0
  311. data/spec/ffi/library_spec.rb +148 -0
  312. data/spec/ffi/managed_struct_spec.rb +56 -0
  313. data/spec/ffi/number_spec.rb +231 -0
  314. data/spec/ffi/pointer_spec.rb +195 -0
  315. data/spec/ffi/rbx/attach_function_spec.rb +27 -0
  316. data/spec/ffi/rbx/memory_pointer_spec.rb +102 -0
  317. data/spec/ffi/rbx/spec_helper.rb +1 -0
  318. data/spec/ffi/rbx/struct_spec.rb +13 -0
  319. data/spec/ffi/spec_helper.rb +17 -0
  320. data/spec/ffi/string_spec.rb +103 -0
  321. data/spec/ffi/struct_callback_spec.rb +64 -0
  322. data/spec/ffi/struct_initialize_spec.rb +30 -0
  323. data/spec/ffi/struct_spec.rb +529 -0
  324. data/spec/ffi/typedef_spec.rb +48 -0
  325. data/spec/ffi/union_spec.rb +60 -0
  326. data/spec/ffi/variadic_spec.rb +84 -0
  327. data/spec/spec.opts +4 -0
  328. metadata +396 -0
@@ -0,0 +1,120 @@
1
+ /* Area: ffi_call, closure_call
2
+ Purpose: Check structure passing with different structure size.
3
+ Contains structs as parameter of the struct itself.
4
+ Sample taken from Alan Modras patch to src/prep_cif.c.
5
+ Limitations: none.
6
+ PR: none.
7
+ Originator: <andreast@gcc.gnu.org> 20051010 */
8
+
9
+ /* { dg-do run } */
10
+ #include "ffitest.h"
11
+
12
+ typedef struct A {
13
+ long double a;
14
+ unsigned char b;
15
+ } A;
16
+
17
+ typedef struct B {
18
+ struct A x;
19
+ unsigned char y;
20
+ } B;
21
+
22
+ static B B_fn(struct A b2, struct B b3)
23
+ {
24
+ struct B result;
25
+
26
+ result.x.a = b2.a + b3.x.a;
27
+ result.x.b = b2.b + b3.x.b + b3.y;
28
+ result.y = b2.b + b3.x.b;
29
+
30
+ printf("%d %d %d %d %d: %d %d %d\n", (int)b2.a, b2.b,
31
+ (int)b3.x.a, b3.x.b, b3.y,
32
+ (int)result.x.a, result.x.b, result.y);
33
+
34
+ return result;
35
+ }
36
+
37
+ static void
38
+ B_gn(ffi_cif* cif __UNUSED__, void* resp, void** args,
39
+ void* userdata __UNUSED__)
40
+ {
41
+ struct A b0;
42
+ struct B b1;
43
+
44
+ b0 = *(struct A*)(args[0]);
45
+ b1 = *(struct B*)(args[1]);
46
+
47
+ *(B*)resp = B_fn(b0, b1);
48
+ }
49
+
50
+ int main (void)
51
+ {
52
+ ffi_cif cif;
53
+ #ifndef USING_MMAP
54
+ static ffi_closure cl;
55
+ #endif
56
+ ffi_closure *pcl;
57
+ void* args_dbl[3];
58
+ ffi_type* cls_struct_fields[3];
59
+ ffi_type* cls_struct_fields1[3];
60
+ ffi_type cls_struct_type, cls_struct_type1;
61
+ ffi_type* dbl_arg_types[3];
62
+
63
+ #ifdef USING_MMAP
64
+ pcl = allocate_mmap (sizeof(ffi_closure));
65
+ #else
66
+ pcl = &cl;
67
+ #endif
68
+
69
+ cls_struct_type.size = 0;
70
+ cls_struct_type.alignment = 0;
71
+ cls_struct_type.type = FFI_TYPE_STRUCT;
72
+ cls_struct_type.elements = cls_struct_fields;
73
+
74
+ cls_struct_type1.size = 0;
75
+ cls_struct_type1.alignment = 0;
76
+ cls_struct_type1.type = FFI_TYPE_STRUCT;
77
+ cls_struct_type1.elements = cls_struct_fields1;
78
+
79
+ struct A e_dbl = { 1.0, 7};
80
+ struct B f_dbl = {{12.0 , 127}, 99};
81
+
82
+ struct B res_dbl;
83
+
84
+ cls_struct_fields[0] = &ffi_type_longdouble;
85
+ cls_struct_fields[1] = &ffi_type_uchar;
86
+ cls_struct_fields[2] = NULL;
87
+
88
+ cls_struct_fields1[0] = &cls_struct_type;
89
+ cls_struct_fields1[1] = &ffi_type_uchar;
90
+ cls_struct_fields1[2] = NULL;
91
+
92
+
93
+ dbl_arg_types[0] = &cls_struct_type;
94
+ dbl_arg_types[1] = &cls_struct_type1;
95
+ dbl_arg_types[2] = NULL;
96
+
97
+ CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type1,
98
+ dbl_arg_types) == FFI_OK);
99
+
100
+ args_dbl[0] = &e_dbl;
101
+ args_dbl[1] = &f_dbl;
102
+ args_dbl[2] = NULL;
103
+
104
+ ffi_call(&cif, FFI_FN(B_fn), &res_dbl, args_dbl);
105
+ /* { dg-output "1 7 12 127 99: 13 233 134" } */
106
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a));
107
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y));
108
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b));
109
+
110
+
111
+ CHECK(ffi_prep_closure(pcl, &cif, B_gn, NULL) == FFI_OK);
112
+
113
+ res_dbl = ((B(*)(A, B))(pcl))(e_dbl, f_dbl);
114
+ /* { dg-output "\n1 7 12 127 99: 13 233 134" } */
115
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a));
116
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y));
117
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b));
118
+
119
+ exit(0);
120
+ }
@@ -0,0 +1,139 @@
1
+ /* Area: ffi_call, closure_call
2
+ Purpose: Check structure passing with different structure size.
3
+ Contains structs as parameter of the struct itself.
4
+ Sample taken from Alan Modras patch to src/prep_cif.c.
5
+ Limitations: none.
6
+ PR: PR 25630.
7
+ Originator: <andreast@gcc.gnu.org> 20051010 */
8
+
9
+ /* { dg-do run } */
10
+ #include "ffitest.h"
11
+
12
+ typedef struct A {
13
+ double a;
14
+ unsigned char b;
15
+ } A;
16
+
17
+ typedef struct B {
18
+ struct A x;
19
+ unsigned char y;
20
+ } B;
21
+
22
+ typedef struct C {
23
+ long d;
24
+ unsigned char e;
25
+ } C;
26
+
27
+ static B B_fn(struct A b2, struct B b3, struct C b4)
28
+ {
29
+ struct B result;
30
+
31
+ result.x.a = b2.a + b3.x.a + b4.d;
32
+ result.x.b = b2.b + b3.x.b + b3.y + b4.e;
33
+ result.y = b2.b + b3.x.b + b4.e;
34
+
35
+ printf("%d %d %d %d %d %d %d: %d %d %d\n", (int)b2.a, b2.b,
36
+ (int)b3.x.a, b3.x.b, b3.y, (int)b4.d, b4.e,
37
+ (int)result.x.a, result.x.b, result.y);
38
+
39
+ return result;
40
+ }
41
+
42
+ static void
43
+ B_gn(ffi_cif* cif __UNUSED__, void* resp, void** args,
44
+ void* userdata __UNUSED__)
45
+ {
46
+ struct A b0;
47
+ struct B b1;
48
+ struct C b2;
49
+
50
+ b0 = *(struct A*)(args[0]);
51
+ b1 = *(struct B*)(args[1]);
52
+ b2 = *(struct C*)(args[2]);
53
+
54
+ *(B*)resp = B_fn(b0, b1, b2);
55
+ }
56
+
57
+ int main (void)
58
+ {
59
+ ffi_cif cif;
60
+ #ifndef USING_MMAP
61
+ static ffi_closure cl;
62
+ #endif
63
+ ffi_closure *pcl;
64
+ void* args_dbl[4];
65
+ ffi_type* cls_struct_fields[3];
66
+ ffi_type* cls_struct_fields1[3];
67
+ ffi_type* cls_struct_fields2[3];
68
+ ffi_type cls_struct_type, cls_struct_type1, cls_struct_type2;
69
+ ffi_type* dbl_arg_types[4];
70
+
71
+ #ifdef USING_MMAP
72
+ pcl = allocate_mmap (sizeof(ffi_closure));
73
+ #else
74
+ pcl = &cl;
75
+ #endif
76
+
77
+ cls_struct_type.size = 0;
78
+ cls_struct_type.alignment = 0;
79
+ cls_struct_type.type = FFI_TYPE_STRUCT;
80
+ cls_struct_type.elements = cls_struct_fields;
81
+
82
+ cls_struct_type1.size = 0;
83
+ cls_struct_type1.alignment = 0;
84
+ cls_struct_type1.type = FFI_TYPE_STRUCT;
85
+ cls_struct_type1.elements = cls_struct_fields1;
86
+
87
+ cls_struct_type2.size = 0;
88
+ cls_struct_type2.alignment = 0;
89
+ cls_struct_type2.type = FFI_TYPE_STRUCT;
90
+ cls_struct_type2.elements = cls_struct_fields2;
91
+
92
+ struct A e_dbl = { 1.0, 7};
93
+ struct B f_dbl = {{12.0 , 127}, 99};
94
+ struct C g_dbl = { 2, 9};
95
+
96
+ struct B res_dbl;
97
+
98
+ cls_struct_fields[0] = &ffi_type_double;
99
+ cls_struct_fields[1] = &ffi_type_uchar;
100
+ cls_struct_fields[2] = NULL;
101
+
102
+ cls_struct_fields1[0] = &cls_struct_type;
103
+ cls_struct_fields1[1] = &ffi_type_uchar;
104
+ cls_struct_fields1[2] = NULL;
105
+
106
+ cls_struct_fields2[0] = &ffi_type_slong;
107
+ cls_struct_fields2[1] = &ffi_type_uchar;
108
+ cls_struct_fields2[2] = NULL;
109
+
110
+
111
+ dbl_arg_types[0] = &cls_struct_type;
112
+ dbl_arg_types[1] = &cls_struct_type1;
113
+ dbl_arg_types[2] = &cls_struct_type2;
114
+ dbl_arg_types[3] = NULL;
115
+
116
+ CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, &cls_struct_type1,
117
+ dbl_arg_types) == FFI_OK);
118
+
119
+ args_dbl[0] = &e_dbl;
120
+ args_dbl[1] = &f_dbl;
121
+ args_dbl[2] = &g_dbl;
122
+ args_dbl[3] = NULL;
123
+
124
+ ffi_call(&cif, FFI_FN(B_fn), &res_dbl, args_dbl);
125
+ /* { dg-output "1 7 12 127 99 2 9: 15 242 143" } */
126
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a + g_dbl.d));
127
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y + g_dbl.e));
128
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b + g_dbl.e));
129
+
130
+ CHECK(ffi_prep_closure(pcl, &cif, B_gn, NULL) == FFI_OK);
131
+
132
+ res_dbl = ((B(*)(A, B, C))(pcl))(e_dbl, f_dbl, g_dbl);
133
+ /* { dg-output "\n1 7 12 127 99 2 9: 15 242 143" } */
134
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a + g_dbl.d));
135
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y + g_dbl.e));
136
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b + g_dbl.e));
137
+
138
+ exit(0);
139
+ }
@@ -0,0 +1,119 @@
1
+ /* Area: ffi_call, closure_call
2
+ Purpose: Check structure passing with different structure size.
3
+ Contains structs as parameter of the struct itself.
4
+ Sample taken from Alan Modras patch to src/prep_cif.c.
5
+ Limitations: none.
6
+ PR: none.
7
+ Originator: <andreast@gcc.gnu.org> 20051010 */
8
+
9
+ /* { dg-do run } */
10
+ #include "ffitest.h"
11
+
12
+ typedef struct A {
13
+ unsigned long long a;
14
+ unsigned char b;
15
+ } A;
16
+
17
+ typedef struct B {
18
+ struct A x;
19
+ unsigned char y;
20
+ } B;
21
+
22
+ static B B_fn(struct A b2, struct B b3)
23
+ {
24
+ struct B result;
25
+
26
+ result.x.a = b2.a + b3.x.a;
27
+ result.x.b = b2.b + b3.x.b + b3.y;
28
+ result.y = b2.b + b3.x.b;
29
+
30
+ printf("%d %d %d %d %d: %d %d %d\n", (int)b2.a, b2.b,
31
+ (int)b3.x.a, b3.x.b, b3.y,
32
+ (int)result.x.a, result.x.b, result.y);
33
+
34
+ return result;
35
+ }
36
+
37
+ static void
38
+ B_gn(ffi_cif* cif __UNUSED__, void* resp, void** args,
39
+ void* userdata __UNUSED__)
40
+ {
41
+ struct A b0;
42
+ struct B b1;
43
+
44
+ b0 = *(struct A*)(args[0]);
45
+ b1 = *(struct B*)(args[1]);
46
+
47
+ *(B*)resp = B_fn(b0, b1);
48
+ }
49
+
50
+ int main (void)
51
+ {
52
+ ffi_cif cif;
53
+ #ifndef USING_MMAP
54
+ static ffi_closure cl;
55
+ #endif
56
+ ffi_closure *pcl;
57
+ void* args_dbl[3];
58
+ ffi_type* cls_struct_fields[3];
59
+ ffi_type* cls_struct_fields1[3];
60
+ ffi_type cls_struct_type, cls_struct_type1;
61
+ ffi_type* dbl_arg_types[3];
62
+
63
+ #ifdef USING_MMAP
64
+ pcl = allocate_mmap (sizeof(ffi_closure));
65
+ #else
66
+ pcl = &cl;
67
+ #endif
68
+
69
+ cls_struct_type.size = 0;
70
+ cls_struct_type.alignment = 0;
71
+ cls_struct_type.type = FFI_TYPE_STRUCT;
72
+ cls_struct_type.elements = cls_struct_fields;
73
+
74
+ cls_struct_type1.size = 0;
75
+ cls_struct_type1.alignment = 0;
76
+ cls_struct_type1.type = FFI_TYPE_STRUCT;
77
+ cls_struct_type1.elements = cls_struct_fields1;
78
+
79
+ struct A e_dbl = { 1LL, 7};
80
+ struct B f_dbl = {{12.0 , 127}, 99};
81
+
82
+ struct B res_dbl;
83
+
84
+ cls_struct_fields[0] = &ffi_type_uint64;
85
+ cls_struct_fields[1] = &ffi_type_uchar;
86
+ cls_struct_fields[2] = NULL;
87
+
88
+ cls_struct_fields1[0] = &cls_struct_type;
89
+ cls_struct_fields1[1] = &ffi_type_uchar;
90
+ cls_struct_fields1[2] = NULL;
91
+
92
+
93
+ dbl_arg_types[0] = &cls_struct_type;
94
+ dbl_arg_types[1] = &cls_struct_type1;
95
+ dbl_arg_types[2] = NULL;
96
+
97
+ CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type1,
98
+ dbl_arg_types) == FFI_OK);
99
+
100
+ args_dbl[0] = &e_dbl;
101
+ args_dbl[1] = &f_dbl;
102
+ args_dbl[2] = NULL;
103
+
104
+ ffi_call(&cif, FFI_FN(B_fn), &res_dbl, args_dbl);
105
+ /* { dg-output "1 7 12 127 99: 13 233 134" } */
106
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a));
107
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y));
108
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b));
109
+
110
+ CHECK(ffi_prep_closure(pcl, &cif, B_gn, NULL) == FFI_OK);
111
+
112
+ res_dbl = ((B(*)(A, B))(pcl))(e_dbl, f_dbl);
113
+ /* { dg-output "\n1 7 12 127 99: 13 233 134" } */
114
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a));
115
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y));
116
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b));
117
+
118
+ exit(0);
119
+ }
@@ -0,0 +1,139 @@
1
+ /* Area: ffi_call, closure_call
2
+ Purpose: Check structure passing with different structure size.
3
+ Contains structs as parameter of the struct itself.
4
+ Sample taken from Alan Modras patch to src/prep_cif.c.
5
+ Limitations: none.
6
+ PR: none.
7
+ Originator: <andreast@gcc.gnu.org> 20051010 */
8
+
9
+ /* { dg-do run } */
10
+ #include "ffitest.h"
11
+
12
+ typedef struct A {
13
+ unsigned long long a;
14
+ unsigned char b;
15
+ } A;
16
+
17
+ typedef struct B {
18
+ struct A x;
19
+ unsigned char y;
20
+ } B;
21
+
22
+ typedef struct C {
23
+ unsigned long long d;
24
+ unsigned char e;
25
+ } C;
26
+
27
+ static B B_fn(struct A b2, struct B b3, struct C b4)
28
+ {
29
+ struct B result;
30
+
31
+ result.x.a = b2.a + b3.x.a + b4.d;
32
+ result.x.b = b2.b + b3.x.b + b3.y + b4.e;
33
+ result.y = b2.b + b3.x.b + b4.e;
34
+
35
+ printf("%d %d %d %d %d %d %d: %d %d %d\n", (int)b2.a, b2.b,
36
+ (int)b3.x.a, b3.x.b, b3.y, (int)b4.d, b4.e,
37
+ (int)result.x.a, result.x.b, result.y);
38
+
39
+ return result;
40
+ }
41
+
42
+ static void
43
+ B_gn(ffi_cif* cif __UNUSED__, void* resp, void** args,
44
+ void* userdata __UNUSED__)
45
+ {
46
+ struct A b0;
47
+ struct B b1;
48
+ struct C b2;
49
+
50
+ b0 = *(struct A*)(args[0]);
51
+ b1 = *(struct B*)(args[1]);
52
+ b2 = *(struct C*)(args[2]);
53
+
54
+ *(B*)resp = B_fn(b0, b1, b2);
55
+ }
56
+
57
+ int main (void)
58
+ {
59
+ ffi_cif cif;
60
+ #ifndef USING_MMAP
61
+ static ffi_closure cl;
62
+ #endif
63
+ ffi_closure *pcl;
64
+ void* args_dbl[4];
65
+ ffi_type* cls_struct_fields[3];
66
+ ffi_type* cls_struct_fields1[3];
67
+ ffi_type* cls_struct_fields2[3];
68
+ ffi_type cls_struct_type, cls_struct_type1, cls_struct_type2;
69
+ ffi_type* dbl_arg_types[4];
70
+
71
+ #ifdef USING_MMAP
72
+ pcl = allocate_mmap (sizeof(ffi_closure));
73
+ #else
74
+ pcl = &cl;
75
+ #endif
76
+
77
+ cls_struct_type.size = 0;
78
+ cls_struct_type.alignment = 0;
79
+ cls_struct_type.type = FFI_TYPE_STRUCT;
80
+ cls_struct_type.elements = cls_struct_fields;
81
+
82
+ cls_struct_type1.size = 0;
83
+ cls_struct_type1.alignment = 0;
84
+ cls_struct_type1.type = FFI_TYPE_STRUCT;
85
+ cls_struct_type1.elements = cls_struct_fields1;
86
+
87
+ cls_struct_type2.size = 0;
88
+ cls_struct_type2.alignment = 0;
89
+ cls_struct_type2.type = FFI_TYPE_STRUCT;
90
+ cls_struct_type2.elements = cls_struct_fields2;
91
+
92
+ struct A e_dbl = { 1LL, 7};
93
+ struct B f_dbl = {{12LL , 127}, 99};
94
+ struct C g_dbl = { 2LL, 9};
95
+
96
+ struct B res_dbl;
97
+
98
+ cls_struct_fields[0] = &ffi_type_uint64;
99
+ cls_struct_fields[1] = &ffi_type_uchar;
100
+ cls_struct_fields[2] = NULL;
101
+
102
+ cls_struct_fields1[0] = &cls_struct_type;
103
+ cls_struct_fields1[1] = &ffi_type_uchar;
104
+ cls_struct_fields1[2] = NULL;
105
+
106
+ cls_struct_fields2[0] = &ffi_type_uint64;
107
+ cls_struct_fields2[1] = &ffi_type_uchar;
108
+ cls_struct_fields2[2] = NULL;
109
+
110
+
111
+ dbl_arg_types[0] = &cls_struct_type;
112
+ dbl_arg_types[1] = &cls_struct_type1;
113
+ dbl_arg_types[2] = &cls_struct_type2;
114
+ dbl_arg_types[3] = NULL;
115
+
116
+ CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 3, &cls_struct_type1,
117
+ dbl_arg_types) == FFI_OK);
118
+
119
+ args_dbl[0] = &e_dbl;
120
+ args_dbl[1] = &f_dbl;
121
+ args_dbl[2] = &g_dbl;
122
+ args_dbl[3] = NULL;
123
+
124
+ ffi_call(&cif, FFI_FN(B_fn), &res_dbl, args_dbl);
125
+ /* { dg-output "1 7 12 127 99 2 9: 15 242 143" } */
126
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a + g_dbl.d));
127
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y + g_dbl.e));
128
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b + g_dbl.e));
129
+
130
+ CHECK(ffi_prep_closure(pcl, &cif, B_gn, NULL) == FFI_OK);
131
+
132
+ res_dbl = ((B(*)(A, B, C))(pcl))(e_dbl, f_dbl, g_dbl);
133
+ /* { dg-output "\n1 7 12 127 99 2 9: 15 242 143" } */
134
+ CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a + g_dbl.d));
135
+ CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y + g_dbl.e));
136
+ CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b + g_dbl.e));
137
+
138
+ exit(0);
139
+ }