ffi 1.15.5 → 1.16.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (308) hide show
  1. checksums.yaml +4 -4
  2. checksums.yaml.gz.sig +0 -0
  3. data/CHANGELOG.md +54 -0
  4. data/Gemfile +1 -1
  5. data/README.md +3 -2
  6. data/Rakefile +10 -7
  7. data/ext/ffi_c/AbstractMemory.c +56 -34
  8. data/ext/ffi_c/AbstractMemory.h +3 -2
  9. data/ext/ffi_c/ArrayType.c +49 -13
  10. data/ext/ffi_c/ArrayType.h +1 -0
  11. data/ext/ffi_c/Buffer.c +86 -29
  12. data/ext/ffi_c/Call.c +13 -5
  13. data/ext/ffi_c/DynamicLibrary.c +89 -26
  14. data/ext/ffi_c/Function.c +238 -98
  15. data/ext/ffi_c/Function.h +1 -0
  16. data/ext/ffi_c/FunctionInfo.c +78 -24
  17. data/ext/ffi_c/LastError.c +25 -7
  18. data/ext/ffi_c/MappedType.c +66 -23
  19. data/ext/ffi_c/MappedType.h +0 -2
  20. data/ext/ffi_c/MemoryPointer.c +34 -7
  21. data/ext/ffi_c/MethodHandle.c +3 -1
  22. data/ext/ffi_c/Pointer.c +68 -29
  23. data/ext/ffi_c/Pointer.h +1 -0
  24. data/ext/ffi_c/Struct.c +151 -80
  25. data/ext/ffi_c/Struct.h +7 -4
  26. data/ext/ffi_c/StructByValue.c +48 -16
  27. data/ext/ffi_c/StructLayout.c +117 -48
  28. data/ext/ffi_c/Type.c +104 -36
  29. data/ext/ffi_c/Type.h +3 -1
  30. data/ext/ffi_c/Types.c +1 -1
  31. data/ext/ffi_c/Variadic.c +65 -23
  32. data/ext/ffi_c/compat.h +22 -22
  33. data/ext/ffi_c/extconf.rb +19 -2
  34. data/ext/ffi_c/ffi.c +4 -0
  35. data/ext/ffi_c/libffi/.appveyor/site.exp +16 -0
  36. data/ext/ffi_c/libffi/.appveyor/unix-noexec.exp +7 -0
  37. data/ext/ffi_c/libffi/.appveyor.yml +27 -9
  38. data/ext/ffi_c/libffi/.ci/build-cross-in-container.sh +18 -0
  39. data/ext/ffi_c/libffi/{.travis → .ci}/build-in-container.sh +4 -6
  40. data/ext/ffi_c/libffi/.ci/build.sh +124 -0
  41. data/ext/ffi_c/libffi/{.travis → .ci}/install.sh +14 -7
  42. data/ext/ffi_c/libffi/.ci/msvs-detect +1103 -0
  43. data/ext/ffi_c/libffi/{.travis → .ci}/site.exp +5 -3
  44. data/ext/ffi_c/libffi/.circleci/config.yml +156 -0
  45. data/ext/ffi_c/libffi/.github/workflows/build.yml +460 -0
  46. data/ext/ffi_c/libffi/.github/workflows/emscripten.yml +171 -0
  47. data/ext/ffi_c/libffi/.gitignore +10 -2
  48. data/ext/ffi_c/libffi/LICENSE +1 -1
  49. data/ext/ffi_c/libffi/Makefile.am +12 -5
  50. data/ext/ffi_c/libffi/Makefile.in +118 -51
  51. data/ext/ffi_c/libffi/README.md +144 -104
  52. data/ext/ffi_c/libffi/acinclude.m4 +10 -112
  53. data/ext/ffi_c/libffi/config.guess +623 -556
  54. data/ext/ffi_c/libffi/config.sub +75 -34
  55. data/ext/ffi_c/libffi/configure +4571 -3830
  56. data/ext/ffi_c/libffi/configure.ac +64 -28
  57. data/ext/ffi_c/libffi/configure.host +25 -6
  58. data/ext/ffi_c/libffi/doc/Makefile.in +9 -6
  59. data/ext/ffi_c/libffi/doc/libffi.texi +82 -33
  60. data/ext/ffi_c/libffi/doc/version.texi +4 -4
  61. data/ext/ffi_c/libffi/fficonfig.h.in +12 -47
  62. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +163 -52
  63. data/ext/ffi_c/libffi/include/Makefile.am +1 -1
  64. data/ext/ffi_c/libffi/include/Makefile.in +10 -9
  65. data/ext/ffi_c/libffi/include/ffi.h.in +54 -50
  66. data/ext/ffi_c/libffi/include/ffi_cfi.h +21 -0
  67. data/ext/ffi_c/libffi/include/ffi_common.h +29 -0
  68. data/ext/ffi_c/libffi/include/tramp.h +45 -0
  69. data/ext/ffi_c/libffi/install-sh +92 -69
  70. data/ext/ffi_c/libffi/libtool-version +2 -2
  71. data/ext/ffi_c/libffi/ltmain.sh +512 -315
  72. data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +18 -14
  73. data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +108 -72
  74. data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +76 -45
  75. data/ext/ffi_c/libffi/m4/ax_prepend_flag.m4 +51 -0
  76. data/ext/ffi_c/libffi/man/Makefile.in +9 -6
  77. data/ext/ffi_c/libffi/missing +1 -1
  78. data/ext/ffi_c/libffi/msvc_build/aarch64/aarch64_include/ffi.h +1 -1
  79. data/ext/ffi_c/libffi/msvcc.sh +1 -1
  80. data/ext/ffi_c/libffi/src/aarch64/ffi.c +146 -42
  81. data/ext/ffi_c/libffi/src/aarch64/internal.h +32 -0
  82. data/ext/ffi_c/libffi/src/aarch64/sysv.S +134 -42
  83. data/ext/ffi_c/libffi/src/arc/arcompact.S +169 -94
  84. data/ext/ffi_c/libffi/src/arc/ffi.c +325 -148
  85. data/ext/ffi_c/libffi/src/arc/ffitarget.h +14 -0
  86. data/ext/ffi_c/libffi/src/arm/ffi.c +62 -17
  87. data/ext/ffi_c/libffi/src/arm/ffitarget.h +3 -3
  88. data/ext/ffi_c/libffi/src/arm/internal.h +10 -0
  89. data/ext/ffi_c/libffi/src/arm/sysv.S +113 -42
  90. data/ext/ffi_c/libffi/src/closures.c +133 -47
  91. data/ext/ffi_c/libffi/src/dlmalloc.c +5 -0
  92. data/ext/ffi_c/libffi/src/ia64/ffi.c +12 -0
  93. data/ext/ffi_c/libffi/src/ia64/unix.S +20 -2
  94. data/ext/ffi_c/libffi/src/loongarch64/ffi.c +621 -0
  95. data/ext/ffi_c/libffi/src/loongarch64/ffitarget.h +82 -0
  96. data/ext/ffi_c/libffi/src/loongarch64/sysv.S +327 -0
  97. data/ext/ffi_c/libffi/src/m32r/ffi.c +31 -14
  98. data/ext/ffi_c/libffi/src/mips/ffi.c +240 -65
  99. data/ext/ffi_c/libffi/src/mips/ffitarget.h +7 -0
  100. data/ext/ffi_c/libffi/src/mips/n32.S +137 -28
  101. data/ext/ffi_c/libffi/src/mips/o32.S +61 -4
  102. data/ext/ffi_c/libffi/src/moxie/ffi.c +47 -22
  103. data/ext/ffi_c/libffi/src/or1k/ffi.c +25 -12
  104. data/ext/ffi_c/libffi/src/pa/ffi.c +32 -33
  105. data/ext/ffi_c/libffi/src/pa/ffi64.c +614 -0
  106. data/ext/ffi_c/libffi/src/pa/ffitarget.h +22 -8
  107. data/ext/ffi_c/libffi/src/pa/hpux32.S +83 -36
  108. data/ext/ffi_c/libffi/src/pa/hpux64.S +681 -0
  109. data/ext/ffi_c/libffi/src/pa/linux.S +82 -35
  110. data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +1 -1
  111. data/ext/ffi_c/libffi/src/powerpc/linux64.S +2 -0
  112. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +2 -0
  113. data/ext/ffi_c/libffi/src/powerpc/t-aix +5 -0
  114. data/ext/ffi_c/libffi/src/prep_cif.c +22 -2
  115. data/ext/ffi_c/libffi/src/riscv/ffi.c +37 -4
  116. data/ext/ffi_c/libffi/src/sparc/ffi64.c +16 -0
  117. data/ext/ffi_c/libffi/src/tramp.c +716 -0
  118. data/ext/ffi_c/libffi/src/wasm32/ffi.c +934 -0
  119. data/ext/ffi_c/libffi/src/wasm32/ffitarget.h +62 -0
  120. data/ext/ffi_c/libffi/src/x86/ffi.c +99 -37
  121. data/ext/ffi_c/libffi/src/x86/ffi64.c +67 -12
  122. data/ext/ffi_c/libffi/src/x86/ffitarget.h +9 -5
  123. data/ext/ffi_c/libffi/src/x86/ffiw64.c +43 -0
  124. data/ext/ffi_c/libffi/src/x86/internal.h +14 -0
  125. data/ext/ffi_c/libffi/src/x86/internal64.h +14 -0
  126. data/ext/ffi_c/libffi/src/x86/sysv.S +172 -38
  127. data/ext/ffi_c/libffi/src/x86/sysv_intel.S +91 -88
  128. data/ext/ffi_c/libffi/src/x86/unix64.S +96 -6
  129. data/ext/ffi_c/libffi/src/x86/win64.S +20 -7
  130. data/ext/ffi_c/libffi/src/xtensa/ffi.c +16 -8
  131. data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +4 -0
  132. data/ext/ffi_c/libffi/src/xtensa/sysv.S +26 -16
  133. data/ext/ffi_c/libffi/testsuite/Makefile.am +127 -114
  134. data/ext/ffi_c/libffi/testsuite/Makefile.in +137 -121
  135. data/ext/ffi_c/libffi/testsuite/emscripten/build-tests.sh +54 -0
  136. data/ext/ffi_c/libffi/testsuite/emscripten/build.sh +63 -0
  137. data/ext/ffi_c/libffi/testsuite/emscripten/conftest.py +80 -0
  138. data/ext/ffi_c/libffi/testsuite/emscripten/node-tests.sh +48 -0
  139. data/ext/ffi_c/libffi/testsuite/emscripten/test.html +7 -0
  140. data/ext/ffi_c/libffi/testsuite/emscripten/test_libffi.py +51 -0
  141. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +43 -21
  142. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +2 -2
  143. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +1 -0
  144. data/ext/ffi_c/libffi/testsuite/libffi.bhaible/testcases.c +5 -1
  145. data/ext/ffi_c/libffi/testsuite/libffi.call/bpo_38748.c +41 -0
  146. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +28 -3
  147. data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +3 -0
  148. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +5 -0
  149. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +4 -0
  150. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +4 -0
  151. data/ext/ffi_c/libffi/testsuite/libffi.call/s55.c +60 -0
  152. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +8 -9
  153. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +2 -2
  154. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +2 -2
  155. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +2 -2
  156. data/ext/ffi_c/libffi/testsuite/libffi.call/struct10.c +1 -1
  157. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_2.c +63 -0
  158. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_3.c +65 -0
  159. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_3f.c +65 -0
  160. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_4.c +67 -0
  161. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_4f.c +67 -0
  162. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_big.c +93 -0
  163. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_by_value_small.c +61 -0
  164. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_return_2H.c +63 -0
  165. data/ext/ffi_c/libffi/testsuite/libffi.call/struct_return_8H.c +90 -0
  166. data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +1 -119
  167. data/ext/ffi_c/libffi/testsuite/libffi.call/va_2.c +220 -0
  168. data/ext/ffi_c/libffi/testsuite/libffi.call/va_3.c +154 -0
  169. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +13 -0
  170. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +11 -0
  171. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +15 -0
  172. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn0.c +3 -2
  173. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn1.c +2 -0
  174. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn2.c +2 -0
  175. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn3.c +21 -1
  176. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn4.c +2 -0
  177. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn5.c +2 -0
  178. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_fn6.c +2 -0
  179. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_loc_fn0.c +7 -6
  180. data/ext/ffi_c/libffi/testsuite/libffi.closures/closure_simple.c +6 -0
  181. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_12byte.c +18 -0
  182. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_16byte.c +22 -0
  183. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_18byte.c +24 -0
  184. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_19byte.c +29 -0
  185. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_1_1byte.c +4 -0
  186. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_20byte.c +19 -1
  187. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_20byte1.c +21 -1
  188. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_24byte.c +35 -3
  189. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_2byte.c +13 -0
  190. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_3_1byte.c +19 -0
  191. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_3byte1.c +13 -0
  192. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_3byte2.c +13 -0
  193. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_3float.c +18 -0
  194. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_4_1byte.c +22 -0
  195. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_4byte.c +13 -0
  196. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_5_1_byte.c +29 -1
  197. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_5byte.c +19 -1
  198. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_64byte.c +24 -0
  199. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_6_1_byte.c +28 -1
  200. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_6byte.c +24 -2
  201. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_7_1_byte.c +39 -1
  202. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_7byte.c +25 -1
  203. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_8byte.c +14 -0
  204. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_9byte1.c +14 -1
  205. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_9byte2.c +14 -2
  206. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_double.c +19 -1
  207. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_float.c +19 -1
  208. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_longdouble.c +20 -1
  209. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_longdouble_split.c +40 -25
  210. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_longdouble_split2.c +40 -3
  211. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_pointer.c +19 -1
  212. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_sint16.c +18 -1
  213. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_sint32.c +18 -3
  214. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_sint64.c +18 -1
  215. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_uint16.c +18 -1
  216. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_uint32.c +19 -1
  217. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_align_uint64.c +19 -1
  218. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_dbls_struct.c +3 -1
  219. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_double_va.c +9 -1
  220. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_float.c +4 -0
  221. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_longdouble.c +11 -1
  222. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_longdouble_va.c +22 -3
  223. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_multi_schar.c +5 -1
  224. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_multi_sshort.c +6 -1
  225. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_multi_sshortchar.c +9 -1
  226. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_multi_uchar.c +9 -1
  227. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_multi_ushort.c +6 -2
  228. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_multi_ushortchar.c +9 -1
  229. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_pointer.c +5 -0
  230. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_pointer_stack.c +10 -0
  231. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_schar.c +3 -0
  232. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_sint.c +2 -0
  233. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_sshort.c +3 -0
  234. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_struct_va1.c +11 -0
  235. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_uchar.c +3 -0
  236. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_uint.c +4 -0
  237. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_uint_va.c +4 -0
  238. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_ulong_va.c +4 -0
  239. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_ulonglong.c +2 -0
  240. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_ushort.c +3 -0
  241. data/ext/ffi_c/libffi/testsuite/libffi.closures/ffitest.h +1 -138
  242. data/ext/ffi_c/libffi/testsuite/libffi.closures/huge_struct.c +21 -21
  243. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct.c +32 -9
  244. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct1.c +1 -1
  245. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct10.c +12 -0
  246. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct11.c +21 -5
  247. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct12.c +86 -0
  248. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct13.c +115 -0
  249. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct2.c +10 -1
  250. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct3.c +10 -1
  251. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct4.c +9 -0
  252. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct5.c +9 -0
  253. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct6.c +11 -0
  254. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct7.c +9 -0
  255. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct8.c +11 -0
  256. data/ext/ffi_c/libffi/testsuite/libffi.closures/nested_struct9.c +11 -0
  257. data/ext/ffi_c/libffi/testsuite/libffi.closures/single_entry_structs1.c +86 -0
  258. data/ext/ffi_c/libffi/testsuite/libffi.closures/single_entry_structs2.c +102 -0
  259. data/ext/ffi_c/libffi/testsuite/libffi.closures/single_entry_structs3.c +101 -0
  260. data/ext/ffi_c/libffi/testsuite/libffi.closures/stret_medium.c +1 -1
  261. data/ext/ffi_c/libffi/testsuite/libffi.closures/stret_medium2.c +1 -1
  262. data/ext/ffi_c/libffi/testsuite/libffi.closures/testclosure.c +6 -1
  263. data/ext/ffi_c/libffi/testsuite/libffi.closures/unwindtest.cc +2 -1
  264. data/ext/ffi_c/libffi/testsuite/libffi.closures/unwindtest_ffi_call.cc +1 -0
  265. data/ext/ffi_c/libffi.bsd.mk +2 -2
  266. data/ext/ffi_c/libffi.gnu.mk +2 -2
  267. data/ext/ffi_c/rbffi.h +1 -1
  268. data/ffi.gemspec +2 -2
  269. data/lib/ffi/autopointer.rb +7 -22
  270. data/lib/ffi/compat.rb +43 -0
  271. data/lib/ffi/data_converter.rb +2 -2
  272. data/lib/ffi/dynamic_library.rb +89 -0
  273. data/lib/ffi/enum.rb +18 -11
  274. data/lib/ffi/ffi.rb +3 -0
  275. data/lib/ffi/function.rb +71 -0
  276. data/lib/ffi/library.rb +55 -71
  277. data/lib/ffi/library_path.rb +109 -0
  278. data/lib/ffi/managedstruct.rb +1 -1
  279. data/lib/ffi/platform/aarch64-windows/types.conf +52 -0
  280. data/lib/ffi/platform/hppa1.1-linux/types.conf +178 -0
  281. data/lib/ffi/platform/hppa2.0-linux/types.conf +178 -0
  282. data/lib/ffi/platform/loongarch64-linux/types.conf +141 -0
  283. data/lib/ffi/platform/sw_64-linux/types.conf +141 -0
  284. data/lib/ffi/platform.rb +15 -13
  285. data/lib/ffi/struct.rb +2 -1
  286. data/lib/ffi/struct_layout.rb +1 -1
  287. data/lib/ffi/struct_layout_builder.rb +1 -1
  288. data/lib/ffi/types.rb +30 -5
  289. data/lib/ffi/variadic.rb +19 -8
  290. data/lib/ffi/version.rb +1 -1
  291. data.tar.gz.sig +0 -0
  292. metadata +97 -25
  293. metadata.gz.sig +1 -0
  294. data/ext/ffi_c/libffi/.travis/build-cross-in-container.sh +0 -14
  295. data/ext/ffi_c/libffi/.travis/build.sh +0 -142
  296. data/ext/ffi_c/libffi/.travis.yml +0 -83
  297. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_uchar_va.c +0 -44
  298. data/ext/ffi_c/libffi/testsuite/libffi.closures/cls_ushort_va.c +0 -44
  299. /data/ext/ffi_c/libffi/{.travis → .ci}/ar-lib +0 -0
  300. /data/ext/ffi_c/libffi/{.travis → .ci}/bfin-sim.exp +0 -0
  301. /data/ext/ffi_c/libffi/{.travis → .ci}/compile +0 -0
  302. /data/ext/ffi_c/libffi/{.travis → .ci}/m32r-sim.exp +0 -0
  303. /data/ext/ffi_c/libffi/{.travis → .ci}/moxie-sim.exp +0 -0
  304. /data/ext/ffi_c/libffi/{.travis → .ci}/or1k-sim.exp +0 -0
  305. /data/ext/ffi_c/libffi/{.travis → .ci}/powerpc-eabisim.exp +0 -0
  306. /data/ext/ffi_c/libffi/{.travis → .ci}/wine-sim.exp +0 -0
  307. /data/ext/ffi_c/libffi/testsuite/libffi.call/{pyobjc-tc.c → pyobjc_tc.c} +0 -0
  308. /data/lib/ffi/platform/{sparc64-linux → sparcv9-linux}/types.conf +0 -0
@@ -6,7 +6,7 @@
6
6
  */
7
7
 
8
8
  /* { dg-do run { xfail strongarm*-*-* } } */
9
- /* { dg-options -mlong-double-128 { target powerpc64*-*-linux* } } */
9
+ /* { dg-options -mlong-double-128 { target powerpc64*-*-linux-gnu* } } */
10
10
 
11
11
  #include "ffitest.h"
12
12
 
@@ -20,7 +20,7 @@ typedef struct cls_struct_align {
20
20
  long double g;
21
21
  } cls_struct_align;
22
22
 
23
- cls_struct_align cls_struct_align_fn(
23
+ static cls_struct_align cls_struct_align_fn(
24
24
  cls_struct_align a1,
25
25
  cls_struct_align a2)
26
26
  {
@@ -40,6 +40,30 @@ cls_struct_align cls_struct_align_fn(
40
40
  a2.a, a2.b, a2.c, a2.d, a2.e, a2.f, a2.g,
41
41
  r.a, r.b, r.c, r.d, r.e, r.f, r.g);
42
42
 
43
+ CHECK(a1.a == 1);
44
+ CHECK(a1.b == 2);
45
+ CHECK(a1.c == 3);
46
+ CHECK(a1.d == 4);
47
+ CHECK(a1.e == 5);
48
+ CHECK(a1.f == 6);
49
+ CHECK(a1.g == 7);
50
+
51
+ CHECK(a2.a == 8);
52
+ CHECK(a2.b == 9);
53
+ CHECK(a2.c == 10);
54
+ CHECK(a2.d == 11);
55
+ CHECK(a2.e == 12);
56
+ CHECK(a2.f == 13);
57
+ CHECK(a2.g == 14);
58
+
59
+ CHECK(r.a == 9);
60
+ CHECK(r.b == 11);
61
+ CHECK(r.c == 13);
62
+ CHECK(r.d == 15);
63
+ CHECK(r.e == 17);
64
+ CHECK(r.f == 19);
65
+ CHECK(r.g == 21);
66
+
43
67
  return r;
44
68
  }
45
69
 
@@ -99,6 +123,13 @@ int main (void)
99
123
  printf("res: %Lg %Lg %Lg %Lg %Lg %g %Lg\n", res_dbl.a, res_dbl.b,
100
124
  res_dbl.c, res_dbl.d, res_dbl.e, res_dbl.f, res_dbl.g);
101
125
  /* { dg-output "\nres: 9 11 13 15 17 19 21" } */
126
+ CHECK(res_dbl.a == 9);
127
+ CHECK(res_dbl.b == 11);
128
+ CHECK(res_dbl.c == 13);
129
+ CHECK(res_dbl.d == 15);
130
+ CHECK(res_dbl.e == 17);
131
+ CHECK(res_dbl.f == 19);
132
+ CHECK(res_dbl.g == 21);
102
133
 
103
134
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
104
135
 
@@ -107,7 +138,13 @@ int main (void)
107
138
  printf("res: %Lg %Lg %Lg %Lg %Lg %g %Lg\n", res_dbl.a, res_dbl.b,
108
139
  res_dbl.c, res_dbl.d, res_dbl.e, res_dbl.f, res_dbl.g);
109
140
  /* { dg-output "\nres: 9 11 13 15 17 19 21" } */
110
-
141
+ CHECK(res_dbl.a == 9);
142
+ CHECK(res_dbl.b == 11);
143
+ CHECK(res_dbl.c == 13);
144
+ CHECK(res_dbl.d == 15);
145
+ CHECK(res_dbl.e == 17);
146
+ CHECK(res_dbl.f == 19);
147
+ CHECK(res_dbl.g == 21);
111
148
  exit(0);
112
149
  }
113
150
 
@@ -13,7 +13,7 @@ typedef struct cls_struct_align {
13
13
  unsigned char c;
14
14
  } cls_struct_align;
15
15
 
16
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
16
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
17
17
  struct cls_struct_align a2)
18
18
  {
19
19
  struct cls_struct_align result;
@@ -28,6 +28,18 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
28
28
  result.a, (uintptr_t)result.b,
29
29
  result.c);
30
30
 
31
+ CHECK(a1.a == 12);
32
+ CHECK(a1.b == (void *)4951);
33
+ CHECK(a1.c == 127);
34
+
35
+ CHECK(a2.a == 1);
36
+ CHECK(a2.b == (void *)9320);
37
+ CHECK(a2.c == 13);
38
+
39
+ CHECK(result.a == 13);
40
+ CHECK(result.b == (void *)14271);
41
+ CHECK(result.c == 140);
42
+
31
43
  return result;
32
44
  }
33
45
 
@@ -83,6 +95,9 @@ int main (void)
83
95
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
84
96
  printf("res: %d %" PRIuPTR " %d\n", res_dbl.a, (uintptr_t)res_dbl.b, res_dbl.c);
85
97
  /* { dg-output "\nres: 13 14271 140" } */
98
+ CHECK(res_dbl.a == 13);
99
+ CHECK(res_dbl.b == (void *)14271);
100
+ CHECK(res_dbl.c == 140);
86
101
 
87
102
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
88
103
 
@@ -90,6 +105,9 @@ int main (void)
90
105
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
91
106
  printf("res: %d %" PRIuPTR " %d\n", res_dbl.a, (uintptr_t)res_dbl.b, res_dbl.c);
92
107
  /* { dg-output "\nres: 13 14271 140" } */
108
+ CHECK(res_dbl.a == 13);
109
+ CHECK(res_dbl.b == (void *)14271);
110
+ CHECK(res_dbl.c == 140);
93
111
 
94
112
  exit(0);
95
113
  }
@@ -13,7 +13,7 @@ typedef struct cls_struct_align {
13
13
  unsigned char c;
14
14
  } cls_struct_align;
15
15
 
16
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
16
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
17
17
  struct cls_struct_align a2)
18
18
  {
19
19
  struct cls_struct_align result;
@@ -23,6 +23,17 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
23
23
  result.c = a1.c + a2.c;
24
24
 
25
25
  printf("%d %d %d %d %d %d: %d %d %d\n", a1.a, a1.b, a1.c, a2.a, a2.b, a2.c, result.a, result.b, result.c);
26
+ CHECK(a1.a == 12);
27
+ CHECK(a1.b == 4951);
28
+ CHECK(a1.c == 127);
29
+
30
+ CHECK(a2.a == 1);
31
+ CHECK(a2.b == 9320);
32
+ CHECK(a2.c == 13);
33
+
34
+ CHECK(result.a == 13);
35
+ CHECK(result.b == 14271);
36
+ CHECK(result.c == 140);
26
37
 
27
38
  return result;
28
39
  }
@@ -79,6 +90,9 @@ int main (void)
79
90
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
80
91
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
81
92
  /* { dg-output "\nres: 13 14271 140" } */
93
+ CHECK(res_dbl.a == 13);
94
+ CHECK(res_dbl.b == 14271);
95
+ CHECK(res_dbl.c == 140);
82
96
 
83
97
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
84
98
 
@@ -86,6 +100,9 @@ int main (void)
86
100
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
87
101
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
88
102
  /* { dg-output "\nres: 13 14271 140" } */
103
+ CHECK(res_dbl.a == 13);
104
+ CHECK(res_dbl.b == 14271);
105
+ CHECK(res_dbl.c == 140);
89
106
 
90
107
  exit(0);
91
108
  }
@@ -13,7 +13,7 @@ typedef struct cls_struct_align {
13
13
  unsigned char c;
14
14
  } cls_struct_align;
15
15
 
16
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
16
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
17
17
  struct cls_struct_align a2)
18
18
  {
19
19
  struct cls_struct_align result;
@@ -23,6 +23,17 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
23
23
  result.c = a1.c + a2.c;
24
24
 
25
25
  printf("%d %d %d %d %d %d: %d %d %d\n", a1.a, a1.b, a1.c, a2.a, a2.b, a2.c, result.a, result.b, result.c);
26
+ CHECK(a1.a == 12);
27
+ CHECK(a1.b == 4951);
28
+ CHECK(a1.c == 127);
29
+
30
+ CHECK(a2.a == 1);
31
+ CHECK(a2.b == 9320);
32
+ CHECK(a2.c == 13);
33
+
34
+ CHECK(result.a == 13);
35
+ CHECK(result.b == 14271);
36
+ CHECK(result.c == 140);
26
37
 
27
38
  return result;
28
39
  }
@@ -79,13 +90,17 @@ int main (void)
79
90
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
80
91
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
81
92
  /* { dg-output "\nres: 13 14271 140" } */
82
-
93
+ CHECK(res_dbl.a == 13);
94
+ CHECK(res_dbl.b == 14271);
95
+ CHECK(res_dbl.c == 140);
83
96
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
84
97
 
85
98
  res_dbl = ((cls_struct_align(*)(cls_struct_align, cls_struct_align))(code))(g_dbl, f_dbl);
86
99
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
87
100
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
88
101
  /* { dg-output "\nres: 13 14271 140" } */
89
-
102
+ CHECK(res_dbl.a == 13);
103
+ CHECK(res_dbl.b == 14271);
104
+ CHECK(res_dbl.c == 140);
90
105
  exit(0);
91
106
  }
@@ -14,7 +14,7 @@ typedef struct cls_struct_align {
14
14
  unsigned char c;
15
15
  } cls_struct_align;
16
16
 
17
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
17
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
18
18
  struct cls_struct_align a2)
19
19
  {
20
20
  struct cls_struct_align result;
@@ -24,6 +24,17 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
24
24
  result.c = a1.c + a2.c;
25
25
 
26
26
  printf("%d %" PRIdLL " %d %d %" PRIdLL " %d: %d %" PRIdLL " %d\n", a1.a, a1.b, a1.c, a2.a, a2.b, a2.c, result.a, result.b, result.c);
27
+ CHECK(a1.a == 12);
28
+ CHECK(a1.b == 4951);
29
+ CHECK(a1.c == 127);
30
+
31
+ CHECK(a2.a == 1);
32
+ CHECK(a2.b == 9320);
33
+ CHECK(a2.c == 13);
34
+
35
+ CHECK(result.a == 13);
36
+ CHECK(result.b == 14271);
37
+ CHECK(result.c == 140);
27
38
 
28
39
  return result;
29
40
  }
@@ -80,6 +91,9 @@ int main (void)
80
91
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
81
92
  printf("res: %d %" PRIdLL " %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
82
93
  /* { dg-output "\nres: 13 14271 140" } */
94
+ CHECK(res_dbl.a == 13);
95
+ CHECK(res_dbl.b == 14271);
96
+ CHECK(res_dbl.c == 140);
83
97
 
84
98
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
85
99
 
@@ -87,6 +101,9 @@ int main (void)
87
101
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
88
102
  printf("res: %d %" PRIdLL " %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
89
103
  /* { dg-output "\nres: 13 14271 140" } */
104
+ CHECK(res_dbl.a == 13);
105
+ CHECK(res_dbl.b == 14271);
106
+ CHECK(res_dbl.c == 140);
90
107
 
91
108
  exit(0);
92
109
  }
@@ -13,7 +13,7 @@ typedef struct cls_struct_align {
13
13
  unsigned char c;
14
14
  } cls_struct_align;
15
15
 
16
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
16
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
17
17
  struct cls_struct_align a2)
18
18
  {
19
19
  struct cls_struct_align result;
@@ -23,6 +23,17 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
23
23
  result.c = a1.c + a2.c;
24
24
 
25
25
  printf("%d %d %d %d %d %d: %d %d %d\n", a1.a, a1.b, a1.c, a2.a, a2.b, a2.c, result.a, result.b, result.c);
26
+ CHECK(a1.a == 12);
27
+ CHECK(a1.b == 4951);
28
+ CHECK(a1.c == 127);
29
+
30
+ CHECK(a2.a == 1);
31
+ CHECK(a2.b == 9320);
32
+ CHECK(a2.c == 13);
33
+
34
+ CHECK(result.a == 13);
35
+ CHECK(result.b == 14271);
36
+ CHECK(result.c == 140);
26
37
 
27
38
  return result;
28
39
  }
@@ -79,6 +90,9 @@ int main (void)
79
90
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
80
91
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
81
92
  /* { dg-output "\nres: 13 14271 140" } */
93
+ CHECK(res_dbl.a == 13);
94
+ CHECK(res_dbl.b == 14271);
95
+ CHECK(res_dbl.c == 140);
82
96
 
83
97
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
84
98
 
@@ -86,6 +100,9 @@ int main (void)
86
100
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
87
101
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
88
102
  /* { dg-output "\nres: 13 14271 140" } */
103
+ CHECK(res_dbl.a == 13);
104
+ CHECK(res_dbl.b == 14271);
105
+ CHECK(res_dbl.c == 140);
89
106
 
90
107
  exit(0);
91
108
  }
@@ -13,7 +13,7 @@ typedef struct cls_struct_align {
13
13
  unsigned char c;
14
14
  } cls_struct_align;
15
15
 
16
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
16
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
17
17
  struct cls_struct_align a2)
18
18
  {
19
19
  struct cls_struct_align result;
@@ -24,6 +24,18 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
24
24
 
25
25
  printf("%d %d %d %d %d %d: %d %d %d\n", a1.a, a1.b, a1.c, a2.a, a2.b, a2.c, result.a, result.b, result.c);
26
26
 
27
+ CHECK(a1.a == 12);
28
+ CHECK(a1.b == 4951);
29
+ CHECK(a1.c == 127);
30
+
31
+ CHECK(a2.a == 1);
32
+ CHECK(a2.b == 9320);
33
+ CHECK(a2.c == 13);
34
+
35
+ CHECK(result.a == 13);
36
+ CHECK(result.b == 14271);
37
+ CHECK(result.c == 140);
38
+
27
39
  return result;
28
40
  }
29
41
 
@@ -79,6 +91,9 @@ int main (void)
79
91
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
80
92
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
81
93
  /* { dg-output "\nres: 13 14271 140" } */
94
+ CHECK(res_dbl.a == 13);
95
+ CHECK(res_dbl.b == 14271);
96
+ CHECK(res_dbl.c == 140);
82
97
 
83
98
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
84
99
 
@@ -86,6 +101,9 @@ int main (void)
86
101
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
87
102
  printf("res: %d %d %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
88
103
  /* { dg-output "\nres: 13 14271 140" } */
104
+ CHECK(res_dbl.a == 13);
105
+ CHECK(res_dbl.b == 14271);
106
+ CHECK(res_dbl.c == 140);
89
107
 
90
108
  exit(0);
91
109
  }
@@ -15,7 +15,7 @@ typedef struct cls_struct_align {
15
15
  unsigned char c;
16
16
  } cls_struct_align;
17
17
 
18
- cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
18
+ static cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
19
19
  struct cls_struct_align a2)
20
20
  {
21
21
  struct cls_struct_align result;
@@ -26,6 +26,18 @@ cls_struct_align cls_struct_align_fn(struct cls_struct_align a1,
26
26
 
27
27
  printf("%d %" PRIdLL " %d %d %" PRIdLL " %d: %d %" PRIdLL " %d\n", a1.a, a1.b, a1.c, a2.a, a2.b, a2.c, result.a, result.b, result.c);
28
28
 
29
+ CHECK(a1.a == 12);
30
+ CHECK(a1.b == 4951);
31
+ CHECK(a1.c == 127);
32
+
33
+ CHECK(a2.a == 1);
34
+ CHECK(a2.b == 9320);
35
+ CHECK(a2.c == 13);
36
+
37
+ CHECK(result.a == 13);
38
+ CHECK(result.b == 14271);
39
+ CHECK(result.c == 140);
40
+
29
41
  return result;
30
42
  }
31
43
 
@@ -81,6 +93,9 @@ int main (void)
81
93
  /* { dg-output "12 4951 127 1 9320 13: 13 14271 140" } */
82
94
  printf("res: %d %" PRIdLL " %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
83
95
  /* { dg-output "\nres: 13 14271 140" } */
96
+ CHECK(res_dbl.a == 13);
97
+ CHECK(res_dbl.b == 14271);
98
+ CHECK(res_dbl.c == 140);
84
99
 
85
100
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_align_gn, NULL, code) == FFI_OK);
86
101
 
@@ -88,6 +103,9 @@ int main (void)
88
103
  /* { dg-output "\n12 4951 127 1 9320 13: 13 14271 140" } */
89
104
  printf("res: %d %" PRIdLL " %d\n", res_dbl.a, res_dbl.b, res_dbl.c);
90
105
  /* { dg-output "\nres: 13 14271 140" } */
106
+ CHECK(res_dbl.a == 13);
107
+ CHECK(res_dbl.b == 14271);
108
+ CHECK(res_dbl.c == 140);
91
109
 
92
110
  exit(0);
93
111
  }
@@ -17,6 +17,8 @@ void
17
17
  closure_test_fn(Dbls p)
18
18
  {
19
19
  printf("%.1f %.1f\n", p.x, p.y);
20
+ CHECK(p.x == 1);
21
+ CHECK(p.y == 2);
20
22
  }
21
23
 
22
24
  void
@@ -56,7 +58,7 @@ int main(int argc __UNUSED__, char** argv __UNUSED__)
56
58
 
57
59
  CHECK(ffi_prep_closure_loc(pcl, &cif, closure_test_gn, NULL, code) == FFI_OK);
58
60
 
59
- ((void*(*)(Dbls))(code))(arg);
61
+ ((void (*)(Dbls))(code))(arg);
60
62
  /* { dg-output "1.0 2.0" } */
61
63
 
62
64
  closure_test_fn(arg);
@@ -10,14 +10,20 @@
10
10
 
11
11
  #include "ffitest.h"
12
12
 
13
+ #define BUF_SIZE 50
14
+ static char buffer[BUF_SIZE];
15
+
13
16
  static void
14
- cls_double_va_fn(ffi_cif* cif __UNUSED__, void* resp,
17
+ cls_double_va_fn(ffi_cif* cif __UNUSED__, void* resp,
15
18
  void** args, void* userdata __UNUSED__)
16
19
  {
17
20
  char* format = *(char**)args[0];
18
21
  double doubleValue = *(double*)args[1];
19
22
 
20
23
  *(ffi_arg*)resp = printf(format, doubleValue);
24
+ CHECK(*(ffi_arg*)resp == 4);
25
+ snprintf(buffer, BUF_SIZE, format, doubleValue);
26
+ CHECK(strncmp(buffer, "7.0\n", 4) == 0);
21
27
  }
22
28
 
23
29
  int main (void)
@@ -48,6 +54,7 @@ int main (void)
48
54
  /* { dg-output "7.0" } */
49
55
  printf("res: %d\n", (int) res);
50
56
  /* { dg-output "\nres: 4" } */
57
+ CHECK(res == 4);
51
58
 
52
59
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_double_va_fn, NULL,
53
60
  code) == FFI_OK);
@@ -56,6 +63,7 @@ int main (void)
56
63
  /* { dg-output "\n7.0" } */
57
64
  printf("res: %d\n", (int) res);
58
65
  /* { dg-output "\nres: 4" } */
66
+ CHECK(res == 4);
59
67
 
60
68
  exit(0);
61
69
  }
@@ -14,6 +14,9 @@ static void cls_ret_float_fn(ffi_cif* cif __UNUSED__, void* resp, void** args,
14
14
 
15
15
  printf("%g: %g\n",*(float *)args[0],
16
16
  *(float *)resp);
17
+
18
+ CHECK((int)(*(float *)args[0]) == -2122);
19
+ CHECK((int)(*(float *)resp) == -2122);
17
20
  }
18
21
 
19
22
  typedef float (*cls_ret_float)(float);
@@ -38,5 +41,6 @@ int main (void)
38
41
  /* { dg-output "\\-2122.12: \\-2122.12" } */
39
42
  printf("res: %.6f\n", res);
40
43
  /* { dg-output "\nres: \-2122.120117" } */
44
+ CHECK((int)res == -2122);
41
45
  exit(0);
42
46
  }
@@ -7,7 +7,7 @@
7
7
  /* This test is known to PASS on armv7l-unknown-linux-gnueabihf, so I have
8
8
  remove the xfail for arm*-*-* below, until we know more. */
9
9
  /* { dg-do run { xfail strongarm*-*-* xscale*-*-* } } */
10
- /* { dg-options -mlong-double-128 { target powerpc64*-*-linux* } } */
10
+ /* { dg-options -mlong-double-128 { target powerpc64*-*-linux-gnu* } } */
11
11
 
12
12
  #include "ffitest.h"
13
13
 
@@ -25,6 +25,14 @@ long double cls_ldouble_fn(
25
25
 
26
26
  printf("%Lg %Lg %Lg %Lg %Lg %Lg %Lg %Lg: %Lg\n",
27
27
  a1, a2, a3, a4, a5, a6, a7, a8, r);
28
+ CHECK(a1 == 1);
29
+ CHECK(a2 == 2);
30
+ CHECK(a3 == 3);
31
+ CHECK(a4 == 4);
32
+ CHECK(a5 == 5);
33
+ CHECK(a6 == 6);
34
+ CHECK(a7 == 7);
35
+ CHECK(a8 == 8);
28
36
 
29
37
  return r;
30
38
  }
@@ -91,6 +99,7 @@ int main(void)
91
99
  /* { dg-output "1 2 3 4 5 6 7 8: 36" } */
92
100
  printf("res: %Lg\n", res);
93
101
  /* { dg-output "\nres: 36" } */
102
+ CHECK(res == 36);
94
103
 
95
104
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_ldouble_gn, NULL, code) == FFI_OK);
96
105
 
@@ -100,6 +109,7 @@ int main(void)
100
109
  /* { dg-output "\n1 2 3 4 5 6 7 8: 36" } */
101
110
  printf("res: %Lg\n", res);
102
111
  /* { dg-output "\nres: 36" } */
112
+ CHECK(res == 36);
103
113
 
104
114
  return 0;
105
115
  }
@@ -5,19 +5,36 @@
5
5
  Originator: Blake Chaffin 6/6/2007 */
6
6
 
7
7
  /* { dg-do run { xfail strongarm*-*-* xscale*-*-* } } */
8
- /* { dg-output "" { xfail avr32*-*-* x86_64-*-mingw* } } */
8
+ /* { dg-output "" { xfail avr32*-*-* } } */
9
9
  /* { dg-output "" { xfail mips-sgi-irix6* } } PR libffi/46660 */
10
10
 
11
11
  #include "ffitest.h"
12
+ #include <stdarg.h>
13
+
14
+ #define BUF_SIZE 50
15
+ static char buffer[BUF_SIZE];
16
+
17
+ static int
18
+ wrap_printf(char* fmt, ...) {
19
+ va_list ap;
20
+ va_start(ap, fmt);
21
+ long double ldArg = va_arg(ap, long double);
22
+ va_end(ap);
23
+ CHECK((int)ldArg == 7);
24
+ return printf(fmt, ldArg);
25
+ }
12
26
 
13
27
  static void
14
- cls_longdouble_va_fn(ffi_cif* cif __UNUSED__, void* resp,
28
+ cls_longdouble_va_fn(ffi_cif* cif __UNUSED__, void* resp,
15
29
  void** args, void* userdata __UNUSED__)
16
30
  {
17
31
  char* format = *(char**)args[0];
18
32
  long double ldValue = *(long double*)args[1];
19
33
 
20
34
  *(ffi_arg*)resp = printf(format, ldValue);
35
+ CHECK(*(ffi_arg*)resp == 4);
36
+ snprintf(buffer, BUF_SIZE, format, ldValue);
37
+ CHECK(strncmp(buffer, "7.0\n", BUF_SIZE) == 0);
21
38
  }
22
39
 
23
40
  int main (void)
@@ -44,10 +61,11 @@ int main (void)
44
61
  args[1] = &ldArg;
45
62
  args[2] = NULL;
46
63
 
47
- ffi_call(&cif, FFI_FN(printf), &res, args);
64
+ ffi_call(&cif, FFI_FN(wrap_printf), &res, args);
48
65
  /* { dg-output "7.0" } */
49
66
  printf("res: %d\n", (int) res);
50
67
  /* { dg-output "\nres: 4" } */
68
+ CHECK(res == 4);
51
69
 
52
70
  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_longdouble_va_fn, NULL,
53
71
  code) == FFI_OK);
@@ -56,6 +74,7 @@ int main (void)
56
74
  /* { dg-output "\n7.0" } */
57
75
  printf("res: %d\n", (int) res);
58
76
  /* { dg-output "\nres: 4" } */
77
+ CHECK(res == 4);
59
78
 
60
79
  exit(0);
61
80
  }
@@ -7,7 +7,7 @@
7
7
  /* { dg-do run } */
8
8
  #include "ffitest.h"
9
9
 
10
- signed char test_func_fn(signed char a1, signed char a2)
10
+ static signed char test_func_fn(signed char a1, signed char a2)
11
11
  {
12
12
  signed char result;
13
13
 
@@ -26,6 +26,8 @@ static void test_func_gn(ffi_cif *cif __UNUSED__, void *rval, void **avals,
26
26
 
27
27
  a1 = *(signed char *)avals[0];
28
28
  a2 = *(signed char *)avals[1];
29
+ CHECK(a1 == 2);
30
+ CHECK(a2 == 125);
29
31
 
30
32
  *(ffi_arg *)rval = test_func_fn(a1, a2);
31
33
 
@@ -62,6 +64,7 @@ int main (void)
62
64
  /* { dg-output "2 125: 127" } */
63
65
  printf("res: %d\n", (signed char)res_call);
64
66
  /* { dg-output "\nres: 127" } */
67
+ CHECK((signed char)res_call == 127);
65
68
 
66
69
  CHECK(ffi_prep_closure_loc(pcl, &cif, test_func_gn, NULL, code) == FFI_OK);
67
70
 
@@ -69,6 +72,7 @@ int main (void)
69
72
  /* { dg-output "\n2 125: 127" } */
70
73
  printf("res: %d\n", res_closure);
71
74
  /* { dg-output "\nres: 127" } */
75
+ CHECK(res_closure == 127);
72
76
 
73
77
  exit(0);
74
78
  }
@@ -7,13 +7,16 @@
7
7
  /* { dg-do run } */
8
8
  #include "ffitest.h"
9
9
 
10
- signed short test_func_fn(signed short a1, signed short a2)
10
+ static signed short test_func_fn(signed short a1, signed short a2)
11
11
  {
12
12
  signed short result;
13
13
 
14
14
  result = a1 + a2;
15
15
 
16
16
  printf("%d %d: %d\n", a1, a2, result);
17
+ CHECK(a1 == 2);
18
+ CHECK(a2 == 32765);
19
+ CHECK(result == 32767);
17
20
 
18
21
  return result;
19
22
 
@@ -62,6 +65,7 @@ int main (void)
62
65
  /* { dg-output "2 32765: 32767" } */
63
66
  printf("res: %d\n", (unsigned short)res_call);
64
67
  /* { dg-output "\nres: 32767" } */
68
+ CHECK((unsigned short)res_call == 32767);
65
69
 
66
70
  CHECK(ffi_prep_closure_loc(pcl, &cif, test_func_gn, NULL, code) == FFI_OK);
67
71
 
@@ -69,6 +73,7 @@ int main (void)
69
73
  /* { dg-output "\n2 32765: 32767" } */
70
74
  printf("res: %d\n", res_closure);
71
75
  /* { dg-output "\nres: 32767" } */
76
+ CHECK(res_closure == 32767);
72
77
 
73
78
  exit(0);
74
79
  }
@@ -7,7 +7,7 @@
7
7
  /* { dg-do run } */
8
8
  #include "ffitest.h"
9
9
 
10
- signed short test_func_fn(signed char a1, signed short a2,
10
+ static signed short test_func_fn(signed char a1, signed short a2,
11
11
  signed char a3, signed short a4)
12
12
  {
13
13
  signed short result;
@@ -16,6 +16,12 @@ signed short test_func_fn(signed char a1, signed short a2,
16
16
 
17
17
  printf("%d %d %d %d: %d\n", a1, a2, a3, a4, result);
18
18
 
19
+ CHECK(a1 == 1);
20
+ CHECK(a2 == 32765);
21
+ CHECK(a3 == 127);
22
+ CHECK(a4 == -128);
23
+ CHECK(result == 32765);
24
+
19
25
  return result;
20
26
 
21
27
  }
@@ -74,6 +80,7 @@ int main (void)
74
80
  /* { dg-output "1 32765 127 -128: 32765" } */
75
81
  printf("res: %d\n", (signed short)res_call);
76
82
  /* { dg-output "\nres: 32765" } */
83
+ CHECK(res_call == 32765);
77
84
 
78
85
  CHECK(ffi_prep_closure_loc(pcl, &cif, test_func_gn, NULL, code) == FFI_OK);
79
86
 
@@ -81,6 +88,7 @@ int main (void)
81
88
  /* { dg-output "\n1 32765 127 -128: 32765" } */
82
89
  printf("res: %d\n", res_closure);
83
90
  /* { dg-output "\nres: 32765" } */
91
+ CHECK(res_closure == 32765);
84
92
 
85
93
  exit(0);
86
94
  }