ffi 1.11.1
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +7 -0
- data/.gitignore +25 -0
- data/.gitmodules +4 -0
- data/.travis.yml +42 -0
- data/.yardopts +5 -0
- data/CHANGELOG.md +131 -0
- data/COPYING +49 -0
- data/Gemfile +15 -0
- data/LICENSE +24 -0
- data/LICENSE.SPECS +22 -0
- data/README.md +115 -0
- data/Rakefile +195 -0
- data/appveyor.yml +27 -0
- data/ext/ffi_c/AbstractMemory.c +1109 -0
- data/ext/ffi_c/AbstractMemory.h +175 -0
- data/ext/ffi_c/ArrayType.c +162 -0
- data/ext/ffi_c/ArrayType.h +59 -0
- data/ext/ffi_c/Buffer.c +365 -0
- data/ext/ffi_c/Call.c +503 -0
- data/ext/ffi_c/Call.h +107 -0
- data/ext/ffi_c/ClosurePool.c +283 -0
- data/ext/ffi_c/ClosurePool.h +57 -0
- data/ext/ffi_c/DynamicLibrary.c +339 -0
- data/ext/ffi_c/DynamicLibrary.h +98 -0
- data/ext/ffi_c/Function.c +917 -0
- data/ext/ffi_c/Function.h +87 -0
- data/ext/ffi_c/FunctionInfo.c +271 -0
- data/ext/ffi_c/LastError.c +229 -0
- data/ext/ffi_c/LastError.h +47 -0
- data/ext/ffi_c/LongDouble.c +63 -0
- data/ext/ffi_c/LongDouble.h +51 -0
- data/ext/ffi_c/MappedType.c +168 -0
- data/ext/ffi_c/MappedType.h +59 -0
- data/ext/ffi_c/MemoryPointer.c +197 -0
- data/ext/ffi_c/MemoryPointer.h +53 -0
- data/ext/ffi_c/MethodHandle.c +358 -0
- data/ext/ffi_c/MethodHandle.h +55 -0
- data/ext/ffi_c/Platform.c +82 -0
- data/ext/ffi_c/Platform.h +45 -0
- data/ext/ffi_c/Pointer.c +508 -0
- data/ext/ffi_c/Pointer.h +63 -0
- data/ext/ffi_c/Struct.c +829 -0
- data/ext/ffi_c/Struct.h +106 -0
- data/ext/ffi_c/StructByValue.c +150 -0
- data/ext/ffi_c/StructByValue.h +55 -0
- data/ext/ffi_c/StructLayout.c +698 -0
- data/ext/ffi_c/Thread.c +137 -0
- data/ext/ffi_c/Thread.h +84 -0
- data/ext/ffi_c/Type.c +379 -0
- data/ext/ffi_c/Type.h +61 -0
- data/ext/ffi_c/Types.c +139 -0
- data/ext/ffi_c/Types.h +89 -0
- data/ext/ffi_c/Variadic.c +298 -0
- data/ext/ffi_c/compat.h +78 -0
- data/ext/ffi_c/extconf.rb +86 -0
- data/ext/ffi_c/ffi.c +93 -0
- data/ext/ffi_c/libffi.bsd.mk +40 -0
- data/ext/ffi_c/libffi.darwin.mk +105 -0
- data/ext/ffi_c/libffi.gnu.mk +32 -0
- data/ext/ffi_c/libffi.mk +18 -0
- data/ext/ffi_c/libffi.vc.mk +26 -0
- data/ext/ffi_c/libffi.vc64.mk +26 -0
- data/ext/ffi_c/libffi/.appveyor.yml +50 -0
- data/ext/ffi_c/libffi/.github/issue_template.md +10 -0
- data/ext/ffi_c/libffi/.gitignore +38 -0
- data/ext/ffi_c/libffi/.travis.yml +34 -0
- data/ext/ffi_c/libffi/.travis/ar-lib +270 -0
- data/ext/ffi_c/libffi/.travis/build.sh +34 -0
- data/ext/ffi_c/libffi/.travis/compile +351 -0
- data/ext/ffi_c/libffi/.travis/install.sh +22 -0
- data/ext/ffi_c/libffi/.travis/moxie-sim.exp +60 -0
- data/ext/ffi_c/libffi/.travis/site.exp +18 -0
- data/ext/ffi_c/libffi/ChangeLog.libffi +584 -0
- data/ext/ffi_c/libffi/ChangeLog.libffi-3.1 +6000 -0
- data/ext/ffi_c/libffi/ChangeLog.libgcj +40 -0
- data/ext/ffi_c/libffi/ChangeLog.v1 +764 -0
- data/ext/ffi_c/libffi/LICENSE +21 -0
- data/ext/ffi_c/libffi/LICENSE-BUILDTOOLS +352 -0
- data/ext/ffi_c/libffi/Makefile.am +166 -0
- data/ext/ffi_c/libffi/README.md +461 -0
- data/ext/ffi_c/libffi/acinclude.m4 +479 -0
- data/ext/ffi_c/libffi/autogen.sh +2 -0
- data/ext/ffi_c/libffi/config.guess +1466 -0
- data/ext/ffi_c/libffi/config.sub +1836 -0
- data/ext/ffi_c/libffi/configure.ac +394 -0
- data/ext/ffi_c/libffi/configure.host +289 -0
- data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +203 -0
- data/ext/ffi_c/libffi/include/Makefile.am +9 -0
- data/ext/ffi_c/libffi/include/ffi.h.in +511 -0
- data/ext/ffi_c/libffi/include/ffi_cfi.h +55 -0
- data/ext/ffi_c/libffi/include/ffi_common.h +149 -0
- data/ext/ffi_c/libffi/libffi.map.in +80 -0
- data/ext/ffi_c/libffi/libffi.pc.in +11 -0
- data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +1043 -0
- data/ext/ffi_c/libffi/libtool-version +29 -0
- data/ext/ffi_c/libffi/m4/asmcfi.m4 +13 -0
- data/ext/ffi_c/libffi/m4/ax_append_flag.m4 +71 -0
- data/ext/ffi_c/libffi/m4/ax_cc_maxopt.m4 +194 -0
- data/ext/ffi_c/libffi/m4/ax_cflags_warn_all.m4 +122 -0
- data/ext/ffi_c/libffi/m4/ax_check_compile_flag.m4 +74 -0
- data/ext/ffi_c/libffi/m4/ax_compiler_vendor.m4 +87 -0
- data/ext/ffi_c/libffi/m4/ax_configure_args.m4 +70 -0
- data/ext/ffi_c/libffi/m4/ax_enable_builddir.m4 +302 -0
- data/ext/ffi_c/libffi/m4/ax_gcc_archflag.m4 +263 -0
- data/ext/ffi_c/libffi/m4/ax_gcc_x86_cpuid.m4 +89 -0
- data/ext/ffi_c/libffi/m4/ax_require_defined.m4 +37 -0
- data/ext/ffi_c/libffi/man/Makefile.am +8 -0
- data/ext/ffi_c/libffi/man/ffi.3 +41 -0
- data/ext/ffi_c/libffi/man/ffi_call.3 +103 -0
- data/ext/ffi_c/libffi/man/ffi_prep_cif.3 +68 -0
- data/ext/ffi_c/libffi/man/ffi_prep_cif_var.3 +73 -0
- data/ext/ffi_c/libffi/msvcc.sh +328 -0
- data/ext/ffi_c/libffi/src/aarch64/ffi.c +941 -0
- data/ext/ffi_c/libffi/src/aarch64/ffitarget.h +81 -0
- data/ext/ffi_c/libffi/src/aarch64/internal.h +67 -0
- data/ext/ffi_c/libffi/src/aarch64/sysv.S +438 -0
- data/ext/ffi_c/libffi/src/alpha/ffi.c +521 -0
- data/ext/ffi_c/libffi/src/alpha/ffitarget.h +57 -0
- data/ext/ffi_c/libffi/src/alpha/internal.h +23 -0
- data/ext/ffi_c/libffi/src/alpha/osf.S +282 -0
- data/ext/ffi_c/libffi/src/arc/arcompact.S +135 -0
- data/ext/ffi_c/libffi/src/arc/ffi.c +266 -0
- data/ext/ffi_c/libffi/src/arc/ffitarget.h +53 -0
- data/ext/ffi_c/libffi/src/arm/ffi.c +819 -0
- data/ext/ffi_c/libffi/src/arm/ffitarget.h +82 -0
- data/ext/ffi_c/libffi/src/arm/internal.h +7 -0
- data/ext/ffi_c/libffi/src/arm/sysv.S +383 -0
- data/ext/ffi_c/libffi/src/avr32/ffi.c +423 -0
- data/ext/ffi_c/libffi/src/avr32/ffitarget.h +55 -0
- data/ext/ffi_c/libffi/src/avr32/sysv.S +208 -0
- data/ext/ffi_c/libffi/src/bfin/ffi.c +196 -0
- data/ext/ffi_c/libffi/src/bfin/ffitarget.h +43 -0
- data/ext/ffi_c/libffi/src/bfin/sysv.S +179 -0
- data/ext/ffi_c/libffi/src/closures.c +966 -0
- data/ext/ffi_c/libffi/src/cris/ffi.c +386 -0
- data/ext/ffi_c/libffi/src/cris/ffitarget.h +56 -0
- data/ext/ffi_c/libffi/src/cris/sysv.S +215 -0
- data/ext/ffi_c/libffi/src/debug.c +64 -0
- data/ext/ffi_c/libffi/src/dlmalloc.c +5166 -0
- data/ext/ffi_c/libffi/src/frv/eabi.S +128 -0
- data/ext/ffi_c/libffi/src/frv/ffi.c +292 -0
- data/ext/ffi_c/libffi/src/frv/ffitarget.h +62 -0
- data/ext/ffi_c/libffi/src/ia64/ffi.c +604 -0
- data/ext/ffi_c/libffi/src/ia64/ffitarget.h +56 -0
- data/ext/ffi_c/libffi/src/ia64/ia64_flags.h +40 -0
- data/ext/ffi_c/libffi/src/ia64/unix.S +567 -0
- data/ext/ffi_c/libffi/src/java_raw_api.c +374 -0
- data/ext/ffi_c/libffi/src/m32r/ffi.c +232 -0
- data/ext/ffi_c/libffi/src/m32r/ffitarget.h +53 -0
- data/ext/ffi_c/libffi/src/m32r/sysv.S +121 -0
- data/ext/ffi_c/libffi/src/m68k/ffi.c +362 -0
- data/ext/ffi_c/libffi/src/m68k/ffitarget.h +54 -0
- data/ext/ffi_c/libffi/src/m68k/sysv.S +357 -0
- data/ext/ffi_c/libffi/src/m88k/ffi.c +400 -0
- data/ext/ffi_c/libffi/src/m88k/ffitarget.h +49 -0
- data/ext/ffi_c/libffi/src/m88k/obsd.S +209 -0
- data/ext/ffi_c/libffi/src/metag/ffi.c +330 -0
- data/ext/ffi_c/libffi/src/metag/ffitarget.h +53 -0
- data/ext/ffi_c/libffi/src/metag/sysv.S +311 -0
- data/ext/ffi_c/libffi/src/microblaze/ffi.c +321 -0
- data/ext/ffi_c/libffi/src/microblaze/ffitarget.h +53 -0
- data/ext/ffi_c/libffi/src/microblaze/sysv.S +302 -0
- data/ext/ffi_c/libffi/src/mips/ffi.c +1130 -0
- data/ext/ffi_c/libffi/src/mips/ffitarget.h +244 -0
- data/ext/ffi_c/libffi/src/mips/n32.S +663 -0
- data/ext/ffi_c/libffi/src/mips/o32.S +502 -0
- data/ext/ffi_c/libffi/src/moxie/eabi.S +101 -0
- data/ext/ffi_c/libffi/src/moxie/ffi.c +285 -0
- data/ext/ffi_c/libffi/src/moxie/ffitarget.h +52 -0
- data/ext/ffi_c/libffi/src/nios2/ffi.c +304 -0
- data/ext/ffi_c/libffi/src/nios2/ffitarget.h +52 -0
- data/ext/ffi_c/libffi/src/nios2/sysv.S +136 -0
- data/ext/ffi_c/libffi/src/or1k/ffi.c +328 -0
- data/ext/ffi_c/libffi/src/or1k/ffitarget.h +58 -0
- data/ext/ffi_c/libffi/src/or1k/sysv.S +107 -0
- data/ext/ffi_c/libffi/src/pa/ffi.c +719 -0
- data/ext/ffi_c/libffi/src/pa/ffitarget.h +85 -0
- data/ext/ffi_c/libffi/src/pa/hpux32.S +368 -0
- data/ext/ffi_c/libffi/src/pa/linux.S +357 -0
- data/ext/ffi_c/libffi/src/powerpc/aix.S +566 -0
- data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +694 -0
- data/ext/ffi_c/libffi/src/powerpc/asm.h +125 -0
- data/ext/ffi_c/libffi/src/powerpc/darwin.S +378 -0
- data/ext/ffi_c/libffi/src/powerpc/darwin_closure.S +571 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi.c +173 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +1440 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi_linux64.c +974 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi_powerpc.h +94 -0
- data/ext/ffi_c/libffi/src/powerpc/ffi_sysv.c +923 -0
- data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +198 -0
- data/ext/ffi_c/libffi/src/powerpc/linux64.S +228 -0
- data/ext/ffi_c/libffi/src/powerpc/linux64_closure.S +488 -0
- data/ext/ffi_c/libffi/src/powerpc/ppc_closure.S +397 -0
- data/ext/ffi_c/libffi/src/powerpc/sysv.S +175 -0
- data/ext/ffi_c/libffi/src/prep_cif.c +261 -0
- data/ext/ffi_c/libffi/src/raw_api.c +267 -0
- data/ext/ffi_c/libffi/src/riscv/ffi.c +481 -0
- data/ext/ffi_c/libffi/src/riscv/ffitarget.h +69 -0
- data/ext/ffi_c/libffi/src/riscv/sysv.S +293 -0
- data/ext/ffi_c/libffi/src/s390/ffi.c +756 -0
- data/ext/ffi_c/libffi/src/s390/ffitarget.h +70 -0
- data/ext/ffi_c/libffi/src/s390/internal.h +11 -0
- data/ext/ffi_c/libffi/src/s390/sysv.S +325 -0
- data/ext/ffi_c/libffi/src/sh/ffi.c +717 -0
- data/ext/ffi_c/libffi/src/sh/ffitarget.h +54 -0
- data/ext/ffi_c/libffi/src/sh/sysv.S +850 -0
- data/ext/ffi_c/libffi/src/sh64/ffi.c +469 -0
- data/ext/ffi_c/libffi/src/sh64/ffitarget.h +58 -0
- data/ext/ffi_c/libffi/src/sh64/sysv.S +539 -0
- data/ext/ffi_c/libffi/src/sparc/ffi.c +468 -0
- data/ext/ffi_c/libffi/src/sparc/ffi64.c +608 -0
- data/ext/ffi_c/libffi/src/sparc/ffitarget.h +81 -0
- data/ext/ffi_c/libffi/src/sparc/internal.h +26 -0
- data/ext/ffi_c/libffi/src/sparc/v8.S +443 -0
- data/ext/ffi_c/libffi/src/sparc/v9.S +440 -0
- data/ext/ffi_c/libffi/src/tile/ffi.c +355 -0
- data/ext/ffi_c/libffi/src/tile/ffitarget.h +65 -0
- data/ext/ffi_c/libffi/src/tile/tile.S +360 -0
- data/ext/ffi_c/libffi/src/types.c +108 -0
- data/ext/ffi_c/libffi/src/vax/elfbsd.S +195 -0
- data/ext/ffi_c/libffi/src/vax/ffi.c +276 -0
- data/ext/ffi_c/libffi/src/vax/ffitarget.h +49 -0
- data/ext/ffi_c/libffi/src/x86/asmnames.h +30 -0
- data/ext/ffi_c/libffi/src/x86/ffi.c +754 -0
- data/ext/ffi_c/libffi/src/x86/ffi64.c +884 -0
- data/ext/ffi_c/libffi/src/x86/ffitarget.h +147 -0
- data/ext/ffi_c/libffi/src/x86/ffiw64.c +308 -0
- data/ext/ffi_c/libffi/src/x86/internal.h +29 -0
- data/ext/ffi_c/libffi/src/x86/internal64.h +22 -0
- data/ext/ffi_c/libffi/src/x86/sysv.S +1129 -0
- data/ext/ffi_c/libffi/src/x86/unix64.S +566 -0
- data/ext/ffi_c/libffi/src/x86/win64.S +232 -0
- data/ext/ffi_c/libffi/src/x86/win64_intel.S +237 -0
- data/ext/ffi_c/libffi/src/xtensa/ffi.c +298 -0
- data/ext/ffi_c/libffi/src/xtensa/ffitarget.h +53 -0
- data/ext/ffi_c/libffi/src/xtensa/sysv.S +258 -0
- data/ext/ffi_c/libffi/stamp-h.in +1 -0
- data/ext/ffi_c/libffi/testsuite/Makefile.am +117 -0
- data/ext/ffi_c/libffi/testsuite/config/default.exp +1 -0
- data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +636 -0
- data/ext/ffi_c/libffi/testsuite/lib/target-libpath.exp +283 -0
- data/ext/ffi_c/libffi/testsuite/lib/wrapper.exp +45 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/Makefile +28 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/README +78 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/alignof.h +50 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/bhaible.exp +58 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-call.c +1745 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/test-callback.c +2885 -0
- data/ext/ffi_c/libffi/testsuite/libffi.bhaible/testcases.c +743 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/align_mixed.c +46 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/align_stdcall.c +46 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/call.exp +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn0.c +89 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn1.c +81 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn2.c +81 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn3.c +82 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn4.c +89 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn5.c +92 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_fn6.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_loc_fn0.c +95 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/closure_simple.c +55 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_12byte.c +94 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_16byte.c +95 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_18byte.c +96 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_19byte.c +102 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_1_1byte.c +89 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_20byte1.c +93 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_24byte.c +113 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_2byte.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3_1byte.c +95 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte1.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3byte2.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3float.c +95 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4_1byte.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_4byte.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5_1_byte.c +109 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_5byte.c +98 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_64byte.c +124 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6_1_byte.c +113 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_6byte.c +99 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7_1_byte.c +117 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_7byte.c +97 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_8byte.c +88 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte1.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_9byte2.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_double.c +93 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_float.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble.c +92 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split.c +132 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c +115 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_pointer.c +95 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint16.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint32.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_sint64.c +92 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint16.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint32.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_align_uint64.c +93 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_dbls_struct.c +66 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double.c +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_double_va.c +61 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_float.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble.c +105 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_longdouble_va.c +61 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_args.c +70 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_many_mixed_float_double.c +55 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_schar.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshort.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_sshortchar.c +86 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_uchar.c +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushort.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_multi_ushortchar.c +86 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_pointer_stack.c +142 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_schar.c +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sint.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_sshort.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_struct_va1.c +114 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uchar_va.c +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint.c +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_uint_va.c +45 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulong_va.c +45 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ulonglong.c +47 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort.c +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_ushort_va.c +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_abi.c +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/err_bad_typedef.c +26 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/ffitest.h +138 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float.c +59 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float1.c +60 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float2.c +60 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float3.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float4.c +62 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/float_va.c +107 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/huge_struct.c +341 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/many.c +59 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/many2.c +57 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/many_double.c +70 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/many_mixed.c +78 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/negint.c +52 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct.c +152 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct1.c +161 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct10.c +134 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct11.c +121 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct2.c +110 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct3.c +111 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct4.c +111 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct5.c +112 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct6.c +131 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct7.c +111 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct8.c +131 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/nested_struct9.c +131 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/offsets.c +46 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/pr1172638.c +127 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/problem1.c +90 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/promotion.c +59 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/pyobjc-tc.c +114 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl.c +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl1.c +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_dbl2.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl.c +35 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl1.c +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl2.c +49 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_fl3.c +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ldl.c +34 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll.c +41 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ll1.c +43 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_sc.c +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_sl.c +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_uc.c +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/return_ul.c +38 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large.c +145 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/stret_large2.c +148 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium.c +124 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/stret_medium2.c +125 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/strlen.c +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/strlen2.c +49 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/strlen3.c +49 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/strlen4.c +55 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct1.c +67 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct10.c +57 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct2.c +67 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct3.c +60 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct4.c +64 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct5.c +66 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct6.c +64 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct7.c +74 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct8.c +81 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/struct9.c +68 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/testclosure.c +70 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/uninitialized.c +61 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest.cc +117 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/unwindtest_ffi_call.cc +54 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/va_1.c +196 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct1.c +121 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct2.c +123 -0
- data/ext/ffi_c/libffi/testsuite/libffi.call/va_struct3.c +125 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex.inc +91 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_align_complex_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex.inc +42 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct.inc +71 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_struct_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va.inc +80 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_float.c +16 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/cls_complex_va_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.exp +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex.inc +51 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_double.inc +7 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_float.inc +7 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_defs_longdouble.inc +7 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_int.c +86 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/complex_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/ffitest.h +1 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex.inc +78 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/many_complex_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex.inc +37 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1.inc +41 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex1_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2.inc +44 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex2_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_double.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c +10 -0
- data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c +34 -0
- data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c +28 -0
- data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h +1 -0
- data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp +36 -0
- data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h +19 -0
- data/ext/ffi_c/rbffi.h +55 -0
- data/ext/ffi_c/rbffi_endian.h +59 -0
- data/ext/ffi_c/win32/stdbool.h +8 -0
- data/ext/ffi_c/win32/stdint.h +201 -0
- data/ffi.gemspec +43 -0
- data/lib/ffi.rb +20 -0
- data/lib/ffi/autopointer.rb +203 -0
- data/lib/ffi/buffer.rb +4 -0
- data/lib/ffi/callback.rb +4 -0
- data/lib/ffi/data_converter.rb +67 -0
- data/lib/ffi/enum.rb +296 -0
- data/lib/ffi/errno.rb +43 -0
- data/lib/ffi/ffi.rb +45 -0
- data/lib/ffi/io.rb +62 -0
- data/lib/ffi/library.rb +588 -0
- data/lib/ffi/managedstruct.rb +84 -0
- data/lib/ffi/memorypointer.rb +1 -0
- data/lib/ffi/platform.rb +172 -0
- data/lib/ffi/platform/aarch64-freebsd/types.conf +128 -0
- data/lib/ffi/platform/aarch64-freebsd12/types.conf +128 -0
- data/lib/ffi/platform/aarch64-linux/types.conf +104 -0
- data/lib/ffi/platform/arm-freebsd/types.conf +152 -0
- data/lib/ffi/platform/arm-freebsd12/types.conf +152 -0
- data/lib/ffi/platform/arm-linux/types.conf +104 -0
- data/lib/ffi/platform/i386-cygwin/types.conf +3 -0
- data/lib/ffi/platform/i386-darwin/types.conf +100 -0
- data/lib/ffi/platform/i386-freebsd/types.conf +152 -0
- data/lib/ffi/platform/i386-freebsd12/types.conf +152 -0
- data/lib/ffi/platform/i386-gnu/types.conf +107 -0
- data/lib/ffi/platform/i386-linux/types.conf +103 -0
- data/lib/ffi/platform/i386-netbsd/types.conf +126 -0
- data/lib/ffi/platform/i386-openbsd/types.conf +128 -0
- data/lib/ffi/platform/i386-solaris/types.conf +122 -0
- data/lib/ffi/platform/i386-windows/types.conf +105 -0
- data/lib/ffi/platform/ia64-linux/types.conf +104 -0
- data/lib/ffi/platform/mips-linux/types.conf +102 -0
- data/lib/ffi/platform/mips64-linux/types.conf +104 -0
- data/lib/ffi/platform/mips64el-linux/types.conf +104 -0
- data/lib/ffi/platform/mipsel-linux/types.conf +102 -0
- data/lib/ffi/platform/mipsisa32r6-linux/types.conf +102 -0
- data/lib/ffi/platform/mipsisa32r6el-linux/types.conf +102 -0
- data/lib/ffi/platform/mipsisa64r6-linux/types.conf +104 -0
- data/lib/ffi/platform/mipsisa64r6el-linux/types.conf +104 -0
- data/lib/ffi/platform/powerpc-aix/types.conf +180 -0
- data/lib/ffi/platform/powerpc-darwin/types.conf +100 -0
- data/lib/ffi/platform/powerpc-linux/types.conf +100 -0
- data/lib/ffi/platform/powerpc64-linux/types.conf +104 -0
- data/lib/ffi/platform/s390-linux/types.conf +102 -0
- data/lib/ffi/platform/s390x-linux/types.conf +102 -0
- data/lib/ffi/platform/sparc-linux/types.conf +102 -0
- data/lib/ffi/platform/sparc-solaris/types.conf +128 -0
- data/lib/ffi/platform/sparc64-linux/types.conf +102 -0
- data/lib/ffi/platform/sparcv9-solaris/types.conf +128 -0
- data/lib/ffi/platform/x86_64-cygwin/types.conf +3 -0
- data/lib/ffi/platform/x86_64-darwin/types.conf +126 -0
- data/lib/ffi/platform/x86_64-freebsd/types.conf +128 -0
- data/lib/ffi/platform/x86_64-freebsd12/types.conf +128 -0
- data/lib/ffi/platform/x86_64-linux/types.conf +102 -0
- data/lib/ffi/platform/x86_64-netbsd/types.conf +128 -0
- data/lib/ffi/platform/x86_64-openbsd/types.conf +134 -0
- data/lib/ffi/platform/x86_64-solaris/types.conf +122 -0
- data/lib/ffi/platform/x86_64-windows/types.conf +120 -0
- data/lib/ffi/pointer.rb +160 -0
- data/lib/ffi/struct.rb +311 -0
- data/lib/ffi/struct_by_reference.rb +72 -0
- data/lib/ffi/struct_layout.rb +96 -0
- data/lib/ffi/struct_layout_builder.rb +227 -0
- data/lib/ffi/tools/const_generator.rb +230 -0
- data/lib/ffi/tools/generator.rb +105 -0
- data/lib/ffi/tools/generator_task.rb +32 -0
- data/lib/ffi/tools/struct_generator.rb +194 -0
- data/lib/ffi/tools/types_generator.rb +134 -0
- data/lib/ffi/types.rb +194 -0
- data/lib/ffi/union.rb +43 -0
- data/lib/ffi/variadic.rb +78 -0
- data/lib/ffi/version.rb +3 -0
- data/samples/getlogin.rb +8 -0
- data/samples/getpid.rb +8 -0
- data/samples/gettimeofday.rb +18 -0
- data/samples/hello.rb +7 -0
- data/samples/inotify.rb +60 -0
- data/samples/pty.rb +76 -0
- data/samples/qsort.rb +21 -0
- data/samples/sample_helper.rb +6 -0
- metadata +663 -0
@@ -0,0 +1,521 @@
|
|
1
|
+
/* -----------------------------------------------------------------------
|
2
|
+
ffi.c - Copyright (c) 2012 Anthony Green
|
3
|
+
Copyright (c) 1998, 2001, 2007, 2008 Red Hat, Inc.
|
4
|
+
|
5
|
+
Alpha 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
|
+
#include <stdlib.h>
|
31
|
+
#include "internal.h"
|
32
|
+
|
33
|
+
/* Force FFI_TYPE_LONGDOUBLE to be different than FFI_TYPE_DOUBLE;
|
34
|
+
all further uses in this file will refer to the 128-bit type. */
|
35
|
+
#if defined(__LONG_DOUBLE_128__)
|
36
|
+
# if FFI_TYPE_LONGDOUBLE != 4
|
37
|
+
# error FFI_TYPE_LONGDOUBLE out of date
|
38
|
+
# endif
|
39
|
+
#else
|
40
|
+
# undef FFI_TYPE_LONGDOUBLE
|
41
|
+
# define FFI_TYPE_LONGDOUBLE 4
|
42
|
+
#endif
|
43
|
+
|
44
|
+
extern void ffi_call_osf(void *stack, void *frame, unsigned flags,
|
45
|
+
void *raddr, void (*fn)(void), void *closure)
|
46
|
+
FFI_HIDDEN;
|
47
|
+
extern void ffi_closure_osf(void) FFI_HIDDEN;
|
48
|
+
extern void ffi_go_closure_osf(void) FFI_HIDDEN;
|
49
|
+
|
50
|
+
/* Promote a float value to its in-register double representation.
|
51
|
+
Unlike actually casting to double, this does not trap on NaN. */
|
52
|
+
static inline UINT64 lds(void *ptr)
|
53
|
+
{
|
54
|
+
UINT64 ret;
|
55
|
+
asm("lds %0,%1" : "=f"(ret) : "m"(*(UINT32 *)ptr));
|
56
|
+
return ret;
|
57
|
+
}
|
58
|
+
|
59
|
+
/* And the reverse. */
|
60
|
+
static inline void sts(void *ptr, UINT64 val)
|
61
|
+
{
|
62
|
+
asm("sts %1,%0" : "=m"(*(UINT32 *)ptr) : "f"(val));
|
63
|
+
}
|
64
|
+
|
65
|
+
ffi_status FFI_HIDDEN
|
66
|
+
ffi_prep_cif_machdep(ffi_cif *cif)
|
67
|
+
{
|
68
|
+
size_t bytes = 0;
|
69
|
+
int flags, i, avn;
|
70
|
+
ffi_type *rtype, *itype;
|
71
|
+
|
72
|
+
if (cif->abi != FFI_OSF)
|
73
|
+
return FFI_BAD_ABI;
|
74
|
+
|
75
|
+
/* Compute the size of the argument area. */
|
76
|
+
for (i = 0, avn = cif->nargs; i < avn; i++)
|
77
|
+
{
|
78
|
+
itype = cif->arg_types[i];
|
79
|
+
switch (itype->type)
|
80
|
+
{
|
81
|
+
case FFI_TYPE_INT:
|
82
|
+
case FFI_TYPE_SINT8:
|
83
|
+
case FFI_TYPE_UINT8:
|
84
|
+
case FFI_TYPE_SINT16:
|
85
|
+
case FFI_TYPE_UINT16:
|
86
|
+
case FFI_TYPE_SINT32:
|
87
|
+
case FFI_TYPE_UINT32:
|
88
|
+
case FFI_TYPE_SINT64:
|
89
|
+
case FFI_TYPE_UINT64:
|
90
|
+
case FFI_TYPE_POINTER:
|
91
|
+
case FFI_TYPE_FLOAT:
|
92
|
+
case FFI_TYPE_DOUBLE:
|
93
|
+
case FFI_TYPE_LONGDOUBLE:
|
94
|
+
/* All take one 8 byte slot. */
|
95
|
+
bytes += 8;
|
96
|
+
break;
|
97
|
+
|
98
|
+
case FFI_TYPE_VOID:
|
99
|
+
case FFI_TYPE_STRUCT:
|
100
|
+
/* Passed by value in N slots. */
|
101
|
+
bytes += FFI_ALIGN(itype->size, FFI_SIZEOF_ARG);
|
102
|
+
break;
|
103
|
+
|
104
|
+
case FFI_TYPE_COMPLEX:
|
105
|
+
/* _Complex long double passed by reference; others in 2 slots. */
|
106
|
+
if (itype->elements[0]->type == FFI_TYPE_LONGDOUBLE)
|
107
|
+
bytes += 8;
|
108
|
+
else
|
109
|
+
bytes += 16;
|
110
|
+
break;
|
111
|
+
|
112
|
+
default:
|
113
|
+
abort();
|
114
|
+
}
|
115
|
+
}
|
116
|
+
|
117
|
+
/* Set the return type flag */
|
118
|
+
rtype = cif->rtype;
|
119
|
+
switch (rtype->type)
|
120
|
+
{
|
121
|
+
case FFI_TYPE_VOID:
|
122
|
+
flags = ALPHA_FLAGS(ALPHA_ST_VOID, ALPHA_LD_VOID);
|
123
|
+
break;
|
124
|
+
case FFI_TYPE_INT:
|
125
|
+
case FFI_TYPE_UINT32:
|
126
|
+
case FFI_TYPE_SINT32:
|
127
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_INT32);
|
128
|
+
break;
|
129
|
+
case FFI_TYPE_FLOAT:
|
130
|
+
flags = ALPHA_FLAGS(ALPHA_ST_FLOAT, ALPHA_LD_FLOAT);
|
131
|
+
break;
|
132
|
+
case FFI_TYPE_DOUBLE:
|
133
|
+
flags = ALPHA_FLAGS(ALPHA_ST_DOUBLE, ALPHA_LD_DOUBLE);
|
134
|
+
break;
|
135
|
+
case FFI_TYPE_UINT8:
|
136
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_UINT8);
|
137
|
+
break;
|
138
|
+
case FFI_TYPE_SINT8:
|
139
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_SINT8);
|
140
|
+
break;
|
141
|
+
case FFI_TYPE_UINT16:
|
142
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_UINT16);
|
143
|
+
break;
|
144
|
+
case FFI_TYPE_SINT16:
|
145
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_SINT16);
|
146
|
+
break;
|
147
|
+
case FFI_TYPE_UINT64:
|
148
|
+
case FFI_TYPE_SINT64:
|
149
|
+
case FFI_TYPE_POINTER:
|
150
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_INT64);
|
151
|
+
break;
|
152
|
+
case FFI_TYPE_LONGDOUBLE:
|
153
|
+
case FFI_TYPE_STRUCT:
|
154
|
+
/* Passed in memory, with a hidden pointer. */
|
155
|
+
flags = ALPHA_RET_IN_MEM;
|
156
|
+
break;
|
157
|
+
case FFI_TYPE_COMPLEX:
|
158
|
+
itype = rtype->elements[0];
|
159
|
+
switch (itype->type)
|
160
|
+
{
|
161
|
+
case FFI_TYPE_FLOAT:
|
162
|
+
flags = ALPHA_FLAGS(ALPHA_ST_CPLXF, ALPHA_LD_CPLXF);
|
163
|
+
break;
|
164
|
+
case FFI_TYPE_DOUBLE:
|
165
|
+
flags = ALPHA_FLAGS(ALPHA_ST_CPLXD, ALPHA_LD_CPLXD);
|
166
|
+
break;
|
167
|
+
default:
|
168
|
+
if (rtype->size <= 8)
|
169
|
+
flags = ALPHA_FLAGS(ALPHA_ST_INT, ALPHA_LD_INT64);
|
170
|
+
else
|
171
|
+
flags = ALPHA_RET_IN_MEM;
|
172
|
+
break;
|
173
|
+
}
|
174
|
+
break;
|
175
|
+
default:
|
176
|
+
abort();
|
177
|
+
}
|
178
|
+
cif->flags = flags;
|
179
|
+
|
180
|
+
/* Include the hidden structure pointer in args requirement. */
|
181
|
+
if (flags == ALPHA_RET_IN_MEM)
|
182
|
+
bytes += 8;
|
183
|
+
/* Minimum size is 6 slots, so that ffi_call_osf can pop them. */
|
184
|
+
if (bytes < 6*8)
|
185
|
+
bytes = 6*8;
|
186
|
+
cif->bytes = bytes;
|
187
|
+
|
188
|
+
return FFI_OK;
|
189
|
+
}
|
190
|
+
|
191
|
+
static unsigned long
|
192
|
+
extend_basic_type(void *valp, int type, int argn)
|
193
|
+
{
|
194
|
+
switch (type)
|
195
|
+
{
|
196
|
+
case FFI_TYPE_SINT8:
|
197
|
+
return *(SINT8 *)valp;
|
198
|
+
case FFI_TYPE_UINT8:
|
199
|
+
return *(UINT8 *)valp;
|
200
|
+
case FFI_TYPE_SINT16:
|
201
|
+
return *(SINT16 *)valp;
|
202
|
+
case FFI_TYPE_UINT16:
|
203
|
+
return *(UINT16 *)valp;
|
204
|
+
|
205
|
+
case FFI_TYPE_FLOAT:
|
206
|
+
if (argn < 6)
|
207
|
+
return lds(valp);
|
208
|
+
/* FALLTHRU */
|
209
|
+
|
210
|
+
case FFI_TYPE_INT:
|
211
|
+
case FFI_TYPE_SINT32:
|
212
|
+
case FFI_TYPE_UINT32:
|
213
|
+
/* Note that unsigned 32-bit quantities are sign extended. */
|
214
|
+
return *(SINT32 *)valp;
|
215
|
+
|
216
|
+
case FFI_TYPE_SINT64:
|
217
|
+
case FFI_TYPE_UINT64:
|
218
|
+
case FFI_TYPE_POINTER:
|
219
|
+
case FFI_TYPE_DOUBLE:
|
220
|
+
return *(UINT64 *)valp;
|
221
|
+
|
222
|
+
default:
|
223
|
+
abort();
|
224
|
+
}
|
225
|
+
}
|
226
|
+
|
227
|
+
static void
|
228
|
+
ffi_call_int (ffi_cif *cif, void (*fn)(void), void *rvalue,
|
229
|
+
void **avalue, void *closure)
|
230
|
+
{
|
231
|
+
unsigned long *argp;
|
232
|
+
long i, avn, argn, flags = cif->flags;
|
233
|
+
ffi_type **arg_types;
|
234
|
+
void *frame;
|
235
|
+
|
236
|
+
/* If the return value is a struct and we don't have a return
|
237
|
+
value address then we need to make one. */
|
238
|
+
if (rvalue == NULL && flags == ALPHA_RET_IN_MEM)
|
239
|
+
rvalue = alloca(cif->rtype->size);
|
240
|
+
|
241
|
+
/* Allocate the space for the arguments, plus 4 words of temp
|
242
|
+
space for ffi_call_osf. */
|
243
|
+
argp = frame = alloca(cif->bytes + 4*FFI_SIZEOF_ARG);
|
244
|
+
frame += cif->bytes;
|
245
|
+
|
246
|
+
argn = 0;
|
247
|
+
if (flags == ALPHA_RET_IN_MEM)
|
248
|
+
argp[argn++] = (unsigned long)rvalue;
|
249
|
+
|
250
|
+
avn = cif->nargs;
|
251
|
+
arg_types = cif->arg_types;
|
252
|
+
|
253
|
+
for (i = 0, avn = cif->nargs; i < avn; i++)
|
254
|
+
{
|
255
|
+
ffi_type *ty = arg_types[i];
|
256
|
+
void *valp = avalue[i];
|
257
|
+
int type = ty->type;
|
258
|
+
size_t size;
|
259
|
+
|
260
|
+
switch (type)
|
261
|
+
{
|
262
|
+
case FFI_TYPE_INT:
|
263
|
+
case FFI_TYPE_SINT8:
|
264
|
+
case FFI_TYPE_UINT8:
|
265
|
+
case FFI_TYPE_SINT16:
|
266
|
+
case FFI_TYPE_UINT16:
|
267
|
+
case FFI_TYPE_SINT32:
|
268
|
+
case FFI_TYPE_UINT32:
|
269
|
+
case FFI_TYPE_SINT64:
|
270
|
+
case FFI_TYPE_UINT64:
|
271
|
+
case FFI_TYPE_POINTER:
|
272
|
+
case FFI_TYPE_FLOAT:
|
273
|
+
case FFI_TYPE_DOUBLE:
|
274
|
+
argp[argn] = extend_basic_type(valp, type, argn);
|
275
|
+
argn++;
|
276
|
+
break;
|
277
|
+
|
278
|
+
case FFI_TYPE_LONGDOUBLE:
|
279
|
+
by_reference:
|
280
|
+
/* Note that 128-bit long double is passed by reference. */
|
281
|
+
argp[argn++] = (unsigned long)valp;
|
282
|
+
break;
|
283
|
+
|
284
|
+
case FFI_TYPE_VOID:
|
285
|
+
case FFI_TYPE_STRUCT:
|
286
|
+
size = ty->size;
|
287
|
+
memcpy(argp + argn, valp, size);
|
288
|
+
argn += FFI_ALIGN(size, FFI_SIZEOF_ARG) / FFI_SIZEOF_ARG;
|
289
|
+
break;
|
290
|
+
|
291
|
+
case FFI_TYPE_COMPLEX:
|
292
|
+
type = ty->elements[0]->type;
|
293
|
+
if (type == FFI_TYPE_LONGDOUBLE)
|
294
|
+
goto by_reference;
|
295
|
+
|
296
|
+
/* Most complex types passed as two separate arguments. */
|
297
|
+
size = ty->elements[0]->size;
|
298
|
+
argp[argn] = extend_basic_type(valp, type, argn);
|
299
|
+
argp[argn + 1] = extend_basic_type(valp + size, type, argn + 1);
|
300
|
+
argn += 2;
|
301
|
+
break;
|
302
|
+
|
303
|
+
default:
|
304
|
+
abort();
|
305
|
+
}
|
306
|
+
}
|
307
|
+
|
308
|
+
flags = (flags >> ALPHA_ST_SHIFT) & 0xff;
|
309
|
+
ffi_call_osf(argp, frame, flags, rvalue, fn, closure);
|
310
|
+
}
|
311
|
+
|
312
|
+
void
|
313
|
+
ffi_call (ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
|
314
|
+
{
|
315
|
+
ffi_call_int(cif, fn, rvalue, avalue, NULL);
|
316
|
+
}
|
317
|
+
|
318
|
+
void
|
319
|
+
ffi_call_go (ffi_cif *cif, void (*fn)(void), void *rvalue,
|
320
|
+
void **avalue, void *closure)
|
321
|
+
{
|
322
|
+
ffi_call_int(cif, fn, rvalue, avalue, closure);
|
323
|
+
}
|
324
|
+
|
325
|
+
ffi_status
|
326
|
+
ffi_prep_closure_loc (ffi_closure* closure,
|
327
|
+
ffi_cif* cif,
|
328
|
+
void (*fun)(ffi_cif*, void*, void**, void*),
|
329
|
+
void *user_data,
|
330
|
+
void *codeloc)
|
331
|
+
{
|
332
|
+
unsigned int *tramp;
|
333
|
+
|
334
|
+
if (cif->abi != FFI_OSF)
|
335
|
+
return FFI_BAD_ABI;
|
336
|
+
|
337
|
+
tramp = (unsigned int *) &closure->tramp[0];
|
338
|
+
tramp[0] = 0x47fb0401; /* mov $27,$1 */
|
339
|
+
tramp[1] = 0xa77b0010; /* ldq $27,16($27) */
|
340
|
+
tramp[2] = 0x6bfb0000; /* jmp $31,($27),0 */
|
341
|
+
tramp[3] = 0x47ff041f; /* nop */
|
342
|
+
*(void **) &tramp[4] = ffi_closure_osf;
|
343
|
+
|
344
|
+
closure->cif = cif;
|
345
|
+
closure->fun = fun;
|
346
|
+
closure->user_data = user_data;
|
347
|
+
|
348
|
+
/* Flush the Icache.
|
349
|
+
|
350
|
+
Tru64 UNIX as doesn't understand the imb mnemonic, so use call_pal
|
351
|
+
instead, since both Compaq as and gas can handle it.
|
352
|
+
|
353
|
+
0x86 is PAL_imb in Tru64 UNIX <alpha/pal.h>. */
|
354
|
+
asm volatile ("call_pal 0x86" : : : "memory");
|
355
|
+
|
356
|
+
return FFI_OK;
|
357
|
+
}
|
358
|
+
|
359
|
+
ffi_status
|
360
|
+
ffi_prep_go_closure (ffi_go_closure* closure,
|
361
|
+
ffi_cif* cif,
|
362
|
+
void (*fun)(ffi_cif*, void*, void**, void*))
|
363
|
+
{
|
364
|
+
if (cif->abi != FFI_OSF)
|
365
|
+
return FFI_BAD_ABI;
|
366
|
+
|
367
|
+
closure->tramp = (void *)ffi_go_closure_osf;
|
368
|
+
closure->cif = cif;
|
369
|
+
closure->fun = fun;
|
370
|
+
|
371
|
+
return FFI_OK;
|
372
|
+
}
|
373
|
+
|
374
|
+
long FFI_HIDDEN
|
375
|
+
ffi_closure_osf_inner (ffi_cif *cif,
|
376
|
+
void (*fun)(ffi_cif*, void*, void**, void*),
|
377
|
+
void *user_data,
|
378
|
+
void *rvalue, unsigned long *argp)
|
379
|
+
{
|
380
|
+
void **avalue;
|
381
|
+
ffi_type **arg_types;
|
382
|
+
long i, avn, argn, flags;
|
383
|
+
|
384
|
+
avalue = alloca(cif->nargs * sizeof(void *));
|
385
|
+
flags = cif->flags;
|
386
|
+
argn = 0;
|
387
|
+
|
388
|
+
/* Copy the caller's structure return address to that the closure
|
389
|
+
returns the data directly to the caller. */
|
390
|
+
if (flags == ALPHA_RET_IN_MEM)
|
391
|
+
{
|
392
|
+
rvalue = (void *) argp[0];
|
393
|
+
argn = 1;
|
394
|
+
}
|
395
|
+
|
396
|
+
arg_types = cif->arg_types;
|
397
|
+
|
398
|
+
/* Grab the addresses of the arguments from the stack frame. */
|
399
|
+
for (i = 0, avn = cif->nargs; i < avn; i++)
|
400
|
+
{
|
401
|
+
ffi_type *ty = arg_types[i];
|
402
|
+
int type = ty->type;
|
403
|
+
void *valp = &argp[argn];
|
404
|
+
size_t size;
|
405
|
+
|
406
|
+
switch (type)
|
407
|
+
{
|
408
|
+
case FFI_TYPE_INT:
|
409
|
+
case FFI_TYPE_SINT8:
|
410
|
+
case FFI_TYPE_UINT8:
|
411
|
+
case FFI_TYPE_SINT16:
|
412
|
+
case FFI_TYPE_UINT16:
|
413
|
+
case FFI_TYPE_SINT32:
|
414
|
+
case FFI_TYPE_UINT32:
|
415
|
+
case FFI_TYPE_SINT64:
|
416
|
+
case FFI_TYPE_UINT64:
|
417
|
+
case FFI_TYPE_POINTER:
|
418
|
+
argn += 1;
|
419
|
+
break;
|
420
|
+
|
421
|
+
case FFI_TYPE_VOID:
|
422
|
+
case FFI_TYPE_STRUCT:
|
423
|
+
size = ty->size;
|
424
|
+
argn += FFI_ALIGN(size, FFI_SIZEOF_ARG) / FFI_SIZEOF_ARG;
|
425
|
+
break;
|
426
|
+
|
427
|
+
case FFI_TYPE_FLOAT:
|
428
|
+
/* Floats coming from registers need conversion from double
|
429
|
+
back to float format. */
|
430
|
+
if (argn < 6)
|
431
|
+
{
|
432
|
+
valp = &argp[argn - 6];
|
433
|
+
sts(valp, argp[argn - 6]);
|
434
|
+
}
|
435
|
+
argn += 1;
|
436
|
+
break;
|
437
|
+
|
438
|
+
case FFI_TYPE_DOUBLE:
|
439
|
+
if (argn < 6)
|
440
|
+
valp = &argp[argn - 6];
|
441
|
+
argn += 1;
|
442
|
+
break;
|
443
|
+
|
444
|
+
case FFI_TYPE_LONGDOUBLE:
|
445
|
+
by_reference:
|
446
|
+
/* 128-bit long double is passed by reference. */
|
447
|
+
valp = (void *)argp[argn];
|
448
|
+
argn += 1;
|
449
|
+
break;
|
450
|
+
|
451
|
+
case FFI_TYPE_COMPLEX:
|
452
|
+
type = ty->elements[0]->type;
|
453
|
+
switch (type)
|
454
|
+
{
|
455
|
+
case FFI_TYPE_SINT64:
|
456
|
+
case FFI_TYPE_UINT64:
|
457
|
+
/* Passed as separate arguments, but they wind up sequential. */
|
458
|
+
break;
|
459
|
+
|
460
|
+
case FFI_TYPE_INT:
|
461
|
+
case FFI_TYPE_SINT8:
|
462
|
+
case FFI_TYPE_UINT8:
|
463
|
+
case FFI_TYPE_SINT16:
|
464
|
+
case FFI_TYPE_UINT16:
|
465
|
+
case FFI_TYPE_SINT32:
|
466
|
+
case FFI_TYPE_UINT32:
|
467
|
+
/* Passed as separate arguments. Disjoint, but there's room
|
468
|
+
enough in one slot to hold the pair. */
|
469
|
+
size = ty->elements[0]->size;
|
470
|
+
memcpy(valp + size, valp + 8, size);
|
471
|
+
break;
|
472
|
+
|
473
|
+
case FFI_TYPE_FLOAT:
|
474
|
+
/* Passed as separate arguments. Disjoint, and each piece
|
475
|
+
may need conversion back to float. */
|
476
|
+
if (argn < 6)
|
477
|
+
{
|
478
|
+
valp = &argp[argn - 6];
|
479
|
+
sts(valp, argp[argn - 6]);
|
480
|
+
}
|
481
|
+
if (argn + 1 < 6)
|
482
|
+
sts(valp + 4, argp[argn + 1 - 6]);
|
483
|
+
else
|
484
|
+
*(UINT32 *)(valp + 4) = argp[argn + 1];
|
485
|
+
break;
|
486
|
+
|
487
|
+
case FFI_TYPE_DOUBLE:
|
488
|
+
/* Passed as separate arguments. Only disjoint if one part
|
489
|
+
is in fp regs and the other is on the stack. */
|
490
|
+
if (argn < 5)
|
491
|
+
valp = &argp[argn - 6];
|
492
|
+
else if (argn == 5)
|
493
|
+
{
|
494
|
+
valp = alloca(16);
|
495
|
+
((UINT64 *)valp)[0] = argp[5 - 6];
|
496
|
+
((UINT64 *)valp)[1] = argp[6];
|
497
|
+
}
|
498
|
+
break;
|
499
|
+
|
500
|
+
case FFI_TYPE_LONGDOUBLE:
|
501
|
+
goto by_reference;
|
502
|
+
|
503
|
+
default:
|
504
|
+
abort();
|
505
|
+
}
|
506
|
+
argn += 2;
|
507
|
+
break;
|
508
|
+
|
509
|
+
default:
|
510
|
+
abort ();
|
511
|
+
}
|
512
|
+
|
513
|
+
avalue[i] = valp;
|
514
|
+
}
|
515
|
+
|
516
|
+
/* Invoke the closure. */
|
517
|
+
fun (cif, rvalue, avalue, user_data);
|
518
|
+
|
519
|
+
/* Tell ffi_closure_osf how to perform return type promotions. */
|
520
|
+
return (flags >> ALPHA_LD_SHIFT) & 0xff;
|
521
|
+
}
|