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,604 @@
|
|
1
|
+
/* -----------------------------------------------------------------------
|
2
|
+
ffi.c - Copyright (c) 1998, 2007, 2008, 2012 Red Hat, Inc.
|
3
|
+
Copyright (c) 2000 Hewlett Packard Company
|
4
|
+
Copyright (c) 2011 Anthony Green
|
5
|
+
|
6
|
+
IA64 Foreign Function Interface
|
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 <stdbool.h>
|
34
|
+
#include <float.h>
|
35
|
+
|
36
|
+
#include "ia64_flags.h"
|
37
|
+
|
38
|
+
/* A 64-bit pointer value. In LP64 mode, this is effectively a plain
|
39
|
+
pointer. In ILP32 mode, it's a pointer that's been extended to
|
40
|
+
64 bits by "addp4". */
|
41
|
+
typedef void *PTR64 __attribute__((mode(DI)));
|
42
|
+
|
43
|
+
/* Memory image of fp register contents. This is the implementation
|
44
|
+
specific format used by ldf.fill/stf.spill. All we care about is
|
45
|
+
that it wants a 16 byte aligned slot. */
|
46
|
+
typedef struct
|
47
|
+
{
|
48
|
+
UINT64 x[2] __attribute__((aligned(16)));
|
49
|
+
} fpreg;
|
50
|
+
|
51
|
+
|
52
|
+
/* The stack layout given to ffi_call_unix and ffi_closure_unix_inner. */
|
53
|
+
|
54
|
+
struct ia64_args
|
55
|
+
{
|
56
|
+
fpreg fp_regs[8]; /* Contents of 8 fp arg registers. */
|
57
|
+
UINT64 gp_regs[8]; /* Contents of 8 gp arg registers. */
|
58
|
+
UINT64 other_args[]; /* Arguments passed on stack, variable size. */
|
59
|
+
};
|
60
|
+
|
61
|
+
|
62
|
+
/* Adjust ADDR, a pointer to an 8 byte slot, to point to the low LEN bytes. */
|
63
|
+
|
64
|
+
static inline void *
|
65
|
+
endian_adjust (void *addr, size_t len)
|
66
|
+
{
|
67
|
+
#ifdef __BIG_ENDIAN__
|
68
|
+
return addr + (8 - len);
|
69
|
+
#else
|
70
|
+
return addr;
|
71
|
+
#endif
|
72
|
+
}
|
73
|
+
|
74
|
+
/* Store VALUE to ADDR in the current cpu implementation's fp spill format.
|
75
|
+
This is a macro instead of a function, so that it works for all 3 floating
|
76
|
+
point types without type conversions. Type conversion to long double breaks
|
77
|
+
the denorm support. */
|
78
|
+
|
79
|
+
#define stf_spill(addr, value) \
|
80
|
+
asm ("stf.spill %0 = %1%P0" : "=m" (*addr) : "f"(value));
|
81
|
+
|
82
|
+
/* Load a value from ADDR, which is in the current cpu implementation's
|
83
|
+
fp spill format. As above, this must also be a macro. */
|
84
|
+
|
85
|
+
#define ldf_fill(result, addr) \
|
86
|
+
asm ("ldf.fill %0 = %1%P1" : "=f"(result) : "m"(*addr));
|
87
|
+
|
88
|
+
/* Return the size of the C type associated with with TYPE. Which will
|
89
|
+
be one of the FFI_IA64_TYPE_HFA_* values. */
|
90
|
+
|
91
|
+
static size_t
|
92
|
+
hfa_type_size (int type)
|
93
|
+
{
|
94
|
+
switch (type)
|
95
|
+
{
|
96
|
+
case FFI_IA64_TYPE_HFA_FLOAT:
|
97
|
+
return sizeof(float);
|
98
|
+
case FFI_IA64_TYPE_HFA_DOUBLE:
|
99
|
+
return sizeof(double);
|
100
|
+
case FFI_IA64_TYPE_HFA_LDOUBLE:
|
101
|
+
return sizeof(__float80);
|
102
|
+
default:
|
103
|
+
abort ();
|
104
|
+
}
|
105
|
+
}
|
106
|
+
|
107
|
+
/* Load from ADDR a value indicated by TYPE. Which will be one of
|
108
|
+
the FFI_IA64_TYPE_HFA_* values. */
|
109
|
+
|
110
|
+
static void
|
111
|
+
hfa_type_load (fpreg *fpaddr, int type, void *addr)
|
112
|
+
{
|
113
|
+
switch (type)
|
114
|
+
{
|
115
|
+
case FFI_IA64_TYPE_HFA_FLOAT:
|
116
|
+
stf_spill (fpaddr, *(float *) addr);
|
117
|
+
return;
|
118
|
+
case FFI_IA64_TYPE_HFA_DOUBLE:
|
119
|
+
stf_spill (fpaddr, *(double *) addr);
|
120
|
+
return;
|
121
|
+
case FFI_IA64_TYPE_HFA_LDOUBLE:
|
122
|
+
stf_spill (fpaddr, *(__float80 *) addr);
|
123
|
+
return;
|
124
|
+
default:
|
125
|
+
abort ();
|
126
|
+
}
|
127
|
+
}
|
128
|
+
|
129
|
+
/* Load VALUE into ADDR as indicated by TYPE. Which will be one of
|
130
|
+
the FFI_IA64_TYPE_HFA_* values. */
|
131
|
+
|
132
|
+
static void
|
133
|
+
hfa_type_store (int type, void *addr, fpreg *fpaddr)
|
134
|
+
{
|
135
|
+
switch (type)
|
136
|
+
{
|
137
|
+
case FFI_IA64_TYPE_HFA_FLOAT:
|
138
|
+
{
|
139
|
+
float result;
|
140
|
+
ldf_fill (result, fpaddr);
|
141
|
+
*(float *) addr = result;
|
142
|
+
break;
|
143
|
+
}
|
144
|
+
case FFI_IA64_TYPE_HFA_DOUBLE:
|
145
|
+
{
|
146
|
+
double result;
|
147
|
+
ldf_fill (result, fpaddr);
|
148
|
+
*(double *) addr = result;
|
149
|
+
break;
|
150
|
+
}
|
151
|
+
case FFI_IA64_TYPE_HFA_LDOUBLE:
|
152
|
+
{
|
153
|
+
__float80 result;
|
154
|
+
ldf_fill (result, fpaddr);
|
155
|
+
*(__float80 *) addr = result;
|
156
|
+
break;
|
157
|
+
}
|
158
|
+
default:
|
159
|
+
abort ();
|
160
|
+
}
|
161
|
+
}
|
162
|
+
|
163
|
+
/* Is TYPE a struct containing floats, doubles, or extended doubles,
|
164
|
+
all of the same fp type? If so, return the element type. Return
|
165
|
+
FFI_TYPE_VOID if not. */
|
166
|
+
|
167
|
+
static int
|
168
|
+
hfa_element_type (ffi_type *type, int nested)
|
169
|
+
{
|
170
|
+
int element = FFI_TYPE_VOID;
|
171
|
+
|
172
|
+
switch (type->type)
|
173
|
+
{
|
174
|
+
case FFI_TYPE_FLOAT:
|
175
|
+
/* We want to return VOID for raw floating-point types, but the
|
176
|
+
synthetic HFA type if we're nested within an aggregate. */
|
177
|
+
if (nested)
|
178
|
+
element = FFI_IA64_TYPE_HFA_FLOAT;
|
179
|
+
break;
|
180
|
+
|
181
|
+
case FFI_TYPE_DOUBLE:
|
182
|
+
/* Similarly. */
|
183
|
+
if (nested)
|
184
|
+
element = FFI_IA64_TYPE_HFA_DOUBLE;
|
185
|
+
break;
|
186
|
+
|
187
|
+
case FFI_TYPE_LONGDOUBLE:
|
188
|
+
/* Similarly, except that that HFA is true for double extended,
|
189
|
+
but not quad precision. Both have sizeof == 16, so tell the
|
190
|
+
difference based on the precision. */
|
191
|
+
if (LDBL_MANT_DIG == 64 && nested)
|
192
|
+
element = FFI_IA64_TYPE_HFA_LDOUBLE;
|
193
|
+
break;
|
194
|
+
|
195
|
+
case FFI_TYPE_STRUCT:
|
196
|
+
{
|
197
|
+
ffi_type **ptr = &type->elements[0];
|
198
|
+
|
199
|
+
for (ptr = &type->elements[0]; *ptr ; ptr++)
|
200
|
+
{
|
201
|
+
int sub_element = hfa_element_type (*ptr, 1);
|
202
|
+
if (sub_element == FFI_TYPE_VOID)
|
203
|
+
return FFI_TYPE_VOID;
|
204
|
+
|
205
|
+
if (element == FFI_TYPE_VOID)
|
206
|
+
element = sub_element;
|
207
|
+
else if (element != sub_element)
|
208
|
+
return FFI_TYPE_VOID;
|
209
|
+
}
|
210
|
+
}
|
211
|
+
break;
|
212
|
+
|
213
|
+
default:
|
214
|
+
return FFI_TYPE_VOID;
|
215
|
+
}
|
216
|
+
|
217
|
+
return element;
|
218
|
+
}
|
219
|
+
|
220
|
+
|
221
|
+
/* Perform machine dependent cif processing. */
|
222
|
+
|
223
|
+
static ffi_status
|
224
|
+
ffi_prep_cif_machdep_core(ffi_cif *cif)
|
225
|
+
{
|
226
|
+
int flags;
|
227
|
+
|
228
|
+
/* Adjust cif->bytes to include space for the bits of the ia64_args frame
|
229
|
+
that precedes the integer register portion. The estimate that the
|
230
|
+
generic bits did for the argument space required is good enough for the
|
231
|
+
integer component. */
|
232
|
+
cif->bytes += offsetof(struct ia64_args, gp_regs[0]);
|
233
|
+
if (cif->bytes < sizeof(struct ia64_args))
|
234
|
+
cif->bytes = sizeof(struct ia64_args);
|
235
|
+
|
236
|
+
/* Set the return type flag. */
|
237
|
+
flags = cif->rtype->type;
|
238
|
+
switch (cif->rtype->type)
|
239
|
+
{
|
240
|
+
case FFI_TYPE_LONGDOUBLE:
|
241
|
+
/* Leave FFI_TYPE_LONGDOUBLE as meaning double extended precision,
|
242
|
+
and encode quad precision as a two-word integer structure. */
|
243
|
+
if (LDBL_MANT_DIG != 64)
|
244
|
+
flags = FFI_IA64_TYPE_SMALL_STRUCT | (16 << 8);
|
245
|
+
break;
|
246
|
+
|
247
|
+
case FFI_TYPE_STRUCT:
|
248
|
+
{
|
249
|
+
size_t size = cif->rtype->size;
|
250
|
+
int hfa_type = hfa_element_type (cif->rtype, 0);
|
251
|
+
|
252
|
+
if (hfa_type != FFI_TYPE_VOID)
|
253
|
+
{
|
254
|
+
size_t nelts = size / hfa_type_size (hfa_type);
|
255
|
+
if (nelts <= 8)
|
256
|
+
flags = hfa_type | (size << 8);
|
257
|
+
}
|
258
|
+
else
|
259
|
+
{
|
260
|
+
if (size <= 32)
|
261
|
+
flags = FFI_IA64_TYPE_SMALL_STRUCT | (size << 8);
|
262
|
+
}
|
263
|
+
}
|
264
|
+
break;
|
265
|
+
|
266
|
+
default:
|
267
|
+
break;
|
268
|
+
}
|
269
|
+
cif->flags = flags;
|
270
|
+
|
271
|
+
return FFI_OK;
|
272
|
+
}
|
273
|
+
|
274
|
+
ffi_status
|
275
|
+
ffi_prep_cif_machdep(ffi_cif *cif)
|
276
|
+
{
|
277
|
+
cif->nfixedargs = cif->nargs;
|
278
|
+
return ffi_prep_cif_machdep_core(cif);
|
279
|
+
}
|
280
|
+
|
281
|
+
ffi_status
|
282
|
+
ffi_prep_cif_machdep_var(ffi_cif *cif,
|
283
|
+
unsigned int nfixedargs,
|
284
|
+
unsigned int ntotalargs MAYBE_UNUSED)
|
285
|
+
{
|
286
|
+
cif->nfixedargs = nfixedargs;
|
287
|
+
return ffi_prep_cif_machdep_core(cif);
|
288
|
+
}
|
289
|
+
|
290
|
+
extern int ffi_call_unix (struct ia64_args *, PTR64, void (*)(void), UINT64);
|
291
|
+
|
292
|
+
void
|
293
|
+
ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
|
294
|
+
{
|
295
|
+
struct ia64_args *stack;
|
296
|
+
long i, avn, gpcount, fpcount;
|
297
|
+
ffi_type **p_arg;
|
298
|
+
|
299
|
+
FFI_ASSERT (cif->abi == FFI_UNIX);
|
300
|
+
|
301
|
+
/* If we have no spot for a return value, make one. */
|
302
|
+
if (rvalue == NULL && cif->rtype->type != FFI_TYPE_VOID)
|
303
|
+
rvalue = alloca (cif->rtype->size);
|
304
|
+
|
305
|
+
/* Allocate the stack frame. */
|
306
|
+
stack = alloca (cif->bytes);
|
307
|
+
|
308
|
+
gpcount = fpcount = 0;
|
309
|
+
avn = cif->nargs;
|
310
|
+
for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
|
311
|
+
{
|
312
|
+
switch ((*p_arg)->type)
|
313
|
+
{
|
314
|
+
case FFI_TYPE_SINT8:
|
315
|
+
stack->gp_regs[gpcount++] = *(SINT8 *)avalue[i];
|
316
|
+
break;
|
317
|
+
case FFI_TYPE_UINT8:
|
318
|
+
stack->gp_regs[gpcount++] = *(UINT8 *)avalue[i];
|
319
|
+
break;
|
320
|
+
case FFI_TYPE_SINT16:
|
321
|
+
stack->gp_regs[gpcount++] = *(SINT16 *)avalue[i];
|
322
|
+
break;
|
323
|
+
case FFI_TYPE_UINT16:
|
324
|
+
stack->gp_regs[gpcount++] = *(UINT16 *)avalue[i];
|
325
|
+
break;
|
326
|
+
case FFI_TYPE_SINT32:
|
327
|
+
stack->gp_regs[gpcount++] = *(SINT32 *)avalue[i];
|
328
|
+
break;
|
329
|
+
case FFI_TYPE_UINT32:
|
330
|
+
stack->gp_regs[gpcount++] = *(UINT32 *)avalue[i];
|
331
|
+
break;
|
332
|
+
case FFI_TYPE_SINT64:
|
333
|
+
case FFI_TYPE_UINT64:
|
334
|
+
stack->gp_regs[gpcount++] = *(UINT64 *)avalue[i];
|
335
|
+
break;
|
336
|
+
|
337
|
+
case FFI_TYPE_POINTER:
|
338
|
+
stack->gp_regs[gpcount++] = (UINT64)(PTR64) *(void **)avalue[i];
|
339
|
+
break;
|
340
|
+
|
341
|
+
case FFI_TYPE_FLOAT:
|
342
|
+
if (gpcount < 8 && fpcount < 8)
|
343
|
+
stf_spill (&stack->fp_regs[fpcount++], *(float *)avalue[i]);
|
344
|
+
{
|
345
|
+
UINT32 tmp;
|
346
|
+
memcpy (&tmp, avalue[i], sizeof (UINT32));
|
347
|
+
stack->gp_regs[gpcount++] = tmp;
|
348
|
+
}
|
349
|
+
break;
|
350
|
+
|
351
|
+
case FFI_TYPE_DOUBLE:
|
352
|
+
if (gpcount < 8 && fpcount < 8)
|
353
|
+
stf_spill (&stack->fp_regs[fpcount++], *(double *)avalue[i]);
|
354
|
+
memcpy (&stack->gp_regs[gpcount++], avalue[i], sizeof (UINT64));
|
355
|
+
break;
|
356
|
+
|
357
|
+
case FFI_TYPE_LONGDOUBLE:
|
358
|
+
if (gpcount & 1)
|
359
|
+
gpcount++;
|
360
|
+
if (LDBL_MANT_DIG == 64 && gpcount < 8 && fpcount < 8)
|
361
|
+
stf_spill (&stack->fp_regs[fpcount++], *(__float80 *)avalue[i]);
|
362
|
+
memcpy (&stack->gp_regs[gpcount], avalue[i], 16);
|
363
|
+
gpcount += 2;
|
364
|
+
break;
|
365
|
+
|
366
|
+
case FFI_TYPE_STRUCT:
|
367
|
+
{
|
368
|
+
size_t size = (*p_arg)->size;
|
369
|
+
size_t align = (*p_arg)->alignment;
|
370
|
+
int hfa_type = hfa_element_type (*p_arg, 0);
|
371
|
+
|
372
|
+
FFI_ASSERT (align <= 16);
|
373
|
+
if (align == 16 && (gpcount & 1))
|
374
|
+
gpcount++;
|
375
|
+
|
376
|
+
if (hfa_type != FFI_TYPE_VOID)
|
377
|
+
{
|
378
|
+
size_t hfa_size = hfa_type_size (hfa_type);
|
379
|
+
size_t offset = 0;
|
380
|
+
size_t gp_offset = gpcount * 8;
|
381
|
+
|
382
|
+
while (fpcount < 8
|
383
|
+
&& offset < size
|
384
|
+
&& gp_offset < 8 * 8)
|
385
|
+
{
|
386
|
+
hfa_type_load (&stack->fp_regs[fpcount], hfa_type,
|
387
|
+
avalue[i] + offset);
|
388
|
+
offset += hfa_size;
|
389
|
+
gp_offset += hfa_size;
|
390
|
+
fpcount += 1;
|
391
|
+
}
|
392
|
+
}
|
393
|
+
|
394
|
+
memcpy (&stack->gp_regs[gpcount], avalue[i], size);
|
395
|
+
gpcount += (size + 7) / 8;
|
396
|
+
}
|
397
|
+
break;
|
398
|
+
|
399
|
+
default:
|
400
|
+
abort ();
|
401
|
+
}
|
402
|
+
}
|
403
|
+
|
404
|
+
ffi_call_unix (stack, rvalue, fn, cif->flags);
|
405
|
+
}
|
406
|
+
|
407
|
+
/* Closures represent a pair consisting of a function pointer, and
|
408
|
+
some user data. A closure is invoked by reinterpreting the closure
|
409
|
+
as a function pointer, and branching to it. Thus we can make an
|
410
|
+
interpreted function callable as a C function: We turn the
|
411
|
+
interpreter itself, together with a pointer specifying the
|
412
|
+
interpreted procedure, into a closure.
|
413
|
+
|
414
|
+
For IA64, function pointer are already pairs consisting of a code
|
415
|
+
pointer, and a gp pointer. The latter is needed to access global
|
416
|
+
variables. Here we set up such a pair as the first two words of
|
417
|
+
the closure (in the "trampoline" area), but we replace the gp
|
418
|
+
pointer with a pointer to the closure itself. We also add the real
|
419
|
+
gp pointer to the closure. This allows the function entry code to
|
420
|
+
both retrieve the user data, and to restore the correct gp pointer. */
|
421
|
+
|
422
|
+
extern void ffi_closure_unix ();
|
423
|
+
|
424
|
+
ffi_status
|
425
|
+
ffi_prep_closure_loc (ffi_closure* closure,
|
426
|
+
ffi_cif* cif,
|
427
|
+
void (*fun)(ffi_cif*,void*,void**,void*),
|
428
|
+
void *user_data,
|
429
|
+
void *codeloc)
|
430
|
+
{
|
431
|
+
/* The layout of a function descriptor. A C function pointer really
|
432
|
+
points to one of these. */
|
433
|
+
struct ia64_fd
|
434
|
+
{
|
435
|
+
UINT64 code_pointer;
|
436
|
+
UINT64 gp;
|
437
|
+
};
|
438
|
+
|
439
|
+
struct ffi_ia64_trampoline_struct
|
440
|
+
{
|
441
|
+
UINT64 code_pointer; /* Pointer to ffi_closure_unix. */
|
442
|
+
UINT64 fake_gp; /* Pointer to closure, installed as gp. */
|
443
|
+
UINT64 real_gp; /* Real gp value. */
|
444
|
+
};
|
445
|
+
|
446
|
+
struct ffi_ia64_trampoline_struct *tramp;
|
447
|
+
struct ia64_fd *fd;
|
448
|
+
|
449
|
+
if (cif->abi != FFI_UNIX)
|
450
|
+
return FFI_BAD_ABI;
|
451
|
+
|
452
|
+
tramp = (struct ffi_ia64_trampoline_struct *)closure->tramp;
|
453
|
+
fd = (struct ia64_fd *)(void *)ffi_closure_unix;
|
454
|
+
|
455
|
+
tramp->code_pointer = fd->code_pointer;
|
456
|
+
tramp->real_gp = fd->gp;
|
457
|
+
tramp->fake_gp = (UINT64)(PTR64)codeloc;
|
458
|
+
closure->cif = cif;
|
459
|
+
closure->user_data = user_data;
|
460
|
+
closure->fun = fun;
|
461
|
+
|
462
|
+
return FFI_OK;
|
463
|
+
}
|
464
|
+
|
465
|
+
|
466
|
+
UINT64
|
467
|
+
ffi_closure_unix_inner (ffi_closure *closure, struct ia64_args *stack,
|
468
|
+
void *rvalue, void *r8)
|
469
|
+
{
|
470
|
+
ffi_cif *cif;
|
471
|
+
void **avalue;
|
472
|
+
ffi_type **p_arg;
|
473
|
+
long i, avn, gpcount, fpcount, nfixedargs;
|
474
|
+
|
475
|
+
cif = closure->cif;
|
476
|
+
avn = cif->nargs;
|
477
|
+
nfixedargs = cif->nfixedargs;
|
478
|
+
avalue = alloca (avn * sizeof (void *));
|
479
|
+
|
480
|
+
/* If the structure return value is passed in memory get that location
|
481
|
+
from r8 so as to pass the value directly back to the caller. */
|
482
|
+
if (cif->flags == FFI_TYPE_STRUCT)
|
483
|
+
rvalue = r8;
|
484
|
+
|
485
|
+
gpcount = fpcount = 0;
|
486
|
+
for (i = 0, p_arg = cif->arg_types; i < avn; i++, p_arg++)
|
487
|
+
{
|
488
|
+
int named = i < nfixedargs;
|
489
|
+
switch ((*p_arg)->type)
|
490
|
+
{
|
491
|
+
case FFI_TYPE_SINT8:
|
492
|
+
case FFI_TYPE_UINT8:
|
493
|
+
avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], 1);
|
494
|
+
break;
|
495
|
+
case FFI_TYPE_SINT16:
|
496
|
+
case FFI_TYPE_UINT16:
|
497
|
+
avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], 2);
|
498
|
+
break;
|
499
|
+
case FFI_TYPE_SINT32:
|
500
|
+
case FFI_TYPE_UINT32:
|
501
|
+
avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], 4);
|
502
|
+
break;
|
503
|
+
case FFI_TYPE_SINT64:
|
504
|
+
case FFI_TYPE_UINT64:
|
505
|
+
avalue[i] = &stack->gp_regs[gpcount++];
|
506
|
+
break;
|
507
|
+
case FFI_TYPE_POINTER:
|
508
|
+
avalue[i] = endian_adjust(&stack->gp_regs[gpcount++], sizeof(void*));
|
509
|
+
break;
|
510
|
+
|
511
|
+
case FFI_TYPE_FLOAT:
|
512
|
+
if (named && gpcount < 8 && fpcount < 8)
|
513
|
+
{
|
514
|
+
fpreg *addr = &stack->fp_regs[fpcount++];
|
515
|
+
float result;
|
516
|
+
avalue[i] = addr;
|
517
|
+
ldf_fill (result, addr);
|
518
|
+
*(float *)addr = result;
|
519
|
+
}
|
520
|
+
else
|
521
|
+
avalue[i] = endian_adjust(&stack->gp_regs[gpcount], 4);
|
522
|
+
gpcount++;
|
523
|
+
break;
|
524
|
+
|
525
|
+
case FFI_TYPE_DOUBLE:
|
526
|
+
if (named && gpcount < 8 && fpcount < 8)
|
527
|
+
{
|
528
|
+
fpreg *addr = &stack->fp_regs[fpcount++];
|
529
|
+
double result;
|
530
|
+
avalue[i] = addr;
|
531
|
+
ldf_fill (result, addr);
|
532
|
+
*(double *)addr = result;
|
533
|
+
}
|
534
|
+
else
|
535
|
+
avalue[i] = &stack->gp_regs[gpcount];
|
536
|
+
gpcount++;
|
537
|
+
break;
|
538
|
+
|
539
|
+
case FFI_TYPE_LONGDOUBLE:
|
540
|
+
if (gpcount & 1)
|
541
|
+
gpcount++;
|
542
|
+
if (LDBL_MANT_DIG == 64 && named && gpcount < 8 && fpcount < 8)
|
543
|
+
{
|
544
|
+
fpreg *addr = &stack->fp_regs[fpcount++];
|
545
|
+
__float80 result;
|
546
|
+
avalue[i] = addr;
|
547
|
+
ldf_fill (result, addr);
|
548
|
+
*(__float80 *)addr = result;
|
549
|
+
}
|
550
|
+
else
|
551
|
+
avalue[i] = &stack->gp_regs[gpcount];
|
552
|
+
gpcount += 2;
|
553
|
+
break;
|
554
|
+
|
555
|
+
case FFI_TYPE_STRUCT:
|
556
|
+
{
|
557
|
+
size_t size = (*p_arg)->size;
|
558
|
+
size_t align = (*p_arg)->alignment;
|
559
|
+
int hfa_type = hfa_element_type (*p_arg, 0);
|
560
|
+
|
561
|
+
FFI_ASSERT (align <= 16);
|
562
|
+
if (align == 16 && (gpcount & 1))
|
563
|
+
gpcount++;
|
564
|
+
|
565
|
+
if (hfa_type != FFI_TYPE_VOID)
|
566
|
+
{
|
567
|
+
size_t hfa_size = hfa_type_size (hfa_type);
|
568
|
+
size_t offset = 0;
|
569
|
+
size_t gp_offset = gpcount * 8;
|
570
|
+
void *addr = alloca (size);
|
571
|
+
|
572
|
+
avalue[i] = addr;
|
573
|
+
|
574
|
+
while (fpcount < 8
|
575
|
+
&& offset < size
|
576
|
+
&& gp_offset < 8 * 8)
|
577
|
+
{
|
578
|
+
hfa_type_store (hfa_type, addr + offset,
|
579
|
+
&stack->fp_regs[fpcount]);
|
580
|
+
offset += hfa_size;
|
581
|
+
gp_offset += hfa_size;
|
582
|
+
fpcount += 1;
|
583
|
+
}
|
584
|
+
|
585
|
+
if (offset < size)
|
586
|
+
memcpy (addr + offset, (char *)stack->gp_regs + gp_offset,
|
587
|
+
size - offset);
|
588
|
+
}
|
589
|
+
else
|
590
|
+
avalue[i] = &stack->gp_regs[gpcount];
|
591
|
+
|
592
|
+
gpcount += (size + 7) / 8;
|
593
|
+
}
|
594
|
+
break;
|
595
|
+
|
596
|
+
default:
|
597
|
+
abort ();
|
598
|
+
}
|
599
|
+
}
|
600
|
+
|
601
|
+
closure->fun (cif, rvalue, avalue, closure->user_data);
|
602
|
+
|
603
|
+
return cif->flags;
|
604
|
+
}
|