ffi 1.9.21-x64-mingw32 → 1.9.22-x64-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 (551) hide show
  1. checksums.yaml +4 -4
  2. data/.gitignore +22 -0
  3. data/.gitmodules +3 -0
  4. data/.travis.yml +52 -0
  5. data/.yardopts +5 -0
  6. data/Gemfile +15 -0
  7. data/{spec/ffi/LICENSE.SPECS → LICENSE.SPECS} +1 -1
  8. data/README.md +1 -1
  9. data/Rakefile +28 -3
  10. data/appveyor.yml +22 -0
  11. data/ffi.gemspec +14 -1
  12. data/lib/2.0/ffi_c.so +0 -0
  13. data/lib/2.1/ffi_c.so +0 -0
  14. data/lib/2.2/ffi_c.so +0 -0
  15. data/lib/2.3/ffi_c.so +0 -0
  16. data/lib/2.4/ffi_c.so +0 -0
  17. data/lib/2.5/ffi_c.so +0 -0
  18. data/lib/ffi/library.rb +1 -1
  19. data/lib/ffi/version.rb +1 -1
  20. data/samples/getlogin.rb +8 -0
  21. data/samples/getpid.rb +8 -0
  22. data/samples/gettimeofday.rb +18 -0
  23. data/samples/hello.rb +7 -0
  24. data/samples/inotify.rb +60 -0
  25. data/samples/pty.rb +76 -0
  26. data/samples/qsort.rb +21 -0
  27. data/samples/sample_helper.rb +6 -0
  28. metadata +17 -526
  29. data/ext/ffi_c/AbstractMemory.c +0 -1109
  30. data/ext/ffi_c/AbstractMemory.h +0 -175
  31. data/ext/ffi_c/ArrayType.c +0 -162
  32. data/ext/ffi_c/ArrayType.h +0 -59
  33. data/ext/ffi_c/Buffer.c +0 -365
  34. data/ext/ffi_c/Call.c +0 -517
  35. data/ext/ffi_c/Call.h +0 -110
  36. data/ext/ffi_c/ClosurePool.c +0 -283
  37. data/ext/ffi_c/ClosurePool.h +0 -57
  38. data/ext/ffi_c/DataConverter.c +0 -91
  39. data/ext/ffi_c/DynamicLibrary.c +0 -339
  40. data/ext/ffi_c/DynamicLibrary.h +0 -98
  41. data/ext/ffi_c/Function.c +0 -998
  42. data/ext/ffi_c/Function.h +0 -87
  43. data/ext/ffi_c/FunctionInfo.c +0 -271
  44. data/ext/ffi_c/LastError.c +0 -184
  45. data/ext/ffi_c/LastError.h +0 -47
  46. data/ext/ffi_c/LongDouble.c +0 -63
  47. data/ext/ffi_c/LongDouble.h +0 -51
  48. data/ext/ffi_c/MappedType.c +0 -168
  49. data/ext/ffi_c/MappedType.h +0 -59
  50. data/ext/ffi_c/MemoryPointer.c +0 -197
  51. data/ext/ffi_c/MemoryPointer.h +0 -53
  52. data/ext/ffi_c/MethodHandle.c +0 -358
  53. data/ext/ffi_c/MethodHandle.h +0 -55
  54. data/ext/ffi_c/Platform.c +0 -129
  55. data/ext/ffi_c/Platform.h +0 -45
  56. data/ext/ffi_c/Pointer.c +0 -508
  57. data/ext/ffi_c/Pointer.h +0 -63
  58. data/ext/ffi_c/Struct.c +0 -829
  59. data/ext/ffi_c/Struct.h +0 -106
  60. data/ext/ffi_c/StructByReference.c +0 -190
  61. data/ext/ffi_c/StructByReference.h +0 -50
  62. data/ext/ffi_c/StructByValue.c +0 -150
  63. data/ext/ffi_c/StructByValue.h +0 -55
  64. data/ext/ffi_c/StructLayout.c +0 -698
  65. data/ext/ffi_c/Thread.c +0 -352
  66. data/ext/ffi_c/Thread.h +0 -95
  67. data/ext/ffi_c/Type.c +0 -397
  68. data/ext/ffi_c/Type.h +0 -62
  69. data/ext/ffi_c/Types.c +0 -139
  70. data/ext/ffi_c/Types.h +0 -89
  71. data/ext/ffi_c/Variadic.c +0 -304
  72. data/ext/ffi_c/compat.h +0 -78
  73. data/ext/ffi_c/extconf.rb +0 -71
  74. data/ext/ffi_c/ffi.c +0 -98
  75. data/ext/ffi_c/libffi.bsd.mk +0 -40
  76. data/ext/ffi_c/libffi.darwin.mk +0 -105
  77. data/ext/ffi_c/libffi.gnu.mk +0 -32
  78. data/ext/ffi_c/libffi.mk +0 -18
  79. data/ext/ffi_c/libffi.vc.mk +0 -26
  80. data/ext/ffi_c/libffi.vc64.mk +0 -26
  81. data/ext/ffi_c/libffi/ChangeLog.libffi +0 -584
  82. data/ext/ffi_c/libffi/ChangeLog.libffi-3.1 +0 -6000
  83. data/ext/ffi_c/libffi/ChangeLog.libgcj +0 -40
  84. data/ext/ffi_c/libffi/ChangeLog.v1 +0 -764
  85. data/ext/ffi_c/libffi/LICENSE +0 -21
  86. data/ext/ffi_c/libffi/Makefile.am +0 -205
  87. data/ext/ffi_c/libffi/Makefile.in +0 -1805
  88. data/ext/ffi_c/libffi/README +0 -454
  89. data/ext/ffi_c/libffi/acinclude.m4 +0 -473
  90. data/ext/ffi_c/libffi/aclocal.m4 +0 -2134
  91. data/ext/ffi_c/libffi/autogen.sh +0 -2
  92. data/ext/ffi_c/libffi/autom4te.cache/output.0 +0 -21972
  93. data/ext/ffi_c/libffi/autom4te.cache/output.1 +0 -21972
  94. data/ext/ffi_c/libffi/autom4te.cache/output.2 +0 -21972
  95. data/ext/ffi_c/libffi/autom4te.cache/output.3 +0 -21972
  96. data/ext/ffi_c/libffi/autom4te.cache/requests +0 -331
  97. data/ext/ffi_c/libffi/autom4te.cache/traces.0 +0 -4010
  98. data/ext/ffi_c/libffi/autom4te.cache/traces.1 +0 -1005
  99. data/ext/ffi_c/libffi/autom4te.cache/traces.2 +0 -4010
  100. data/ext/ffi_c/libffi/autom4te.cache/traces.3 +0 -4010
  101. data/ext/ffi_c/libffi/compile +0 -347
  102. data/ext/ffi_c/libffi/config.guess +0 -1462
  103. data/ext/ffi_c/libffi/config.sub +0 -1825
  104. data/ext/ffi_c/libffi/configure +0 -21972
  105. data/ext/ffi_c/libffi/configure.ac +0 -388
  106. data/ext/ffi_c/libffi/configure.host +0 -272
  107. data/ext/ffi_c/libffi/depcomp +0 -791
  108. data/ext/ffi_c/libffi/doc/Makefile.am +0 -3
  109. data/ext/ffi_c/libffi/doc/Makefile.in +0 -811
  110. data/ext/ffi_c/libffi/doc/libffi.texi +0 -985
  111. data/ext/ffi_c/libffi/doc/mdate-sh +0 -228
  112. data/ext/ffi_c/libffi/doc/texinfo.tex +0 -10079
  113. data/ext/ffi_c/libffi/doc/version.texi +0 -4
  114. data/ext/ffi_c/libffi/fficonfig.h.in +0 -210
  115. data/ext/ffi_c/libffi/fficonfig.h.in~ +0 -210
  116. data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +0 -207
  117. data/ext/ffi_c/libffi/include/Makefile.am +0 -9
  118. data/ext/ffi_c/libffi/include/Makefile.in +0 -604
  119. data/ext/ffi_c/libffi/include/ffi.h.in +0 -484
  120. data/ext/ffi_c/libffi/include/ffi_cfi.h +0 -55
  121. data/ext/ffi_c/libffi/include/ffi_common.h +0 -147
  122. data/ext/ffi_c/libffi/install-sh +0 -508
  123. data/ext/ffi_c/libffi/libffi.map.in +0 -80
  124. data/ext/ffi_c/libffi/libffi.pc.in +0 -11
  125. data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +0 -637
  126. data/ext/ffi_c/libffi/libtool-ldflags +0 -106
  127. data/ext/ffi_c/libffi/libtool-version +0 -29
  128. data/ext/ffi_c/libffi/ltmain.sh +0 -11156
  129. data/ext/ffi_c/libffi/m4/asmcfi.m4 +0 -13
  130. data/ext/ffi_c/libffi/m4/ax_append_flag.m4 +0 -69
  131. data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +0 -181
  132. data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +0 -122
  133. data/ext/ffi_c/libffi/m4/ax_check_compile_flag.m4 +0 -72
  134. data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +0 -84
  135. data/ext/ffi_c/libffi/m4/ax_configure_args.m4 +0 -70
  136. data/ext/ffi_c/libffi/m4/ax_enable_builddir.m4 +0 -301
  137. data/ext/ffi_c/libffi/m4/ax_gcc_archflag.m4 +0 -225
  138. data/ext/ffi_c/libffi/m4/ax_gcc_x86_cpuid.m4 +0 -79
  139. data/ext/ffi_c/libffi/m4/libtool.m4 +0 -8387
  140. data/ext/ffi_c/libffi/m4/ltoptions.m4 +0 -437
  141. data/ext/ffi_c/libffi/m4/ltsugar.m4 +0 -124
  142. data/ext/ffi_c/libffi/m4/ltversion.m4 +0 -23
  143. data/ext/ffi_c/libffi/m4/lt~obsolete.m4 +0 -99
  144. data/ext/ffi_c/libffi/man/Makefile.am +0 -8
  145. data/ext/ffi_c/libffi/man/Makefile.in +0 -558
  146. data/ext/ffi_c/libffi/man/ffi.3 +0 -41
  147. data/ext/ffi_c/libffi/man/ffi_call.3 +0 -103
  148. data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +0 -68
  149. data/ext/ffi_c/libffi/man/ffi_prep_cif_var.3 +0 -73
  150. data/ext/ffi_c/libffi/missing +0 -215
  151. data/ext/ffi_c/libffi/msvcc.sh +0 -260
  152. data/ext/ffi_c/libffi/src/aarch64/ffi.c +0 -941
  153. data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +0 -81
  154. data/ext/ffi_c/libffi/src/aarch64/internal.h +0 -67
  155. data/ext/ffi_c/libffi/src/aarch64/sysv.S +0 -438
  156. data/ext/ffi_c/libffi/src/alpha/ffi.c +0 -521
  157. data/ext/ffi_c/libffi/src/alpha/ffitarget.h +0 -57
  158. data/ext/ffi_c/libffi/src/alpha/internal.h +0 -23
  159. data/ext/ffi_c/libffi/src/alpha/osf.S +0 -282
  160. data/ext/ffi_c/libffi/src/arc/arcompact.S +0 -135
  161. data/ext/ffi_c/libffi/src/arc/ffi.c +0 -266
  162. data/ext/ffi_c/libffi/src/arc/ffitarget.h +0 -53
  163. data/ext/ffi_c/libffi/src/arm/ffi.c +0 -808
  164. data/ext/ffi_c/libffi/src/arm/ffitarget.h +0 -82
  165. data/ext/ffi_c/libffi/src/arm/internal.h +0 -7
  166. data/ext/ffi_c/libffi/src/arm/sysv.S +0 -383
  167. data/ext/ffi_c/libffi/src/avr32/ffi.c +0 -423
  168. data/ext/ffi_c/libffi/src/avr32/ffitarget.h +0 -55
  169. data/ext/ffi_c/libffi/src/avr32/sysv.S +0 -208
  170. data/ext/ffi_c/libffi/src/bfin/ffi.c +0 -196
  171. data/ext/ffi_c/libffi/src/bfin/ffitarget.h +0 -43
  172. data/ext/ffi_c/libffi/src/bfin/sysv.S +0 -179
  173. data/ext/ffi_c/libffi/src/closures.c +0 -890
  174. data/ext/ffi_c/libffi/src/cris/ffi.c +0 -386
  175. data/ext/ffi_c/libffi/src/cris/ffitarget.h +0 -56
  176. data/ext/ffi_c/libffi/src/cris/sysv.S +0 -215
  177. data/ext/ffi_c/libffi/src/debug.c +0 -64
  178. data/ext/ffi_c/libffi/src/dlmalloc.c +0 -5166
  179. data/ext/ffi_c/libffi/src/frv/eabi.S +0 -128
  180. data/ext/ffi_c/libffi/src/frv/ffi.c +0 -292
  181. data/ext/ffi_c/libffi/src/frv/ffitarget.h +0 -62
  182. data/ext/ffi_c/libffi/src/ia64/ffi.c +0 -586
  183. data/ext/ffi_c/libffi/src/ia64/ffitarget.h +0 -55
  184. data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +0 -40
  185. data/ext/ffi_c/libffi/src/ia64/unix.S +0 -560
  186. data/ext/ffi_c/libffi/src/java_raw_api.c +0 -374
  187. data/ext/ffi_c/libffi/src/m32r/ffi.c +0 -232
  188. data/ext/ffi_c/libffi/src/m32r/ffitarget.h +0 -53
  189. data/ext/ffi_c/libffi/src/m32r/sysv.S +0 -121
  190. data/ext/ffi_c/libffi/src/m68k/ffi.c +0 -362
  191. data/ext/ffi_c/libffi/src/m68k/ffitarget.h +0 -54
  192. data/ext/ffi_c/libffi/src/m68k/sysv.S +0 -357
  193. data/ext/ffi_c/libffi/src/m88k/ffi.c +0 -400
  194. data/ext/ffi_c/libffi/src/m88k/ffitarget.h +0 -49
  195. data/ext/ffi_c/libffi/src/m88k/obsd.S +0 -209
  196. data/ext/ffi_c/libffi/src/metag/ffi.c +0 -330
  197. data/ext/ffi_c/libffi/src/metag/ffitarget.h +0 -53
  198. data/ext/ffi_c/libffi/src/metag/sysv.S +0 -311
  199. data/ext/ffi_c/libffi/src/microblaze/ffi.c +0 -321
  200. data/ext/ffi_c/libffi/src/microblaze/ffitarget.h +0 -53
  201. data/ext/ffi_c/libffi/src/microblaze/sysv.S +0 -302
  202. data/ext/ffi_c/libffi/src/mips/ffi.c +0 -1105
  203. data/ext/ffi_c/libffi/src/mips/ffitarget.h +0 -249
  204. data/ext/ffi_c/libffi/src/mips/n32.S +0 -661
  205. data/ext/ffi_c/libffi/src/mips/o32.S +0 -502
  206. data/ext/ffi_c/libffi/src/moxie/eabi.S +0 -101
  207. data/ext/ffi_c/libffi/src/moxie/ffi.c +0 -272
  208. data/ext/ffi_c/libffi/src/moxie/ffitarget.h +0 -52
  209. data/ext/ffi_c/libffi/src/nios2/ffi.c +0 -304
  210. data/ext/ffi_c/libffi/src/nios2/ffitarget.h +0 -52
  211. data/ext/ffi_c/libffi/src/nios2/sysv.S +0 -136
  212. data/ext/ffi_c/libffi/src/or1k/ffi.c +0 -328
  213. data/ext/ffi_c/libffi/src/or1k/ffitarget.h +0 -58
  214. data/ext/ffi_c/libffi/src/or1k/sysv.S +0 -107
  215. data/ext/ffi_c/libffi/src/pa/ffi.c +0 -719
  216. data/ext/ffi_c/libffi/src/pa/ffitarget.h +0 -85
  217. data/ext/ffi_c/libffi/src/pa/hpux32.S +0 -368
  218. data/ext/ffi_c/libffi/src/pa/linux.S +0 -357
  219. data/ext/ffi_c/libffi/src/powerpc/aix.S +0 -328
  220. data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +0 -447
  221. data/ext/ffi_c/libffi/src/powerpc/asm.h +0 -125
  222. data/ext/ffi_c/libffi/src/powerpc/darwin.S +0 -378
  223. data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +0 -571
  224. data/ext/ffi_c/libffi/src/powerpc/ffi.c +0 -173
  225. data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +0 -1359
  226. data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +0 -945
  227. data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +0 -94
  228. data/ext/ffi_c/libffi/src/powerpc/ffi_sysv.c +0 -923
  229. data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +0 -195
  230. data/ext/ffi_c/libffi/src/powerpc/linux64.S +0 -228
  231. data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +0 -488
  232. data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +0 -397
  233. data/ext/ffi_c/libffi/src/powerpc/sysv.S +0 -175
  234. data/ext/ffi_c/libffi/src/prep_cif.c +0 -261
  235. data/ext/ffi_c/libffi/src/raw_api.c +0 -267
  236. data/ext/ffi_c/libffi/src/s390/ffi.c +0 -756
  237. data/ext/ffi_c/libffi/src/s390/ffitarget.h +0 -70
  238. data/ext/ffi_c/libffi/src/s390/internal.h +0 -11
  239. data/ext/ffi_c/libffi/src/s390/sysv.S +0 -325
  240. data/ext/ffi_c/libffi/src/sh/ffi.c +0 -717
  241. data/ext/ffi_c/libffi/src/sh/ffitarget.h +0 -54
  242. data/ext/ffi_c/libffi/src/sh/sysv.S +0 -850
  243. data/ext/ffi_c/libffi/src/sh64/ffi.c +0 -469
  244. data/ext/ffi_c/libffi/src/sh64/ffitarget.h +0 -58
  245. data/ext/ffi_c/libffi/src/sh64/sysv.S +0 -539
  246. data/ext/ffi_c/libffi/src/sparc/ffi.c +0 -468
  247. data/ext/ffi_c/libffi/src/sparc/ffi64.c +0 -608
  248. data/ext/ffi_c/libffi/src/sparc/ffitarget.h +0 -81
  249. data/ext/ffi_c/libffi/src/sparc/internal.h +0 -26
  250. data/ext/ffi_c/libffi/src/sparc/v8.S +0 -443
  251. data/ext/ffi_c/libffi/src/sparc/v9.S +0 -440
  252. data/ext/ffi_c/libffi/src/tile/ffi.c +0 -355
  253. data/ext/ffi_c/libffi/src/tile/ffitarget.h +0 -65
  254. data/ext/ffi_c/libffi/src/tile/tile.S +0 -360
  255. data/ext/ffi_c/libffi/src/types.c +0 -106
  256. data/ext/ffi_c/libffi/src/vax/elfbsd.S +0 -195
  257. data/ext/ffi_c/libffi/src/vax/ffi.c +0 -276
  258. data/ext/ffi_c/libffi/src/vax/ffitarget.h +0 -49
  259. data/ext/ffi_c/libffi/src/x86/asmnames.h +0 -30
  260. data/ext/ffi_c/libffi/src/x86/ffi.c +0 -733
  261. data/ext/ffi_c/libffi/src/x86/ffi64.c +0 -857
  262. data/ext/ffi_c/libffi/src/x86/ffitarget.h +0 -141
  263. data/ext/ffi_c/libffi/src/x86/ffiw64.c +0 -287
  264. data/ext/ffi_c/libffi/src/x86/internal.h +0 -29
  265. data/ext/ffi_c/libffi/src/x86/internal64.h +0 -22
  266. data/ext/ffi_c/libffi/src/x86/sysv.S +0 -1043
  267. data/ext/ffi_c/libffi/src/x86/unix64.S +0 -525
  268. data/ext/ffi_c/libffi/src/x86/win64.S +0 -232
  269. data/ext/ffi_c/libffi/src/x86/win64_intel.S +0 -237
  270. data/ext/ffi_c/libffi/src/xtensa/ffi.c +0 -298
  271. data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +0 -53
  272. data/ext/ffi_c/libffi/src/xtensa/sysv.S +0 -253
  273. data/ext/ffi_c/libffi/stamp-h.in +0 -1
  274. data/ext/ffi_c/libffi/testsuite/Makefile.am +0 -85
  275. data/ext/ffi_c/libffi/testsuite/Makefile.in +0 -607
  276. data/ext/ffi_c/libffi/testsuite/config/default.exp +0 -1
  277. data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +0 -445
  278. data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +0 -283
  279. data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +0 -45
  280. data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c +0 -46
  281. data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +0 -30
  282. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +0 -89
  283. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +0 -81
  284. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +0 -81
  285. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +0 -82
  286. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +0 -89
  287. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +0 -92
  288. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +0 -90
  289. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_loc_fn0.c +0 -95
  290. data/ext/ffi_c/libffi/testsuite/libffi.call/closure_simple.c +0 -55
  291. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +0 -94
  292. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +0 -95
  293. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +0 -96
  294. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +0 -102
  295. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +0 -89
  296. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +0 -91
  297. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +0 -93
  298. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +0 -113
  299. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +0 -90
  300. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +0 -95
  301. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +0 -90
  302. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +0 -90
  303. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +0 -98
  304. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +0 -90
  305. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +0 -109
  306. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +0 -98
  307. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +0 -124
  308. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +0 -113
  309. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +0 -99
  310. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +0 -117
  311. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +0 -97
  312. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +0 -88
  313. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +0 -90
  314. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +0 -91
  315. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +0 -93
  316. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +0 -91
  317. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +0 -92
  318. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split.c +0 -132
  319. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c +0 -115
  320. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +0 -95
  321. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +0 -91
  322. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +0 -91
  323. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +0 -92
  324. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +0 -91
  325. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +0 -91
  326. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +0 -93
  327. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_dbls_struct.c +0 -66
  328. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +0 -43
  329. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c +0 -61
  330. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +0 -42
  331. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble.c +0 -105
  332. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble_va.c +0 -61
  333. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_args.c +0 -70
  334. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_float_double.c +0 -55
  335. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +0 -74
  336. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +0 -74
  337. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +0 -86
  338. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +0 -91
  339. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +0 -74
  340. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +0 -86
  341. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer.c +0 -74
  342. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer_stack.c +0 -142
  343. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +0 -44
  344. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +0 -42
  345. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +0 -42
  346. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_struct_va1.c +0 -114
  347. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +0 -42
  348. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar_va.c +0 -44
  349. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +0 -43
  350. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint_va.c +0 -45
  351. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulong_va.c +0 -45
  352. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +0 -47
  353. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +0 -43
  354. data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort_va.c +0 -44
  355. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_abi.c +0 -36
  356. data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c +0 -26
  357. data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +0 -136
  358. data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +0 -59
  359. data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +0 -60
  360. data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +0 -60
  361. data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +0 -74
  362. data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +0 -62
  363. data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +0 -107
  364. data/ext/ffi_c/libffi/testsuite/libffi.call/huge_struct.c +0 -341
  365. data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +0 -59
  366. data/ext/ffi_c/libffi/testsuite/libffi.call/many2.c +0 -57
  367. data/ext/ffi_c/libffi/testsuite/libffi.call/many_double.c +0 -70
  368. data/ext/ffi_c/libffi/testsuite/libffi.call/many_mixed.c +0 -78
  369. data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +0 -52
  370. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +0 -152
  371. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +0 -161
  372. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +0 -133
  373. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct11.c +0 -121
  374. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +0 -110
  375. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +0 -111
  376. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +0 -111
  377. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +0 -112
  378. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +0 -131
  379. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +0 -111
  380. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +0 -131
  381. data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +0 -131
  382. data/ext/ffi_c/libffi/testsuite/libffi.call/offsets.c +0 -46
  383. data/ext/ffi_c/libffi/testsuite/libffi.call/pr1172638.c +0 -127
  384. data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +0 -90
  385. data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +0 -59
  386. data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +0 -114
  387. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +0 -36
  388. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +0 -43
  389. data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +0 -42
  390. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +0 -35
  391. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +0 -36
  392. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +0 -49
  393. data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +0 -42
  394. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +0 -34
  395. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +0 -41
  396. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +0 -43
  397. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +0 -36
  398. data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +0 -38
  399. data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +0 -38
  400. data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +0 -38
  401. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large.c +0 -145
  402. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large2.c +0 -148
  403. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium.c +0 -124
  404. data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium2.c +0 -125
  405. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +0 -44
  406. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +0 -49
  407. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +0 -49
  408. data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +0 -55
  409. data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +0 -67
  410. data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +0 -67
  411. data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +0 -60
  412. data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +0 -64
  413. data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +0 -66
  414. data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +0 -64
  415. data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +0 -74
  416. data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +0 -81
  417. data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +0 -68
  418. data/ext/ffi_c/libffi/testsuite/libffi.call/testclosure.c +0 -70
  419. data/ext/ffi_c/libffi/testsuite/libffi.call/uninitialized.c +0 -61
  420. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest.cc +0 -117
  421. data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest_ffi_call.cc +0 -54
  422. data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +0 -196
  423. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +0 -121
  424. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +0 -123
  425. data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +0 -125
  426. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex.inc +0 -91
  427. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_double.c +0 -10
  428. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_float.c +0 -10
  429. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +0 -10
  430. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex.inc +0 -42
  431. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_double.c +0 -10
  432. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_float.c +0 -10
  433. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +0 -10
  434. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct.inc +0 -71
  435. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +0 -10
  436. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +0 -10
  437. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +0 -10
  438. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va.inc +0 -80
  439. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c +0 -10
  440. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c +0 -16
  441. data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +0 -10
  442. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.exp +0 -36
  443. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc +0 -51
  444. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc +0 -7
  445. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc +0 -7
  446. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +0 -7
  447. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c +0 -10
  448. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c +0 -10
  449. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c +0 -86
  450. data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c +0 -10
  451. data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h +0 -1
  452. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc +0 -78
  453. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c +0 -10
  454. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c +0 -10
  455. data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c +0 -10
  456. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc +0 -37
  457. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc +0 -41
  458. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_double.c +0 -10
  459. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_float.c +0 -10
  460. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +0 -10
  461. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2.inc +0 -44
  462. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_double.c +0 -10
  463. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_float.c +0 -10
  464. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +0 -10
  465. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_double.c +0 -10
  466. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c +0 -10
  467. data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c +0 -10
  468. data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c +0 -34
  469. data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c +0 -28
  470. data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h +0 -1
  471. data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp +0 -36
  472. data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h +0 -19
  473. data/ext/ffi_c/rbffi.h +0 -57
  474. data/ext/ffi_c/rbffi_endian.h +0 -59
  475. data/ext/ffi_c/win32/stdbool.h +0 -8
  476. data/ext/ffi_c/win32/stdint.h +0 -201
  477. data/gen/Rakefile +0 -30
  478. data/libtest/Benchmark.c +0 -52
  479. data/libtest/BoolTest.c +0 -34
  480. data/libtest/BufferTest.c +0 -31
  481. data/libtest/ClosureTest.c +0 -205
  482. data/libtest/EnumTest.c +0 -51
  483. data/libtest/FunctionTest.c +0 -70
  484. data/libtest/GNUmakefile +0 -149
  485. data/libtest/GlobalVariable.c +0 -62
  486. data/libtest/LastErrorTest.c +0 -21
  487. data/libtest/NumberTest.c +0 -132
  488. data/libtest/PointerTest.c +0 -63
  489. data/libtest/ReferenceTest.c +0 -23
  490. data/libtest/StringTest.c +0 -34
  491. data/libtest/StructTest.c +0 -243
  492. data/libtest/UnionTest.c +0 -43
  493. data/libtest/VariadicTest.c +0 -99
  494. data/spec/ffi/async_callback_spec.rb +0 -35
  495. data/spec/ffi/bitmask_spec.rb +0 -575
  496. data/spec/ffi/bool_spec.rb +0 -32
  497. data/spec/ffi/buffer_spec.rb +0 -279
  498. data/spec/ffi/callback_spec.rb +0 -773
  499. data/spec/ffi/custom_param_type.rb +0 -37
  500. data/spec/ffi/custom_type_spec.rb +0 -74
  501. data/spec/ffi/dup_spec.rb +0 -52
  502. data/spec/ffi/embed-test/ext/Makefile +0 -242
  503. data/spec/ffi/enum_spec.rb +0 -423
  504. data/spec/ffi/errno_spec.rb +0 -20
  505. data/spec/ffi/ffi_spec.rb +0 -28
  506. data/spec/ffi/fixtures/Benchmark.c +0 -52
  507. data/spec/ffi/fixtures/BitmaskTest.c +0 -51
  508. data/spec/ffi/fixtures/BoolTest.c +0 -34
  509. data/spec/ffi/fixtures/BufferTest.c +0 -31
  510. data/spec/ffi/fixtures/ClosureTest.c +0 -205
  511. data/spec/ffi/fixtures/EnumTest.c +0 -51
  512. data/spec/ffi/fixtures/FunctionTest.c +0 -142
  513. data/spec/ffi/fixtures/GNUmakefile +0 -149
  514. data/spec/ffi/fixtures/GlobalVariable.c +0 -62
  515. data/spec/ffi/fixtures/LastErrorTest.c +0 -21
  516. data/spec/ffi/fixtures/NumberTest.c +0 -132
  517. data/spec/ffi/fixtures/PipeHelper.h +0 -21
  518. data/spec/ffi/fixtures/PipeHelperPosix.c +0 -41
  519. data/spec/ffi/fixtures/PipeHelperWindows.c +0 -72
  520. data/spec/ffi/fixtures/PointerTest.c +0 -63
  521. data/spec/ffi/fixtures/ReferenceTest.c +0 -23
  522. data/spec/ffi/fixtures/StringTest.c +0 -34
  523. data/spec/ffi/fixtures/StructTest.c +0 -243
  524. data/spec/ffi/fixtures/UnionTest.c +0 -43
  525. data/spec/ffi/fixtures/VariadicTest.c +0 -99
  526. data/spec/ffi/fixtures/classes.rb +0 -438
  527. data/spec/ffi/function_spec.rb +0 -97
  528. data/spec/ffi/io_spec.rb +0 -16
  529. data/spec/ffi/library_spec.rb +0 -286
  530. data/spec/ffi/long_double.rb +0 -30
  531. data/spec/ffi/managed_struct_spec.rb +0 -68
  532. data/spec/ffi/memorypointer_spec.rb +0 -78
  533. data/spec/ffi/number_spec.rb +0 -247
  534. data/spec/ffi/platform_spec.rb +0 -114
  535. data/spec/ffi/pointer_spec.rb +0 -285
  536. data/spec/ffi/rbx/attach_function_spec.rb +0 -34
  537. data/spec/ffi/rbx/memory_pointer_spec.rb +0 -198
  538. data/spec/ffi/rbx/spec_helper.rb +0 -6
  539. data/spec/ffi/rbx/struct_spec.rb +0 -18
  540. data/spec/ffi/spec_helper.rb +0 -93
  541. data/spec/ffi/string_spec.rb +0 -118
  542. data/spec/ffi/strptr_spec.rb +0 -50
  543. data/spec/ffi/struct_by_ref_spec.rb +0 -43
  544. data/spec/ffi/struct_callback_spec.rb +0 -69
  545. data/spec/ffi/struct_initialize_spec.rb +0 -35
  546. data/spec/ffi/struct_packed_spec.rb +0 -50
  547. data/spec/ffi/struct_spec.rb +0 -882
  548. data/spec/ffi/typedef_spec.rb +0 -91
  549. data/spec/ffi/union_spec.rb +0 -67
  550. data/spec/ffi/variadic_spec.rb +0 -132
  551. data/spec/spec.opts +0 -4
@@ -1,70 +0,0 @@
1
- /* -----------------------------------------------------------------*-C-*-
2
- ffitarget.h - Copyright (c) 2012 Anthony Green
3
- Copyright (c) 1996-2003 Red Hat, Inc.
4
- Target configuration macros for S390.
5
-
6
- Permission is hereby granted, free of charge, to any person obtaining
7
- a copy of this software and associated documentation files (the
8
- ``Software''), to deal in the Software without restriction, including
9
- without limitation the rights to use, copy, modify, merge, publish,
10
- distribute, sublicense, and/or sell copies of the Software, and to
11
- permit persons to whom the Software is furnished to do so, subject to
12
- the following conditions:
13
-
14
- The above copyright notice and this permission notice shall be included
15
- in all copies or substantial portions of the Software.
16
-
17
- THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
18
- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19
- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20
- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21
- HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22
- WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
23
- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
- DEALINGS IN THE SOFTWARE.
25
-
26
- ----------------------------------------------------------------------- */
27
-
28
- #ifndef LIBFFI_TARGET_H
29
- #define LIBFFI_TARGET_H
30
-
31
- #ifndef LIBFFI_H
32
- #error "Please do not include ffitarget.h directly into your source. Use ffi.h instead."
33
- #endif
34
-
35
- #if defined (__s390x__)
36
- #ifndef S390X
37
- #define S390X
38
- #endif
39
- #endif
40
-
41
- /* ---- System specific configurations ----------------------------------- */
42
-
43
- #ifndef LIBFFI_ASM
44
- typedef unsigned long ffi_arg;
45
- typedef signed long ffi_sarg;
46
-
47
- typedef enum ffi_abi {
48
- FFI_FIRST_ABI = 0,
49
- FFI_SYSV,
50
- FFI_LAST_ABI,
51
- FFI_DEFAULT_ABI = FFI_SYSV
52
- } ffi_abi;
53
- #endif
54
-
55
- #define FFI_TARGET_SPECIFIC_STACK_SPACE_ALLOCATION
56
- #define FFI_TARGET_HAS_COMPLEX_TYPE
57
-
58
- /* ---- Definitions for closures ----------------------------------------- */
59
-
60
- #define FFI_CLOSURES 1
61
- #define FFI_GO_CLOSURES 1
62
- #ifdef S390X
63
- #define FFI_TRAMPOLINE_SIZE 32
64
- #else
65
- #define FFI_TRAMPOLINE_SIZE 16
66
- #endif
67
- #define FFI_NATIVE_RAW_API 0
68
-
69
- #endif
70
-
@@ -1,11 +0,0 @@
1
- /* If these values change, sysv.S must be adapted! */
2
- #define FFI390_RET_DOUBLE 0
3
- #define FFI390_RET_FLOAT 1
4
- #define FFI390_RET_INT64 2
5
- #define FFI390_RET_INT32 3
6
- #define FFI390_RET_VOID 4
7
-
8
- #define FFI360_RET_MASK 7
9
- #define FFI390_RET_IN_MEM 8
10
-
11
- #define FFI390_RET_STRUCT (FFI390_RET_VOID | FFI390_RET_IN_MEM)
@@ -1,325 +0,0 @@
1
- /* -----------------------------------------------------------------------
2
- sysv.S - Copyright (c) 2000 Software AG
3
- Copyright (c) 2008 Red Hat, Inc.
4
-
5
- S390 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,
19
- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20
- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21
- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
22
- HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23
- WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24
- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
25
- DEALINGS IN THE SOFTWARE.
26
- ----------------------------------------------------------------------- */
27
-
28
- #define LIBFFI_ASM
29
- #include <fficonfig.h>
30
- #include <ffi.h>
31
-
32
- .text
33
-
34
- #ifndef __s390x__
35
-
36
- # r2: frame
37
- # r3: ret_type
38
- # r4: ret_addr
39
- # r5: fun
40
- # r6: closure
41
-
42
- # This assumes we are using gas.
43
- .balign 8
44
- .globl ffi_call_SYSV
45
- FFI_HIDDEN(ffi_call_SYSV)
46
- .type ffi_call_SYSV,%function
47
- ffi_call_SYSV:
48
- .cfi_startproc
49
- st %r6,44(%r2) # Save registers
50
- stm %r12,%r14,48(%r2)
51
- lr %r13,%r2 # Install frame pointer
52
- .cfi_rel_offset r6, 44
53
- .cfi_rel_offset r12, 48
54
- .cfi_rel_offset r13, 52
55
- .cfi_rel_offset r14, 56
56
- .cfi_def_cfa_register r13
57
- st %r2,0(%r15) # Set up back chain
58
- sla %r3,3 # ret_type *= 8
59
- lr %r12,%r4 # Save ret_addr
60
- lr %r1,%r5 # Save fun
61
- lr %r0,%r6 # Install static chain
62
-
63
- # Set return address, so that there is only one indirect jump.
64
- #ifdef HAVE_AS_S390_ZARCH
65
- larl %r14,.Ltable
66
- ar %r14,%r3
67
- #else
68
- basr %r14,0
69
- 0: la %r14,.Ltable-0b(%r14,%r3)
70
- #endif
71
-
72
- lm %r2,%r6,8(%r13) # Load arguments
73
- ld %f0,64(%r13)
74
- ld %f2,72(%r13)
75
- br %r1 # ... and call function
76
-
77
- .balign 8
78
- .Ltable:
79
- # FFI390_RET_DOUBLE
80
- std %f0,0(%r12)
81
- j .Ldone
82
-
83
- .balign 8
84
- # FFI390_RET_FLOAT
85
- ste %f0,0(%r12)
86
- j .Ldone
87
-
88
- .balign 8
89
- # FFI390_RET_INT64
90
- st %r3,4(%r12)
91
- nop
92
- # fallthru
93
-
94
- .balign 8
95
- # FFI390_RET_INT32
96
- st %r2,0(%r12)
97
- nop
98
- # fallthru
99
-
100
- .balign 8
101
- # FFI390_RET_VOID
102
- .Ldone:
103
- l %r14,56(%r13)
104
- l %r12,48(%r13)
105
- l %r6,44(%r13)
106
- l %r13,52(%r13)
107
- .cfi_restore 14
108
- .cfi_restore 13
109
- .cfi_restore 12
110
- .cfi_restore 6
111
- .cfi_def_cfa r15, 96
112
- br %r14
113
- .cfi_endproc
114
- .size ffi_call_SYSV,.-ffi_call_SYSV
115
-
116
-
117
- .balign 8
118
- .globl ffi_go_closure_SYSV
119
- FFI_HIDDEN(ffi_go_closure_SYSV)
120
- .type ffi_go_closure_SYSV,%function
121
- ffi_go_closure_SYSV:
122
- .cfi_startproc
123
- stm %r2,%r6,8(%r15) # Save arguments
124
- lr %r4,%r0 # Load closure -> user_data
125
- l %r2,4(%r4) # ->cif
126
- l %r3,8(%r4) # ->fun
127
- j .Ldoclosure
128
- .cfi_endproc
129
-
130
- .balign 8
131
- .globl ffi_closure_SYSV
132
- FFI_HIDDEN(ffi_closure_SYSV)
133
- .type ffi_closure_SYSV,%function
134
- ffi_closure_SYSV:
135
- .cfi_startproc
136
- stm %r2,%r6,8(%r15) # Save arguments
137
- lr %r4,%r0 # Closure
138
- l %r2,16(%r4) # ->cif
139
- l %r3,20(%r4) # ->fun
140
- l %r4,24(%r4) # ->user_data
141
- .Ldoclosure:
142
- stm %r12,%r15,48(%r15) # Save registers
143
- lr %r12,%r15
144
- .cfi_def_cfa_register r12
145
- .cfi_rel_offset r6, 24
146
- .cfi_rel_offset r12, 48
147
- .cfi_rel_offset r13, 52
148
- .cfi_rel_offset r14, 56
149
- .cfi_rel_offset r15, 60
150
- #ifndef HAVE_AS_S390_ZARCH
151
- basr %r13,0 # Set up base register
152
- .Lcbase:
153
- l %r1,.Lchelper-.Lcbase(%r13) # Get helper function
154
- #endif
155
- ahi %r15,-96-8 # Set up stack frame
156
- st %r12,0(%r15) # Set up back chain
157
-
158
- std %f0,64(%r12) # Save fp arguments
159
- std %f2,72(%r12)
160
-
161
- la %r5,96(%r12) # Overflow
162
- st %r5,96(%r15)
163
- la %r6,64(%r12) # FPRs
164
- la %r5,8(%r12) # GPRs
165
- #ifdef HAVE_AS_S390_ZARCH
166
- brasl %r14,ffi_closure_helper_SYSV
167
- #else
168
- bas %r14,0(%r1,%r13) # Call helper
169
- #endif
170
-
171
- lr %r15,%r12
172
- .cfi_def_cfa_register r15
173
- lm %r12,%r14,48(%r12) # Restore saved registers
174
- l %r6,24(%r15)
175
- ld %f0,64(%r15) # Load return registers
176
- lm %r2,%r3,8(%r15)
177
- br %r14
178
- .cfi_endproc
179
-
180
- #ifndef HAVE_AS_S390_ZARCH
181
- .align 4
182
- .Lchelper:
183
- .long ffi_closure_helper_SYSV-.Lcbase
184
- #endif
185
-
186
- .size ffi_closure_SYSV,.-ffi_closure_SYSV
187
-
188
- #else
189
-
190
- # r2: frame
191
- # r3: ret_type
192
- # r4: ret_addr
193
- # r5: fun
194
- # r6: closure
195
-
196
- # This assumes we are using gas.
197
- .balign 8
198
- .globl ffi_call_SYSV
199
- FFI_HIDDEN(ffi_call_SYSV)
200
- .type ffi_call_SYSV,%function
201
- ffi_call_SYSV:
202
- .cfi_startproc
203
- stg %r6,88(%r2) # Save registers
204
- stmg %r12,%r14,96(%r2)
205
- lgr %r13,%r2 # Install frame pointer
206
- .cfi_rel_offset r6, 88
207
- .cfi_rel_offset r12, 96
208
- .cfi_rel_offset r13, 104
209
- .cfi_rel_offset r14, 112
210
- .cfi_def_cfa_register r13
211
- stg %r2,0(%r15) # Set up back chain
212
- larl %r14,.Ltable # Set up return address
213
- slag %r3,%r3,3 # ret_type *= 8
214
- lgr %r12,%r4 # Save ret_addr
215
- lgr %r1,%r5 # Save fun
216
- lgr %r0,%r6 # Install static chain
217
- agr %r14,%r3
218
- lmg %r2,%r6,16(%r13) # Load arguments
219
- ld %f0,128(%r13)
220
- ld %f2,136(%r13)
221
- ld %f4,144(%r13)
222
- ld %f6,152(%r13)
223
- br %r1 # ... and call function
224
-
225
- .balign 8
226
- .Ltable:
227
- # FFI390_RET_DOUBLE
228
- std %f0,0(%r12)
229
- j .Ldone
230
-
231
- .balign 8
232
- # FFI390_RET_DOUBLE
233
- ste %f0,0(%r12)
234
- j .Ldone
235
-
236
- .balign 8
237
- # FFI390_RET_INT64
238
- stg %r2,0(%r12)
239
-
240
- .balign 8
241
- # FFI390_RET_INT32
242
- # Never used, as we always store type ffi_arg.
243
- # But the stg above is 6 bytes and we cannot
244
- # jump around this case, so fall through.
245
- nop
246
- nop
247
-
248
- .balign 8
249
- # FFI390_RET_VOID
250
- .Ldone:
251
- lg %r14,112(%r13)
252
- lg %r12,96(%r13)
253
- lg %r6,88(%r13)
254
- lg %r13,104(%r13)
255
- .cfi_restore r14
256
- .cfi_restore r13
257
- .cfi_restore r12
258
- .cfi_restore r6
259
- .cfi_def_cfa r15, 160
260
- br %r14
261
- .cfi_endproc
262
- .size ffi_call_SYSV,.-ffi_call_SYSV
263
-
264
-
265
- .balign 8
266
- .globl ffi_go_closure_SYSV
267
- FFI_HIDDEN(ffi_go_closure_SYSV)
268
- .type ffi_go_closure_SYSV,%function
269
- ffi_go_closure_SYSV:
270
- .cfi_startproc
271
- stmg %r2,%r6,16(%r15) # Save arguments
272
- lgr %r4,%r0 # Load closure -> user_data
273
- lg %r2,8(%r4) # ->cif
274
- lg %r3,16(%r4) # ->fun
275
- j .Ldoclosure
276
- .cfi_endproc
277
- .size ffi_go_closure_SYSV,.-ffi_go_closure_SYSV
278
-
279
-
280
- .balign 8
281
- .globl ffi_closure_SYSV
282
- FFI_HIDDEN(ffi_closure_SYSV)
283
- .type ffi_closure_SYSV,%function
284
- ffi_closure_SYSV:
285
- .cfi_startproc
286
- stmg %r2,%r6,16(%r15) # Save arguments
287
- lgr %r4,%r0 # Load closure
288
- lg %r2,32(%r4) # ->cif
289
- lg %r3,40(%r4) # ->fun
290
- lg %r4,48(%r4) # ->user_data
291
- .Ldoclosure:
292
- stmg %r13,%r15,104(%r15) # Save registers
293
- lgr %r13,%r15
294
- .cfi_def_cfa_register r13
295
- .cfi_rel_offset r6, 48
296
- .cfi_rel_offset r13, 104
297
- .cfi_rel_offset r14, 112
298
- .cfi_rel_offset r15, 120
299
- aghi %r15,-160-16 # Set up stack frame
300
- stg %r13,0(%r15) # Set up back chain
301
-
302
- std %f0,128(%r13) # Save fp arguments
303
- std %f2,136(%r13)
304
- std %f4,144(%r13)
305
- std %f6,152(%r13)
306
- la %r5,160(%r13) # Overflow
307
- stg %r5,160(%r15)
308
- la %r6,128(%r13) # FPRs
309
- la %r5,16(%r13) # GPRs
310
- brasl %r14,ffi_closure_helper_SYSV # Call helper
311
-
312
- lgr %r15,%r13
313
- .cfi_def_cfa_register r15
314
- lmg %r13,%r14,104(%r13) # Restore saved registers
315
- lg %r6,48(%r15)
316
- ld %f0,128(%r15) # Load return registers
317
- lg %r2,16(%r15)
318
- br %r14
319
- .cfi_endproc
320
- .size ffi_closure_SYSV,.-ffi_closure_SYSV
321
- #endif /* !s390x */
322
-
323
- #if defined __ELF__ && defined __linux__
324
- .section .note.GNU-stack,"",@progbits
325
- #endif
@@ -1,717 +0,0 @@
1
- /* -----------------------------------------------------------------------
2
- ffi.c - Copyright (c) 2002-2008, 2012 Kaz Kojima
3
- Copyright (c) 2008 Red Hat, Inc.
4
-
5
- SuperH 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,
19
- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20
- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21
- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
22
- HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23
- WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24
- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
25
- DEALINGS IN THE SOFTWARE.
26
- ----------------------------------------------------------------------- */
27
-
28
- #include <ffi.h>
29
- #include <ffi_common.h>
30
-
31
- #include <stdlib.h>
32
-
33
- #define NGREGARG 4
34
- #if defined(__SH4__)
35
- #define NFREGARG 8
36
- #endif
37
-
38
- #if defined(__HITACHI__)
39
- #define STRUCT_VALUE_ADDRESS_WITH_ARG 1
40
- #else
41
- #define STRUCT_VALUE_ADDRESS_WITH_ARG 0
42
- #endif
43
-
44
- /* If the structure has essentially an unique element, return its type. */
45
- static int
46
- simple_type (ffi_type *arg)
47
- {
48
- if (arg->type != FFI_TYPE_STRUCT)
49
- return arg->type;
50
- else if (arg->elements[1])
51
- return FFI_TYPE_STRUCT;
52
-
53
- return simple_type (arg->elements[0]);
54
- }
55
-
56
- static int
57
- return_type (ffi_type *arg)
58
- {
59
- unsigned short type;
60
-
61
- if (arg->type != FFI_TYPE_STRUCT)
62
- return arg->type;
63
-
64
- type = simple_type (arg->elements[0]);
65
- if (! arg->elements[1])
66
- {
67
- switch (type)
68
- {
69
- case FFI_TYPE_SINT8:
70
- case FFI_TYPE_UINT8:
71
- case FFI_TYPE_SINT16:
72
- case FFI_TYPE_UINT16:
73
- case FFI_TYPE_SINT32:
74
- case FFI_TYPE_UINT32:
75
- return FFI_TYPE_INT;
76
-
77
- default:
78
- return type;
79
- }
80
- }
81
-
82
- /* gcc uses r0/r1 pair for some kind of structures. */
83
- if (arg->size <= 2 * sizeof (int))
84
- {
85
- int i = 0;
86
- ffi_type *e;
87
-
88
- while ((e = arg->elements[i++]))
89
- {
90
- type = simple_type (e);
91
- switch (type)
92
- {
93
- case FFI_TYPE_SINT32:
94
- case FFI_TYPE_UINT32:
95
- case FFI_TYPE_INT:
96
- case FFI_TYPE_FLOAT:
97
- return FFI_TYPE_UINT64;
98
-
99
- default:
100
- break;
101
- }
102
- }
103
- }
104
-
105
- return FFI_TYPE_STRUCT;
106
- }
107
-
108
- /* ffi_prep_args is called by the assembly routine once stack space
109
- has been allocated for the function's arguments */
110
-
111
- void ffi_prep_args(char *stack, extended_cif *ecif)
112
- {
113
- register unsigned int i;
114
- register int tmp;
115
- register unsigned int avn;
116
- register void **p_argv;
117
- register char *argp;
118
- register ffi_type **p_arg;
119
- int greg, ireg;
120
- #if defined(__SH4__)
121
- int freg = 0;
122
- #endif
123
-
124
- tmp = 0;
125
- argp = stack;
126
-
127
- if (return_type (ecif->cif->rtype) == FFI_TYPE_STRUCT)
128
- {
129
- *(void **) argp = ecif->rvalue;
130
- argp += 4;
131
- ireg = STRUCT_VALUE_ADDRESS_WITH_ARG ? 1 : 0;
132
- }
133
- else
134
- ireg = 0;
135
-
136
- /* Set arguments for registers. */
137
- greg = ireg;
138
- avn = ecif->cif->nargs;
139
- p_argv = ecif->avalue;
140
-
141
- for (i = 0, p_arg = ecif->cif->arg_types; i < avn; i++, p_arg++, p_argv++)
142
- {
143
- size_t z;
144
-
145
- z = (*p_arg)->size;
146
- if (z < sizeof(int))
147
- {
148
- if (greg++ >= NGREGARG)
149
- continue;
150
-
151
- z = sizeof(int);
152
- switch ((*p_arg)->type)
153
- {
154
- case FFI_TYPE_SINT8:
155
- *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
156
- break;
157
-
158
- case FFI_TYPE_UINT8:
159
- *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
160
- break;
161
-
162
- case FFI_TYPE_SINT16:
163
- *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
164
- break;
165
-
166
- case FFI_TYPE_UINT16:
167
- *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
168
- break;
169
-
170
- case FFI_TYPE_STRUCT:
171
- *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
172
- break;
173
-
174
- default:
175
- FFI_ASSERT(0);
176
- }
177
- argp += z;
178
- }
179
- else if (z == sizeof(int))
180
- {
181
- #if defined(__SH4__)
182
- if ((*p_arg)->type == FFI_TYPE_FLOAT)
183
- {
184
- if (freg++ >= NFREGARG)
185
- continue;
186
- }
187
- else
188
- #endif
189
- {
190
- if (greg++ >= NGREGARG)
191
- continue;
192
- }
193
- *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
194
- argp += z;
195
- }
196
- #if defined(__SH4__)
197
- else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
198
- {
199
- if (freg + 1 >= NFREGARG)
200
- continue;
201
- freg = (freg + 1) & ~1;
202
- freg += 2;
203
- memcpy (argp, *p_argv, z);
204
- argp += z;
205
- }
206
- #endif
207
- else
208
- {
209
- int n = (z + sizeof (int) - 1) / sizeof (int);
210
- #if defined(__SH4__)
211
- if (greg + n - 1 >= NGREGARG)
212
- continue;
213
- #else
214
- if (greg >= NGREGARG)
215
- continue;
216
- #endif
217
- greg += n;
218
- memcpy (argp, *p_argv, z);
219
- argp += n * sizeof (int);
220
- }
221
- }
222
-
223
- /* Set arguments on stack. */
224
- greg = ireg;
225
- #if defined(__SH4__)
226
- freg = 0;
227
- #endif
228
- p_argv = ecif->avalue;
229
-
230
- for (i = 0, p_arg = ecif->cif->arg_types; i < avn; i++, p_arg++, p_argv++)
231
- {
232
- size_t z;
233
-
234
- z = (*p_arg)->size;
235
- if (z < sizeof(int))
236
- {
237
- if (greg++ < NGREGARG)
238
- continue;
239
-
240
- z = sizeof(int);
241
- switch ((*p_arg)->type)
242
- {
243
- case FFI_TYPE_SINT8:
244
- *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
245
- break;
246
-
247
- case FFI_TYPE_UINT8:
248
- *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
249
- break;
250
-
251
- case FFI_TYPE_SINT16:
252
- *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
253
- break;
254
-
255
- case FFI_TYPE_UINT16:
256
- *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
257
- break;
258
-
259
- case FFI_TYPE_STRUCT:
260
- *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
261
- break;
262
-
263
- default:
264
- FFI_ASSERT(0);
265
- }
266
- argp += z;
267
- }
268
- else if (z == sizeof(int))
269
- {
270
- #if defined(__SH4__)
271
- if ((*p_arg)->type == FFI_TYPE_FLOAT)
272
- {
273
- if (freg++ < NFREGARG)
274
- continue;
275
- }
276
- else
277
- #endif
278
- {
279
- if (greg++ < NGREGARG)
280
- continue;
281
- }
282
- *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
283
- argp += z;
284
- }
285
- #if defined(__SH4__)
286
- else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
287
- {
288
- if (freg + 1 < NFREGARG)
289
- {
290
- freg = (freg + 1) & ~1;
291
- freg += 2;
292
- continue;
293
- }
294
- memcpy (argp, *p_argv, z);
295
- argp += z;
296
- }
297
- #endif
298
- else
299
- {
300
- int n = (z + sizeof (int) - 1) / sizeof (int);
301
- if (greg + n - 1 < NGREGARG)
302
- {
303
- greg += n;
304
- continue;
305
- }
306
- #if (! defined(__SH4__))
307
- else if (greg < NGREGARG)
308
- {
309
- greg = NGREGARG;
310
- continue;
311
- }
312
- #endif
313
- memcpy (argp, *p_argv, z);
314
- argp += n * sizeof (int);
315
- }
316
- }
317
-
318
- return;
319
- }
320
-
321
- /* Perform machine dependent cif processing */
322
- ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
323
- {
324
- int i, j;
325
- int size, type;
326
- int n, m;
327
- int greg;
328
- #if defined(__SH4__)
329
- int freg = 0;
330
- #endif
331
-
332
- cif->flags = 0;
333
-
334
- greg = ((return_type (cif->rtype) == FFI_TYPE_STRUCT) &&
335
- STRUCT_VALUE_ADDRESS_WITH_ARG) ? 1 : 0;
336
-
337
- #if defined(__SH4__)
338
- for (i = j = 0; i < cif->nargs && j < 12; i++)
339
- {
340
- type = (cif->arg_types)[i]->type;
341
- switch (type)
342
- {
343
- case FFI_TYPE_FLOAT:
344
- if (freg >= NFREGARG)
345
- continue;
346
- freg++;
347
- cif->flags += ((cif->arg_types)[i]->type) << (2 * j);
348
- j++;
349
- break;
350
-
351
- case FFI_TYPE_DOUBLE:
352
- if ((freg + 1) >= NFREGARG)
353
- continue;
354
- freg = (freg + 1) & ~1;
355
- freg += 2;
356
- cif->flags += ((cif->arg_types)[i]->type) << (2 * j);
357
- j++;
358
- break;
359
-
360
- default:
361
- size = (cif->arg_types)[i]->size;
362
- n = (size + sizeof (int) - 1) / sizeof (int);
363
- if (greg + n - 1 >= NGREGARG)
364
- continue;
365
- greg += n;
366
- for (m = 0; m < n; m++)
367
- cif->flags += FFI_TYPE_INT << (2 * j++);
368
- break;
369
- }
370
- }
371
- #else
372
- for (i = j = 0; i < cif->nargs && j < 4; i++)
373
- {
374
- size = (cif->arg_types)[i]->size;
375
- n = (size + sizeof (int) - 1) / sizeof (int);
376
- if (greg >= NGREGARG)
377
- continue;
378
- else if (greg + n - 1 >= NGREGARG)
379
- n = NGREGARG - greg;
380
- greg += n;
381
- for (m = 0; m < n; m++)
382
- cif->flags += FFI_TYPE_INT << (2 * j++);
383
- }
384
- #endif
385
-
386
- /* Set the return type flag */
387
- switch (cif->rtype->type)
388
- {
389
- case FFI_TYPE_STRUCT:
390
- cif->flags += (unsigned) (return_type (cif->rtype)) << 24;
391
- break;
392
-
393
- case FFI_TYPE_VOID:
394
- case FFI_TYPE_FLOAT:
395
- case FFI_TYPE_DOUBLE:
396
- case FFI_TYPE_SINT64:
397
- case FFI_TYPE_UINT64:
398
- cif->flags += (unsigned) cif->rtype->type << 24;
399
- break;
400
-
401
- default:
402
- cif->flags += FFI_TYPE_INT << 24;
403
- break;
404
- }
405
-
406
- return FFI_OK;
407
- }
408
-
409
- extern void ffi_call_SYSV(void (*)(char *, extended_cif *), extended_cif *,
410
- unsigned, unsigned, unsigned *, void (*fn)(void));
411
-
412
- void ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
413
- {
414
- extended_cif ecif;
415
- UINT64 trvalue;
416
-
417
- ecif.cif = cif;
418
- ecif.avalue = avalue;
419
-
420
- /* If the return value is a struct and we don't have a return */
421
- /* value address then we need to make one */
422
-
423
- if (cif->rtype->type == FFI_TYPE_STRUCT
424
- && return_type (cif->rtype) != FFI_TYPE_STRUCT)
425
- ecif.rvalue = &trvalue;
426
- else if ((rvalue == NULL) &&
427
- (cif->rtype->type == FFI_TYPE_STRUCT))
428
- {
429
- ecif.rvalue = alloca(cif->rtype->size);
430
- }
431
- else
432
- ecif.rvalue = rvalue;
433
-
434
- switch (cif->abi)
435
- {
436
- case FFI_SYSV:
437
- ffi_call_SYSV(ffi_prep_args, &ecif, cif->bytes, cif->flags, ecif.rvalue,
438
- fn);
439
- break;
440
- default:
441
- FFI_ASSERT(0);
442
- break;
443
- }
444
-
445
- if (rvalue
446
- && cif->rtype->type == FFI_TYPE_STRUCT
447
- && return_type (cif->rtype) != FFI_TYPE_STRUCT)
448
- memcpy (rvalue, &trvalue, cif->rtype->size);
449
- }
450
-
451
- extern void ffi_closure_SYSV (void);
452
- #if defined(__SH4__)
453
- extern void __ic_invalidate (void *line);
454
- #endif
455
-
456
- ffi_status
457
- ffi_prep_closure_loc (ffi_closure* closure,
458
- ffi_cif* cif,
459
- void (*fun)(ffi_cif*, void*, void**, void*),
460
- void *user_data,
461
- void *codeloc)
462
- {
463
- unsigned int *tramp;
464
- unsigned int insn;
465
-
466
- if (cif->abi != FFI_SYSV)
467
- return FFI_BAD_ABI;
468
-
469
- tramp = (unsigned int *) &closure->tramp[0];
470
- /* Set T bit if the function returns a struct pointed with R2. */
471
- insn = (return_type (cif->rtype) == FFI_TYPE_STRUCT
472
- ? 0x0018 /* sett */
473
- : 0x0008 /* clrt */);
474
-
475
- #ifdef __LITTLE_ENDIAN__
476
- tramp[0] = 0xd301d102;
477
- tramp[1] = 0x0000412b | (insn << 16);
478
- #else
479
- tramp[0] = 0xd102d301;
480
- tramp[1] = 0x412b0000 | insn;
481
- #endif
482
- *(void **) &tramp[2] = (void *)codeloc; /* ctx */
483
- *(void **) &tramp[3] = (void *)ffi_closure_SYSV; /* funaddr */
484
-
485
- closure->cif = cif;
486
- closure->fun = fun;
487
- closure->user_data = user_data;
488
-
489
- #if defined(__SH4__)
490
- /* Flush the icache. */
491
- __ic_invalidate(codeloc);
492
- #endif
493
-
494
- return FFI_OK;
495
- }
496
-
497
- /* Basically the trampoline invokes ffi_closure_SYSV, and on
498
- * entry, r3 holds the address of the closure.
499
- * After storing the registers that could possibly contain
500
- * parameters to be passed into the stack frame and setting
501
- * up space for a return value, ffi_closure_SYSV invokes the
502
- * following helper function to do most of the work.
503
- */
504
-
505
- #ifdef __LITTLE_ENDIAN__
506
- #define OFS_INT8 0
507
- #define OFS_INT16 0
508
- #else
509
- #define OFS_INT8 3
510
- #define OFS_INT16 2
511
- #endif
512
-
513
- int
514
- ffi_closure_helper_SYSV (ffi_closure *closure, void *rvalue,
515
- unsigned long *pgr, unsigned long *pfr,
516
- unsigned long *pst)
517
- {
518
- void **avalue;
519
- ffi_type **p_arg;
520
- int i, avn;
521
- int ireg, greg = 0;
522
- #if defined(__SH4__)
523
- int freg = 0;
524
- #endif
525
- ffi_cif *cif;
526
-
527
- cif = closure->cif;
528
- avalue = alloca(cif->nargs * sizeof(void *));
529
-
530
- /* Copy the caller's structure return value address so that the closure
531
- returns the data directly to the caller. */
532
- if (cif->rtype->type == FFI_TYPE_STRUCT && STRUCT_VALUE_ADDRESS_WITH_ARG)
533
- {
534
- rvalue = (void *) *pgr++;
535
- ireg = 1;
536
- }
537
- else
538
- ireg = 0;
539
-
540
- cif = closure->cif;
541
- greg = ireg;
542
- avn = cif->nargs;
543
-
544
- /* Grab the addresses of the arguments from the stack frame. */
545
- for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
546
- {
547
- size_t z;
548
-
549
- z = (*p_arg)->size;
550
- if (z < sizeof(int))
551
- {
552
- if (greg++ >= NGREGARG)
553
- continue;
554
-
555
- z = sizeof(int);
556
- switch ((*p_arg)->type)
557
- {
558
- case FFI_TYPE_SINT8:
559
- case FFI_TYPE_UINT8:
560
- avalue[i] = (((char *)pgr) + OFS_INT8);
561
- break;
562
-
563
- case FFI_TYPE_SINT16:
564
- case FFI_TYPE_UINT16:
565
- avalue[i] = (((char *)pgr) + OFS_INT16);
566
- break;
567
-
568
- case FFI_TYPE_STRUCT:
569
- avalue[i] = pgr;
570
- break;
571
-
572
- default:
573
- FFI_ASSERT(0);
574
- }
575
- pgr++;
576
- }
577
- else if (z == sizeof(int))
578
- {
579
- #if defined(__SH4__)
580
- if ((*p_arg)->type == FFI_TYPE_FLOAT)
581
- {
582
- if (freg++ >= NFREGARG)
583
- continue;
584
- avalue[i] = pfr;
585
- pfr++;
586
- }
587
- else
588
- #endif
589
- {
590
- if (greg++ >= NGREGARG)
591
- continue;
592
- avalue[i] = pgr;
593
- pgr++;
594
- }
595
- }
596
- #if defined(__SH4__)
597
- else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
598
- {
599
- if (freg + 1 >= NFREGARG)
600
- continue;
601
- if (freg & 1)
602
- pfr++;
603
- freg = (freg + 1) & ~1;
604
- freg += 2;
605
- avalue[i] = pfr;
606
- pfr += 2;
607
- }
608
- #endif
609
- else
610
- {
611
- int n = (z + sizeof (int) - 1) / sizeof (int);
612
- #if defined(__SH4__)
613
- if (greg + n - 1 >= NGREGARG)
614
- continue;
615
- #else
616
- if (greg >= NGREGARG)
617
- continue;
618
- #endif
619
- greg += n;
620
- avalue[i] = pgr;
621
- pgr += n;
622
- }
623
- }
624
-
625
- greg = ireg;
626
- #if defined(__SH4__)
627
- freg = 0;
628
- #endif
629
-
630
- for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
631
- {
632
- size_t z;
633
-
634
- z = (*p_arg)->size;
635
- if (z < sizeof(int))
636
- {
637
- if (greg++ < NGREGARG)
638
- continue;
639
-
640
- z = sizeof(int);
641
- switch ((*p_arg)->type)
642
- {
643
- case FFI_TYPE_SINT8:
644
- case FFI_TYPE_UINT8:
645
- avalue[i] = (((char *)pst) + OFS_INT8);
646
- break;
647
-
648
- case FFI_TYPE_SINT16:
649
- case FFI_TYPE_UINT16:
650
- avalue[i] = (((char *)pst) + OFS_INT16);
651
- break;
652
-
653
- case FFI_TYPE_STRUCT:
654
- avalue[i] = pst;
655
- break;
656
-
657
- default:
658
- FFI_ASSERT(0);
659
- }
660
- pst++;
661
- }
662
- else if (z == sizeof(int))
663
- {
664
- #if defined(__SH4__)
665
- if ((*p_arg)->type == FFI_TYPE_FLOAT)
666
- {
667
- if (freg++ < NFREGARG)
668
- continue;
669
- }
670
- else
671
- #endif
672
- {
673
- if (greg++ < NGREGARG)
674
- continue;
675
- }
676
- avalue[i] = pst;
677
- pst++;
678
- }
679
- #if defined(__SH4__)
680
- else if ((*p_arg)->type == FFI_TYPE_DOUBLE)
681
- {
682
- if (freg + 1 < NFREGARG)
683
- {
684
- freg = (freg + 1) & ~1;
685
- freg += 2;
686
- continue;
687
- }
688
- avalue[i] = pst;
689
- pst += 2;
690
- }
691
- #endif
692
- else
693
- {
694
- int n = (z + sizeof (int) - 1) / sizeof (int);
695
- if (greg + n - 1 < NGREGARG)
696
- {
697
- greg += n;
698
- continue;
699
- }
700
- #if (! defined(__SH4__))
701
- else if (greg < NGREGARG)
702
- {
703
- greg += n;
704
- pst += greg - NGREGARG;
705
- continue;
706
- }
707
- #endif
708
- avalue[i] = pst;
709
- pst += n;
710
- }
711
- }
712
-
713
- (closure->fun) (cif, rvalue, avalue, closure->user_data);
714
-
715
- /* Tell ffi_closure_SYSV how to perform return type promotions. */
716
- return return_type (cif->rtype);
717
- }