minilab 1.1.0-x86-mswin32-60

Sign up to get free protection for your applications and to get access to all the features.
Files changed (492) hide show
  1. data/CHANGES +8 -0
  2. data/LICENSE +19 -0
  3. data/README +105 -0
  4. data/Rakefile +83 -0
  5. data/config/environment.rb +23 -0
  6. data/config/objects.yml +23 -0
  7. data/lib/analog_io.rb +23 -0
  8. data/lib/connection_state.rb +13 -0
  9. data/lib/digital_auxport_io.rb +34 -0
  10. data/lib/digital_configuration.rb +53 -0
  11. data/lib/digital_port_io.rb +39 -0
  12. data/lib/library_translator.rb +46 -0
  13. data/lib/minilab.rb +130 -0
  14. data/lib/minilab_constants.rb +20 -0
  15. data/lib/minilab_context.rb +14 -0
  16. data/lib/minilab_hardware.rb +112 -0
  17. data/lib/minilab_wrapper.rb +12 -0
  18. data/test/system/analog_input.test +3 -0
  19. data/test/system/analog_output.test +37 -0
  20. data/test/system/digital_port_input.test +5 -0
  21. data/test/system/digital_port_output.test +39 -0
  22. data/test/system/digital_port_read_byte.test +26 -0
  23. data/test/system/digital_screw_terminals_input.test +2 -0
  24. data/test/system/digital_screw_terminals_output.test +11 -0
  25. data/test/system/minilab_driver.rb +83 -0
  26. data/test/test_helper.rb +15 -0
  27. data/test/unit/analog_io_test.rb +54 -0
  28. data/test/unit/connection_state_test.rb +18 -0
  29. data/test/unit/digital_auxport_io_test.rb +102 -0
  30. data/test/unit/digital_configuration_test.rb +100 -0
  31. data/test/unit/digital_port_io_test.rb +67 -0
  32. data/test/unit/library_translator_test.rb +98 -0
  33. data/test/unit/minilab_context_test.rb +23 -0
  34. data/test/unit/minilab_hardware_test.rb +33 -0
  35. data/test/unit/minilab_test.rb +115 -0
  36. data/test/unit/minilab_wrapper_test.rb +24 -0
  37. data/vendor/behaviors/lib/behaviors.rb +50 -0
  38. data/vendor/behaviors/tasks/behaviors_tasks.rake +140 -0
  39. data/vendor/behaviors/test/behaviors_tasks_test.rb +71 -0
  40. data/vendor/behaviors/test/behaviors_test.rb +50 -0
  41. data/vendor/behaviors/test/tasks_test/Rakefile +16 -0
  42. data/vendor/behaviors/test/tasks_test/doc/behaviors.html +55 -0
  43. data/vendor/behaviors/test/tasks_test/lib/user.rb +2 -0
  44. data/vendor/behaviors/test/tasks_test/test/user_test.rb +17 -0
  45. data/vendor/constructor-1.0.2/History.txt +11 -0
  46. data/vendor/constructor-1.0.2/Manifest.txt +6 -0
  47. data/vendor/constructor-1.0.2/README.txt +77 -0
  48. data/vendor/constructor-1.0.2/Rakefile +33 -0
  49. data/vendor/constructor-1.0.2/lib/constructor.rb +119 -0
  50. data/vendor/constructor-1.0.2/specs/constructor_spec.rb +345 -0
  51. data/vendor/diy-1.1.1/History.txt +23 -0
  52. data/vendor/diy-1.1.1/Manifest.txt +88 -0
  53. data/vendor/diy-1.1.1/README.txt +220 -0
  54. data/vendor/diy-1.1.1/Rakefile +29 -0
  55. data/vendor/diy-1.1.1/TODO.txt +9 -0
  56. data/vendor/diy-1.1.1/homepage/Notes.txt +27 -0
  57. data/vendor/diy-1.1.1/homepage/Rakefile +14 -0
  58. data/vendor/diy-1.1.1/homepage/diy_example.png +0 -0
  59. data/vendor/diy-1.1.1/homepage/index.erb +36 -0
  60. data/vendor/diy-1.1.1/homepage/index.html +45 -0
  61. data/vendor/diy-1.1.1/homepage/objects_yml.png +0 -0
  62. data/vendor/diy-1.1.1/homepage/page_header.graffle +0 -0
  63. data/vendor/diy-1.1.1/homepage/page_header.html +9 -0
  64. data/vendor/diy-1.1.1/homepage/page_header.png +0 -0
  65. data/vendor/diy-1.1.1/lib/diy.rb +365 -0
  66. data/vendor/diy-1.1.1/sample_code/car.rb +7 -0
  67. data/vendor/diy-1.1.1/sample_code/chassis.rb +5 -0
  68. data/vendor/diy-1.1.1/sample_code/diy_example.rb +26 -0
  69. data/vendor/diy-1.1.1/sample_code/engine.rb +5 -0
  70. data/vendor/diy-1.1.1/sample_code/objects.yml +10 -0
  71. data/vendor/diy-1.1.1/test/constructor.rb +119 -0
  72. data/vendor/diy-1.1.1/test/diy_test.rb +604 -0
  73. data/vendor/diy-1.1.1/test/files/broken_construction.yml +7 -0
  74. data/vendor/diy-1.1.1/test/files/cat/cat.rb +3 -0
  75. data/vendor/diy-1.1.1/test/files/cat/extra_conflict.yml +5 -0
  76. data/vendor/diy-1.1.1/test/files/cat/heritage.rb +2 -0
  77. data/vendor/diy-1.1.1/test/files/cat/needs_input.yml +3 -0
  78. data/vendor/diy-1.1.1/test/files/cat/the_cat_lineage.rb +1 -0
  79. data/vendor/diy-1.1.1/test/files/dog/dog_model.rb +3 -0
  80. data/vendor/diy-1.1.1/test/files/dog/dog_presenter.rb +3 -0
  81. data/vendor/diy-1.1.1/test/files/dog/dog_view.rb +2 -0
  82. data/vendor/diy-1.1.1/test/files/dog/file_resolver.rb +2 -0
  83. data/vendor/diy-1.1.1/test/files/dog/other_thing.rb +2 -0
  84. data/vendor/diy-1.1.1/test/files/dog/simple.yml +11 -0
  85. data/vendor/diy-1.1.1/test/files/donkey/foo.rb +8 -0
  86. data/vendor/diy-1.1.1/test/files/donkey/foo/bar/qux.rb +7 -0
  87. data/vendor/diy-1.1.1/test/files/fud/objects.yml +13 -0
  88. data/vendor/diy-1.1.1/test/files/fud/toy.rb +14 -0
  89. data/vendor/diy-1.1.1/test/files/functions/invalid_method.yml +5 -0
  90. data/vendor/diy-1.1.1/test/files/functions/method_extractor.rb +3 -0
  91. data/vendor/diy-1.1.1/test/files/functions/nonsingleton_objects.yml +6 -0
  92. data/vendor/diy-1.1.1/test/files/functions/objects.yml +11 -0
  93. data/vendor/diy-1.1.1/test/files/functions/thing.rb +3 -0
  94. data/vendor/diy-1.1.1/test/files/functions/thing_builder.rb +21 -0
  95. data/vendor/diy-1.1.1/test/files/functions/things_builder.rb +3 -0
  96. data/vendor/diy-1.1.1/test/files/gnu/objects.yml +14 -0
  97. data/vendor/diy-1.1.1/test/files/gnu/thinger.rb +7 -0
  98. data/vendor/diy-1.1.1/test/files/goat/base.rb +8 -0
  99. data/vendor/diy-1.1.1/test/files/goat/can.rb +6 -0
  100. data/vendor/diy-1.1.1/test/files/goat/goat.rb +6 -0
  101. data/vendor/diy-1.1.1/test/files/goat/objects.yml +12 -0
  102. data/vendor/diy-1.1.1/test/files/goat/paper.rb +6 -0
  103. data/vendor/diy-1.1.1/test/files/goat/plane.rb +7 -0
  104. data/vendor/diy-1.1.1/test/files/goat/shirt.rb +6 -0
  105. data/vendor/diy-1.1.1/test/files/goat/wings.rb +8 -0
  106. data/vendor/diy-1.1.1/test/files/horse/holder_thing.rb +3 -0
  107. data/vendor/diy-1.1.1/test/files/horse/objects.yml +7 -0
  108. data/vendor/diy-1.1.1/test/files/namespace/animal/bird.rb +5 -0
  109. data/vendor/diy-1.1.1/test/files/namespace/animal/cat.rb +5 -0
  110. data/vendor/diy-1.1.1/test/files/namespace/animal/reptile/hardshell/turtle.rb +8 -0
  111. data/vendor/diy-1.1.1/test/files/namespace/animal/reptile/lizard.rb +7 -0
  112. data/vendor/diy-1.1.1/test/files/namespace/bad_module_specified.yml +8 -0
  113. data/vendor/diy-1.1.1/test/files/namespace/class_name_combine.yml +8 -0
  114. data/vendor/diy-1.1.1/test/files/namespace/hello.txt +1 -0
  115. data/vendor/diy-1.1.1/test/files/namespace/no_module_specified.yml +8 -0
  116. data/vendor/diy-1.1.1/test/files/namespace/objects.yml +21 -0
  117. data/vendor/diy-1.1.1/test/files/namespace/road.rb +2 -0
  118. data/vendor/diy-1.1.1/test/files/namespace/sky.rb +2 -0
  119. data/vendor/diy-1.1.1/test/files/namespace/subcontext.yml +22 -0
  120. data/vendor/diy-1.1.1/test/files/non_singleton/air.rb +2 -0
  121. data/vendor/diy-1.1.1/test/files/non_singleton/fat_cat.rb +3 -0
  122. data/vendor/diy-1.1.1/test/files/non_singleton/objects.yml +19 -0
  123. data/vendor/diy-1.1.1/test/files/non_singleton/pig.rb +3 -0
  124. data/vendor/diy-1.1.1/test/files/non_singleton/thread_spinner.rb +3 -0
  125. data/vendor/diy-1.1.1/test/files/non_singleton/tick.rb +3 -0
  126. data/vendor/diy-1.1.1/test/files/non_singleton/yard.rb +2 -0
  127. data/vendor/diy-1.1.1/test/files/yak/core_model.rb +3 -0
  128. data/vendor/diy-1.1.1/test/files/yak/core_presenter.rb +3 -0
  129. data/vendor/diy-1.1.1/test/files/yak/core_view.rb +1 -0
  130. data/vendor/diy-1.1.1/test/files/yak/data_source.rb +1 -0
  131. data/vendor/diy-1.1.1/test/files/yak/fringe_model.rb +3 -0
  132. data/vendor/diy-1.1.1/test/files/yak/fringe_presenter.rb +3 -0
  133. data/vendor/diy-1.1.1/test/files/yak/fringe_view.rb +1 -0
  134. data/vendor/diy-1.1.1/test/files/yak/giant_squid.rb +3 -0
  135. data/vendor/diy-1.1.1/test/files/yak/krill.rb +2 -0
  136. data/vendor/diy-1.1.1/test/files/yak/my_objects.yml +21 -0
  137. data/vendor/diy-1.1.1/test/files/yak/sub_sub_context_test.yml +27 -0
  138. data/vendor/diy-1.1.1/test/test_helper.rb +39 -0
  139. data/vendor/ffi-0.4.0-x86-mswin32/LICENSE +51 -0
  140. data/vendor/ffi-0.4.0-x86-mswin32/Rakefile +142 -0
  141. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/AbstractMemory.c +412 -0
  142. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/AbstractMemory.h +68 -0
  143. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/AutoPointer.c +60 -0
  144. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/AutoPointer.h +18 -0
  145. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Buffer.c +171 -0
  146. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Callback.c +374 -0
  147. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Callback.h +47 -0
  148. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/DynamicLibrary.c +213 -0
  149. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/DynamicLibrary.h +22 -0
  150. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Invoker.c +962 -0
  151. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/LastError.c +135 -0
  152. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/LastError.h +18 -0
  153. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/MemoryPointer.c +156 -0
  154. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/MemoryPointer.h +20 -0
  155. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/NullPointer.c +143 -0
  156. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Platform.c +59 -0
  157. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Platform.h +16 -0
  158. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Pointer.c +164 -0
  159. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Pointer.h +25 -0
  160. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Struct.c +477 -0
  161. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Struct.h +26 -0
  162. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Type.c +230 -0
  163. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Type.h +28 -0
  164. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Types.c +118 -0
  165. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/Types.h +54 -0
  166. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/compat.h +22 -0
  167. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/endian.h +40 -0
  168. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/extconf.rb +31 -0
  169. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/ffi.c +76 -0
  170. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi.bsd.mk +34 -0
  171. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi.darwin.mk +75 -0
  172. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi.gnu.mk +29 -0
  173. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi.mk +13 -0
  174. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ChangeLog +3243 -0
  175. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ChangeLog.libffi +347 -0
  176. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
  177. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
  178. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/LICENSE +21 -0
  179. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/Makefile.am +177 -0
  180. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/Makefile.in +1640 -0
  181. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/README +328 -0
  182. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/TODO +1 -0
  183. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/acinclude.m4 +92 -0
  184. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/aclocal.m4 +7516 -0
  185. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/compile +142 -0
  186. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/config.guess +1516 -0
  187. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/config.sub +1626 -0
  188. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/configure +24414 -0
  189. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/configure.ac +365 -0
  190. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/configure.host +11 -0
  191. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/depcomp +584 -0
  192. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/doc/libffi.info +533 -0
  193. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/doc/libffi.texi +541 -0
  194. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/doc/stamp-vti +4 -0
  195. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/doc/version.texi +4 -0
  196. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/fficonfig.h.in +160 -0
  197. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/include/Makefile.am +9 -0
  198. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/include/Makefile.in +422 -0
  199. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/include/ffi.h.in +393 -0
  200. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/include/ffi_common.h +98 -0
  201. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/install-sh +323 -0
  202. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/libffi.pc.in +10 -0
  203. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/libtool-version +29 -0
  204. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ltcf-c.sh +861 -0
  205. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ltcf-cxx.sh +1069 -0
  206. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ltcf-gcj.sh +700 -0
  207. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ltconfig +2862 -0
  208. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/ltmain.sh +6930 -0
  209. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/man/Makefile.am +8 -0
  210. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/man/Makefile.in +395 -0
  211. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/man/ffi.3 +31 -0
  212. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
  213. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/man/ffi_prep_cif.3 +66 -0
  214. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/mdate-sh +201 -0
  215. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/missing +353 -0
  216. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/mkinstalldirs +158 -0
  217. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/alpha/ffi.c +284 -0
  218. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/alpha/ffitarget.h +48 -0
  219. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/alpha/osf.S +366 -0
  220. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/arm/ffi.c +309 -0
  221. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/arm/ffitarget.h +49 -0
  222. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/arm/sysv.S +299 -0
  223. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/closures.c +596 -0
  224. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/cris/ffi.c +383 -0
  225. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/cris/ffitarget.h +51 -0
  226. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
  227. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/debug.c +59 -0
  228. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/dlmalloc.c +5099 -0
  229. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
  230. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
  231. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/frv/ffitarget.h +61 -0
  232. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/ia64/ffi.c +580 -0
  233. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/ia64/ffitarget.h +50 -0
  234. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
  235. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/ia64/unix.S +560 -0
  236. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/java_raw_api.c +359 -0
  237. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
  238. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/m32r/ffitarget.h +48 -0
  239. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
  240. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/m68k/ffi.c +278 -0
  241. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/m68k/ffitarget.h +49 -0
  242. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/m68k/sysv.S +234 -0
  243. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/mips/ffi.c +926 -0
  244. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/mips/ffitarget.h +202 -0
  245. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/mips/n32.S +534 -0
  246. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/mips/o32.S +381 -0
  247. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/pa/ffi.c +709 -0
  248. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/pa/ffitarget.h +77 -0
  249. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
  250. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/pa/linux.S +357 -0
  251. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/aix.S +225 -0
  252. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/aix_closure.S +247 -0
  253. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
  254. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/darwin.S +245 -0
  255. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +317 -0
  256. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/ffi.c +1429 -0
  257. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +800 -0
  258. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/ffitarget.h +118 -0
  259. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/linux64.S +187 -0
  260. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +236 -0
  261. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +327 -0
  262. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/powerpc/sysv.S +230 -0
  263. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/prep_cif.c +174 -0
  264. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/raw_api.c +254 -0
  265. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/s390/ffi.c +780 -0
  266. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/s390/ffitarget.h +60 -0
  267. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/s390/sysv.S +434 -0
  268. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sh/ffi.c +716 -0
  269. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sh/ffitarget.h +49 -0
  270. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
  271. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sh64/ffi.c +453 -0
  272. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sh64/ffitarget.h +53 -0
  273. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sh64/sysv.S +530 -0
  274. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sparc/ffi.c +610 -0
  275. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sparc/ffitarget.h +66 -0
  276. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sparc/v8.S +272 -0
  277. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/sparc/v9.S +307 -0
  278. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/types.c +77 -0
  279. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/darwin.S +443 -0
  280. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/darwin64.S +416 -0
  281. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/ffi.c +475 -0
  282. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/ffi64.c +572 -0
  283. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/ffitarget.h +90 -0
  284. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/freebsd.S +458 -0
  285. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/sysv.S +437 -0
  286. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/unix64.S +418 -0
  287. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/src/x86/win32.S +391 -0
  288. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/Makefile.am +71 -0
  289. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/Makefile.in +447 -0
  290. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
  291. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/lib/libffi-dg.exp +289 -0
  292. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +263 -0
  293. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
  294. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +36 -0
  295. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +97 -0
  296. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +89 -0
  297. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +89 -0
  298. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +90 -0
  299. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +97 -0
  300. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +99 -0
  301. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +98 -0
  302. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/closure_stdcall.c +72 -0
  303. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +102 -0
  304. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +103 -0
  305. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +104 -0
  306. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +110 -0
  307. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +97 -0
  308. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +99 -0
  309. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +101 -0
  310. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +121 -0
  311. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +98 -0
  312. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +103 -0
  313. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +98 -0
  314. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +98 -0
  315. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +106 -0
  316. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +98 -0
  317. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +117 -0
  318. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +106 -0
  319. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +132 -0
  320. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +121 -0
  321. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +107 -0
  322. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +125 -0
  323. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +105 -0
  324. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +96 -0
  325. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +98 -0
  326. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +99 -0
  327. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +101 -0
  328. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +99 -0
  329. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +100 -0
  330. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +101 -0
  331. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +99 -0
  332. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +99 -0
  333. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +99 -0
  334. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +99 -0
  335. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +99 -0
  336. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +100 -0
  337. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +51 -0
  338. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +51 -0
  339. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +82 -0
  340. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +82 -0
  341. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +94 -0
  342. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +99 -0
  343. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +82 -0
  344. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +94 -0
  345. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +52 -0
  346. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +50 -0
  347. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +50 -0
  348. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +50 -0
  349. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +51 -0
  350. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +54 -0
  351. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +51 -0
  352. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +86 -0
  353. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
  354. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +58 -0
  355. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +57 -0
  356. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +72 -0
  357. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
  358. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/many.c +69 -0
  359. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/many_win32.c +63 -0
  360. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +53 -0
  361. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +160 -0
  362. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +169 -0
  363. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +141 -0
  364. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +118 -0
  365. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +119 -0
  366. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +119 -0
  367. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +120 -0
  368. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +139 -0
  369. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +119 -0
  370. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +139 -0
  371. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +139 -0
  372. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +98 -0
  373. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
  374. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
  375. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +35 -0
  376. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
  377. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
  378. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
  379. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
  380. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
  381. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
  382. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
  383. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
  384. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +42 -0
  385. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
  386. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
  387. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
  388. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
  389. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
  390. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/strlen_win32.c +44 -0
  391. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +65 -0
  392. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
  393. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +59 -0
  394. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +63 -0
  395. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +65 -0
  396. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
  397. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
  398. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +80 -0
  399. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +67 -0
  400. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.special/ffitestcxx.h +86 -0
  401. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.special/special.exp +38 -0
  402. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest.cc +123 -0
  403. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/testsuite/libffi.special/unwindtest_ffi_call.cc +53 -0
  404. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/libffi/texinfo.tex +7482 -0
  405. data/vendor/ffi-0.4.0-x86-mswin32/ext/ffi_c/rbffi.h +23 -0
  406. data/vendor/ffi-0.4.0-x86-mswin32/gen/Rakefile +12 -0
  407. data/vendor/ffi-0.4.0-x86-mswin32/lib/1.8/ffi_c.so +0 -0
  408. data/vendor/ffi-0.4.0-x86-mswin32/lib/1.9/ffi_c.so +0 -0
  409. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi.rb +11 -0
  410. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/autopointer.rb +61 -0
  411. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/buffer.rb +0 -0
  412. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/callback.rb +10 -0
  413. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/enum.rb +78 -0
  414. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/errno.rb +8 -0
  415. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/ffi.rb +96 -0
  416. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/io.rb +21 -0
  417. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/library.rb +243 -0
  418. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/managedstruct.rb +55 -0
  419. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/memorypointer.rb +73 -0
  420. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/platform.rb +78 -0
  421. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/pointer.rb +119 -0
  422. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/struct.rb +354 -0
  423. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/tools/const_generator.rb +177 -0
  424. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/tools/generator.rb +58 -0
  425. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/tools/generator_task.rb +35 -0
  426. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/tools/struct_generator.rb +194 -0
  427. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/tools/types_generator.rb +123 -0
  428. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/types.rb +153 -0
  429. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/union.rb +17 -0
  430. data/vendor/ffi-0.4.0-x86-mswin32/lib/ffi/variadic.rb +30 -0
  431. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/bool_spec.rb +24 -0
  432. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/buffer_spec.rb +196 -0
  433. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/callback_spec.rb +560 -0
  434. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/enum_spec.rb +164 -0
  435. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/errno_spec.rb +13 -0
  436. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/library_spec.rb +144 -0
  437. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/managed_struct_spec.rb +56 -0
  438. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/number_spec.rb +231 -0
  439. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/pointer_spec.rb +195 -0
  440. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/rbx/attach_function_spec.rb +27 -0
  441. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/rbx/memory_pointer_spec.rb +102 -0
  442. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/rbx/spec_helper.rb +1 -0
  443. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/rbx/struct_spec.rb +13 -0
  444. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/spec_helper.rb +17 -0
  445. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/string_spec.rb +103 -0
  446. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/struct_callback_spec.rb +41 -0
  447. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/struct_initialize_spec.rb +30 -0
  448. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/struct_spec.rb +476 -0
  449. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/typedef_spec.rb +48 -0
  450. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/union_spec.rb +60 -0
  451. data/vendor/ffi-0.4.0-x86-mswin32/spec/ffi/variadic_spec.rb +84 -0
  452. data/vendor/ffi-0.4.0-x86-mswin32/spec/spec.opts +4 -0
  453. data/vendor/hardmock-1.3.7/CHANGES +78 -0
  454. data/vendor/hardmock-1.3.7/LICENSE +7 -0
  455. data/vendor/hardmock-1.3.7/README +70 -0
  456. data/vendor/hardmock-1.3.7/Rakefile +8 -0
  457. data/vendor/hardmock-1.3.7/config/environment.rb +12 -0
  458. data/vendor/hardmock-1.3.7/lib/assert_error.rb +23 -0
  459. data/vendor/hardmock-1.3.7/lib/extend_test_unit.rb +14 -0
  460. data/vendor/hardmock-1.3.7/lib/hardmock.rb +86 -0
  461. data/vendor/hardmock-1.3.7/lib/hardmock/errors.rb +22 -0
  462. data/vendor/hardmock-1.3.7/lib/hardmock/expectation.rb +229 -0
  463. data/vendor/hardmock-1.3.7/lib/hardmock/expectation_builder.rb +9 -0
  464. data/vendor/hardmock-1.3.7/lib/hardmock/expector.rb +26 -0
  465. data/vendor/hardmock-1.3.7/lib/hardmock/method_cleanout.rb +33 -0
  466. data/vendor/hardmock-1.3.7/lib/hardmock/mock.rb +180 -0
  467. data/vendor/hardmock-1.3.7/lib/hardmock/mock_control.rb +53 -0
  468. data/vendor/hardmock-1.3.7/lib/hardmock/stubbing.rb +210 -0
  469. data/vendor/hardmock-1.3.7/lib/hardmock/trapper.rb +31 -0
  470. data/vendor/hardmock-1.3.7/lib/hardmock/utils.rb +9 -0
  471. data/vendor/hardmock-1.3.7/lib/test_unit_before_after.rb +169 -0
  472. data/vendor/hardmock-1.3.7/rake_tasks/test.rake +22 -0
  473. data/vendor/hardmock-1.3.7/test/functional/assert_error_test.rb +52 -0
  474. data/vendor/hardmock-1.3.7/test/functional/auto_verify_test.rb +178 -0
  475. data/vendor/hardmock-1.3.7/test/functional/direct_mock_usage_test.rb +396 -0
  476. data/vendor/hardmock-1.3.7/test/functional/hardmock_test.rb +434 -0
  477. data/vendor/hardmock-1.3.7/test/functional/stubbing_test.rb +479 -0
  478. data/vendor/hardmock-1.3.7/test/test_helper.rb +43 -0
  479. data/vendor/hardmock-1.3.7/test/unit/expectation_builder_test.rb +19 -0
  480. data/vendor/hardmock-1.3.7/test/unit/expectation_test.rb +372 -0
  481. data/vendor/hardmock-1.3.7/test/unit/expector_test.rb +57 -0
  482. data/vendor/hardmock-1.3.7/test/unit/method_cleanout_test.rb +36 -0
  483. data/vendor/hardmock-1.3.7/test/unit/mock_control_test.rb +175 -0
  484. data/vendor/hardmock-1.3.7/test/unit/mock_test.rb +279 -0
  485. data/vendor/hardmock-1.3.7/test/unit/test_unit_before_after_test.rb +452 -0
  486. data/vendor/hardmock-1.3.7/test/unit/trapper_test.rb +62 -0
  487. data/vendor/hardmock-1.3.7/test/unit/verify_error_test.rb +40 -0
  488. data/vendor/mcc/cbw32.dll +0 -0
  489. data/vendor/systir/systir.rb +403 -0
  490. data/vendor/systir/test/unit/ui/xml/testrunner.rb +192 -0
  491. data/vendor/systir/test/unit/ui/xml/xmltestrunner.xslt +109 -0
  492. metadata +561 -0
@@ -0,0 +1,381 @@
1
+ /* -----------------------------------------------------------------------
2
+ o32.S - Copyright (c) 1996, 1998, 2005 Red Hat, Inc.
3
+
4
+ MIPS Foreign Function Interface
5
+
6
+ Permission is hereby granted, free of charge, to any person obtaining
7
+ a copy of this software and associated documentation files (the
8
+ ``Software''), to deal in the Software without restriction, including
9
+ without limitation the rights to use, copy, modify, merge, publish,
10
+ distribute, sublicense, and/or sell copies of the Software, and to
11
+ permit persons to whom the Software is furnished to do so, subject to
12
+ the following conditions:
13
+
14
+ The above copyright notice and this permission notice shall be included
15
+ in all copies or substantial portions of the Software.
16
+
17
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
18
+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
20
+ IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
21
+ ANY CLAIM, DAMAGES OR
22
+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
23
+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24
+ OTHER DEALINGS IN THE SOFTWARE.
25
+ ----------------------------------------------------------------------- */
26
+
27
+ #define LIBFFI_ASM
28
+ #include <fficonfig.h>
29
+ #include <ffi.h>
30
+
31
+ /* Only build this code if we are compiling for o32 */
32
+
33
+ #if defined(FFI_MIPS_O32)
34
+
35
+ #define callback a0
36
+ #define bytes a2
37
+ #define flags a3
38
+
39
+ #define SIZEOF_FRAME (4 * FFI_SIZEOF_ARG + 2 * FFI_SIZEOF_ARG)
40
+ #define A3_OFF (SIZEOF_FRAME + 3 * FFI_SIZEOF_ARG)
41
+ #define FP_OFF (SIZEOF_FRAME - 2 * FFI_SIZEOF_ARG)
42
+ #define RA_OFF (SIZEOF_FRAME - 1 * FFI_SIZEOF_ARG)
43
+
44
+ .abicalls
45
+ .text
46
+ .align 2
47
+ .globl ffi_call_O32
48
+ .ent ffi_call_O32
49
+ ffi_call_O32:
50
+ $LFB0:
51
+ # Prologue
52
+ SUBU $sp, SIZEOF_FRAME # Frame size
53
+ $LCFI0:
54
+ REG_S $fp, FP_OFF($sp) # Save frame pointer
55
+ $LCFI1:
56
+ REG_S ra, RA_OFF($sp) # Save return address
57
+ $LCFI2:
58
+ move $fp, $sp
59
+
60
+ $LCFI3:
61
+ move t9, callback # callback function pointer
62
+ REG_S flags, A3_OFF($fp) # flags
63
+
64
+ # Allocate at least 4 words in the argstack
65
+ LI v0, 4 * FFI_SIZEOF_ARG
66
+ blt bytes, v0, sixteen
67
+
68
+ ADDU v0, bytes, 7 # make sure it is aligned
69
+ and v0, -8 # to an 8 byte boundry
70
+
71
+ sixteen:
72
+ SUBU $sp, v0 # move the stack pointer to reflect the
73
+ # arg space
74
+
75
+ ADDU a0, $sp, 4 * FFI_SIZEOF_ARG
76
+
77
+ jalr t9
78
+
79
+ REG_L t0, A3_OFF($fp) # load the flags word
80
+ SRL t2, t0, 4 # shift our arg info
81
+ and t0, ((1<<4)-1) # mask out the return type
82
+
83
+ ADDU $sp, 4 * FFI_SIZEOF_ARG # adjust $sp to new args
84
+
85
+ bnez t0, pass_d # make it quick for int
86
+ REG_L a0, 0*FFI_SIZEOF_ARG($sp) # just go ahead and load the
87
+ REG_L a1, 1*FFI_SIZEOF_ARG($sp) # four regs.
88
+ REG_L a2, 2*FFI_SIZEOF_ARG($sp)
89
+ REG_L a3, 3*FFI_SIZEOF_ARG($sp)
90
+ b call_it
91
+
92
+ pass_d:
93
+ bne t0, FFI_ARGS_D, pass_f
94
+ l.d $f12, 0*FFI_SIZEOF_ARG($sp) # load $fp regs from args
95
+ REG_L a2, 2*FFI_SIZEOF_ARG($sp) # passing a double
96
+ REG_L a3, 3*FFI_SIZEOF_ARG($sp)
97
+ b call_it
98
+
99
+ pass_f:
100
+ bne t0, FFI_ARGS_F, pass_d_d
101
+ l.s $f12, 0*FFI_SIZEOF_ARG($sp) # load $fp regs from args
102
+ REG_L a1, 1*FFI_SIZEOF_ARG($sp) # passing a float
103
+ REG_L a2, 2*FFI_SIZEOF_ARG($sp)
104
+ REG_L a3, 3*FFI_SIZEOF_ARG($sp)
105
+ b call_it
106
+
107
+ pass_d_d:
108
+ bne t0, FFI_ARGS_DD, pass_f_f
109
+ l.d $f12, 0*FFI_SIZEOF_ARG($sp) # load $fp regs from args
110
+ l.d $f14, 2*FFI_SIZEOF_ARG($sp) # passing two doubles
111
+ b call_it
112
+
113
+ pass_f_f:
114
+ bne t0, FFI_ARGS_FF, pass_d_f
115
+ l.s $f12, 0*FFI_SIZEOF_ARG($sp) # load $fp regs from args
116
+ l.s $f14, 1*FFI_SIZEOF_ARG($sp) # passing two floats
117
+ REG_L a2, 2*FFI_SIZEOF_ARG($sp)
118
+ REG_L a3, 3*FFI_SIZEOF_ARG($sp)
119
+ b call_it
120
+
121
+ pass_d_f:
122
+ bne t0, FFI_ARGS_DF, pass_f_d
123
+ l.d $f12, 0*FFI_SIZEOF_ARG($sp) # load $fp regs from args
124
+ l.s $f14, 2*FFI_SIZEOF_ARG($sp) # passing double and float
125
+ REG_L a3, 3*FFI_SIZEOF_ARG($sp)
126
+ b call_it
127
+
128
+ pass_f_d:
129
+ # assume that the only other combination must be float then double
130
+ # bne t0, FFI_ARGS_F_D, call_it
131
+ l.s $f12, 0*FFI_SIZEOF_ARG($sp) # load $fp regs from args
132
+ l.d $f14, 2*FFI_SIZEOF_ARG($sp) # passing double and float
133
+
134
+ call_it:
135
+ # Load the function pointer
136
+ REG_L t9, SIZEOF_FRAME + 5*FFI_SIZEOF_ARG($fp)
137
+
138
+ # If the return value pointer is NULL, assume no return value.
139
+ REG_L t1, SIZEOF_FRAME + 4*FFI_SIZEOF_ARG($fp)
140
+ beqz t1, noretval
141
+
142
+ bne t2, FFI_TYPE_INT, retlonglong
143
+ jalr t9
144
+ REG_L t0, SIZEOF_FRAME + 4*FFI_SIZEOF_ARG($fp)
145
+ REG_S v0, 0(t0)
146
+ b epilogue
147
+
148
+ retlonglong:
149
+ # Really any 64-bit int, signed or not.
150
+ bne t2, FFI_TYPE_UINT64, retfloat
151
+ jalr t9
152
+ REG_L t0, SIZEOF_FRAME + 4*FFI_SIZEOF_ARG($fp)
153
+ REG_S v1, 4(t0)
154
+ REG_S v0, 0(t0)
155
+ b epilogue
156
+
157
+ retfloat:
158
+ bne t2, FFI_TYPE_FLOAT, retdouble
159
+ jalr t9
160
+ REG_L t0, SIZEOF_FRAME + 4*FFI_SIZEOF_ARG($fp)
161
+ s.s $f0, 0(t0)
162
+ b epilogue
163
+
164
+ retdouble:
165
+ bne t2, FFI_TYPE_DOUBLE, noretval
166
+ jalr t9
167
+ REG_L t0, SIZEOF_FRAME + 4*FFI_SIZEOF_ARG($fp)
168
+ s.d $f0, 0(t0)
169
+ b epilogue
170
+
171
+ noretval:
172
+ jalr t9
173
+
174
+ # Epilogue
175
+ epilogue:
176
+ move $sp, $fp
177
+ REG_L $fp, FP_OFF($sp) # Restore frame pointer
178
+ REG_L ra, RA_OFF($sp) # Restore return address
179
+ ADDU $sp, SIZEOF_FRAME # Fix stack pointer
180
+ j ra
181
+
182
+ $LFE0:
183
+ .end ffi_call_O32
184
+
185
+
186
+ /* ffi_closure_O32. Expects address of the passed-in ffi_closure
187
+ in t4 ($12). Stores any arguments passed in registers onto the
188
+ stack, then calls ffi_closure_mips_inner_O32, which
189
+ then decodes them.
190
+
191
+ Stack layout:
192
+
193
+ 3 - a3 save
194
+ 2 - a2 save
195
+ 1 - a1 save
196
+ 0 - a0 save, original sp
197
+ -1 - ra save
198
+ -2 - fp save
199
+ -3 - $16 (s0) save
200
+ -4 - cprestore
201
+ -5 - return value high (v1)
202
+ -6 - return value low (v0)
203
+ -7 - f14 (le high, be low)
204
+ -8 - f14 (le low, be high)
205
+ -9 - f12 (le high, be low)
206
+ -10 - f12 (le low, be high)
207
+ -11 - Called function a3 save
208
+ -12 - Called function a2 save
209
+ -13 - Called function a1 save
210
+ -14 - Called function a0 save, our sp and fp point here
211
+ */
212
+
213
+ #define SIZEOF_FRAME2 (14 * FFI_SIZEOF_ARG)
214
+ #define A3_OFF2 (SIZEOF_FRAME2 + 3 * FFI_SIZEOF_ARG)
215
+ #define A2_OFF2 (SIZEOF_FRAME2 + 2 * FFI_SIZEOF_ARG)
216
+ #define A1_OFF2 (SIZEOF_FRAME2 + 1 * FFI_SIZEOF_ARG)
217
+ #define A0_OFF2 (SIZEOF_FRAME2 + 0 * FFI_SIZEOF_ARG)
218
+ #define RA_OFF2 (SIZEOF_FRAME2 - 1 * FFI_SIZEOF_ARG)
219
+ #define FP_OFF2 (SIZEOF_FRAME2 - 2 * FFI_SIZEOF_ARG)
220
+ #define S0_OFF2 (SIZEOF_FRAME2 - 3 * FFI_SIZEOF_ARG)
221
+ #define GP_OFF2 (SIZEOF_FRAME2 - 4 * FFI_SIZEOF_ARG)
222
+ #define V1_OFF2 (SIZEOF_FRAME2 - 5 * FFI_SIZEOF_ARG)
223
+ #define V0_OFF2 (SIZEOF_FRAME2 - 6 * FFI_SIZEOF_ARG)
224
+ #define FA_1_1_OFF2 (SIZEOF_FRAME2 - 7 * FFI_SIZEOF_ARG)
225
+ #define FA_1_0_OFF2 (SIZEOF_FRAME2 - 8 * FFI_SIZEOF_ARG)
226
+ #define FA_0_1_OFF2 (SIZEOF_FRAME2 - 9 * FFI_SIZEOF_ARG)
227
+ #define FA_0_0_OFF2 (SIZEOF_FRAME2 - 10 * FFI_SIZEOF_ARG)
228
+
229
+ .text
230
+ .align 2
231
+ .globl ffi_closure_O32
232
+ .ent ffi_closure_O32
233
+ ffi_closure_O32:
234
+ $LFB1:
235
+ # Prologue
236
+ .frame $fp, SIZEOF_FRAME2, ra
237
+ .set noreorder
238
+ .cpload t9
239
+ .set reorder
240
+ SUBU $sp, SIZEOF_FRAME2
241
+ .cprestore GP_OFF2
242
+ $LCFI4:
243
+ REG_S $16, S0_OFF2($sp) # Save s0
244
+ REG_S $fp, FP_OFF2($sp) # Save frame pointer
245
+ REG_S ra, RA_OFF2($sp) # Save return address
246
+ $LCFI6:
247
+ move $fp, $sp
248
+
249
+ $LCFI7:
250
+ # Store all possible argument registers. If there are more than
251
+ # four arguments, then they are stored above where we put a3.
252
+ REG_S a0, A0_OFF2($fp)
253
+ REG_S a1, A1_OFF2($fp)
254
+ REG_S a2, A2_OFF2($fp)
255
+ REG_S a3, A3_OFF2($fp)
256
+
257
+ # Load ABI enum to s0
258
+ REG_L $16, 20($12) # cif pointer follows tramp.
259
+ REG_L $16, 0($16) # abi is first member.
260
+
261
+ li $13, 1 # FFI_O32
262
+ bne $16, $13, 1f # Skip fp save if FFI_O32_SOFT_FLOAT
263
+
264
+ # Store all possible float/double registers.
265
+ s.d $f12, FA_0_0_OFF2($fp)
266
+ s.d $f14, FA_1_0_OFF2($fp)
267
+ 1:
268
+ # Call ffi_closure_mips_inner_O32 to do the work.
269
+ la t9, ffi_closure_mips_inner_O32
270
+ move a0, $12 # Pointer to the ffi_closure
271
+ addu a1, $fp, V0_OFF2
272
+ addu a2, $fp, A0_OFF2
273
+ addu a3, $fp, FA_0_0_OFF2
274
+ jalr t9
275
+
276
+ # Load the return value into the appropriate register.
277
+ move $8, $2
278
+ li $9, FFI_TYPE_VOID
279
+ beq $8, $9, closure_done
280
+
281
+ li $13, 1 # FFI_O32
282
+ bne $16, $13, 1f # Skip fp restore if FFI_O32_SOFT_FLOAT
283
+
284
+ li $9, FFI_TYPE_FLOAT
285
+ l.s $f0, V0_OFF2($fp)
286
+ beq $8, $9, closure_done
287
+
288
+ li $9, FFI_TYPE_DOUBLE
289
+ l.d $f0, V0_OFF2($fp)
290
+ beq $8, $9, closure_done
291
+ 1:
292
+ REG_L $3, V1_OFF2($fp)
293
+ REG_L $2, V0_OFF2($fp)
294
+
295
+ closure_done:
296
+ # Epilogue
297
+ move $sp, $fp
298
+ REG_L $16, S0_OFF2($sp) # Restore s0
299
+ REG_L $fp, FP_OFF2($sp) # Restore frame pointer
300
+ REG_L ra, RA_OFF2($sp) # Restore return address
301
+ ADDU $sp, SIZEOF_FRAME2
302
+ j ra
303
+ $LFE1:
304
+ .end ffi_closure_O32
305
+
306
+ /* DWARF-2 unwind info. */
307
+
308
+ .section .eh_frame,"a",@progbits
309
+ $Lframe0:
310
+ .4byte $LECIE0-$LSCIE0 # Length of Common Information Entry
311
+ $LSCIE0:
312
+ .4byte 0x0 # CIE Identifier Tag
313
+ .byte 0x1 # CIE Version
314
+ .ascii "zR\0" # CIE Augmentation
315
+ .uleb128 0x1 # CIE Code Alignment Factor
316
+ .sleb128 4 # CIE Data Alignment Factor
317
+ .byte 0x1f # CIE RA Column
318
+ .uleb128 0x1 # Augmentation size
319
+ .byte 0x00 # FDE Encoding (absptr)
320
+ .byte 0xc # DW_CFA_def_cfa
321
+ .uleb128 0x1d
322
+ .uleb128 0x0
323
+ .align 2
324
+ $LECIE0:
325
+ $LSFDE0:
326
+ .4byte $LEFDE0-$LASFDE0 # FDE Length
327
+ $LASFDE0:
328
+ .4byte $LASFDE0-$Lframe0 # FDE CIE offset
329
+ .4byte $LFB0 # FDE initial location
330
+ .4byte $LFE0-$LFB0 # FDE address range
331
+ .uleb128 0x0 # Augmentation size
332
+ .byte 0x4 # DW_CFA_advance_loc4
333
+ .4byte $LCFI0-$LFB0
334
+ .byte 0xe # DW_CFA_def_cfa_offset
335
+ .uleb128 0x18
336
+ .byte 0x4 # DW_CFA_advance_loc4
337
+ .4byte $LCFI2-$LCFI0
338
+ .byte 0x11 # DW_CFA_offset_extended_sf
339
+ .uleb128 0x1e # $fp
340
+ .sleb128 -2 # SIZEOF_FRAME2 - 2*FFI_SIZEOF_ARG($sp)
341
+ .byte 0x11 # DW_CFA_offset_extended_sf
342
+ .uleb128 0x1f # $ra
343
+ .sleb128 -1 # SIZEOF_FRAME2 - 1*FFI_SIZEOF_ARG($sp)
344
+ .byte 0x4 # DW_CFA_advance_loc4
345
+ .4byte $LCFI3-$LCFI2
346
+ .byte 0xc # DW_CFA_def_cfa
347
+ .uleb128 0x1e
348
+ .uleb128 0x18
349
+ .align 2
350
+ $LEFDE0:
351
+ $LSFDE1:
352
+ .4byte $LEFDE1-$LASFDE1 # FDE Length
353
+ $LASFDE1:
354
+ .4byte $LASFDE1-$Lframe0 # FDE CIE offset
355
+ .4byte $LFB1 # FDE initial location
356
+ .4byte $LFE1-$LFB1 # FDE address range
357
+ .uleb128 0x0 # Augmentation size
358
+ .byte 0x4 # DW_CFA_advance_loc4
359
+ .4byte $LCFI4-$LFB1
360
+ .byte 0xe # DW_CFA_def_cfa_offset
361
+ .uleb128 0x38
362
+ .byte 0x4 # DW_CFA_advance_loc4
363
+ .4byte $LCFI6-$LCFI4
364
+ .byte 0x11 # DW_CFA_offset_extended_sf
365
+ .uleb128 0x10 # $16
366
+ .sleb128 -3 # SIZEOF_FRAME2 - 3*FFI_SIZEOF_ARG($sp)
367
+ .byte 0x11 # DW_CFA_offset_extended_sf
368
+ .uleb128 0x1e # $fp
369
+ .sleb128 -2 # SIZEOF_FRAME2 - 2*FFI_SIZEOF_ARG($sp)
370
+ .byte 0x11 # DW_CFA_offset_extended_sf
371
+ .uleb128 0x1f # $ra
372
+ .sleb128 -1 # SIZEOF_FRAME2 - 1*FFI_SIZEOF_ARG($sp)
373
+ .byte 0x4 # DW_CFA_advance_loc4
374
+ .4byte $LCFI7-$LCFI6
375
+ .byte 0xc # DW_CFA_def_cfa
376
+ .uleb128 0x1e
377
+ .uleb128 0x38
378
+ .align 2
379
+ $LEFDE1:
380
+
381
+ #endif
@@ -0,0 +1,709 @@
1
+ /* -----------------------------------------------------------------------
2
+ ffi.c - (c) 2003-2004 Randolph Chung <tausq@debian.org>
3
+ (c) 2008 Red Hat, Inc.
4
+
5
+ HPPA Foreign Function Interface
6
+ HP-UX PA ABI support (c) 2006 Free Software Foundation, Inc.
7
+
8
+ Permission is hereby granted, free of charge, to any person obtaining
9
+ a copy of this software and associated documentation files (the
10
+ ``Software''), to deal in the Software without restriction, including
11
+ without limitation the rights to use, copy, modify, merge, publish,
12
+ distribute, sublicense, and/or sell copies of the Software, and to
13
+ permit persons to whom the Software is furnished to do so, subject to
14
+ the following conditions:
15
+
16
+ The above copyright notice and this permission notice shall be included
17
+ in all copies or substantial portions of the Software.
18
+
19
+ THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
20
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
21
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
22
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
23
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
24
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
25
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
26
+ DEALINGS IN THE SOFTWARE.
27
+ ----------------------------------------------------------------------- */
28
+
29
+ #include <ffi.h>
30
+ #include <ffi_common.h>
31
+
32
+ #include <stdlib.h>
33
+ #include <stdio.h>
34
+
35
+ #define ROUND_UP(v, a) (((size_t)(v) + (a) - 1) & ~((a) - 1))
36
+
37
+ #define MIN_STACK_SIZE 64
38
+ #define FIRST_ARG_SLOT 9
39
+ #define DEBUG_LEVEL 0
40
+
41
+ #define fldw(addr, fpreg) \
42
+ __asm__ volatile ("fldw 0(%0), %%" #fpreg "L" : : "r"(addr) : #fpreg)
43
+ #define fstw(fpreg, addr) \
44
+ __asm__ volatile ("fstw %%" #fpreg "L, 0(%0)" : : "r"(addr))
45
+ #define fldd(addr, fpreg) \
46
+ __asm__ volatile ("fldd 0(%0), %%" #fpreg : : "r"(addr) : #fpreg)
47
+ #define fstd(fpreg, addr) \
48
+ __asm__ volatile ("fstd %%" #fpreg "L, 0(%0)" : : "r"(addr))
49
+
50
+ #define debug(lvl, x...) do { if (lvl <= DEBUG_LEVEL) { printf(x); } } while (0)
51
+
52
+ static inline int ffi_struct_type(ffi_type *t)
53
+ {
54
+ size_t sz = t->size;
55
+
56
+ /* Small structure results are passed in registers,
57
+ larger ones are passed by pointer. Note that
58
+ small structures of size 2, 4 and 8 differ from
59
+ the corresponding integer types in that they have
60
+ different alignment requirements. */
61
+
62
+ if (sz <= 1)
63
+ return FFI_TYPE_UINT8;
64
+ else if (sz == 2)
65
+ return FFI_TYPE_SMALL_STRUCT2;
66
+ else if (sz == 3)
67
+ return FFI_TYPE_SMALL_STRUCT3;
68
+ else if (sz == 4)
69
+ return FFI_TYPE_SMALL_STRUCT4;
70
+ else if (sz == 5)
71
+ return FFI_TYPE_SMALL_STRUCT5;
72
+ else if (sz == 6)
73
+ return FFI_TYPE_SMALL_STRUCT6;
74
+ else if (sz == 7)
75
+ return FFI_TYPE_SMALL_STRUCT7;
76
+ else if (sz <= 8)
77
+ return FFI_TYPE_SMALL_STRUCT8;
78
+ else
79
+ return FFI_TYPE_STRUCT; /* else, we pass it by pointer. */
80
+ }
81
+
82
+ /* PA has a downward growing stack, which looks like this:
83
+
84
+ Offset
85
+ [ Variable args ]
86
+ SP = (4*(n+9)) arg word N
87
+ ...
88
+ SP-52 arg word 4
89
+ [ Fixed args ]
90
+ SP-48 arg word 3
91
+ SP-44 arg word 2
92
+ SP-40 arg word 1
93
+ SP-36 arg word 0
94
+ [ Frame marker ]
95
+ ...
96
+ SP-20 RP
97
+ SP-4 previous SP
98
+
99
+ The first four argument words on the stack are reserved for use by
100
+ the callee. Instead, the general and floating registers replace
101
+ the first four argument slots. Non FP arguments are passed solely
102
+ in the general registers. FP arguments are passed in both general
103
+ and floating registers when using libffi.
104
+
105
+ Non-FP 32-bit args are passed in gr26, gr25, gr24 and gr23.
106
+ Non-FP 64-bit args are passed in register pairs, starting
107
+ on an odd numbered register (i.e. r25+r26 and r23+r24).
108
+ FP 32-bit arguments are passed in fr4L, fr5L, fr6L and fr7L.
109
+ FP 64-bit arguments are passed in fr5 and fr7.
110
+
111
+ The registers are allocated in the same manner as stack slots.
112
+ This allows the callee to save its arguments on the stack if
113
+ necessary:
114
+
115
+ arg word 3 -> gr23 or fr7L
116
+ arg word 2 -> gr24 or fr6L or fr7R
117
+ arg word 1 -> gr25 or fr5L
118
+ arg word 0 -> gr26 or fr4L or fr5R
119
+
120
+ Note that fr4R and fr6R are never used for arguments (i.e.,
121
+ doubles are not passed in fr4 or fr6).
122
+
123
+ The rest of the arguments are passed on the stack starting at SP-52,
124
+ but 64-bit arguments need to be aligned to an 8-byte boundary
125
+
126
+ This means we can have holes either in the register allocation,
127
+ or in the stack. */
128
+
129
+ /* ffi_prep_args is called by the assembly routine once stack space
130
+ has been allocated for the function's arguments
131
+
132
+ The following code will put everything into the stack frame
133
+ (which was allocated by the asm routine), and on return
134
+ the asm routine will load the arguments that should be
135
+ passed by register into the appropriate registers
136
+
137
+ NOTE: We load floating point args in this function... that means we
138
+ assume gcc will not mess with fp regs in here. */
139
+
140
+ void ffi_prep_args_pa32(UINT32 *stack, extended_cif *ecif, unsigned bytes)
141
+ {
142
+ register unsigned int i;
143
+ register ffi_type **p_arg;
144
+ register void **p_argv;
145
+ unsigned int slot = FIRST_ARG_SLOT;
146
+ char *dest_cpy;
147
+ size_t len;
148
+
149
+ debug(1, "%s: stack = %p, ecif = %p, bytes = %u\n", __FUNCTION__, stack,
150
+ ecif, bytes);
151
+
152
+ p_arg = ecif->cif->arg_types;
153
+ p_argv = ecif->avalue;
154
+
155
+ for (i = 0; i < ecif->cif->nargs; i++)
156
+ {
157
+ int type = (*p_arg)->type;
158
+
159
+ switch (type)
160
+ {
161
+ case FFI_TYPE_SINT8:
162
+ *(SINT32 *)(stack - slot) = *(SINT8 *)(*p_argv);
163
+ break;
164
+
165
+ case FFI_TYPE_UINT8:
166
+ *(UINT32 *)(stack - slot) = *(UINT8 *)(*p_argv);
167
+ break;
168
+
169
+ case FFI_TYPE_SINT16:
170
+ *(SINT32 *)(stack - slot) = *(SINT16 *)(*p_argv);
171
+ break;
172
+
173
+ case FFI_TYPE_UINT16:
174
+ *(UINT32 *)(stack - slot) = *(UINT16 *)(*p_argv);
175
+ break;
176
+
177
+ case FFI_TYPE_UINT32:
178
+ case FFI_TYPE_SINT32:
179
+ case FFI_TYPE_POINTER:
180
+ debug(3, "Storing UINT32 %u in slot %u\n", *(UINT32 *)(*p_argv),
181
+ slot);
182
+ *(UINT32 *)(stack - slot) = *(UINT32 *)(*p_argv);
183
+ break;
184
+
185
+ case FFI_TYPE_UINT64:
186
+ case FFI_TYPE_SINT64:
187
+ /* Align slot for 64-bit type. */
188
+ slot += (slot & 1) ? 1 : 2;
189
+ *(UINT64 *)(stack - slot) = *(UINT64 *)(*p_argv);
190
+ break;
191
+
192
+ case FFI_TYPE_FLOAT:
193
+ /* First 4 args go in fr4L - fr7L. */
194
+ debug(3, "Storing UINT32(float) in slot %u\n", slot);
195
+ *(UINT32 *)(stack - slot) = *(UINT32 *)(*p_argv);
196
+ switch (slot - FIRST_ARG_SLOT)
197
+ {
198
+ /* First 4 args go in fr4L - fr7L. */
199
+ case 0: fldw(stack - slot, fr4); break;
200
+ case 1: fldw(stack - slot, fr5); break;
201
+ case 2: fldw(stack - slot, fr6); break;
202
+ case 3: fldw(stack - slot, fr7); break;
203
+ }
204
+ break;
205
+
206
+ case FFI_TYPE_DOUBLE:
207
+ /* Align slot for 64-bit type. */
208
+ slot += (slot & 1) ? 1 : 2;
209
+ debug(3, "Storing UINT64(double) at slot %u\n", slot);
210
+ *(UINT64 *)(stack - slot) = *(UINT64 *)(*p_argv);
211
+ switch (slot - FIRST_ARG_SLOT)
212
+ {
213
+ /* First 2 args go in fr5, fr7. */
214
+ case 1: fldd(stack - slot, fr5); break;
215
+ case 3: fldd(stack - slot, fr7); break;
216
+ }
217
+ break;
218
+
219
+ #ifdef PA_HPUX
220
+ case FFI_TYPE_LONGDOUBLE:
221
+ /* Long doubles are passed in the same manner as structures
222
+ larger than 8 bytes. */
223
+ *(UINT32 *)(stack - slot) = (UINT32)(*p_argv);
224
+ break;
225
+ #endif
226
+
227
+ case FFI_TYPE_STRUCT:
228
+
229
+ /* Structs smaller or equal than 4 bytes are passed in one
230
+ register. Structs smaller or equal 8 bytes are passed in two
231
+ registers. Larger structures are passed by pointer. */
232
+
233
+ len = (*p_arg)->size;
234
+ if (len <= 4)
235
+ {
236
+ dest_cpy = (char *)(stack - slot) + 4 - len;
237
+ memcpy(dest_cpy, (char *)*p_argv, len);
238
+ }
239
+ else if (len <= 8)
240
+ {
241
+ slot += (slot & 1) ? 1 : 2;
242
+ dest_cpy = (char *)(stack - slot) + 8 - len;
243
+ memcpy(dest_cpy, (char *)*p_argv, len);
244
+ }
245
+ else
246
+ *(UINT32 *)(stack - slot) = (UINT32)(*p_argv);
247
+ break;
248
+
249
+ default:
250
+ FFI_ASSERT(0);
251
+ }
252
+
253
+ slot++;
254
+ p_arg++;
255
+ p_argv++;
256
+ }
257
+
258
+ /* Make sure we didn't mess up and scribble on the stack. */
259
+ {
260
+ unsigned int n;
261
+
262
+ debug(5, "Stack setup:\n");
263
+ for (n = 0; n < (bytes + 3) / 4; n++)
264
+ {
265
+ if ((n%4) == 0) { debug(5, "\n%08x: ", (unsigned int)(stack - n)); }
266
+ debug(5, "%08x ", *(stack - n));
267
+ }
268
+ debug(5, "\n");
269
+ }
270
+
271
+ FFI_ASSERT(slot * 4 <= bytes);
272
+
273
+ return;
274
+ }
275
+
276
+ static void ffi_size_stack_pa32(ffi_cif *cif)
277
+ {
278
+ ffi_type **ptr;
279
+ int i;
280
+ int z = 0; /* # stack slots */
281
+
282
+ for (ptr = cif->arg_types, i = 0; i < cif->nargs; ptr++, i++)
283
+ {
284
+ int type = (*ptr)->type;
285
+
286
+ switch (type)
287
+ {
288
+ case FFI_TYPE_DOUBLE:
289
+ case FFI_TYPE_UINT64:
290
+ case FFI_TYPE_SINT64:
291
+ z += 2 + (z & 1); /* must start on even regs, so we may waste one */
292
+ break;
293
+
294
+ #ifdef PA_HPUX
295
+ case FFI_TYPE_LONGDOUBLE:
296
+ #endif
297
+ case FFI_TYPE_STRUCT:
298
+ z += 1; /* pass by ptr, callee will copy */
299
+ break;
300
+
301
+ default: /* <= 32-bit values */
302
+ z++;
303
+ }
304
+ }
305
+
306
+ /* We can fit up to 6 args in the default 64-byte stack frame,
307
+ if we need more, we need more stack. */
308
+ if (z <= 6)
309
+ cif->bytes = MIN_STACK_SIZE; /* min stack size */
310
+ else
311
+ cif->bytes = 64 + ROUND_UP((z - 6) * sizeof(UINT32), MIN_STACK_SIZE);
312
+
313
+ debug(3, "Calculated stack size is %u bytes\n", cif->bytes);
314
+ }
315
+
316
+ /* Perform machine dependent cif processing. */
317
+ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
318
+ {
319
+ /* Set the return type flag */
320
+ switch (cif->rtype->type)
321
+ {
322
+ case FFI_TYPE_VOID:
323
+ case FFI_TYPE_FLOAT:
324
+ case FFI_TYPE_DOUBLE:
325
+ cif->flags = (unsigned) cif->rtype->type;
326
+ break;
327
+
328
+ #ifdef PA_HPUX
329
+ case FFI_TYPE_LONGDOUBLE:
330
+ /* Long doubles are treated like a structure. */
331
+ cif->flags = FFI_TYPE_STRUCT;
332
+ break;
333
+ #endif
334
+
335
+ case FFI_TYPE_STRUCT:
336
+ /* For the return type we have to check the size of the structures.
337
+ If the size is smaller or equal 4 bytes, the result is given back
338
+ in one register. If the size is smaller or equal 8 bytes than we
339
+ return the result in two registers. But if the size is bigger than
340
+ 8 bytes, we work with pointers. */
341
+ cif->flags = ffi_struct_type(cif->rtype);
342
+ break;
343
+
344
+ case FFI_TYPE_UINT64:
345
+ case FFI_TYPE_SINT64:
346
+ cif->flags = FFI_TYPE_UINT64;
347
+ break;
348
+
349
+ default:
350
+ cif->flags = FFI_TYPE_INT;
351
+ break;
352
+ }
353
+
354
+ /* Lucky us, because of the unique PA ABI we get to do our
355
+ own stack sizing. */
356
+ switch (cif->abi)
357
+ {
358
+ case FFI_PA32:
359
+ ffi_size_stack_pa32(cif);
360
+ break;
361
+
362
+ default:
363
+ FFI_ASSERT(0);
364
+ break;
365
+ }
366
+
367
+ return FFI_OK;
368
+ }
369
+
370
+ extern void ffi_call_pa32(void (*)(UINT32 *, extended_cif *, unsigned),
371
+ extended_cif *, unsigned, unsigned, unsigned *,
372
+ void (*fn)(void));
373
+
374
+ void ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
375
+ {
376
+ extended_cif ecif;
377
+
378
+ ecif.cif = cif;
379
+ ecif.avalue = avalue;
380
+
381
+ /* If the return value is a struct and we don't have a return
382
+ value address then we need to make one. */
383
+
384
+ if (rvalue == NULL
385
+ #ifdef PA_HPUX
386
+ && (cif->rtype->type == FFI_TYPE_STRUCT
387
+ || cif->rtype->type == FFI_TYPE_LONGDOUBLE))
388
+ #else
389
+ && cif->rtype->type == FFI_TYPE_STRUCT)
390
+ #endif
391
+ {
392
+ ecif.rvalue = alloca(cif->rtype->size);
393
+ }
394
+ else
395
+ ecif.rvalue = rvalue;
396
+
397
+
398
+ switch (cif->abi)
399
+ {
400
+ case FFI_PA32:
401
+ debug(3, "Calling ffi_call_pa32: ecif=%p, bytes=%u, flags=%u, rvalue=%p, fn=%p\n", &ecif, cif->bytes, cif->flags, ecif.rvalue, (void *)fn);
402
+ ffi_call_pa32(ffi_prep_args_pa32, &ecif, cif->bytes,
403
+ cif->flags, ecif.rvalue, fn);
404
+ break;
405
+
406
+ default:
407
+ FFI_ASSERT(0);
408
+ break;
409
+ }
410
+ }
411
+
412
+ #if FFI_CLOSURES
413
+ /* This is more-or-less an inverse of ffi_call -- we have arguments on
414
+ the stack, and we need to fill them into a cif structure and invoke
415
+ the user function. This really ought to be in asm to make sure
416
+ the compiler doesn't do things we don't expect. */
417
+ ffi_status ffi_closure_inner_pa32(ffi_closure *closure, UINT32 *stack)
418
+ {
419
+ ffi_cif *cif;
420
+ void **avalue;
421
+ void *rvalue;
422
+ UINT32 ret[2]; /* function can return up to 64-bits in registers */
423
+ ffi_type **p_arg;
424
+ char *tmp;
425
+ int i, avn;
426
+ unsigned int slot = FIRST_ARG_SLOT;
427
+ register UINT32 r28 asm("r28");
428
+
429
+ cif = closure->cif;
430
+
431
+ /* If returning via structure, callee will write to our pointer. */
432
+ if (cif->flags == FFI_TYPE_STRUCT)
433
+ rvalue = (void *)r28;
434
+ else
435
+ rvalue = &ret[0];
436
+
437
+ avalue = (void **)alloca(cif->nargs * FFI_SIZEOF_ARG);
438
+ avn = cif->nargs;
439
+ p_arg = cif->arg_types;
440
+
441
+ for (i = 0; i < avn; i++)
442
+ {
443
+ int type = (*p_arg)->type;
444
+
445
+ switch (type)
446
+ {
447
+ case FFI_TYPE_SINT8:
448
+ case FFI_TYPE_UINT8:
449
+ case FFI_TYPE_SINT16:
450
+ case FFI_TYPE_UINT16:
451
+ case FFI_TYPE_SINT32:
452
+ case FFI_TYPE_UINT32:
453
+ case FFI_TYPE_POINTER:
454
+ avalue[i] = (char *)(stack - slot) + sizeof(UINT32) - (*p_arg)->size;
455
+ break;
456
+
457
+ case FFI_TYPE_SINT64:
458
+ case FFI_TYPE_UINT64:
459
+ slot += (slot & 1) ? 1 : 2;
460
+ avalue[i] = (void *)(stack - slot);
461
+ break;
462
+
463
+ case FFI_TYPE_FLOAT:
464
+ #ifdef PA_LINUX
465
+ /* The closure call is indirect. In Linux, floating point
466
+ arguments in indirect calls with a prototype are passed
467
+ in the floating point registers instead of the general
468
+ registers. So, we need to replace what was previously
469
+ stored in the current slot with the value in the
470
+ corresponding floating point register. */
471
+ switch (slot - FIRST_ARG_SLOT)
472
+ {
473
+ case 0: fstw(fr4, (void *)(stack - slot)); break;
474
+ case 1: fstw(fr5, (void *)(stack - slot)); break;
475
+ case 2: fstw(fr6, (void *)(stack - slot)); break;
476
+ case 3: fstw(fr7, (void *)(stack - slot)); break;
477
+ }
478
+ #endif
479
+ avalue[i] = (void *)(stack - slot);
480
+ break;
481
+
482
+ case FFI_TYPE_DOUBLE:
483
+ slot += (slot & 1) ? 1 : 2;
484
+ #ifdef PA_LINUX
485
+ /* See previous comment for FFI_TYPE_FLOAT. */
486
+ switch (slot - FIRST_ARG_SLOT)
487
+ {
488
+ case 1: fstd(fr5, (void *)(stack - slot)); break;
489
+ case 3: fstd(fr7, (void *)(stack - slot)); break;
490
+ }
491
+ #endif
492
+ avalue[i] = (void *)(stack - slot);
493
+ break;
494
+
495
+ case FFI_TYPE_STRUCT:
496
+ /* Structs smaller or equal than 4 bytes are passed in one
497
+ register. Structs smaller or equal 8 bytes are passed in two
498
+ registers. Larger structures are passed by pointer. */
499
+ if((*p_arg)->size <= 4)
500
+ {
501
+ avalue[i] = (void *)(stack - slot) + sizeof(UINT32) -
502
+ (*p_arg)->size;
503
+ }
504
+ else if ((*p_arg)->size <= 8)
505
+ {
506
+ slot += (slot & 1) ? 1 : 2;
507
+ avalue[i] = (void *)(stack - slot) + sizeof(UINT64) -
508
+ (*p_arg)->size;
509
+ }
510
+ else
511
+ avalue[i] = (void *) *(stack - slot);
512
+ break;
513
+
514
+ default:
515
+ FFI_ASSERT(0);
516
+ }
517
+
518
+ slot++;
519
+ p_arg++;
520
+ }
521
+
522
+ /* Invoke the closure. */
523
+ (closure->fun) (cif, rvalue, avalue, closure->user_data);
524
+
525
+ debug(3, "after calling function, ret[0] = %08x, ret[1] = %08x\n", ret[0],
526
+ ret[1]);
527
+
528
+ /* Store the result using the lower 2 bytes of the flags. */
529
+ switch (cif->flags)
530
+ {
531
+ case FFI_TYPE_UINT8:
532
+ *(stack - FIRST_ARG_SLOT) = (UINT8)(ret[0] >> 24);
533
+ break;
534
+ case FFI_TYPE_SINT8:
535
+ *(stack - FIRST_ARG_SLOT) = (SINT8)(ret[0] >> 24);
536
+ break;
537
+ case FFI_TYPE_UINT16:
538
+ *(stack - FIRST_ARG_SLOT) = (UINT16)(ret[0] >> 16);
539
+ break;
540
+ case FFI_TYPE_SINT16:
541
+ *(stack - FIRST_ARG_SLOT) = (SINT16)(ret[0] >> 16);
542
+ break;
543
+ case FFI_TYPE_INT:
544
+ case FFI_TYPE_SINT32:
545
+ case FFI_TYPE_UINT32:
546
+ *(stack - FIRST_ARG_SLOT) = ret[0];
547
+ break;
548
+ case FFI_TYPE_SINT64:
549
+ case FFI_TYPE_UINT64:
550
+ *(stack - FIRST_ARG_SLOT) = ret[0];
551
+ *(stack - FIRST_ARG_SLOT - 1) = ret[1];
552
+ break;
553
+
554
+ case FFI_TYPE_DOUBLE:
555
+ fldd(rvalue, fr4);
556
+ break;
557
+
558
+ case FFI_TYPE_FLOAT:
559
+ fldw(rvalue, fr4);
560
+ break;
561
+
562
+ case FFI_TYPE_STRUCT:
563
+ /* Don't need a return value, done by caller. */
564
+ break;
565
+
566
+ case FFI_TYPE_SMALL_STRUCT2:
567
+ case FFI_TYPE_SMALL_STRUCT3:
568
+ case FFI_TYPE_SMALL_STRUCT4:
569
+ tmp = (void*)(stack - FIRST_ARG_SLOT);
570
+ tmp += 4 - cif->rtype->size;
571
+ memcpy((void*)tmp, &ret[0], cif->rtype->size);
572
+ break;
573
+
574
+ case FFI_TYPE_SMALL_STRUCT5:
575
+ case FFI_TYPE_SMALL_STRUCT6:
576
+ case FFI_TYPE_SMALL_STRUCT7:
577
+ case FFI_TYPE_SMALL_STRUCT8:
578
+ {
579
+ unsigned int ret2[2];
580
+ int off;
581
+
582
+ /* Right justify ret[0] and ret[1] */
583
+ switch (cif->flags)
584
+ {
585
+ case FFI_TYPE_SMALL_STRUCT5: off = 3; break;
586
+ case FFI_TYPE_SMALL_STRUCT6: off = 2; break;
587
+ case FFI_TYPE_SMALL_STRUCT7: off = 1; break;
588
+ default: off = 0; break;
589
+ }
590
+
591
+ memset (ret2, 0, sizeof (ret2));
592
+ memcpy ((char *)ret2 + off, ret, 8 - off);
593
+
594
+ *(stack - FIRST_ARG_SLOT) = ret2[0];
595
+ *(stack - FIRST_ARG_SLOT - 1) = ret2[1];
596
+ }
597
+ break;
598
+
599
+ case FFI_TYPE_POINTER:
600
+ case FFI_TYPE_VOID:
601
+ break;
602
+
603
+ default:
604
+ debug(0, "assert with cif->flags: %d\n",cif->flags);
605
+ FFI_ASSERT(0);
606
+ break;
607
+ }
608
+ return FFI_OK;
609
+ }
610
+
611
+ /* Fill in a closure to refer to the specified fun and user_data.
612
+ cif specifies the argument and result types for fun.
613
+ The cif must already be prep'ed. */
614
+
615
+ extern void ffi_closure_pa32(void);
616
+
617
+ ffi_status
618
+ ffi_prep_closure_loc (ffi_closure* closure,
619
+ ffi_cif* cif,
620
+ void (*fun)(ffi_cif*,void*,void**,void*),
621
+ void *user_data,
622
+ void *codeloc)
623
+ {
624
+ UINT32 *tramp = (UINT32 *)(closure->tramp);
625
+ #ifdef PA_HPUX
626
+ UINT32 *tmp;
627
+ #endif
628
+
629
+ FFI_ASSERT (cif->abi == FFI_PA32);
630
+
631
+ /* Make a small trampoline that will branch to our
632
+ handler function. Use PC-relative addressing. */
633
+
634
+ #ifdef PA_LINUX
635
+ tramp[0] = 0xeaa00000; /* b,l .+8,%r21 ; %r21 <- pc+8 */
636
+ tramp[1] = 0xd6a01c1e; /* depi 0,31,2,%r21 ; mask priv bits */
637
+ tramp[2] = 0x4aa10028; /* ldw 20(%r21),%r1 ; load plabel */
638
+ tramp[3] = 0x36b53ff1; /* ldo -8(%r21),%r21 ; get closure addr */
639
+ tramp[4] = 0x0c201096; /* ldw 0(%r1),%r22 ; address of handler */
640
+ tramp[5] = 0xeac0c000; /* bv%r0(%r22) ; branch to handler */
641
+ tramp[6] = 0x0c281093; /* ldw 4(%r1),%r19 ; GP of handler */
642
+ tramp[7] = ((UINT32)(ffi_closure_pa32) & ~2);
643
+
644
+ /* Flush d/icache -- have to flush up 2 two lines because of
645
+ alignment. */
646
+ __asm__ volatile(
647
+ "fdc 0(%0)\n\t"
648
+ "fdc %1(%0)\n\t"
649
+ "fic 0(%%sr4, %0)\n\t"
650
+ "fic %1(%%sr4, %0)\n\t"
651
+ "sync\n\t"
652
+ "nop\n\t"
653
+ "nop\n\t"
654
+ "nop\n\t"
655
+ "nop\n\t"
656
+ "nop\n\t"
657
+ "nop\n\t"
658
+ "nop\n"
659
+ :
660
+ : "r"((unsigned long)tramp & ~31),
661
+ "r"(32 /* stride */)
662
+ : "memory");
663
+ #endif
664
+
665
+ #ifdef PA_HPUX
666
+ tramp[0] = 0xeaa00000; /* b,l .+8,%r21 ; %r21 <- pc+8 */
667
+ tramp[1] = 0xd6a01c1e; /* depi 0,31,2,%r21 ; mask priv bits */
668
+ tramp[2] = 0x4aa10038; /* ldw 28(%r21),%r1 ; load plabel */
669
+ tramp[3] = 0x36b53ff1; /* ldo -8(%r21),%r21 ; get closure addr */
670
+ tramp[4] = 0x0c201096; /* ldw 0(%r1),%r22 ; address of handler */
671
+ tramp[5] = 0x02c010b4; /* ldsid (%r22),%r20 ; load space id */
672
+ tramp[6] = 0x00141820; /* mtsp %r20,%sr0 ; into %sr0 */
673
+ tramp[7] = 0xe2c00000; /* be 0(%sr0,%r22) ; branch to handler */
674
+ tramp[8] = 0x0c281093; /* ldw 4(%r1),%r19 ; GP of handler */
675
+ tramp[9] = ((UINT32)(ffi_closure_pa32) & ~2);
676
+
677
+ /* Flush d/icache -- have to flush three lines because of alignment. */
678
+ __asm__ volatile(
679
+ "copy %1,%0\n\t"
680
+ "fdc,m %2(%0)\n\t"
681
+ "fdc,m %2(%0)\n\t"
682
+ "fdc,m %2(%0)\n\t"
683
+ "ldsid (%1),%0\n\t"
684
+ "mtsp %0,%%sr0\n\t"
685
+ "copy %1,%0\n\t"
686
+ "fic,m %2(%%sr0,%0)\n\t"
687
+ "fic,m %2(%%sr0,%0)\n\t"
688
+ "fic,m %2(%%sr0,%0)\n\t"
689
+ "sync\n\t"
690
+ "nop\n\t"
691
+ "nop\n\t"
692
+ "nop\n\t"
693
+ "nop\n\t"
694
+ "nop\n\t"
695
+ "nop\n\t"
696
+ "nop\n"
697
+ : "=&r" ((unsigned long)tmp)
698
+ : "r" ((unsigned long)tramp & ~31),
699
+ "r" (32/* stride */)
700
+ : "memory");
701
+ #endif
702
+
703
+ closure->cif = cif;
704
+ closure->user_data = user_data;
705
+ closure->fun = fun;
706
+
707
+ return FFI_OK;
708
+ }
709
+ #endif